View previous topic :: View next topic
|
Author |
Message |
dubasir
New User
Joined: 05 Jun 2006 Posts: 19
|
|
|
|
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 |
|
|
Escapa
Senior Member
Joined: 16 Feb 2007 Posts: 1399 Location: IL, USA
|
|
|
|
What is RECFM & LRECL of dataset? |
|
Back to top |
|
|
Escapa
Senior Member
Joined: 16 Feb 2007 Posts: 1399 Location: IL, USA
|
|
|
|
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 |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
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 |
|
|
|