Help, I inherited this program and I am trying to troubleshoot an error,
The Gloss step fails because it does not meet the conditions of the BQL step, all others steps dowm strem fails as well.
***** ***************************** Top of Data *****************************
000001 //XXX0001I JOB (C342099100),'VW',CLASS=F,MSGCLASS=X,
000002 // NOTIFY=XXX0001
000003 /*JOBPARM ROOM=1A
000004 /*ROUTE XEQ MEM3
000005 //*--------------------------------------------------------------------
000006 //BQL EXEC PGM=BQL,REGION=4096K
000007 //STEPLIB DD DSN=ANS2.LOAD,DISP=SHR
000008 //$QUERY DD DSN=&QUERY,DISP=(,PASS),UNIT=DISK,
000009 // SPACE=(TRK,(5,2),RLSE),
000010 // DCB=(BLKSIZE=27920,LRECL=1370,RECFM=FB)
000011 //$SOURCE DD DUMMY,DCB=(BLKSIZE=27920,LRECL=1370,RECFM=FB)
000012 //$TEMP DD UNIT=DISK,
000013 // SPACE=(TRK,(6,3)),
000014 // DCB=(BLKSIZE=27920,LRECL=1370,RECFM=FB)
000015 //$GLOSS DD DSN=&GLOSS,DISP=(,PASS),UNIT=DISK,
000016 // SPACE=(TRK,2),DCB=(BLKSIZE=27920,LRECL=1370,RECFM=FB)
000017 //SYSPRINT DD SYSOUT=X
000018 //SYSIN DD DSN=BRIDGE.XXX0001.MYDATA.DATA.PRISM.MC011,
000019 // DISP=SHR
000020 //*---------------------------------------------------------------
000021 //GLOSS EXEC PGM=MARKIV,REGION=4096K,
000022 // COND=((0,EQ,BQL),(2,EQ,BQL),(4,LT,BQL))
000023 //STEPLIB DD DSN=ANS2.LOAD,DISP=SHR
000024 //M4LIB DD DSN=ANS2.M4LIB,DISP=SHR
000025 //M4INPUT DD DSN=&GLOSS,DISP=(OLD,DELETE)
000026 //M4LIST DD SYSOUT=X
COMMAND ===> SCROLL ===> CURSOR
--JOBNAME--JOBID----STATUS---RAN/RECEIVED------DAY-------DEST------------------
XXX0001I J007200 OUTPUT 4:43 7/19/2012 TODAY XXX0
--RC--PGM----------------STEP------------PRSTEP---PROC-----COMMENTS---------------------------
0 BQL
* GLOSS NOT EXECUTED
8 G PRO
* SORT NOT EXECUTED
* RPT NOT EXECUTED
* G TEP905 NOT EXECUTED
* DELPDS NOT EXECUTED
0 RECOPY
--------DDNAME---STEP-----STAT-ACT-GRP-C-D---RECORDS-COPIES-DEST---------------
_ 1 LOG * HELD 1 X H 24 XXX0
_ 2 JCL * HELD 1 X H 205 XXX0
_ 3 MESSAGES * HELD 1 X H 170 XXX0
_ 4 SYSPRINT BQL HELD 1 X H 58 XXX0
_ 5 M4LIST G HELD 1 X H 2 XXX0
COMMAND ===> SCROLL ===> CURSOR
******************************* Top of Data
_ 5 M4LIST presents this error
***********************************
JUL 19, 2012 04.38.30
* MK4DC03 TYPE 1 LRECL DISCREPANCY M4INPUT -- LRECL OF 1370 FROM DD/HEADER
******************************* Bottom of Data ********************************
TSO JCL STEP ERRORS
Moderators: Frank Yaeger, DikDude, Moderator Group
- dbzTHEdinosauer
- Moderator
- Posts: 981
- Joined: Mon Oct 02, 2006 8:31 pm
well, let us start with this:
000022 // COND=((0,EQ,BQL),(2,EQ,BQL),(4,LT,BQL))
what are you trying to achieve?
you may want to look at the COND discussion in this websites Tutorials
000022 // COND=((0,EQ,BQL),(2,EQ,BQL),(4,LT,BQL))
what are you trying to achieve?
you may want to look at the COND discussion in this websites Tutorials
Dick Brenholtz
JCL, SQL and code in programs have an irritating habit of doing what you say,
not what you meant.
JCL, SQL and code in programs have an irritating habit of doing what you say,
not what you meant.
-
- Moderator
- Posts: 1625
- Joined: Sat Aug 09, 2008 9:02 am
- Location: Mumbai, India
It's tough to follow what are you asking:
1. First, you did not use BBcode tags, to make your code more readable.
2. Second, from your post I see this
A failure is not equal to "step not executed", having said that, yes, what RC was generated, unless we know that - predicting why COND might behave differently than what you think, is tough to answer.
1. First, you did not use BBcode tags, to make your code more readable.
2. Second, from your post I see this
but you said "all others steps dowm strem fails as well "along with it??"" Bold text added by me. So what exactly do you mean?GLOSS NOT EXECUTED
A failure is not equal to "step not executed", having said that, yes, what RC was generated, unless we know that - predicting why COND might behave differently than what you think, is tough to answer.
Regards,
Anuj
Anuj
- dbzTHEdinosauer
- Moderator
- Posts: 981
- Joined: Mon Oct 02, 2006 8:31 pm
Code: Select all
--RC--PGM----------------STEP------------PRSTEP---PROC-----COMMENTS---------------------------
0 BQL
* GLOSS NOT EXECUTED
8 G PRO
* SORT NOT EXECUTED
* RPT NOT EXECUTED
* G TEP905 NOT EXECUTED
* DELPDS NOT EXECUTED
0 RECOPY
Dick Brenholtz
JCL, SQL and code in programs have an irritating habit of doing what you say,
not what you meant.
JCL, SQL and code in programs have an irritating habit of doing what you say,
not what you meant.
FREE TUTORIALS
Tutorials
Free tutorials from mainframegurukul
- JCL Tutorial
Covers all important JCL concepts. - Cobol Tutorial
This tutorials covers all Cobol Topics from STRING to COMP-3. - DB2 Tutorial
DB2 Tutorial focuses on DB2 COBOL Programming. - SORT Tutorial
This Tutorial covers all important aspects of DFSORT with examples - CICS Tutorial
This CICS tutorial covers CICS concepts and CICS Basics, CICS COBOL Programming.
Interview
Mainframe Interview questions
- Cobol Interview Questions
50+ Interview Questions - JCL Interview Questions
50+ Interview Questions - DB2 Interview Questions
100+ Interview Questions - CICS Interview Questions
70+ Interview Questions - VSAM Interview Questions
27 Interview Questions
Other References
Mainframe Tools and others
- XPEDITER Reference
Explains how we can debug a program - FILEAID Reference
Explains how to browse , edit and delete datasets - Change Man Reference
Quick Start tutorial on Changeman - Abend Reference
Important Abend codes explained - FaceBook Page
MainframeGurukul FaceBook Page - LinkedIn Page
MainframeGurkul Linkedin Page