Hi, I have the following error being shown on the OUTFIL statment in my SORT job, can anybody tell me what I am doing wrong ?
Code:
OUTFIL HEADER2=(30:'J A Y S R E P O R T O N IYUIOS 5',/,
*
35: 'LAST PURCHASES MADE IN 2003',//,
02: 'NAME',/,
26: 'STREET ADDRESS',/,
52: 'CITY',/,
68: 'STATE',/,
75: 'DATE',/)
The error seems to be near the Asterix shown above.
//STEP100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//*
//SORTJNF1 DD DISP=SHR,DSN=SS6848.SORTFILE.TRANFILE.INSAMP
//*
//SORTJNF2 DD DISP=SHR,DSN=SS6848.SORTFILE.NAMEADDR.INSAMP
//SYSIN DD *
JOINKEYS FILE=F1,FIELDS=(15,10,A)
INCLUDE COND=(25,6,Y2T,GE,Y'030101')
JOINKEYS FILE=F2,FIELDS=(01,10,A)
REFORMAT FIELDS=(F2:1,67,F1:25,6)
SORT FIELDS=(1,10,BI,A),EQUALS
SUM FIELDS=NONE
OUTFIL HEADER2=(30:'J A Y S R E P O R T O N IYUIOS 5'/,
35: 'LAST PURCHASES MADE IN 2003',//,
02: 'NAME',/,
26: 'STREET ADDRESS',/,
52: 'CITY',/,
68: 'STATE',/,
75: 'DATE',/)
OUTREC=(02:11,20,
26:31,20,
52:51,15,
68:68,2,
73:70,2,C'/',72,2,C'/',68,2)
/*
