One dataset is creating in the step1 with LRECL of 133 and
the same dataset is used in the next step in DISP=SHR mode,
but while scanning the JCL the following error is thrwon.
Please verify the below JCL
$/SEPP030.PROVIDER DD
DSN=Z1225BT.F5750PG9.F5910PRV.QC#A6868
//ERRORRPT DD
DSN=F5910&ST&IN..F5910EPP.ERRORRPT.P&CYCDATE,
--ERRORRPT DD
DSN=F5910PG.F5910EPP.ERRORRPT.P,
//
DISP=&DISNCD,UNIT=&DELQ,
-- DISP=
(NEW,CATLG,DELETE),UNIT=DELQ,
// SPACE=(TRK,
(30,15),RLSE),
//
DCB=&DCB2
-- DCB=
(PPG.METMODEL,BLKSIZE=0,LRECL=133,RECFM=FB)
$/SEPP030.ERRORRPT DD
DSN=Z1225BT.F5910EPP.ERRORRPT.AOUTPUT
//SEPP040 EXEC PGM=FILEAID,COND=
(0002,EQ,SEPP030)
//SYSPRINT DD
SYSOUT=*
//SYSLIST DD
SYSOUT=*
//DD01 DD DSN=SYSCMN.PROD.CCLIB
(F5910EP1),DISP=SHR
$/SEPP040.DD01 DD DSN=Z1225BT.TEST.CCLIB
(F5910EP1)
E1 - DSS20791E - DATA
SET 'Z1225BT.F5910EPP.ERRORRPT.AOUTPUT' HAS AN
LRECL OF 133 COULD NOT BE OPENED BECAUSE
THE CODED
LRECL WAS
80.
// DD
DSN=F5910&ST&IN..F5910EPP.ERRORRPT.P&CYCDATE,
-- DD
DSN=F5910PG.F5910EPP.ERRORRPT.P,
//
DISP=SHR
$/ DD
DSN=Z1225BT.F5910EPP.ERRORRPT.AOUTPUT
please find the error code in the above mentioned lines and
please suggest me about the error and the solution for that.
- 3 Answers
- 11556 Views
- Cognizant, I also Faced
- E-Mail Answers
Answer Posted / muttiah
If you tailor JCL with changes, it will look like this.
$/SEPP030.PROVIDER DD
DSN=Z1225BT.F5750PG9.F5910PRV.QC#A6868
//ERRORRPT DD
DSN=F5910PG.F5910EPP.ERRORRPT.P,
// DISP=(NEW,CATLG,DELETE),UNIT=DELQ,
// SPACE=(TRK,(30,15),RLSE),
// DCB=(PPG.METMODEL,BLKSIZE=0,LRECL=133,RECFM=FB)
$/SEPP030.ERRORRPT DD
DSN=Z1225BT.F5910EPP.ERRORRPT.AOUTPUT
//SEPP040 EXEC PGM=FILEAID,COND=
(0002,EQ,SEPP030)
//SYSPRINT DD
SYSOUT=*
//SYSLIST DD
SYSOUT=*
//DD01 DD DSN=SYSCMN.PROD.CCLIB
(F5910EP1),DISP=SHR
$/SEPP040.DD01 DD DSN=Z1225BT.TEST.CCLIB
(F5910EP1)
E1 - DSS20791E - DATA
SET 'Z1225BT.F5910EPP.ERRORRPT.AOUTPUT' HAS AN
LRECL OF 133 COULD NOT BE OPENED BECAUSE THE CODED LRECL
WAS 80.
// DD
DSN=F5910PG.F5910EPP.ERRORRPT.P,DISP=SHR
$/ DD DSN=Z1225BT.F5910EPP.ERRORRPT.AOUTPUT
Here the line starting with $/ is an override line.
But my questin here is $/ line has SEPP030.XXXXXX which
indicates there is a proc override but i'm not able to see
any proc in the JCL only pgm is there.We can use this stmt
only when we are using procedure's but not programs
file Z1225BT.F5910EPP.ERRORRPT.AOUTPUT details like where
it is created is not provided may be there they might have
given as 133..
If you see the last 2 lines the files are concatenated
F5910PG.F5910EPP.ERRORRPT.P 1225BT.F5910EPP.ERRORRPT.AOUTPUT
when you are contatenating the files should be of same LRECL
I guess there we are getting this error.
If you can provide the exact JCL/Details i can help you out.
| Is This Answer Correct ? | 0 Yes | 0 No |
Post New Answer View All Answers
How does jcl act on code(if you take a cobol program)?
Explain the function of job statement in jcl?
How do you run a COBOL batch program from a JCL? How do you run a COBOL/DB2 program?
what are JCLLIB and STEPLIB in JCL?
what is the compile process of cobol program expalin with code
which parameter is use to declare the name of dataset in dd statement?
I have a job called careerride and some steps in it as step1,step2. But I want to execute step2 before step1 ? How do I do that?
How to submit jcl through a cobol program?
Explain about LMFREE�free data set from its association with data ID
How to submit a jcl from cics?
Must tape dataset definitions include vol=ser specifications?
what operation is performed by job statement?
Are there any set of rules for the names of the steps used in a job?
What is multithreading in jcl?
WORKING-STORAGE SECTION. 77 W-A PIC 9(3)V99 VALUE 23.75. 77 W-B PIC ZZ9V99 VALUE 123.45. PROCEDURE DIVISION. MOVE W-A TO W-B. DISPLAY W-B. STOP RUN. compiler : IGYGR1080-S A "VALUE" clause literal was not compatible with the data category o subject data item. The "VALUE" clause was discarded. WORKING-STORAGE SECTION. 77 W-A PIC 9(3)V99 VALUE 23.75. 77 W-B PIC ZZ9V99. PROCEDURE DIVISION. MOVE 123.45 TO W-B. MOVE W-A TO W-B. DISPLAY W-B. STOP RUN. 2375
