Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
christy,
Use the following DFSORT JCL
Code: |
//STEP0500 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
INVENTORY SUMMARY REPORT
PRODUCT SIZE COLOUR TYPE NUMBER OF
ELEMENTS
SHIRT XXL YELLOW COTTON 2
SHIRT XXL YELLOW SILK 10
SHIRT XXL YELLOW POLYCOTTON 25
SHIRT XXL YELLOW LINEN 100
SHIRT XXL YELLOW 137
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
OMIT COND=(36,10,CH,EQ,C'INVENTORY',OR,
04,07,CH,EQ,C'PRODUCT',OR,
60,08,CH,EQ,C'ELEMENTS')
OUTFIL REMOVECC,IFOUTLEN=80,
IFTHEN=(WHEN=INIT,BUILD=(12:40,30)),
IFTHEN=(WHEN=(12,16,CH,EQ,C' '),OVERLAY=(12:C'TOTAL ELEMENTS')),
HEADER1=(12:'INVENTORY SUMMARY REPORT',/,12:25'-',/),
SECTIONS=(4,30,
HEADER3=(12:'PRODUCT:',3X,04,8,/,/,
12:'SIZE :',3X,16,8,/,/,
12:'COLOUR :',3X,28,8,/,/,
12:'TYPE ',32:C' COUNT',/,
12:'--------',32:C'--------'))
//* |
|
|