Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
bhaskar_kanteti,
Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
----+----1----+----2----+----3----+----4----+----5----+----6----
6202 A1A2A3A4A5
6202 A2A3A5
6202 A1A2A3
6203 A3A5
6204 A4
6204 A5
6205 A1A5
//SORTOUT DD SYSOUT=*
//SYSIN DD *
INREC IFTHEN=(WHEN=INIT,OVERLAY=(81:5C'0')),
IFTHEN=(WHEN=(7,10,SS,EQ,C'A1'),OVERLAY=(81:C'1'),HIT=NEXT),
IFTHEN=(WHEN=(7,10,SS,EQ,C'A2'),OVERLAY=(82:C'1'),HIT=NEXT),
IFTHEN=(WHEN=(7,10,SS,EQ,C'A3'),OVERLAY=(83:C'1'),HIT=NEXT),
IFTHEN=(WHEN=(7,10,SS,EQ,C'A4'),OVERLAY=(84:C'1'),HIT=NEXT),
IFTHEN=(WHEN=(7,10,SS,EQ,C'A5'),OVERLAY=(85:C'1'))
SORT FIELDS=(1,4,CH,A)
OUTFIL REMOVECC,NODETAIL,BUILD=(80X),
HEADER1=(' MC:',6:'A1',9:'A2',12:'A3',15:'A4',18:C'A5',/,
' ===',6:'==',9:'==',12:'==',15:'==',18:C'=='),
SECTIONS=(1,4,
TRAILER3=(1,4,X,
TOT=(81,1,ZD,M10,LENGTH=2),X,
TOT=(82,1,ZD,M10,LENGTH=2),X,
TOT=(83,1,ZD,M10,LENGTH=2),X,
TOT=(84,1,ZD,M10,LENGTH=2),X,
TOT=(85,1,ZD,M10,LENGTH=2)))
/*
|
The output from this job is
Code: |
MC: A1 A2 A3 A4 A5
=== == == == == ==
6202 2 3 3 1 2
6203 0 0 1 0 1
6204 0 0 0 1 1
6205 1 0 0 0 1
|
|
|