The following is the report layout.... i want all the headings for each 55 lines break.
The below is the sort card I am using....
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=INPUT FILE,DISP=SHR
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=(2,3,A,5,1,A,12,5,A)),FORMAT=CH
INREC IFTHEN=(WHEN=(42,1,CH,EQ,C'C'),OVERLAY(65:C'**')),
IFTHEN=(WHEN=(42,1,CH,EQ,C' '),OVERLAY(65:C' ')),
IFTHEN=(WHEN=(1,1,CH,NE,C' '),
OVERLAY(55:43,4,ZD,ADD,47,4,ZD,M10,LENGTH=4))
OUTFIL REMOVECC,
OUTREC=(/,2:12,5,8:65,2,11:17,25,45:43,4,ZD,56:47,4,ZD,
68:55,4,ZD,M10,LENGTH=4,132:X),
SECTIONS=(2,3,5,1,SKIP=P,
HEADER3=(2:2,3,5:'-22650',
35:'DEALER DISTRIBUTION SYSTEM',
105:'DATE: ',&DATE,121:'PAGE: ',&PAGE,/,
2:'JOB-PGM',
35:'SUMMARY REPORT',
106:'RUN: ',&DATE,121:&TIME,/,
35:'REGION: ',2,3,65:'DISTRICT: ',5,1,/,
35:'MONTH: ',6,2,44:'/',8,4,/,
2:'SERIES: ALL',/,
46:'NO',69:'NET',/,
45:'MATCH',56:'MATCH',67:'MONTHLY',/,
45:'COUNT',56:'COUNT',68:'SALES'),
TRAILER3=(132:X,/,
44:'------',55:'------',67:'------',2/,
6:'DISTRICT ',17:2,2,19:5,1,31:'TOTAL ',
45:TOTAL=(43,04,ZD,M10,LENGTH=4),
56:TOTAL=(47,04,ZD,M10,LENGTH=4),
68:TOTAL=(55,04,ZD,M10,LENGTH=4),2/,
/,2:'** INDICATES COMBINED PRIMARY AND COMPANION STORE(S).',
80:X))
//*