Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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 sort records based on length exceeds ... maxsubrat DFSORT/ICETOOL 7 Wed Oct 04, 2017 4:48 pm
No new posts Execute JCL step based on the content... sprikitik JCL & VSAM 2 Tue Oct 03, 2017 10:03 am
This topic is locked: you cannot edit posts or make replies. PS file data should be passed as symb... d_sarlie JCL & VSAM 15 Tue Oct 03, 2017 5:18 am
No new posts How to insert a value on specific pos... Poha Eater DFSORT/ICETOOL 9 Sun Oct 01, 2017 3:04 am
No new posts JOINKEYS Paired and Unpaired Sort MFwhiz DFSORT/ICETOOL 4 Fri Sep 29, 2017 1:48 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us