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 *
aa156789 User1 Add
aa290898 User1 Add
aa198647 User1 Chg
aa109844 User1 Del
/*
//SORTOUT DD SYSOUT=*
//SYSIN DD *
INREC IFTHEN=(WHEN=INIT,OVERLAY=(21:C'000')),
IFTHEN=(WHEN=(18,3,CH,EQ,C'Add'),OVERLAY=(21:C'1')),
IFTHEN=(WHEN=(18,3,CH,EQ,C'Chg'),OVERLAY=(22:C'1')),
IFTHEN=(WHEN=(18,3,CH,EQ,C'Del'),OVERLAY=(23:C'1'))
SORT FIELDS=(1,3,CH,A,10,8,CH,A)
OUTFIL REMOVECC,NODETAIL,
HEADER2=('Prefix User-id Add Chg Del'),
SECTIONS=(1,3,SKIP=0L,10,8,
TRAILER3=(1,3,8:10,8,
17:TOT=(21,1,ZD,EDIT=(IIT)),
24:TOT=(22,1,ZD,EDIT=(IIT)),
30:TOT=(23,1,ZD,EDIT=(IIT))))
/*
|
|
|