SORT FIELDS=(3,10,A,16,13,A),FORMAT=CH
use mfs121a.dat org ls record (f 80)
OUTFIL
INCLUDE=(42,6,CH,EQ,C'West'),
HEADER1=(5/,18:'Western Region',3/,
18:'Profit and Loss Report',3/,
18:' for ',&DATE,3/,
18:' Page',&PAGE),
OUTREC=(6:16,13,24:31,10,ZD,M5,LENGTH=20,75:X),
SECTIONS=(3,10,SKIP=P,
HEADER3=(2:'Division:',3,10,5X,'Page:',&PAGE,2/,
6:'Branch Office',24:'Profit/(Loss)',/,
6:'-------------',24:'--------------------'),
TRAILER3=(6:'=============',24:'====================',/,
6:'Total',24:TOTAL=(31,10,ZD,M5,LENGTH=20),/,
6:'Lowest',24:MIN=(31,10,ZD,M5,LENGTH=20),/,
6:'Highest',24:MAX=(31,10,ZD,M5,LENGTH=20),/,
6:'Average',24:AVG=(31,10,ZD,M5,LENGTH=20),/,
3/,2:'Average for all Branch Offices so far:',
X,SUBAVG=(31,10,ZD,M5))),
TRAILER1=(8:'Page ',&PAGE,5X,'Date:',&DATE,5/,
8:'Total Number of Branch Offices Reporting: ',
COUNT,2/,
8:'Summary of Profit/(Loss) for all',
' Western Division Branch Offices',2/,
12:'Total:',
22:TOTAL=(31,10,ZD,M5,LENGTH=20),/,
12:'Lowest:',
22:MIN=(31,10,ZD,M5,LENGTH=20),/,
12:'Highest:',
22:MAX=(31,10,ZD,M5,LENGTH=20),/,
12:'Average:',
22:AVG=(31,10,ZD,M5,LENGTH=20))
give outfil1.dat