Input File length = 55
Code: Select all
Starting Length Type Heading
Position
Org 1 2 A
grp 3 3 A
filler1 6 2 A
ENBR 8 8 A
NAME 16 22 A
date 38 8 A
filler2 46 2 A
Centre 48 5 A
filler3 53 3 A
**************************************************
Code: Select all
*********** Top of Data ***************
SORT FIELDS=(3,3,CH,A,48,5,CH,A)
OUTFIL FILES=1,
OUTREC=(12:3,3,10X,25:48,5,10X,40:8,8,7X,55:16,22,3X,80:38,8,
132:X),
SECTIONS=(3,3,SKIP=0L,
HEADER3=(50:'DISCOUNT CARD AUDIT REPORT',24X,&DATE=(DMY/),13X,
'PAGE ',&PAGE,
/,10:'PAYROLL',26:'COST',40:'EMPLOYEE',
81:'EXPIRY',/,11:'GROUP',25:'CENTRE',41:'NUMBER',64:'NAME',
82:'DATE'))
********** Bottom of Data *************
Can it be done?