Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
You can use a DFSORT job like the following to do what you asked for:
| Code: |
//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
1111 AAA 00001 00001
1111 AAA 00001 00001
1111 BBB 00002 00002
1111 BBB 00002 00002
2222 AAA 00003 00003
2222 AAA 00003 00003
2222 CCC 00004 00004
2222 CCC 00000 00000
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INREC IFTHEN=(WHEN=(6,3,CH,EQ,C'AAA'),
BUILD=(1,4,9:C'0001',14:C'0000',19:C'0000',25:10,5,31:16,5)),
IFTHEN=(WHEN=(6,3,CH,EQ,C'BBB'),
BUILD=(1,4,9:C'0000',14:C'0001',19:C'0000',25:10,5,31:16,5)),
IFTHEN=(WHEN=(6,3,CH,EQ,C'CCC'),
BUILD=(1,4,9:C'0000',14:C'0000',19:C'0001',25:10,5,31:16,5))
OUTFIL REMOVECC,NODETAIL,
HEADER2=('TYPE AAA BBB CCC AMNT1 AMNT2'),
SECTIONS=(1,4,
TRAILER3=(1,4,
9:TOT=(9,4,ZD,EDIT=(IIIT)),
14:TOT=(14,4,ZD,EDIT=(IIIT)),
19:TOT=(19,4,ZD,EDIT=(IIIT)),
25:TOT=(25,5,ZD,EDIT=(TTTTT)),
31:TOT=(31,5,ZD,EDIT=(TTTTT))))
/*
|
|
|
