Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Insert Date in file using SORT/ICETOOL

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
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    Post subject: Insert Date in file using SORT/ICETOOL
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    Post subject:
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    Post subject:
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 Moderator


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

PostPosted: Fri Oct 30, 2009 9:18 pm    Post subject:
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    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
This topic is locked: you cannot edit posts or make replies. Fetching data from BAI File arunsoods JCL & VSAM 1 Wed Jul 19, 2017 4:28 pm
No new posts Write out NODUPS but just from one file Jay Villaverde DFSORT/ICETOOL 8 Fri Jul 14, 2017 12:44 am
No new posts SORT to unpack a feild shr_amar DFSORT/ICETOOL 7 Fri Jul 07, 2017 4:32 am
No new posts How to add header with Date(YYMMDD) i... Rajan Moorthy DFSORT/ICETOOL 2 Thu Jul 06, 2017 11:44 pm
No new posts How to write Specific Fields from Mul... Padhu SYNCSORT 6 Thu Jul 06, 2017 10:26 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us