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
No new posts Changing of LRECL of a file abdulrafi DFSORT/ICETOOL 2 Fri Mar 24, 2017 3:25 pm
No new posts splitting a file abdulrafi DFSORT/ICETOOL 4 Fri Mar 24, 2017 11:51 am
No new posts Receive a file using PCOMM macro Harald.v.K IBM Tools 0 Thu Mar 23, 2017 6:50 pm
No new posts Export flat file data into excel sheet murali.andaluri DFSORT/ICETOOL 2 Mon Mar 20, 2017 5:39 pm
No new posts Formatting VB File Learncoholic DFSORT/ICETOOL 3 Mon Mar 20, 2017 12:29 pm


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