Skolusu
Senior Member
Joined: 07 Dec 2007
Posts: 2205
Location: San Jose
|
|
|
|
krishnakanagal,
Use the following DFSORT JCL. The output will have current date in ccyymmdd format in pos 30.
| Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
A
B
C
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL REMOVECC,HEADER1=('SOME HEADER',30:DATENS=(4MD))
/* |
|
|
