IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Insert Date in file using SORT/ICETOOL


IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
dubasir

New User


Joined: 05 Jun 2006
Posts: 19

PostPosted: Fri Oct 30, 2009 12:51 pm
Reply with quote

Hi,
Need to insert the date in the records of input file.

Content in Input Dataset:
C:/Windows/Temp/Filename1.txt
D:/Filename2.txt
E:/Windows/Temp/Sub/Filename3.txt

Expected Output:
C:/Windows/Temp/Filename110302009.txt
D:/Filename10302009.txt
E:/Windows/Temp/Sub/Filename10302009.txt

Please let me know how can I achieve this through ICETOOL or SORT?

Thanks,
Ramakrishna.
Back to top
View user's profile Send private message
Escapa

Senior Member


Joined: 16 Feb 2007
Posts: 1399
Location: IL, USA

PostPosted: Fri Oct 30, 2009 3:56 pm
Reply with quote

What is RECFM & LRECL of dataset?
Back to top
View user's profile Send private message
Escapa

Senior Member


Joined: 16 Feb 2007
Posts: 1399
Location: IL, USA

PostPosted: Fri Oct 30, 2009 4:44 pm
Reply with quote

Assuming LRECL=80 and extention for file will be max 3 char(txt)
Output LRECL will be 88

This will work for you.

Code:

//S1    EXEC  PGM=SORT                                                 
//SORTIN DD *                                                           
C:/Windows/Temp/Filename1.txt                                           
D:/Filename2.txt                                                       
E:/Windows/Temp/Sub/Filename3.txt                                       
/*                                                                     
//SORTOUT DD SYSOUT=*                                                   
//SYSOUT    DD  SYSOUT=*                                               
//SYSIN    DD  *                                                       
  OPTION COPY                                                           
  INREC PARSE=(%00=(ENDBEFR=C'.',FIXLEN=76),%01=(FIXLEN=3)),           
        OVERLAY=(%00,77:DATENS=(DM4),C'.',%01,1:1,88,SQZ=(SHIFT=LEFT)) 
/*                                                                     

Output
Code:

C:/Windows/Temp/Filename130102009.txt     
D:/Filename230102009.txt                   
E:/Windows/Temp/Sub/Filename330102009.txt 
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA

PostPosted: Fri Oct 30, 2009 9:18 pm
Reply with quote

Ramakrishna,

If your filenames always end with '.txt', you can use this simper DFSORT job to do what you asked for:

Code:

//S2    EXEC  PGM=SORT
//SYSOUT    DD  SYSOUT=*
//SYMNAMES DD *
CURDT,S'&DAY.&MON.&YR4..txt'
/*
//SORTIN DD *
C:/Windows/Temp/Filename1.txt
D:/Filename2.txt
E:/Windows/Temp/Sub/Filename3.txt
/*
//SORTOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSIN    DD  *
  OPTION COPY
  INREC FINDREP=(IN=C'.txt',OUT=CURDT,MAXLEN=88)
/*
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL

 


Similar Topics
Topic Forum Replies
No new posts How to split large record length file... DFSORT/ICETOOL 10
No new posts Extracting Variable decimal numbers f... DFSORT/ICETOOL 17
No new posts SFTP Issue - destination file record ... All Other Mainframe Topics 2
No new posts Modifying Date Format Using DFSORT DFSORT/ICETOOL 9
No new posts Access to non cataloged VSAM file JCL & VSAM 18
Search our Forums:

Back to Top