Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
Shaheen Kalokhe,
The following DFSORT JCL will give you the desired results
Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
----+----1----+----2----+----3----+----4----+----5----+--
110000000000
101000000000
001000010001
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
INREC IFTHEN=(WHEN=INIT,
OVERLAY=(81:C'JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC')),
IFTHEN=(WHEN=(21,1,ZD,EQ,0),OVERLAY=(081:3X),HIT=NEXT),
IFTHEN=(WHEN=(22,1,ZD,EQ,0),OVERLAY=(084:3X),HIT=NEXT),
IFTHEN=(WHEN=(23,1,ZD,EQ,0),OVERLAY=(087:3X),HIT=NEXT),
IFTHEN=(WHEN=(24,1,ZD,EQ,0),OVERLAY=(090:3X),HIT=NEXT),
IFTHEN=(WHEN=(25,1,ZD,EQ,0),OVERLAY=(093:3X),HIT=NEXT),
IFTHEN=(WHEN=(26,1,ZD,EQ,0),OVERLAY=(096:3X),HIT=NEXT),
IFTHEN=(WHEN=(27,1,ZD,EQ,0),OVERLAY=(099:3X),HIT=NEXT),
IFTHEN=(WHEN=(28,1,ZD,EQ,0),OVERLAY=(102:3X),HIT=NEXT),
IFTHEN=(WHEN=(29,1,ZD,EQ,0),OVERLAY=(105:3X),HIT=NEXT),
IFTHEN=(WHEN=(30,1,ZD,EQ,0),OVERLAY=(108:3X),HIT=NEXT),
IFTHEN=(WHEN=(31,1,ZD,EQ,0),OVERLAY=(111:3X),HIT=NEXT),
IFTHEN=(WHEN=(32,1,ZD,EQ,0),OVERLAY=(114:3X),HIT=NEXT)
OUTREC IFOUTLEN=80,
IFTHEN=(WHEN=INIT,OVERLAY=(35:81,36,SQZ=(SHIFT=LEFT)))
/* |
the output from the above job is
Code: |
110000000000 JANFEB
101000000000 JANMAR
001000010001 MARAUGDEC
|
|
|