manihcl85 Warnings : 1 New User
Joined: 11 Jan 2007 Posts: 52 Location: chennai
|
|
|
|
Hi ,
Now i have written code to display a section report based on first 2 character. i want to prinf the nomber of records for each section. how to do that, the code i am using to display is as below.
Code: |
//TOOLIN DD *
DISPLAY FROM(IN) LIST(SECTIONS)-
HEADER('M') ON(3,3,CH)-
BTITLE('S') BREAK(1,2,CH)-
/* |
Regards,
Mani |
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
DISPLAY doesn't have a COUNT function, but OUTFIL does, so you can use this DFSORT job to do what you want:
Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file
//SECTIONS DD SYSOUT=*
//SYSIN DD *
OPTION COPY
OUTFIL FNAMES=SECTIONS,
BUILD=(3,3,120:X),
SECTIONS=(1,2,SKIP=P,
HEADER3=('S',2X,1,2,/,X,/,'M',/,'--------------------'),
TRAILER3=('COUNT IS ',COUNT=(M10,LENGTH=5)))
/*
|
|
|