Mariraj
New User
Joined: 09 Jul 2007
Posts: 25
Location: Chennai
|
|
|
|
Hi,
I am executing the following code to edit & copy a seq. dataset with LRECL=80 to another seq. dataset with LRECL=100.
| Code: |
//STEP1 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=XXXX.IEBGENER.INPUT5
//SYSUT2 DD DSN=XXXX.IEBGENER.OUTPUT5,
// DISP=(NEW,CATLG,DELETE),
// DCB=(RECFM=FB,LRECL=100,BLKSIZE=10000),
// SPACE=(TRK,(10,10),RLSE),UNIT=SYSALLDA
//SYSIN DD *
GENERATE MAXFLDS=4,MAXGPS=1,MAXLITS=20
GRP1 RECORD IDENT=(6,'GROUP1',1),FIELD=(80,1,,1),
FIELD=(20,' FIRST GROUP ',,81)
GRP2 RECORD FIELD=(80,1,,1),
FIELD=(20,' SECOND GROUP ',,81)
/*
|
But the job ends with MAXCC 12 and the follwoing error message is displayed.
| Code: |
1DATA SET UTILITY - GENERATE
- GENERATE MAXFLDS=4,MAXGPS=1,MAXLITS=20
GRP1 RECORD IDENT=(6,'GROUP1',1),FIELD=(80,1,,1),
FIELD=(20,' FIRST GROUP ',,81)
GRP2 RECORD FIELD=(80,1,,1),
FIELD=(20,' SECOND GROUP ',,81)
IEB342I INVALID SPACE ALLOCATION
IEB346I MISSING PARENTHESIS OR QUOTE
|
Please let me know what is wrong with the code. |
|
