Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
mkk157,
The following DFSORT JCL will give you the desired results
Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
&IDSN1='PROD.DBEXT.CM1100D.D031209' -
&ODSN1='ICAUSR_234_CAP_20090312.TXT'
SIGNOFF
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
INREC IFOUTLEN=80,
IFTHEN=(WHEN=(1,6,CH,EQ,C'&IDSN1'),OVERLAY=(29:DATENS=(MDY))),
IFTHEN=(WHEN=(1,6,CH,EQ,C'&ODSN1'),OVERLAY=(24:DATE1))
/* |
|
|