TAPAS PATEL
New User
Joined: 03 Apr 2009
Posts: 47
Location: CHENNAI
|
|
|
|
Hi,
I am trying to generate a report using OUTFIL. I am landing up with the message saying that incompatible LRECL. Please find the details below.
| Code: |
//STEP05R EXEC PGM=SORT
//SORTIN DD DSN=TDMS.TAPAS.TEST3,DISP=SHR
//REPORT1 DD DSN=TDMS.TAPAS.SAMPL.REPORT,DISP=SHR
//SYSIN DD *
SORT FIELDS=(1,7,ZD,A)
OUTFIL FNAMES=REPORT1,LINES=10,
HEADER2=(2:'EMPLOYEE DETAIL REPORT',
40:'DATE',DATE,
60:'PAGE',PAGE,
2/,5:'EMPLOYEE ID',
20:'FIRST NAME',
40:'LAST NAME',
55:'DATE OF BIRTH',
/,2:15'-',
18:14'-',
38:14'-',
53:20'-'),
OUTREC=(5:1,7,
20:8,10,
40:18,10,
55:28,2,
57:30,3,
CHANGE=(10,
C'JAN',C'JANUARY',
C'FEB',C'FEBRUARY',
C'MAR',C'MARCH',
C'APR',C'APRIL',
C'MAY',C'MAY',
C'JUN',C'JUNE',
C'JUL',C'JULY',
C'AUG',C'AUGUST',
C'SEP',C'SEPTEMBER',
C'OCT',C'OCTOBER',
C'NOV',C'NOVEMBER',
C'DEC',C'DECEMBER'),
67:33,4)
/*
//SYSOUT DD SYSOUT=*
|
INPUT:
| Code: |
198466 TAPAS PATEL 31MAY1982
240308 RHIANG PEGU 26JAN1980
237525 JUSTIN JACOB 20JAN1987 |
SYSOUT:
| Code: |
SYSIN :
SORT FIELDS=(1,7,ZD,A)
OUTFIL FNAMES=REPORT1,LINES=10,
HEADER2=(2:'EMPLOYEE DETAIL REPORT',
40:'DATE',DATE,
60:'PAGE',PAGE,
2/,5:'EMPLOYEE ID',
20:'FIRST NAME',
40:'LAST NAME',
55:'DATE OF BIRTH',
/,2:15'-',
18:14'-',
38:14'-',
53:20'-'),
OUTREC=(5:1,7,
20:8,10,
40:18,10,
55:28,2,
57:30,3,
CHANGE=(10,
C'JAN',C'JANUARY',
C'FEB',C'FEBRUARY',
C'MAR',C'MARCH',
C'APR',C'APRIL',
C'MAY',C'MAY',
C'JUN',C'JUNE',
C'JUL',C'JULY',
C'AUG',C'AUGUST',
C'SEP',C'SEPTEMBER',
C'OCT',C'OCTOBER',
C'NOV',C'NOVEMBER',
C'DEC',C'DECEMBER'),
67:33,4)
WER276B SYSDIAG= 63636, 634967, 634967, 1016784
WER164B 24,604K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
WER164B 0 BYTES RESERVE REQUESTED, 1,004K BYTES USED
WER146B 20K BYTES OF EMERGENCY SPACE ALLOCATED
WER108I SORTIN : RECFM=FB ; LRECL= 80; BLKSIZE= 27920
WER110I REPORT1 : RECFM=FBA ; LRECL= 76; BLKSIZE= 27968
WER247A REPORT1 HAS INCOMPATIBLE LRECL |
Please let me know the reason for above error. Is it mandatory that I have to give the RECFM for report as FBA?
Edited: Please use BBcode when You post some code/error, that's rather readable, Thanks... Anuj |
|
