Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
ram_vizag,
use the following DFSORT JCL which will give you the desired results
Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
----+----1----+----2----+----3----+----4----+----5----+----6----
PROCESS DATE :31/05/12.
RECORD - 1
RECORD - 2
RECORD - 3
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
INREC IFOUTLEN=80,
IFTHEN=(WHEN=INIT,OVERLAY=(81:DATE1,X,85,2,X,18,2,2X)),
IFTHEN=(WHEN=INIT,FINDREP=(STARTPOS=90,
INOUT=(C'01',C'JAN',C'02',C'FEB',C'03',C'MAR',C'04',C'APR',
C'05',C'MAY',C'06',C'JUN',C'07',C'JUL',C'08',C'AUG',
C'09',C'SEP',C'10',C'OCT',C'11',C'NOV',C'12',C'DEC'))),
IFTHEN=(WHEN=(1,12,CH,EQ,C'PROCESS DATE'),
BUILD=(1,16,X,94,3,X,21,2,X,
C'RUN DATE : ',87,2,X,90,3,X,83,2,X,TIME))
//* |
The output from this is
Code: |
PROCESS DATE :31 MAY 12 RUN DATE : 28 JUN 12 09:31:04
RECORD - 1
RECORD - 2
RECORD - 3
|
|
|