//CALC1000 JOB 1,'A. STUDENT',NOTIFY=&SYSUID 00010102
//*SCHOLIB JCLLIB ORDER=(ZPROF.PROCLIB) 00010201
//************************************************** 00010300
//* C ZUSER## TO YOURID 00010400
//* C ZPROF PROFUID ALL 00010500
//* ==> IF YOU USE NOT ZPROF AS INSTRUCTORID 00010600
//* DELETE ZSCHOLIB STATEMENT IF YOU WANT TO USE 00010700
//* THE DEFAULT PROC LIBRARY 00010800
//* ORIGINAL COPIED FROM GMULLER.LANG.CNTL 00011000
//************************************************** 00011100
//* COMPILE COBOL PROGRAM 00012000
//************************************************** 00021000
//STEP1 EXEC IGYWCLG,LNGPRFX=IGY420 00030001
//SYSIN DD DSN=KC03MA9.LANG.SOURCE(CALC1000),DISP=SHR 00040002
//LKED.SYSLMOD DD DSN=KC03MA9.LANG.LOAD(CACL1000),DISP=SHR 00050002
Help with a JCL error
Help with a JCL error
by cwseay » Sat Apr 27, 2019 2:20 pm
I have run this job on an IBM system and got an RC of 00, but there is a JCL error I can't figure out. I have attached the source code, JCL, and SDSF error. Any help would be appreciated.
Re: Help with a JCL error
by enrico-sorichetti » Sat Apr 27, 2019 3:36 pm
I have attached the source code,
unfortunately You did NOT
cheers
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort
- enrico-sorichetti
- Global moderator
- Posts: 3006
- Joined: Fri Apr 18, 2008 11:25 pm
- Has thanked: 0 time
- Been thanked: 165 times
Re: Help with a JCL error
by steve-myers » Sat Apr 27, 2019 3:54 pm
For anyone to help you, you must
//xxxx JOB (accounting codes),'programmer name',...
//yyy EXEC zzz
//SYSIN DD *
Your Cobol program
The xxxx is a job name. It must be present and must be 1 to 8 upper case characters. Many places have strict rules as to content of the job name, which we here cannot know.
Accounting codes vary from place to place. Again, we here cannot possibly know what your rules are.
Programmer name is 1 to 20 characters. Technically there are few rules as to its contents. It is usually a good idea to use single quote characters around the significant text. For example, I can use 'STEVE MYERS'. "STEVE MYERS" will not work, 'Steve Myers' will work in most places.
Other parameters follow the programmer name. Some of these parameters are things like CLASS=x, MSGCLASS=y. The exact meaning varies from place to place. We here cannot know what is valid and reasonable for you.
The yyy on the next JCL statement is called a step name. It must be 1 to 8 upper case characters. It is usually a good idea to use it. The zzz is instructions to the system to run the Cobol compiler. Every place is a little different; we here cannot possibly know what is valid at your place.
Good luck.
- Show us the job you submitted
- Somewhere in the job output, you must show us any message or messages that indicate the nature of the error. Most messages that describe a JCL error start with IEFxxx. Other message codes may be $HASPxxx.
//xxxx JOB (accounting codes),'programmer name',...
//yyy EXEC zzz
//SYSIN DD *
Your Cobol program
The xxxx is a job name. It must be present and must be 1 to 8 upper case characters. Many places have strict rules as to content of the job name, which we here cannot know.
Accounting codes vary from place to place. Again, we here cannot possibly know what your rules are.
Programmer name is 1 to 20 characters. Technically there are few rules as to its contents. It is usually a good idea to use single quote characters around the significant text. For example, I can use 'STEVE MYERS'. "STEVE MYERS" will not work, 'Steve Myers' will work in most places.
Other parameters follow the programmer name. Some of these parameters are things like CLASS=x, MSGCLASS=y. The exact meaning varies from place to place. We here cannot know what is valid and reasonable for you.
The yyy on the next JCL statement is called a step name. It must be 1 to 8 upper case characters. It is usually a good idea to use it. The zzz is instructions to the system to run the Cobol compiler. Every place is a little different; we here cannot possibly know what is valid at your place.
Good luck.
- steve-myers
- Global moderator
- Posts: 2105
- Joined: Thu Jun 03, 2010 6:21 pm
- Has thanked: 4 times
- Been thanked: 243 times
Re: Help with a JCL error
by NicC » Sat Apr 27, 2019 6:43 pm
This is a JCL question so should be in the JCL section of the forum. Moved. (The COBOL section is for COBOL code problems/queries)
The problem I have is that people can explain things quickly but I can only comprehend slowly.
Regards
Nic
Regards
Nic
- NicC
- Global moderator
- Posts: 3025
- Joined: Sun Jul 04, 2010 12:13 am
- Location: Pushing up the daisies (almost)
- Has thanked: 4 times
- Been thanked: 136 times
Re: Help with a JCL error
by cwseay » Sat Apr 27, 2019 11:18 pm
When I run this code I get an undefined JCL error below is the JCL, source code, and SDSF output:
JCL code:
COBOL source:
SDSF:
JCL code:
COBOL source:
IDENTIFICATION DIVISION. 00010004
* 00020001
PROGRAM-ID. CALC1000. 00030004
* 00040001
ENVIRONMENT DIVISION. 00050001
* 00060001
INPUT-OUTPUT SECTION. 00070001
* 00080001
DATA DIVISION. 00090004
* 00100001
WORKING-STORAGE SECTION. 00110001
* 00120002
77 END-OF-SESSION-SWITCH PIC X VALUE "N". 00130002
77 SALES-AMOUNT PIC 9(5)V99. 00140002
77 SALES-TAX PIC Z,ZZZ.99. 00150002
* 00160002
PROCEDURE DIVISION. 00170002
* 00180002
000-CALCULATE-SALES-TAX. 00190002
* 00200002
PERFORM 100-CALCULATE-ONE-SALES-TAX 00210003
UNTIL END-OF-SESSION-SWITCH = "Y". 00220002
DISPLAY "END OF SESSION.". 00230003
STOP RUN. 00240003
* 00250002
100-CALCULATE-ONE-SALES-TAX. 00260005
* 00270002
DISPLAY "_________________________________". 00280003
DISPLAY "TO END PROGRAM ENTER 0.". 00290003
DISPLAY "TO CALCULATE SALES TAX, ENTER THE SALES AMOUNT.". 00300003
ACCEPT SALES-AMOUNT. 00310003
IF SALES-AMOUNT = ZERO 00320006
MOVE "Y" TO END-OF-SESSION-SWITCH 00330007
ELSE 00340003
COMPUTE SALES-TAX ROUNDED = 00350006
SALES-AMOUNT * .0785 00360003
DISPLAY "SALES-TAX = " SALES-TAX. 00370003
* 00020001
PROGRAM-ID. CALC1000. 00030004
* 00040001
ENVIRONMENT DIVISION. 00050001
* 00060001
INPUT-OUTPUT SECTION. 00070001
* 00080001
DATA DIVISION. 00090004
* 00100001
WORKING-STORAGE SECTION. 00110001
* 00120002
77 END-OF-SESSION-SWITCH PIC X VALUE "N". 00130002
77 SALES-AMOUNT PIC 9(5)V99. 00140002
77 SALES-TAX PIC Z,ZZZ.99. 00150002
* 00160002
PROCEDURE DIVISION. 00170002
* 00180002
000-CALCULATE-SALES-TAX. 00190002
* 00200002
PERFORM 100-CALCULATE-ONE-SALES-TAX 00210003
UNTIL END-OF-SESSION-SWITCH = "Y". 00220002
DISPLAY "END OF SESSION.". 00230003
STOP RUN. 00240003
* 00250002
100-CALCULATE-ONE-SALES-TAX. 00260005
* 00270002
DISPLAY "_________________________________". 00280003
DISPLAY "TO END PROGRAM ENTER 0.". 00290003
DISPLAY "TO CALCULATE SALES TAX, ENTER THE SALES AMOUNT.". 00300003
ACCEPT SALES-AMOUNT. 00310003
IF SALES-AMOUNT = ZERO 00320006
MOVE "Y" TO END-OF-SESSION-SWITCH 00330007
ELSE 00340003
COMPUTE SALES-TAX ROUNDED = 00350006
SALES-AMOUNT * .0785 00360003
DISPLAY "SALES-TAX = " SALES-TAX. 00370003
SDSF:
1 J E S 2 J O B L O G -- S Y S T E M S 0 W 1 -- N O D E Z O S K C T R
0
04.23.08 JOB01364 ---- SATURDAY, 27 APR 2019 ----
04.23.08 JOB01364 IRR010I USERID KC03MA9 IS ASSIGNED TO THIS JOB.
04.23.08 JOB01364 IEF677I WARNING MESSAGE(S) FOR JOB CALC1000 ISSUED
04.23.08 JOB01364 ICH70001I KC03MA9 LAST ACCESS AT 04:19:19 ON SATURDAY, APRIL 27, 2019
04.23.08 JOB01364 $HASP373 CALC1000 STARTED - INIT 1 - CLASS A - SYS S0W1
04.23.08 JOB01364 - --TIMINGS (MINS.)-- ----PAGING COUNTS---
04.23.08 JOB01364 -JOBNAME STEPNAME PROCSTEP RC EXCP TCB SRB CLOCK SERV PG PAGE SWAP VIO SWAPS
04.23.08 JOB01364 -CALC1000 00 414 ****** .00 .0 799 0 0 0 0 0
04.23.08 JOB01364 -CALC1000 FLUSH 0 ****** .00 .0 0 0 0 0 0 0
04.23.08 JOB01364 IEF453I CALC1000 - JOB FAILED - JCL ERROR
04.23.08 JOB01364 -CALC1000 ENDED. NAME-A. STUDENT TOTAL TCB CPU TIME= .00 TOTAL ELAPSED TIME= .0
04.23.08 JOB01364 $HASP395 CALC1000 ENDED
0------ JES2 JOB STATISTICS ------
- 27 APR 2019 JOB EXECUTION DATE
- 15 CARDS READ
- 374 SYSOUT PRINT RECORDS
- 0 SYSOUT PUNCH RECORDS
- 24 SYSOUT SPOOL KBYTES
- 0.00 MINUTES EXECUTION TIME
1 //CALC1000 JOB 1,'A. STUDENT',NOTIFY=&SYSUID JOB01364
//*SCHOLIB JCLLIB ORDER=(ZPROF.PROCLIB) 00010201
//************************************************** 00010300
//* C ZUSER## TO YOURID 00010400
//* C ZPROF PROFUID ALL 00010500
//* ==> IF YOU USE NOT ZPROF AS INSTRUCTORID 00010600
//* DELETE ZSCHOLIB STATEMENT IF YOU WANT TO USE 00010700
//* THE DEFAULT PROC LIBRARY 00010800
//* ORIGINAL COPIED FROM GMULLER.LANG.CNTL 00011000
//************************************************** 00011100
//* COMPILE COBOL PROGRAM 00012000
//************************************************** 00021000
IEFC653I SUBSTITUTION JCL - 1,'A. STUDENT',NOTIFY=KC03MA9
2 //STEP1 EXEC IGYWCLG,LNGPRFX=IGY420 00030001
3 XXIGYWCLG PROC LNGPRFX='IGY510', 00010000
XX LIBPRFX='CEE',GOPGM=GO 00020000
XX* 00030000
XX********************************************************************* 00040000
XX* * 00050000
XX* Enterprise COBOL for z/OS * 00060000
XX* Version 5 Release 1 Modification 0 * 00070000
XX* * 00080000
XX* LICENSED MATERIALS - PROPERTY OF IBM. * 00090000
XX* * 00100000
XX* 5655-W32 © COPYRIGHT IBM CORP. 1983, 2011 * 00110000
XX* ALL RIGHTS RESERVED * 00120000
XX* * 00130000
XX* US GOVERNMENT USERS RESTRICTED RIGHTS - USE, * 00140000
XX* DUPLICATION OR DISCLOSURE RESTRICTED BY GSA * 00150000
XX* ADP SCHEDULE CONTRACT WITH IBM CORP. * 00160000
XX* * 00170000
XX********************************************************************* 00180000
XX* 00190000
XX* COMPILE, LINK EDIT AND RUN A COBOL PROGRAM 00200000
XX* 00210000
XX* PARAMETER DEFAULT VALUE USAGE 00220000
XX* LNGPRFX IGY.V5R1M0 PREFIX FOR LANGUAGE DATA SET NAMES 00230000
XX* LIBPRFX CEE PREFIX FOR LIBRARY DATA SET NAMES 00250000
XX* GOPGM GO MEMBER NAME FOR LOAD MODULE 00260000
XX* 00270000
XX* CALLER MUST SUPPLY //COBOL.SYSIN DD ... 00280000
XX* 00290000
XX* CALLER MUST ALSO SUPPLY //COBOL.SYSLIB DD ... for COPY statements 00300000
XX* 00310000
4 XXCOBOL EXEC PGM=IGYCRCTL,REGION=0M 00320000
5 XXSTEPLIB DD DSNAME=&LNGPRFX..SIGYCOMP,DISP=SHR 00330000
IEFC653I SUBSTITUTION JCL - DSNAME=IGY420.SIGYCOMP,DISP=SHR
6 XX DD DSNAME=&LIBPRFX..SCEERUN,DISP=SHR 00340000
IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEERUN,DISP=SHR
7 XX DD DSNAME=&LIBPRFX..SCEERUN2,DISP=SHR 00350000
IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEERUN2,DISP=SHR
8 XXSYSPRINT DD SYSOUT=* 00360000
9 XXSYSLIN DD DSNAME=&&LOADSET,UNIT=SYSALLDA, 00370000
XX DISP=(MOD,PASS),SPACE=(CYL,(1,1)) 00380000
10 XXSYSUT1 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00400000
11 XXSYSUT2 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00410000
12 XXSYSUT3 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00420000
13 XXSYSUT4 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00430000
14 XXSYSUT5 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00440000
15 XXSYSUT6 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00450000
16 XXSYSUT7 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00460000
17 XXSYSUT8 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00470000
18 XXSYSUT9 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00480000
19 XXSYSUT10 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00490000
20 XXSYSUT11 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00500000
21 XXSYSUT12 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00510000
22 XXSYSUT13 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00520000
23 XXSYSUT14 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00530000
24 XXSYSUT15 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00540000
25 XXSYSMDECK DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00545000
26 //SYSIN DD DSN=KC03MA9.LANG.SOURCE(CALC1000),DISP=SHR 00040002
27 XXLKED EXEC PGM=IEWBLINK,COND=(8,LT,COBOL),REGION=0M 00550000
28 XXSYSLIB DD DSNAME=&LIBPRFX..SCEELKED,DISP=SHR 00560000
IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEELKED,DISP=SHR
29 XX DD DSNAME=&LIBPRFX..SCEELKEX,DISP=SHR 00570000
IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEELKEX,DISP=SHR
30 XXSYSPRINT DD SYSOUT=* 00580000
31 XXSYSLIN DD DSNAME=&&LOADSET,DISP=(OLD,DELETE) 00590000
32 XX DD DDNAME=SYSIN 00600000
33 //LKED.SYSLMOD DD DSN=KC03MA9.LANG.LOAD(CACL1000),DISP=SHR 00050002
X/SYSLMOD DD DSNAME=&&GOSET(&GOPGM),SPACE=(CYL,(1,1,1)), 00610000
X/ UNIT=SYSALLDA,DISP=(MOD,PASS),DSNTYPE=LIBRARY 00620000
IEFC653I SUBSTITUTION JCL - DSNAME=&&GOSET(GO),SPACE=(CYL,(1,1,1)),UNIT=SYSALLDA,DISP=(MOD,PASS),
DSNTYPE=LIBRARY
34 XXSYSUT1 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00630000
35 XXGO EXEC PGM=*.LKED.SYSLMOD,COND=((8,LT,COBOL),(4,LT,LKED)), 00640000
XX REGION=0M 00650000
36 XXSTEPLIB DD DSNAME=&LIBPRFX..SCEERUN,DISP=SHR 00660000
IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEERUN,DISP=SHR
37 XX DD DSNAME=&LIBPRFX..SCEERUN2,DISP=SHR 00670000
IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEERUN2,DISP=SHR
38 XXSYSPRINT DD SYSOUT=* 00680000
39 XXCEEDUMP DD SYSOUT=* 00690000
40 XXSYSUDUMP DD SYSOUT=* 00700000
STMT NO. MESSAGE
2 IEFC001I PROCEDURE IGYWCLG WAS EXPANDED USING SYSTEM LIBRARY USER.PROCLIB
35 IEF686I DDNAME REFERRED TO ON DDNAME KEYWORD IN PRIOR STEP WAS NOT RESOLVED
ICH70001I KC03MA9 LAST ACCESS AT 04:19:19 ON SATURDAY, APRIL 27, 2019
IEF236I ALLOC. FOR CALC1000 COBOL STEP1
IEF237I A006 ALLOCATED TO STEPLIB
IEF237I A002 ALLOCATED TO
IEF237I A002 ALLOCATED TO
IEF237I JES2 ALLOCATED TO SYSPRINT
IGD101I SMS ALLOCATED TO DDNAME (SYSLIN )
DSN (SYS19117.T042308.RA000.CALC1000.LOADSET.H01 )
STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TEMP00
IGD101I SMS ALLOCATED TO DDNAME (SYSUT1 )
DSN (SYS19117.T042308.RA000.CALC1000.R0172153 )
STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TEMP00
IGD101I SMS ALLOCATED TO DDNAME (SYSUT2 )
DSN (SYS19117.T042308.RA000.CALC1000.R0172154 )
STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TEMP00
IGD101I SMS ALLOCATED TO DDNAME (SYSUT3 )
DSN (SYS19117.T042308.RA000.CALC1000.R0172155 )
STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TEMP00
IGD101I SMS ALLOCATED TO DDNAME (SYSUT4 )
DSN (SYS19117.T042308.RA000.CALC1000.R0172156 )
STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TEMP00
IGD101I SMS ALLOCATED TO DDNAME (SYSUT5 )
DSN (SYS19117.T042308.RA000.CALC1000.R0172157 )
STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TEMP00
IGD101I SMS ALLOCATED TO DDNAME (SYSUT6 )
DSN (SYS19117.T042308.RA000.CALC1000.R0172158 )
STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TEMP00
IGD101I SMS ALLOCATED TO DDNAME (SYSUT7 )
DSN (SYS19117.T042308.RA000.CALC1000.R0172159 )
STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TEMP00
IGD101I SMS ALLOCATED TO DDNAME (SYSUT8 )
DSN (SYS19117.T042308.RA000.CALC1000.R0172160 )
STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TEMP00
IGD101I SMS ALLOCATED TO DDNAME (SYSUT9 )
DSN (SYS19117.T042308.RA000.CALC1000.R0172161 )
STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TEMP00
IGD101I SMS ALLOCATED TO DDNAME (SYSUT10 )
DSN (SYS19117.T042308.RA000.CALC1000.R0172162 )
STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TEMP00
IGD101I SMS ALLOCATED TO DDNAME (SYSUT11 )
DSN (SYS19117.T042308.RA000.CALC1000.R0172163 )
STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TEMP00
IGD101I SMS ALLOCATED TO DDNAME (SYSUT12 )
DSN (SYS19117.T042308.RA000.CALC1000.R0172164 )
STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TEMP00
IGD101I SMS ALLOCATED TO DDNAME (SYSUT13 )
DSN (SYS19117.T042308.RA000.CALC1000.R0172165 )
STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TEMP00
IGD101I SMS ALLOCATED TO DDNAME (SYSUT14 )
DSN (SYS19117.T042308.RA000.CALC1000.R0172166 )
STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TEMP00
IGD101I SMS ALLOCATED TO DDNAME (SYSUT15 )
DSN (SYS19117.T042308.RA000.CALC1000.R0172167 )
STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TEMP00
IGD101I SMS ALLOCATED TO DDNAME (SYSMDECK)
DSN (SYS19117.T042308.RA000.CALC1000.R0172168 )
STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TEMP00
IGD103I SMS ALLOCATED TO DDNAME SYSIN
IEF142I CALC1000 COBOL STEP1 - STEP WAS EXECUTED - COND CODE 0000
IEF285I IGY420.SIGYCOMP KEPT
IEF285I VOL SER NOS= Z1PRD2.
IEF285I CEE.SCEERUN KEPT
IEF285I VOL SER NOS= Z1RES2.
IEF285I CEE.SCEERUN2 KEPT
IEF285I VOL SER NOS= Z1RES2.
IEF285I KC03MA9.CALC1000.JOB01364.D0000101.? SYSOUT
IGD106I SYS19117.T042308.RA000.CALC1000.LOADSET.H01 PASSED, DDNAME=SYSLIN
IGD105I SYS19117.T042308.RA000.CALC1000.R0172153 DELETED, DDNAME=SYSUT1
IGD105I SYS19117.T042308.RA000.CALC1000.R0172154 DELETED, DDNAME=SYSUT2
IGD105I SYS19117.T042308.RA000.CALC1000.R0172155 DELETED, DDNAME=SYSUT3
IGD105I SYS19117.T042308.RA000.CALC1000.R0172156 DELETED, DDNAME=SYSUT4
IGD105I SYS19117.T042308.RA000.CALC1000.R0172157 DELETED, DDNAME=SYSUT5
IGD105I SYS19117.T042308.RA000.CALC1000.R0172158 DELETED, DDNAME=SYSUT6
IGD105I SYS19117.T042308.RA000.CALC1000.R0172159 DELETED, DDNAME=SYSUT7
IGD105I SYS19117.T042308.RA000.CALC1000.R0172160 DELETED, DDNAME=SYSUT8
IGD105I SYS19117.T042308.RA000.CALC1000.R0172161 DELETED, DDNAME=SYSUT9
IGD105I SYS19117.T042308.RA000.CALC1000.R0172162 DELETED, DDNAME=SYSUT10
IGD105I SYS19117.T042308.RA000.CALC1000.R0172163 DELETED, DDNAME=SYSUT11
IGD105I SYS19117.T042308.RA000.CALC1000.R0172164 DELETED, DDNAME=SYSUT12
IGD105I SYS19117.T042308.RA000.CALC1000.R0172165 DELETED, DDNAME=SYSUT13
IGD105I SYS19117.T042308.RA000.CALC1000.R0172166 DELETED, DDNAME=SYSUT14
IGD105I SYS19117.T042308.RA000.CALC1000.R0172167 DELETED, DDNAME=SYSUT15
IGD105I SYS19117.T042308.RA000.CALC1000.R0172168 DELETED, DDNAME=SYSMDECK
IGD104I KC03MA9.LANG.SOURCE RETAINED, DDNAME=SYSIN
IEF373I STEP/COBOL /START 2019117.0423
IEF032I STEP/COBOL /STOP 2019117.0423
CPU: 0 HR 00 MIN 00.01 SEC SRB: 0 HR 00 MIN 00.00 SEC
VIRT: 8900K SYS: 308K EXT: 1580064K SYS: 11408K
ATB- REAL: 36K SLOTS: 0K
VIRT- ALLOC: 6M SHRD: 0M
IEFA107I CALC1000 LKED STEP1 SYSLMOD - DATA SET KC03MA9.LANG.LOAD NOT FOUND
IEF272I CALC1000 LKED STEP1 - STEP WAS NOT EXECUTED.
IEF373I STEP/LKED /START 2019117.0423
IEF032I STEP/LKED /STOP 2019117.0423
CPU: 0 HR 00 MIN 00.00 SEC SRB: 0 HR 00 MIN 00.00 SEC
VIRT: 0K SYS: 0K EXT: 0K SYS: 0K
ATB- REAL: 0K SLOTS: 0K
VIRT- ALLOC: 0M SHRD: 0M
IGD103I SMS ALLOCATED TO DDNAME SYS00001
IGD104I SYS19117.T042308.RA000.CALC1000.R0172170 RETAINED, DDNAME=SYS00001
IGD105I SYS19117.T042308.RA000.CALC1000.LOADSET.H01 DELETED, DDNAME=SYSLIN
IEF375I JOB/CALC1000/START 2019117.0423
IEF033I JOB/CALC1000/STOP 2019117.0423
CPU: 0 HR 00 MIN 00.01 SEC SRB: 0 HR 00 MIN 00.00 SEC
1PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 Date 04/27/2019 Time 04:23:08 Page 1
0Options in effect:
NOADATA
ADV
QUOTE
ARITH(COMPAT)
NOAWO
NOBLOCK0
BUFSIZE(4096)
NOCICS
CODEPAGE(1140)
NOCOMPILE(S)
NOCURRENCY
DATA(31)
NODATEPROC
DBCS
NODECK
NODIAGTRUNC
NODLL
NODUMP
NODYNAM
NOEXIT
NOEXPORTALL
NOFASTSRT
FLAG(I,I)
NOFLAGMIG4
NOFLAGSTD
INTDATE(ANSI)
LANGUAGE(EN)
NOLIB
LINECOUNT(60)
NOLIST
NOMAP
NOMDECK
NONAME
NSYMBOL(NATIONAL)
NONUMBER
NUMPROC(NOPFD)
OBJECT
NOOFFSET
NOOPTIMIZE
OUTDD(SYSOUT)
PGMNAME(COMPAT)
RENT
RMODE(AUTO)
SEQUENCE
SIZE(MAX)
SOURCE
SPACE(1)
NOSQL
SQLCCSID
NOSSRANGE
NOTERM
NOTEST
NOTHREAD
TRUNC(STD)
NOVBREF
NOWORD
XMLPARSE(XMLSS)
1PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 Date 04/27/2019 Time 04:23:08 Page 2
0 XREF(FULL)
YEARWINDOW(1900)
ZWB
1PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 CALC1000 Date 04/27/2019 Time 04:23:08 Page 3
LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
0 000001 IDENTIFICATION DIVISION. 00010004
000002 * 00020001
000003 PROGRAM-ID. CALC1000. 00030004
000004 * 00040001
000005 ENVIRONMENT DIVISION. 00050001
000006 * 00060001
000007 INPUT-OUTPUT SECTION. 00070001
000008 * 00080001
000009 DATA DIVISION. 00090004
000010 * 00100001
000011 WORKING-STORAGE SECTION. 00110001
000012 * 00120002
000013 77 END-OF-SESSION-SWITCH PIC X VALUE "N". 00130002
000014 77 SALES-AMOUNT PIC 9(5)V99. 00140002
000015 77 SALES-TAX PIC Z,ZZZ.99. 00150002
000016 * 00160002
000017 PROCEDURE DIVISION. 00170002
000018 * 00180002
000019 000-CALCULATE-SALES-TAX. 00190002
000020 * 00200002
000021 PERFORM 100-CALCULATE-ONE-SALES-TAX 00210003 26
000022 UNTIL END-OF-SESSION-SWITCH = "Y". 00220002 13
000023 DISPLAY "END OF SESSION.". 00230003
000024 STOP RUN. 00240003
000025 * 00250002
000026 100-CALCULATE-ONE-SALES-TAX. 00260005
000027 * 00270002
000028 DISPLAY "_________________________________". 00280003
000029 DISPLAY "TO END PROGRAM ENTER 0.". 00290003
000030 DISPLAY "TO CALCULATE SALES TAX, ENTER THE SALES AMOUNT.". 00300003
000031 ACCEPT SALES-AMOUNT. 00310003 14
000032 IF SALES-AMOUNT = ZERO 00320006 14 IMP
000033 1 MOVE "Y" TO END-OF-SESSION-SWITCH 00330007 13
000034 ELSE 00340003
000035 1 COMPUTE SALES-TAX ROUNDED = 00350006 15
000036 1 SALES-AMOUNT * .0785 00360003 14
000037 1 DISPLAY "SALES-TAX = " SALES-TAX. 00370003 15
1PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 CALC1000 Date 04/27/2019 Time 04:23:08 Page 4
0An "M" preceding a data-name reference indicates that the data-name is modified by this reference.
Defined Cross-reference of data names References
13 END-OF-SESSION-SWITCH. . . . . 22 M33
14 SALES-AMOUNT . . . . . . . . . M31 32 36
15 SALES-TAX. . . . . . . . . . . M35 37
1PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 CALC1000 Date 04/27/2019 Time 04:23:08 Page 5
0Context usage is indicated by the letter preceding a procedure-name reference.
These letters and their meanings are:
A = ALTER (procedure-name)
D = GO TO (procedure-name) DEPENDING ON
E = End of range of (PERFORM) through (procedure-name)
G = GO TO (procedure-name)
P = PERFORM (procedure-name)
T = (ALTER) TO PROCEED TO (procedure-name)
U = USE FOR DEBUGGING (procedure-name)
Defined Cross-reference of procedures References
19 000-CALCULATE-SALES-TAX
26 100-CALCULATE-ONE-SALES-TAX. . P21
1PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 CALC1000 Date 04/27/2019 Time 04:23:08 Page 6
0 Defined Cross-reference of programs References
3 CALC1000
-* Statistics for COBOL program CALC1000:
* Source records = 37
* Data Division statements = 3
* Procedure Division statements = 11
0End of compilation 1, program CALC1000, no statements flagged.
0Return code 0
0
04.23.08 JOB01364 ---- SATURDAY, 27 APR 2019 ----
04.23.08 JOB01364 IRR010I USERID KC03MA9 IS ASSIGNED TO THIS JOB.
04.23.08 JOB01364 IEF677I WARNING MESSAGE(S) FOR JOB CALC1000 ISSUED
04.23.08 JOB01364 ICH70001I KC03MA9 LAST ACCESS AT 04:19:19 ON SATURDAY, APRIL 27, 2019
04.23.08 JOB01364 $HASP373 CALC1000 STARTED - INIT 1 - CLASS A - SYS S0W1
04.23.08 JOB01364 - --TIMINGS (MINS.)-- ----PAGING COUNTS---
04.23.08 JOB01364 -JOBNAME STEPNAME PROCSTEP RC EXCP TCB SRB CLOCK SERV PG PAGE SWAP VIO SWAPS
04.23.08 JOB01364 -CALC1000 00 414 ****** .00 .0 799 0 0 0 0 0
04.23.08 JOB01364 -CALC1000 FLUSH 0 ****** .00 .0 0 0 0 0 0 0
04.23.08 JOB01364 IEF453I CALC1000 - JOB FAILED - JCL ERROR
04.23.08 JOB01364 -CALC1000 ENDED. NAME-A. STUDENT TOTAL TCB CPU TIME= .00 TOTAL ELAPSED TIME= .0
04.23.08 JOB01364 $HASP395 CALC1000 ENDED
0------ JES2 JOB STATISTICS ------
- 27 APR 2019 JOB EXECUTION DATE
- 15 CARDS READ
- 374 SYSOUT PRINT RECORDS
- 0 SYSOUT PUNCH RECORDS
- 24 SYSOUT SPOOL KBYTES
- 0.00 MINUTES EXECUTION TIME
1 //CALC1000 JOB 1,'A. STUDENT',NOTIFY=&SYSUID JOB01364
//*SCHOLIB JCLLIB ORDER=(ZPROF.PROCLIB) 00010201
//************************************************** 00010300
//* C ZUSER## TO YOURID 00010400
//* C ZPROF PROFUID ALL 00010500
//* ==> IF YOU USE NOT ZPROF AS INSTRUCTORID 00010600
//* DELETE ZSCHOLIB STATEMENT IF YOU WANT TO USE 00010700
//* THE DEFAULT PROC LIBRARY 00010800
//* ORIGINAL COPIED FROM GMULLER.LANG.CNTL 00011000
//************************************************** 00011100
//* COMPILE COBOL PROGRAM 00012000
//************************************************** 00021000
IEFC653I SUBSTITUTION JCL - 1,'A. STUDENT',NOTIFY=KC03MA9
2 //STEP1 EXEC IGYWCLG,LNGPRFX=IGY420 00030001
3 XXIGYWCLG PROC LNGPRFX='IGY510', 00010000
XX LIBPRFX='CEE',GOPGM=GO 00020000
XX* 00030000
XX********************************************************************* 00040000
XX* * 00050000
XX* Enterprise COBOL for z/OS * 00060000
XX* Version 5 Release 1 Modification 0 * 00070000
XX* * 00080000
XX* LICENSED MATERIALS - PROPERTY OF IBM. * 00090000
XX* * 00100000
XX* 5655-W32 © COPYRIGHT IBM CORP. 1983, 2011 * 00110000
XX* ALL RIGHTS RESERVED * 00120000
XX* * 00130000
XX* US GOVERNMENT USERS RESTRICTED RIGHTS - USE, * 00140000
XX* DUPLICATION OR DISCLOSURE RESTRICTED BY GSA * 00150000
XX* ADP SCHEDULE CONTRACT WITH IBM CORP. * 00160000
XX* * 00170000
XX********************************************************************* 00180000
XX* 00190000
XX* COMPILE, LINK EDIT AND RUN A COBOL PROGRAM 00200000
XX* 00210000
XX* PARAMETER DEFAULT VALUE USAGE 00220000
XX* LNGPRFX IGY.V5R1M0 PREFIX FOR LANGUAGE DATA SET NAMES 00230000
XX* LIBPRFX CEE PREFIX FOR LIBRARY DATA SET NAMES 00250000
XX* GOPGM GO MEMBER NAME FOR LOAD MODULE 00260000
XX* 00270000
XX* CALLER MUST SUPPLY //COBOL.SYSIN DD ... 00280000
XX* 00290000
XX* CALLER MUST ALSO SUPPLY //COBOL.SYSLIB DD ... for COPY statements 00300000
XX* 00310000
4 XXCOBOL EXEC PGM=IGYCRCTL,REGION=0M 00320000
5 XXSTEPLIB DD DSNAME=&LNGPRFX..SIGYCOMP,DISP=SHR 00330000
IEFC653I SUBSTITUTION JCL - DSNAME=IGY420.SIGYCOMP,DISP=SHR
6 XX DD DSNAME=&LIBPRFX..SCEERUN,DISP=SHR 00340000
IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEERUN,DISP=SHR
7 XX DD DSNAME=&LIBPRFX..SCEERUN2,DISP=SHR 00350000
IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEERUN2,DISP=SHR
8 XXSYSPRINT DD SYSOUT=* 00360000
9 XXSYSLIN DD DSNAME=&&LOADSET,UNIT=SYSALLDA, 00370000
XX DISP=(MOD,PASS),SPACE=(CYL,(1,1)) 00380000
10 XXSYSUT1 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00400000
11 XXSYSUT2 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00410000
12 XXSYSUT3 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00420000
13 XXSYSUT4 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00430000
14 XXSYSUT5 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00440000
15 XXSYSUT6 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00450000
16 XXSYSUT7 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00460000
17 XXSYSUT8 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00470000
18 XXSYSUT9 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00480000
19 XXSYSUT10 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00490000
20 XXSYSUT11 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00500000
21 XXSYSUT12 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00510000
22 XXSYSUT13 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00520000
23 XXSYSUT14 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00530000
24 XXSYSUT15 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00540000
25 XXSYSMDECK DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00545000
26 //SYSIN DD DSN=KC03MA9.LANG.SOURCE(CALC1000),DISP=SHR 00040002
27 XXLKED EXEC PGM=IEWBLINK,COND=(8,LT,COBOL),REGION=0M 00550000
28 XXSYSLIB DD DSNAME=&LIBPRFX..SCEELKED,DISP=SHR 00560000
IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEELKED,DISP=SHR
29 XX DD DSNAME=&LIBPRFX..SCEELKEX,DISP=SHR 00570000
IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEELKEX,DISP=SHR
30 XXSYSPRINT DD SYSOUT=* 00580000
31 XXSYSLIN DD DSNAME=&&LOADSET,DISP=(OLD,DELETE) 00590000
32 XX DD DDNAME=SYSIN 00600000
33 //LKED.SYSLMOD DD DSN=KC03MA9.LANG.LOAD(CACL1000),DISP=SHR 00050002
X/SYSLMOD DD DSNAME=&&GOSET(&GOPGM),SPACE=(CYL,(1,1,1)), 00610000
X/ UNIT=SYSALLDA,DISP=(MOD,PASS),DSNTYPE=LIBRARY 00620000
IEFC653I SUBSTITUTION JCL - DSNAME=&&GOSET(GO),SPACE=(CYL,(1,1,1)),UNIT=SYSALLDA,DISP=(MOD,PASS),
DSNTYPE=LIBRARY
34 XXSYSUT1 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00630000
35 XXGO EXEC PGM=*.LKED.SYSLMOD,COND=((8,LT,COBOL),(4,LT,LKED)), 00640000
XX REGION=0M 00650000
36 XXSTEPLIB DD DSNAME=&LIBPRFX..SCEERUN,DISP=SHR 00660000
IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEERUN,DISP=SHR
37 XX DD DSNAME=&LIBPRFX..SCEERUN2,DISP=SHR 00670000
IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEERUN2,DISP=SHR
38 XXSYSPRINT DD SYSOUT=* 00680000
39 XXCEEDUMP DD SYSOUT=* 00690000
40 XXSYSUDUMP DD SYSOUT=* 00700000
STMT NO. MESSAGE
2 IEFC001I PROCEDURE IGYWCLG WAS EXPANDED USING SYSTEM LIBRARY USER.PROCLIB
35 IEF686I DDNAME REFERRED TO ON DDNAME KEYWORD IN PRIOR STEP WAS NOT RESOLVED
ICH70001I KC03MA9 LAST ACCESS AT 04:19:19 ON SATURDAY, APRIL 27, 2019
IEF236I ALLOC. FOR CALC1000 COBOL STEP1
IEF237I A006 ALLOCATED TO STEPLIB
IEF237I A002 ALLOCATED TO
IEF237I A002 ALLOCATED TO
IEF237I JES2 ALLOCATED TO SYSPRINT
IGD101I SMS ALLOCATED TO DDNAME (SYSLIN )
DSN (SYS19117.T042308.RA000.CALC1000.LOADSET.H01 )
STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TEMP00
IGD101I SMS ALLOCATED TO DDNAME (SYSUT1 )
DSN (SYS19117.T042308.RA000.CALC1000.R0172153 )
STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TEMP00
IGD101I SMS ALLOCATED TO DDNAME (SYSUT2 )
DSN (SYS19117.T042308.RA000.CALC1000.R0172154 )
STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TEMP00
IGD101I SMS ALLOCATED TO DDNAME (SYSUT3 )
DSN (SYS19117.T042308.RA000.CALC1000.R0172155 )
STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TEMP00
IGD101I SMS ALLOCATED TO DDNAME (SYSUT4 )
DSN (SYS19117.T042308.RA000.CALC1000.R0172156 )
STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TEMP00
IGD101I SMS ALLOCATED TO DDNAME (SYSUT5 )
DSN (SYS19117.T042308.RA000.CALC1000.R0172157 )
STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TEMP00
IGD101I SMS ALLOCATED TO DDNAME (SYSUT6 )
DSN (SYS19117.T042308.RA000.CALC1000.R0172158 )
STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TEMP00
IGD101I SMS ALLOCATED TO DDNAME (SYSUT7 )
DSN (SYS19117.T042308.RA000.CALC1000.R0172159 )
STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TEMP00
IGD101I SMS ALLOCATED TO DDNAME (SYSUT8 )
DSN (SYS19117.T042308.RA000.CALC1000.R0172160 )
STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TEMP00
IGD101I SMS ALLOCATED TO DDNAME (SYSUT9 )
DSN (SYS19117.T042308.RA000.CALC1000.R0172161 )
STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TEMP00
IGD101I SMS ALLOCATED TO DDNAME (SYSUT10 )
DSN (SYS19117.T042308.RA000.CALC1000.R0172162 )
STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TEMP00
IGD101I SMS ALLOCATED TO DDNAME (SYSUT11 )
DSN (SYS19117.T042308.RA000.CALC1000.R0172163 )
STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TEMP00
IGD101I SMS ALLOCATED TO DDNAME (SYSUT12 )
DSN (SYS19117.T042308.RA000.CALC1000.R0172164 )
STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TEMP00
IGD101I SMS ALLOCATED TO DDNAME (SYSUT13 )
DSN (SYS19117.T042308.RA000.CALC1000.R0172165 )
STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TEMP00
IGD101I SMS ALLOCATED TO DDNAME (SYSUT14 )
DSN (SYS19117.T042308.RA000.CALC1000.R0172166 )
STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TEMP00
IGD101I SMS ALLOCATED TO DDNAME (SYSUT15 )
DSN (SYS19117.T042308.RA000.CALC1000.R0172167 )
STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TEMP00
IGD101I SMS ALLOCATED TO DDNAME (SYSMDECK)
DSN (SYS19117.T042308.RA000.CALC1000.R0172168 )
STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TEMP00
IGD103I SMS ALLOCATED TO DDNAME SYSIN
IEF142I CALC1000 COBOL STEP1 - STEP WAS EXECUTED - COND CODE 0000
IEF285I IGY420.SIGYCOMP KEPT
IEF285I VOL SER NOS= Z1PRD2.
IEF285I CEE.SCEERUN KEPT
IEF285I VOL SER NOS= Z1RES2.
IEF285I CEE.SCEERUN2 KEPT
IEF285I VOL SER NOS= Z1RES2.
IEF285I KC03MA9.CALC1000.JOB01364.D0000101.? SYSOUT
IGD106I SYS19117.T042308.RA000.CALC1000.LOADSET.H01 PASSED, DDNAME=SYSLIN
IGD105I SYS19117.T042308.RA000.CALC1000.R0172153 DELETED, DDNAME=SYSUT1
IGD105I SYS19117.T042308.RA000.CALC1000.R0172154 DELETED, DDNAME=SYSUT2
IGD105I SYS19117.T042308.RA000.CALC1000.R0172155 DELETED, DDNAME=SYSUT3
IGD105I SYS19117.T042308.RA000.CALC1000.R0172156 DELETED, DDNAME=SYSUT4
IGD105I SYS19117.T042308.RA000.CALC1000.R0172157 DELETED, DDNAME=SYSUT5
IGD105I SYS19117.T042308.RA000.CALC1000.R0172158 DELETED, DDNAME=SYSUT6
IGD105I SYS19117.T042308.RA000.CALC1000.R0172159 DELETED, DDNAME=SYSUT7
IGD105I SYS19117.T042308.RA000.CALC1000.R0172160 DELETED, DDNAME=SYSUT8
IGD105I SYS19117.T042308.RA000.CALC1000.R0172161 DELETED, DDNAME=SYSUT9
IGD105I SYS19117.T042308.RA000.CALC1000.R0172162 DELETED, DDNAME=SYSUT10
IGD105I SYS19117.T042308.RA000.CALC1000.R0172163 DELETED, DDNAME=SYSUT11
IGD105I SYS19117.T042308.RA000.CALC1000.R0172164 DELETED, DDNAME=SYSUT12
IGD105I SYS19117.T042308.RA000.CALC1000.R0172165 DELETED, DDNAME=SYSUT13
IGD105I SYS19117.T042308.RA000.CALC1000.R0172166 DELETED, DDNAME=SYSUT14
IGD105I SYS19117.T042308.RA000.CALC1000.R0172167 DELETED, DDNAME=SYSUT15
IGD105I SYS19117.T042308.RA000.CALC1000.R0172168 DELETED, DDNAME=SYSMDECK
IGD104I KC03MA9.LANG.SOURCE RETAINED, DDNAME=SYSIN
IEF373I STEP/COBOL /START 2019117.0423
IEF032I STEP/COBOL /STOP 2019117.0423
CPU: 0 HR 00 MIN 00.01 SEC SRB: 0 HR 00 MIN 00.00 SEC
VIRT: 8900K SYS: 308K EXT: 1580064K SYS: 11408K
ATB- REAL: 36K SLOTS: 0K
VIRT- ALLOC: 6M SHRD: 0M
IEFA107I CALC1000 LKED STEP1 SYSLMOD - DATA SET KC03MA9.LANG.LOAD NOT FOUND
IEF272I CALC1000 LKED STEP1 - STEP WAS NOT EXECUTED.
IEF373I STEP/LKED /START 2019117.0423
IEF032I STEP/LKED /STOP 2019117.0423
CPU: 0 HR 00 MIN 00.00 SEC SRB: 0 HR 00 MIN 00.00 SEC
VIRT: 0K SYS: 0K EXT: 0K SYS: 0K
ATB- REAL: 0K SLOTS: 0K
VIRT- ALLOC: 0M SHRD: 0M
IGD103I SMS ALLOCATED TO DDNAME SYS00001
IGD104I SYS19117.T042308.RA000.CALC1000.R0172170 RETAINED, DDNAME=SYS00001
IGD105I SYS19117.T042308.RA000.CALC1000.LOADSET.H01 DELETED, DDNAME=SYSLIN
IEF375I JOB/CALC1000/START 2019117.0423
IEF033I JOB/CALC1000/STOP 2019117.0423
CPU: 0 HR 00 MIN 00.01 SEC SRB: 0 HR 00 MIN 00.00 SEC
1PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 Date 04/27/2019 Time 04:23:08 Page 1
0Options in effect:
NOADATA
ADV
QUOTE
ARITH(COMPAT)
NOAWO
NOBLOCK0
BUFSIZE(4096)
NOCICS
CODEPAGE(1140)
NOCOMPILE(S)
NOCURRENCY
DATA(31)
NODATEPROC
DBCS
NODECK
NODIAGTRUNC
NODLL
NODUMP
NODYNAM
NOEXIT
NOEXPORTALL
NOFASTSRT
FLAG(I,I)
NOFLAGMIG4
NOFLAGSTD
INTDATE(ANSI)
LANGUAGE(EN)
NOLIB
LINECOUNT(60)
NOLIST
NOMAP
NOMDECK
NONAME
NSYMBOL(NATIONAL)
NONUMBER
NUMPROC(NOPFD)
OBJECT
NOOFFSET
NOOPTIMIZE
OUTDD(SYSOUT)
PGMNAME(COMPAT)
RENT
RMODE(AUTO)
SEQUENCE
SIZE(MAX)
SOURCE
SPACE(1)
NOSQL
SQLCCSID
NOSSRANGE
NOTERM
NOTEST
NOTHREAD
TRUNC(STD)
NOVBREF
NOWORD
XMLPARSE(XMLSS)
1PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 Date 04/27/2019 Time 04:23:08 Page 2
0 XREF(FULL)
YEARWINDOW(1900)
ZWB
1PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 CALC1000 Date 04/27/2019 Time 04:23:08 Page 3
LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
0 000001 IDENTIFICATION DIVISION. 00010004
000002 * 00020001
000003 PROGRAM-ID. CALC1000. 00030004
000004 * 00040001
000005 ENVIRONMENT DIVISION. 00050001
000006 * 00060001
000007 INPUT-OUTPUT SECTION. 00070001
000008 * 00080001
000009 DATA DIVISION. 00090004
000010 * 00100001
000011 WORKING-STORAGE SECTION. 00110001
000012 * 00120002
000013 77 END-OF-SESSION-SWITCH PIC X VALUE "N". 00130002
000014 77 SALES-AMOUNT PIC 9(5)V99. 00140002
000015 77 SALES-TAX PIC Z,ZZZ.99. 00150002
000016 * 00160002
000017 PROCEDURE DIVISION. 00170002
000018 * 00180002
000019 000-CALCULATE-SALES-TAX. 00190002
000020 * 00200002
000021 PERFORM 100-CALCULATE-ONE-SALES-TAX 00210003 26
000022 UNTIL END-OF-SESSION-SWITCH = "Y". 00220002 13
000023 DISPLAY "END OF SESSION.". 00230003
000024 STOP RUN. 00240003
000025 * 00250002
000026 100-CALCULATE-ONE-SALES-TAX. 00260005
000027 * 00270002
000028 DISPLAY "_________________________________". 00280003
000029 DISPLAY "TO END PROGRAM ENTER 0.". 00290003
000030 DISPLAY "TO CALCULATE SALES TAX, ENTER THE SALES AMOUNT.". 00300003
000031 ACCEPT SALES-AMOUNT. 00310003 14
000032 IF SALES-AMOUNT = ZERO 00320006 14 IMP
000033 1 MOVE "Y" TO END-OF-SESSION-SWITCH 00330007 13
000034 ELSE 00340003
000035 1 COMPUTE SALES-TAX ROUNDED = 00350006 15
000036 1 SALES-AMOUNT * .0785 00360003 14
000037 1 DISPLAY "SALES-TAX = " SALES-TAX. 00370003 15
1PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 CALC1000 Date 04/27/2019 Time 04:23:08 Page 4
0An "M" preceding a data-name reference indicates that the data-name is modified by this reference.
Defined Cross-reference of data names References
13 END-OF-SESSION-SWITCH. . . . . 22 M33
14 SALES-AMOUNT . . . . . . . . . M31 32 36
15 SALES-TAX. . . . . . . . . . . M35 37
1PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 CALC1000 Date 04/27/2019 Time 04:23:08 Page 5
0Context usage is indicated by the letter preceding a procedure-name reference.
These letters and their meanings are:
A = ALTER (procedure-name)
D = GO TO (procedure-name) DEPENDING ON
E = End of range of (PERFORM) through (procedure-name)
G = GO TO (procedure-name)
P = PERFORM (procedure-name)
T = (ALTER) TO PROCEED TO (procedure-name)
U = USE FOR DEBUGGING (procedure-name)
Defined Cross-reference of procedures References
19 000-CALCULATE-SALES-TAX
26 100-CALCULATE-ONE-SALES-TAX. . P21
1PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 CALC1000 Date 04/27/2019 Time 04:23:08 Page 6
0 Defined Cross-reference of programs References
3 CALC1000
-* Statistics for COBOL program CALC1000:
* Source records = 37
* Data Division statements = 3
* Procedure Division statements = 11
0End of compilation 1, program CALC1000, no statements flagged.
0Return code 0
Re: Help with a JCL error
by enrico-sorichetti » Sun Apr 28, 2019 1:04 am
IEFA107I CALC1000 LKED STEP1 SYSLMOD - DATA SET KC03MA9.LANG.LOAD NOT FOUND
cheers
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort
- enrico-sorichetti
- Global moderator
- Posts: 3006
- Joined: Fri Apr 18, 2008 11:25 pm
- Has thanked: 0 time
- Been thanked: 165 times
Re: Help with a JCL error
by cwseay » Sun Apr 28, 2019 4:13 am
I found and fixed that, re-ran it and got this:
0------ JES2 JOB STATISTICS ------
- 27 APR 2019 JOB EXECUTION DATE
- 10 CARDS READ
- 487 SYSOUT PRINT RECORDS
- 0 SYSOUT PUNCH RECORDS
- 27 SYSOUT SPOOL KBYTES
- 0.00 MINUTES EXECUTION TIME
1 //CALC1001 JOB 1,'A. STUDENT',NOTIFY=&SYSUID JOB01492
//************************************************** 00020000
//* COMPILE COBOL PROGRAM 00030000
//************************************************** 00040000
IEFC653I SUBSTITUTION JCL - 1,'A. STUDENT',NOTIFY=KC03MA9
2 //STEP1 EXEC IGYWCLG 00050000
3 XXIGYWCLG PROC LNGPRFX='IGY510', 00010000
XX LIBPRFX='CEE',GOPGM=GO 00020000
XX* 00030000
XX********************************************************************* 00040000
XX* COMPILE, LINK EDIT AND RUN A COBOL PROGRAM 00200000
4 XXCOBOL EXEC PGM=IGYCRCTL,REGION=0M 00320000
5 XXSTEPLIB DD DSNAME=&LNGPRFX..SIGYCOMP,DISP=SHR 00330000
IEFC653I SUBSTITUTION JCL - DSNAME=IGY510.SIGYCOMP,DISP=SHR
6 XX DD DSNAME=&LIBPRFX..SCEERUN,DISP=SHR 00340000
IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEERUN,DISP=SHR
7 XX DD DSNAME=&LIBPRFX..SCEERUN2,DISP=SHR 00350000
IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEERUN2,DISP=SHR
8 XXSYSPRINT DD SYSOUT=* 00360000
9 XXSYSLIN DD DSNAME=&&LOADSET,UNIT=SYSALLDA, 00370000
XX DISP=(MOD,PASS),SPACE=(CYL,(1,1)) 00380000
10 XXSYSUT1 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00400000
11 XXSYSUT2 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00410000
12 XXSYSUT3 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00420000
13 XXSYSUT4 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00430000
14 XXSYSUT5 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00440000
15 XXSYSUT6 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00450000
16 XXSYSUT7 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00460000
17 XXSYSUT8 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00470000
18 XXSYSUT9 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00480000
19 XXSYSUT10 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00490000
20 XXSYSUT11 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00500000
21 XXSYSUT12 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00510000
22 XXSYSUT13 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00520000
23 XXSYSUT14 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00530000
24 XXSYSUT15 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00540000
25 XXSYSMDECK DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00545000
26 //SYSIN DD DSN=&SYSUID..LANG.SOURCE(CALC1000),DISP=SHR 00060000
IEFC653I SUBSTITUTION JCL - DSN=KC03MA9.LANG.SOURCE(CALC1000),DISP=SHR
27 //COBOL.SYSLIB DD DSN=CEE.SCEESAMP,DISP=SHR 00070000
28 XXLKED EXEC PGM=IEWBLINK,COND=(8,LT,COBOL),REGION=0M 00550000
29 XXSYSLIB DD DSNAME=&LIBPRFX..SCEELKED,DISP=SHR 00560000
IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEELKED,DISP=SHR
30 XX DD DSNAME=&LIBPRFX..SCEELKEX,DISP=SHR 00570000
IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEELKEX,DISP=SHR
31 XXSYSPRINT DD SYSOUT=* 00580000
32 XXSYSLIN DD DSNAME=&&LOADSET,DISP=(OLD,DELETE) 00590000
33 XX DD DDNAME=SYSIN 00600000
34 //LKED.SYSLMOD DD DSN=&SYSUID..LANG.LOAD(CALC1000),DISP=SHR 00080000
IEFC653I SUBSTITUTION JCL - DSN=KC03MA9.LANG.LOAD(CALC1000),DISP=SHR
X/SYSLMOD DD DSNAME=&&GOSET(&GOPGM),SPACE=(CYL,(1,1,1)), 00610000
X/ UNIT=SYSALLDA,DISP=(MOD,PASS),DSNTYPE=LIBRARY 00620000
IEFC653I SUBSTITUTION JCL - DSNAME=&&GOSET(GO),SPACE=(CYL,(1,1,1)),UNIT=SYSALLDA,DISP=(MOD,PASS),
DSNTYPE=LIBRARY
35 XXSYSUT1 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00630000
36 //SYSIN DD * GENERATED STATEMENT
37 XXGO EXEC PGM=*.LKED.SYSLMOD,COND=((8,LT,COBOL),(4,LT,LKED)), 00640000
XX REGION=0M 00650000
38 XXSTEPLIB DD DSNAME=&LIBPRFX..SCEERUN,DISP=SHR 00660000
IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEERUN,DISP=SHR
39 XX DD DSNAME=&LIBPRFX..SCEERUN2,DISP=SHR 00670000
IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEERUN2,DISP=SHR
40 XXSYSPRINT DD SYSOUT=* 00680000
41 XXCEEDUMP DD SYSOUT=* 00690000
42 XXSYSUDUMP DD SYSOUT=* 00700000
IEF236I ALLOC. FOR CALC1001 LKED STEP1
IEF237I A001 ALLOCATED TO SYSLIB
IEF237I A001 ALLOCATED TO
IEF237I JES2 ALLOCATED TO SYSPRINT
IGD103I SMS ALLOCATED TO DDNAME SYSLIN
IEF237I JES2 ALLOCATED TO
IGD103I SMS ALLOCATED TO DDNAME SYSLMOD
IGD101I SMS ALLOCATED TO DDNAME (SYSUT1 )
DSN (SYS19117.T152012.RA000.CALC1001.R0172916 )
STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TEMP00
IEF142I CALC1001 LKED STEP1 - STEP WAS EXECUTED - COND CODE 0012
IEF285I CEE.SCEELKED KEPT
IEF285I VOL SER NOS= Z1RES1.
IEF285I CEE.SCEELKEX KEPT
IEF285I VOL SER NOS= Z1RES1.
IEF285I KC03MA9.CALC1001.JOB01492.D0000103.? SYSOUT
IGD105I SYS19117.T152012.RA000.CALC1001.LOADSET.H01 DELETED, DDNAME=SYSLIN
IEF285I KC03MA9.CALC1001.JOB01492.D0000101.? SYSIN
IGD104I KC03MA9.LANG.LOAD RETAINED, DDNAME=SYSLMOD
IGD105I SYS19117.T152012.RA000.CALC1001.R0172916 DELETED, DDNAME=SYSUT1
IEF373I STEP/LKED /START 2019117.1520
IEF032I STEP/LKED /STOP 2019117.1520
CPU: 0 HR 00 MIN 00.01 SEC SRB: 0 HR 00 MIN 00.00 SEC
VIRT: 92K SYS: 296K EXT: 1640K SYS: 11672K
ATB- REAL: 0K SLOTS: 0K
VIRT- ALLOC: 0M SHRD: 0M
IEF202I CALC1001 GO STEP1 - STEP WAS NOT RUN BECAUSE OF CONDITION CODES
IEF272I CALC1001 GO STEP1 - STEP WAS NOT EXECUTED.
IEF373I STEP/GO /START 2019117.1520
IEF032I STEP/GO /STOP 2019117.1520
CPU: 0 HR 00 MIN 00.00 SEC SRB: 0 HR 00 MIN 00.00 SEC
VIRT: 0K SYS: 0K EXT: 0K SYS: 0K
ATB- REAL: 0K SLOTS: 0K
VIRT- ALLOC: 0M SHRD: 0M
IEF375I JOB/CALC1001/START 2019117.1520
IEF033I JOB/CALC1001/STOP 2019117.1520
CPU: 0 HR 00 MIN 00.04 SEC SRB: 0 HR 00 MIN 00.00 SEC
1z/OS V2 R1 BINDER 15:20:12 SATURDAY APRIL 27, 2019
BATCH EMULATOR JOB(CALC1001) STEP(STEP1 ) PGM= IEWBLINK PROCEDURE(LKED )
IEW2322I 1220 1
IEW2322I 1220 2
IEW2606S 4B39 MODULE INCORPORATES VERSION 3 PROGRAM OBJECT FEATURES AND CANNOT BE SAVED IN LOAD MODULE FORMAT.
1z/OS V2 R1 BINDER 15:20:12 SATURDAY APRIL 27, 2019
BATCH EMULATOR JOB(CALC1001) STEP(STEP1 ) PGM= IEWBLINK PROCEDURE(LKED )
IEW2008I 0F03 PROCESSING COMPLETED. RETURN CODE = 12.
1 J E S 2 J O B L O G -- S Y S T E M S 0 W 1 -- N O D E Z O S K C T R
0
15.20.12 JOB01492 ---- SATURDAY, 27 APR 2019 ----
15.20.12 JOB01492 IRR010I USERID KC03MA9 IS ASSIGNED TO THIS JOB.
15.20.12 JOB01492 ICH70001I KC03MA9 LAST ACCESS AT 15:16:31 ON SATURDAY, APRIL 27, 2019
15.20.12 JOB01492 $HASP373 CALC1001 STARTED - INIT 2 - CLASS A - SYS S0W1
15.20.12 JOB01492 - --TIMINGS (MINS.)-- ----PAGING COUNTS---
15.20.12 JOB01492 -JOBNAME STEPNAME PROCSTEP RC EXCP TCB SRB CLOCK SERV PG PAGE SWAP VIO SWAPS
15.20.12 JOB01492 -CALC1001 00 10816 ****** .00 .0 3962 0 0 0 0 0
15.20.12 JOB01492 -CALC1001 12 196 ****** .00 .0 592 0 0 0 0 0
15.20.12 JOB01492 -CALC1001 FLUSH 0 ****** .00 .0 0 0 0 0 0 0
15.20.12 JOB01492 -CALC1001 ENDED. NAME-A. STUDENT TOTAL TCB CPU TIME= .00 TOTAL ELAPSED TIME= .0
15.20.12 JOB01492 $HASP395 CALC1001 ENDED
0
15.20.12 JOB01492 ---- SATURDAY, 27 APR 2019 ----
15.20.12 JOB01492 IRR010I USERID KC03MA9 IS ASSIGNED TO THIS JOB.
15.20.12 JOB01492 ICH70001I KC03MA9 LAST ACCESS AT 15:16:31 ON SATURDAY, APRIL 27, 2019
15.20.12 JOB01492 $HASP373 CALC1001 STARTED - INIT 2 - CLASS A - SYS S0W1
15.20.12 JOB01492 - --TIMINGS (MINS.)-- ----PAGING COUNTS---
15.20.12 JOB01492 -JOBNAME STEPNAME PROCSTEP RC EXCP TCB SRB CLOCK SERV PG PAGE SWAP VIO SWAPS
15.20.12 JOB01492 -CALC1001 00 10816 ****** .00 .0 3962 0 0 0 0 0
15.20.12 JOB01492 -CALC1001 12 196 ****** .00 .0 592 0 0 0 0 0
15.20.12 JOB01492 -CALC1001 FLUSH 0 ****** .00 .0 0 0 0 0 0 0
15.20.12 JOB01492 -CALC1001 ENDED. NAME-A. STUDENT TOTAL TCB CPU TIME= .00 TOTAL ELAPSED TIME= .0
15.20.12 JOB01492 $HASP395 CALC1001 ENDED
0------ JES2 JOB STATISTICS ------
- 27 APR 2019 JOB EXECUTION DATE
- 10 CARDS READ
- 487 SYSOUT PRINT RECORDS
- 0 SYSOUT PUNCH RECORDS
- 27 SYSOUT SPOOL KBYTES
- 0.00 MINUTES EXECUTION TIME
1 //CALC1001 JOB 1,'A. STUDENT',NOTIFY=&SYSUID JOB01492
//************************************************** 00020000
//* COMPILE COBOL PROGRAM 00030000
//************************************************** 00040000
IEFC653I SUBSTITUTION JCL - 1,'A. STUDENT',NOTIFY=KC03MA9
2 //STEP1 EXEC IGYWCLG 00050000
3 XXIGYWCLG PROC LNGPRFX='IGY510', 00010000
XX LIBPRFX='CEE',GOPGM=GO 00020000
XX* 00030000
XX********************************************************************* 00040000
XX* COMPILE, LINK EDIT AND RUN A COBOL PROGRAM 00200000
4 XXCOBOL EXEC PGM=IGYCRCTL,REGION=0M 00320000
5 XXSTEPLIB DD DSNAME=&LNGPRFX..SIGYCOMP,DISP=SHR 00330000
IEFC653I SUBSTITUTION JCL - DSNAME=IGY510.SIGYCOMP,DISP=SHR
6 XX DD DSNAME=&LIBPRFX..SCEERUN,DISP=SHR 00340000
IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEERUN,DISP=SHR
7 XX DD DSNAME=&LIBPRFX..SCEERUN2,DISP=SHR 00350000
IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEERUN2,DISP=SHR
8 XXSYSPRINT DD SYSOUT=* 00360000
9 XXSYSLIN DD DSNAME=&&LOADSET,UNIT=SYSALLDA, 00370000
XX DISP=(MOD,PASS),SPACE=(CYL,(1,1)) 00380000
10 XXSYSUT1 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00400000
11 XXSYSUT2 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00410000
12 XXSYSUT3 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00420000
13 XXSYSUT4 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00430000
14 XXSYSUT5 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00440000
15 XXSYSUT6 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00450000
16 XXSYSUT7 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00460000
17 XXSYSUT8 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00470000
18 XXSYSUT9 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00480000
19 XXSYSUT10 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00490000
20 XXSYSUT11 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00500000
21 XXSYSUT12 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00510000
22 XXSYSUT13 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00520000
23 XXSYSUT14 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00530000
24 XXSYSUT15 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00540000
25 XXSYSMDECK DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00545000
26 //SYSIN DD DSN=&SYSUID..LANG.SOURCE(CALC1000),DISP=SHR 00060000
IEFC653I SUBSTITUTION JCL - DSN=KC03MA9.LANG.SOURCE(CALC1000),DISP=SHR
27 //COBOL.SYSLIB DD DSN=CEE.SCEESAMP,DISP=SHR 00070000
28 XXLKED EXEC PGM=IEWBLINK,COND=(8,LT,COBOL),REGION=0M 00550000
29 XXSYSLIB DD DSNAME=&LIBPRFX..SCEELKED,DISP=SHR 00560000
IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEELKED,DISP=SHR
30 XX DD DSNAME=&LIBPRFX..SCEELKEX,DISP=SHR 00570000
IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEELKEX,DISP=SHR
31 XXSYSPRINT DD SYSOUT=* 00580000
32 XXSYSLIN DD DSNAME=&&LOADSET,DISP=(OLD,DELETE) 00590000
33 XX DD DDNAME=SYSIN 00600000
34 //LKED.SYSLMOD DD DSN=&SYSUID..LANG.LOAD(CALC1000),DISP=SHR 00080000
IEFC653I SUBSTITUTION JCL - DSN=KC03MA9.LANG.LOAD(CALC1000),DISP=SHR
X/SYSLMOD DD DSNAME=&&GOSET(&GOPGM),SPACE=(CYL,(1,1,1)), 00610000
X/ UNIT=SYSALLDA,DISP=(MOD,PASS),DSNTYPE=LIBRARY 00620000
IEFC653I SUBSTITUTION JCL - DSNAME=&&GOSET(GO),SPACE=(CYL,(1,1,1)),UNIT=SYSALLDA,DISP=(MOD,PASS),
DSNTYPE=LIBRARY
35 XXSYSUT1 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00630000
36 //SYSIN DD * GENERATED STATEMENT
37 XXGO EXEC PGM=*.LKED.SYSLMOD,COND=((8,LT,COBOL),(4,LT,LKED)), 00640000
XX REGION=0M 00650000
38 XXSTEPLIB DD DSNAME=&LIBPRFX..SCEERUN,DISP=SHR 00660000
IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEERUN,DISP=SHR
39 XX DD DSNAME=&LIBPRFX..SCEERUN2,DISP=SHR 00670000
IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEERUN2,DISP=SHR
40 XXSYSPRINT DD SYSOUT=* 00680000
41 XXCEEDUMP DD SYSOUT=* 00690000
42 XXSYSUDUMP DD SYSOUT=* 00700000
IEF236I ALLOC. FOR CALC1001 LKED STEP1
IEF237I A001 ALLOCATED TO SYSLIB
IEF237I A001 ALLOCATED TO
IEF237I JES2 ALLOCATED TO SYSPRINT
IGD103I SMS ALLOCATED TO DDNAME SYSLIN
IEF237I JES2 ALLOCATED TO
IGD103I SMS ALLOCATED TO DDNAME SYSLMOD
IGD101I SMS ALLOCATED TO DDNAME (SYSUT1 )
DSN (SYS19117.T152012.RA000.CALC1001.R0172916 )
STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TEMP00
IEF142I CALC1001 LKED STEP1 - STEP WAS EXECUTED - COND CODE 0012
IEF285I CEE.SCEELKED KEPT
IEF285I VOL SER NOS= Z1RES1.
IEF285I CEE.SCEELKEX KEPT
IEF285I VOL SER NOS= Z1RES1.
IEF285I KC03MA9.CALC1001.JOB01492.D0000103.? SYSOUT
IGD105I SYS19117.T152012.RA000.CALC1001.LOADSET.H01 DELETED, DDNAME=SYSLIN
IEF285I KC03MA9.CALC1001.JOB01492.D0000101.? SYSIN
IGD104I KC03MA9.LANG.LOAD RETAINED, DDNAME=SYSLMOD
IGD105I SYS19117.T152012.RA000.CALC1001.R0172916 DELETED, DDNAME=SYSUT1
IEF373I STEP/LKED /START 2019117.1520
IEF032I STEP/LKED /STOP 2019117.1520
CPU: 0 HR 00 MIN 00.01 SEC SRB: 0 HR 00 MIN 00.00 SEC
VIRT: 92K SYS: 296K EXT: 1640K SYS: 11672K
ATB- REAL: 0K SLOTS: 0K
VIRT- ALLOC: 0M SHRD: 0M
IEF202I CALC1001 GO STEP1 - STEP WAS NOT RUN BECAUSE OF CONDITION CODES
IEF272I CALC1001 GO STEP1 - STEP WAS NOT EXECUTED.
IEF373I STEP/GO /START 2019117.1520
IEF032I STEP/GO /STOP 2019117.1520
CPU: 0 HR 00 MIN 00.00 SEC SRB: 0 HR 00 MIN 00.00 SEC
VIRT: 0K SYS: 0K EXT: 0K SYS: 0K
ATB- REAL: 0K SLOTS: 0K
VIRT- ALLOC: 0M SHRD: 0M
IEF375I JOB/CALC1001/START 2019117.1520
IEF033I JOB/CALC1001/STOP 2019117.1520
CPU: 0 HR 00 MIN 00.04 SEC SRB: 0 HR 00 MIN 00.00 SEC
1z/OS V2 R1 BINDER 15:20:12 SATURDAY APRIL 27, 2019
BATCH EMULATOR JOB(CALC1001) STEP(STEP1 ) PGM= IEWBLINK PROCEDURE(LKED )
IEW2322I 1220 1
IEW2322I 1220 2
IEW2606S 4B39 MODULE INCORPORATES VERSION 3 PROGRAM OBJECT FEATURES AND CANNOT BE SAVED IN LOAD MODULE FORMAT.
1z/OS V2 R1 BINDER 15:20:12 SATURDAY APRIL 27, 2019
BATCH EMULATOR JOB(CALC1001) STEP(STEP1 ) PGM= IEWBLINK PROCEDURE(LKED )
IEW2008I 0F03 PROCESSING COMPLETED. RETURN CODE = 12.
Re: Help with a JCL error
by Robert Sample » Sun Apr 28, 2019 5:18 am
This tells you that the output of the linkage editor must be stored in a PDSE library, not in a PDS. The overridden LKED.SYSLMOD has DSNTYPE=LIBRARY, which makes it a PDSE. KC03MA9.LANG.LOAD is not a PDSE.IEW2606S 4B39 MODULE INCORPORATES VERSION 3 PROGRAM OBJECT FEATURES AND CANNOT BE SAVED IN LOAD MODULE FORMAT.
- Robert Sample
- Global moderator
- Posts: 3720
- Joined: Sat Dec 19, 2009 8:32 pm
- Location: Dubuque, Iowa, USA
- Has thanked: 1 time
- Been thanked: 279 times
Re: Help with a JCL error
by cwseay » Sun Apr 28, 2019 11:39 am
Thanks for your help! I deleted the PDS LANG.LOAD and recreated one as a PDSE. I re-ran the job and got the code below. I commented out the line where it writes the LOAD module and ran it again. The program executed but I can't test it now because the load module is not written to a file. Can you look at this JCL and tell me what I need to do to fix it? I have gone through it line by line and can't figure it out. Thanks!
1 J E S 2 J O B L O G -- S Y S T E M S 0 W 1 -- N O D E Z O S K C T R
0
02.04.53 JOB01758 ---- SUNDAY, 28 APR 2019 ----
02.04.53 JOB01758 IRR010I USERID KC03MA9 IS ASSIGNED TO THIS JOB.
02.04.53 JOB01758 IEF677I WARNING MESSAGE(S) FOR JOB CALC1001 ISSUED
02.04.53 JOB01758 ICH70001I KC03MA9 LAST ACCESS AT 01:58:24 ON SUNDAY, APRIL 28, 2019
02.04.53 JOB01758 $HASP373 CALC1001 STARTED - INIT 2 - CLASS A - SYS S0W1
02.04.54 JOB01758 - --TIMINGS (MINS.)-- ----PAGING COUNTS---
02.04.54 JOB01758 -JOBNAME STEPNAME PROCSTEP RC EXCP TCB SRB CLOCK SERV PG PAGE SWAP VIO SWAPS
02.04.54 JOB01758 -CALC1001 00 11524 ****** .00 .0 4016 0 0 0 0 0
02.04.54 JOB01758 -CALC1001 00 232 ****** .00 .0 624 0 0 0 0 0
02.04.54 JOB01758 IEC130I SYSIN DD STATEMENT MISSING
02.04.54 JOB01758 IEF450I CALC1001 GO STEP1 - ABEND=S0C1 U0000 REASON=00000001
02.04.54 JOB01758 -CALC1001 *S0C1 1236 ****** .00 .0 978 0 0 0 0 0
02.04.54 JOB01758 -CALC1001 ENDED. NAME-A. STUDENT TOTAL TCB CPU TIME= .00 TOTAL ELAPSED TIME= .0
02.04.54 JOB01758 $HASP395 CALC1001 ENDED
1 //CALC1001 JOB 1,'A. STUDENT',NOTIFY=&SYSUID JOB01758
//************************************************** 00020000
//* COMPILE COBOL PROGRAM 00030000
//************************************************** 00040000
IEFC653I SUBSTITUTION JCL - 1,'A. STUDENT',NOTIFY=KC03MA9
2 //STEP1 EXEC IGYWCLG 00050000
3 XXIGYWCLG PROC LNGPRFX='IGY510', 00010000
XX LIBPRFX='CEE',GOPGM=GO 00020000
XX* 00030000
XX* 00310000
4 XXCOBOL EXEC PGM=IGYCRCTL,REGION=0M 00320000
5 XXSTEPLIB DD DSNAME=&LNGPRFX..SIGYCOMP,DISP=SHR 00330000
IEFC653I SUBSTITUTION JCL - DSNAME=IGY510.SIGYCOMP,DISP=SHR
6 XX DD DSNAME=&LIBPRFX..SCEERUN,DISP=SHR 00340000
IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEERUN,DISP=SHR
7 XX DD DSNAME=&LIBPRFX..SCEERUN2,DISP=SHR 00350000
IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEERUN2,DISP=SHR
8 XXSYSPRINT DD SYSOUT=* 00360000
9 XXSYSLIN DD DSNAME=&&LOADSET,UNIT=SYSALLDA, 00370000
XX DISP=(MOD,PASS),SPACE=(CYL,(1,1)) 00380000
10 XXSYSUT1 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00400000
11 XXSYSUT2 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00410000
12 XXSYSUT3 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00420000
13 XXSYSUT4 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00430000
14 XXSYSUT5 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00440000
15 XXSYSUT6 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00450000
16 XXSYSUT7 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00460000
17 XXSYSUT8 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00470000
18 XXSYSUT9 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00480000
19 XXSYSUT10 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00490000
20 XXSYSUT11 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00500000
21 XXSYSUT12 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00510000
22 XXSYSUT13 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00520000
23 XXSYSUT14 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00530000
24 XXSYSUT15 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00540000
25 XXSYSMDECK DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00545000
26 //SYSIN DD DSN=&SYSUID..LANG.SOURCE(CALC1000),DISP=SHR 00060000
IEFC653I SUBSTITUTION JCL - DSN=KC03MA9.LANG.SOURCE(CALC1000),DISP=SHR
27 //COBOL.SYSLIB DD DSN=CEE.SCEESAMP,DISP=SHR 00070000
28 //SYSIN DD * GENERATED STATEMENT
29 XXLKED EXEC PGM=IEWBLINK,COND=(8,LT,COBOL),REGION=0M 00550000
30 XXSYSLIB DD DSNAME=&LIBPRFX..SCEELKED,DISP=SHR 00560000
IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEELKED,DISP=SHR
31 XX DD DSNAME=&LIBPRFX..SCEELKEX,DISP=SHR 00570000
IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEELKEX,DISP=SHR
32 XXSYSPRINT DD SYSOUT=* 00580000
33 XXSYSLIN DD DSNAME=&&LOADSET,DISP=(OLD,DELETE) 00590000
34 XX DD DDNAME=SYSIN 00600000
35 XXSYSLMOD DD DSNAME=&&GOSET(&GOPGM),SPACE=(CYL,(1,1,1)), 00610000
XX UNIT=SYSALLDA,DISP=(MOD,PASS),DSNTYPE=LIBRARY 00620000
IEFC653I SUBSTITUTION JCL - DSNAME=&&GOSET(GO),SPACE=(CYL,(1,1,1)),UNIT=SYSALLDA,DISP=(MOD,PASS),
DSNTYPE=LIBRARY
36 XXSYSUT1 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00630000
37 XXGO EXEC PGM=*.LKED.SYSLMOD,COND=((8,LT,COBOL),(4,LT,LKED)), 00640000
XX REGION=0M 00650000
38 XXSTEPLIB DD DSNAME=&LIBPRFX..SCEERUN,DISP=SHR 00660000
IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEERUN,DISP=SHR
39 XX DD DSNAME=&LIBPRFX..SCEERUN2,DISP=SHR 00670000
IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEERUN2,DISP=SHR
40 XXSYSPRINT DD SYSOUT=* 00680000
41 XXCEEDUMP DD SYSOUT=* 00690000
42 XXSYSUDUMP DD SYSOUT=* 00700000
//*LKED.SYSLMOD DD DSN=&SYSUID..LANG.LOAD(CALC1000),DISP=SHR 00080001
STMT NO. MESSAGE
2 IEFC001I PROCEDURE IGYWCLG WAS EXPANDED USING SYSTEM LIBRARY USER.PROCLIB
37 IEF686I DDNAME REFERRED TO ON DDNAME KEYWORD IN PRIOR STEP WAS NOT RESOLVED
ICH70001I KC03MA9 LAST ACCESS AT 01:58:24 ON SUNDAY, APRIL 28, 2019
IEF236I ALLOC. FOR CALC1001 LKED STEP1
IEF237I A001 ALLOCATED TO SYSLIB
IEF237I A001 ALLOCATED TO
IEF237I JES2 ALLOCATED TO SYSPRINT
IGD103I SMS ALLOCATED TO DDNAME SYSLIN
IEF237I DMY ALLOCATED TO
IGD101I SMS ALLOCATED TO DDNAME (SYSLMOD )
DSN (SYS19118.T020453.RA000.CALC1001.GOSET.H01 )
STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TEMP00
IGD101I SMS ALLOCATED TO DDNAME (SYSUT1 )
DSN (SYS19118.T020453.RA000.CALC1001.R0175191 )
STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TEMP00
IEF142I CALC1001 LKED STEP1 - STEP WAS EXECUTED - COND CODE 0000
IEF285I CEE.SCEELKED KEPT
IEF285I VOL SER NOS= Z1RES1.
IEF285I CEE.SCEELKEX KEPT
IEF285I VOL SER NOS= Z1RES1.
IEF285I KC03MA9.CALC1001.JOB01758.D0000103.? SYSOUT
IGD105I SYS19118.T020453.RA000.CALC1001.LOADSET.H01 DELETED, DDNAME=SYSLIN
IGD106I SYS19118.T020453.RA000.CALC1001.GOSET.H01 PASSED, DDNAME=SYSLMOD
IGD105I SYS19118.T020453.RA000.CALC1001.R0175191 DELETED, DDNAME=SYSUT1
IEF373I STEP/LKED /START 2019118.0204
IEF032I STEP/LKED /STOP 2019118.0204
CPU: 0 HR 00 MIN 00.01 SEC SRB: 0 HR 00 MIN 00.00 SEC
VIRT: 92K SYS: 296K EXT: 1640K SYS: 11644K
ATB- REAL: 0K SLOTS: 0K
VIRT- ALLOC: 0M SHRD: 0M
IEF236I ALLOC. FOR CALC1001 GO STEP1
IGD103I SMS ALLOCATED TO DDNAME PGM=*.DD
IEF237I A002 ALLOCATED TO STEPLIB
IEF237I A002 ALLOCATED TO
IEF237I JES2 ALLOCATED TO SYSPRINT
IEF237I JES2 ALLOCATED TO CEEDUMP
IEF237I JES2 ALLOCATED TO SYSUDUMP
IEF237I JES2 ALLOCATED TO SYSOUT
IEC130I SYSIN DD STATEMENT MISSING
IEF285I KC03MA9.CALC1001.JOB01758.D0000107.? SYSOUT
IEF472I CALC1001 GO STEP1 - COMPLETION CODE - SYSTEM=0C1 USER=0000 REASON=00000001
IGD104I SYS19118.T020453.RA000.CALC1001.GOSET.H01 RETAINED, DDNAME=PGM=*.DD
IEF285I CEE.SCEERUN KEPT
IEF285I VOL SER NOS= Z1RES2.
IEF285I CEE.SCEERUN2 KEPT
IEF285I VOL SER NOS= Z1RES2.
IEF285I KC03MA9.CALC1001.JOB01758.D0000104.? SYSOUT
IEF285I KC03MA9.CALC1001.JOB01758.D0000105.? SYSOUT
IEF285I KC03MA9.CALC1001.JOB01758.D0000106.? SYSOUT
IEF373I STEP/GO /START 2019118.0204
IEF032I STEP/GO /STOP 2019118.0204
CPU: 0 HR 00 MIN 00.01 SEC SRB: 0 HR 00 MIN 00.00 SEC
VIRT: 84K SYS: 300K EXT: 3828K SYS: 11708K
ATB- REAL: 0K SLOTS: 0K
VIRT- ALLOC: 0M SHRD: 0M
IGD103I SMS ALLOCATED TO DDNAME SYS00001
IGD104I SYS19118.T020454.RA000.CALC1001.R0175209 RETAINED, DDNAME=SYS00001
IGD105I SYS19118.T020453.RA000.CALC1001.GOSET.H01 DELETED, DDNAME=SYSLMOD
IEF375I JOB/CALC1001/START 2019118.0204
IEF033I JOB/CALC1001/STOP 2019118.0204
CPU: 0 HR 00 MIN 00.05 SEC SRB: 0 HR 00 MIN 00.00 SEC
1z/OS V2 R1 BINDER 02:04:54 SUNDAY APRIL 28, 2019
BATCH EMULATOR JOB(CALC1001) STEP(STEP1 ) PGM= IEWBLINK PROCEDURE(LKED )
ALIASES NO
ALIGN2 NO
AMODE UNSPECIFIED
CALL YES
CASE UPPER
COMPAT UNSPECIFIED
COMPRESS AUTO
DCBS NO
DYNAM NO
EXTATTR UNSPECIFIED
EXITS: NONE
FILL NONE
GID UNSPECIFIED
HOBSET NO
INFO NO
LET 04
LINECT 060
LIST SUMMARY
LISTPRIV NO
LONGPARM NO
MAP NO
MAXBLK 032760
MODMAP NO
MSGLEVEL 00
OVLY NO
PRINT YES
RES NO
REUSABILITY UNSPECIFIED
RMODE UNSPECIFIED
SIGN NO
STORENX NOREPLACE
STRIPCL NO
STRIPSEC NO
SYMTRACE
TERM NO
TRAP ON
UID UNSPECIFIED
UPCASE NO
WKSPACE 000000K,000000K
XCAL NO
XREF NO
***END OF OPTIONS***
1SAVE OPERATION SUMMARY:
MEMBER NAME GO
LOAD LIBRARY SYS19118.T020453.RA000.CALC1001.GOSET.H01
PROGRAM TYPE PROGRAM OBJECT(FORMAT 3)
VOLUME SERIAL TEMP00
DISPOSITION ADDED NEW
TIME OF SAVE 02.04.54 APR 28, 2019
1SAVE MODULE ATTRIBUTES:
AC 000
AMODE 31
COMPRESSION NONE
DC NO
EDITABLE YES
EXCEEDS 16MB NO
EXECUTABLE YES
LONGPARM NO
MIGRATABLE NO
OL NO
OVLY NO
PACK,PRIME NO,NO
PAGE ALIGN NO
REFR NO
RENT NO
REUS NO
RMODE ANY
SCTR NO
SIGN NO
SSI
SYM GENERATED NO
TEST NO
XPLINK NO
MODULE SIZE (HEX) 00001880
DASD SIZE (HEX) 0000A000
1 ENTRY POINT AND ALIAS SUMMARY:
NAME: ENTRY TYPE AMODE C_OFFSET CLASS NAME STATUS
CALC1000 MAIN_EP 31 00000000 C_CODE
*** E N D O F O P E R A T I O N S U M M A R Y R E P O R T ***
1z/OS V2 R1 BINDER 02:04:54 SUNDAY APRIL 28, 2019
BATCH EMULATOR JOB(CALC1001) STEP(STEP1 ) PGM= IEWBLINK PROCEDURE(LKED )
IEW2008I 0F03 PROCESSING COMPLETED. RETURN CODE = 0.
1CEE3DMP V2 R1.0: Condition processing resulted in the unhandled condition. 04/28/19 2:04:54 AM
_________________________________
TO END PROGRAM ENTER 0.
TO CALCULATE SALES TAX, ENTER THE SALES AMOUNT.
IGZ0017S The open of DISPLAY or ACCEPT file with environment name SYSIN was unsuccessful.
CEE3201S The system detected an operation exception (System Completion Code=0C1).
From compile unit CALC1000 at entry point CALC1000 at compile unit offset +000002DC at entry offset +000002DC
at address 1ED002DC.
1 J E S 2 J O B L O G -- S Y S T E M S 0 W 1 -- N O D E Z O S K C T R
0
02.04.53 JOB01758 ---- SUNDAY, 28 APR 2019 ----
02.04.53 JOB01758 IRR010I USERID KC03MA9 IS ASSIGNED TO THIS JOB.
02.04.53 JOB01758 IEF677I WARNING MESSAGE(S) FOR JOB CALC1001 ISSUED
02.04.53 JOB01758 ICH70001I KC03MA9 LAST ACCESS AT 01:58:24 ON SUNDAY, APRIL 28, 2019
02.04.53 JOB01758 $HASP373 CALC1001 STARTED - INIT 2 - CLASS A - SYS S0W1
02.04.54 JOB01758 - --TIMINGS (MINS.)-- ----PAGING COUNTS---
02.04.54 JOB01758 -JOBNAME STEPNAME PROCSTEP RC EXCP TCB SRB CLOCK SERV PG PAGE SWAP VIO SWAPS
02.04.54 JOB01758 -CALC1001 00 11524 ****** .00 .0 4016 0 0 0 0 0
02.04.54 JOB01758 -CALC1001 00 232 ****** .00 .0 624 0 0 0 0 0
02.04.54 JOB01758 IEC130I SYSIN DD STATEMENT MISSING
02.04.54 JOB01758 IEF450I CALC1001 GO STEP1 - ABEND=S0C1 U0000 REASON=00000001
02.04.54 JOB01758 -CALC1001 *S0C1 1236 ****** .00 .0 978 0 0 0 0 0
02.04.54 JOB01758 -CALC1001 ENDED. NAME-A. STUDENT TOTAL TCB CPU TIME= .00 TOTAL ELAPSED TIME= .0
02.04.54 JOB01758 $HASP395 CALC1001 ENDED
1 //CALC1001 JOB 1,'A. STUDENT',NOTIFY=&SYSUID JOB01758
//************************************************** 00020000
//* COMPILE COBOL PROGRAM 00030000
//************************************************** 00040000
IEFC653I SUBSTITUTION JCL - 1,'A. STUDENT',NOTIFY=KC03MA9
2 //STEP1 EXEC IGYWCLG 00050000
3 XXIGYWCLG PROC LNGPRFX='IGY510', 00010000
XX LIBPRFX='CEE',GOPGM=GO 00020000
XX* 00030000
XX* 00310000
4 XXCOBOL EXEC PGM=IGYCRCTL,REGION=0M 00320000
5 XXSTEPLIB DD DSNAME=&LNGPRFX..SIGYCOMP,DISP=SHR 00330000
IEFC653I SUBSTITUTION JCL - DSNAME=IGY510.SIGYCOMP,DISP=SHR
6 XX DD DSNAME=&LIBPRFX..SCEERUN,DISP=SHR 00340000
IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEERUN,DISP=SHR
7 XX DD DSNAME=&LIBPRFX..SCEERUN2,DISP=SHR 00350000
IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEERUN2,DISP=SHR
8 XXSYSPRINT DD SYSOUT=* 00360000
9 XXSYSLIN DD DSNAME=&&LOADSET,UNIT=SYSALLDA, 00370000
XX DISP=(MOD,PASS),SPACE=(CYL,(1,1)) 00380000
10 XXSYSUT1 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00400000
11 XXSYSUT2 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00410000
12 XXSYSUT3 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00420000
13 XXSYSUT4 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00430000
14 XXSYSUT5 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00440000
15 XXSYSUT6 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00450000
16 XXSYSUT7 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00460000
17 XXSYSUT8 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00470000
18 XXSYSUT9 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00480000
19 XXSYSUT10 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00490000
20 XXSYSUT11 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00500000
21 XXSYSUT12 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00510000
22 XXSYSUT13 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00520000
23 XXSYSUT14 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00530000
24 XXSYSUT15 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00540000
25 XXSYSMDECK DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00545000
26 //SYSIN DD DSN=&SYSUID..LANG.SOURCE(CALC1000),DISP=SHR 00060000
IEFC653I SUBSTITUTION JCL - DSN=KC03MA9.LANG.SOURCE(CALC1000),DISP=SHR
27 //COBOL.SYSLIB DD DSN=CEE.SCEESAMP,DISP=SHR 00070000
28 //SYSIN DD * GENERATED STATEMENT
29 XXLKED EXEC PGM=IEWBLINK,COND=(8,LT,COBOL),REGION=0M 00550000
30 XXSYSLIB DD DSNAME=&LIBPRFX..SCEELKED,DISP=SHR 00560000
IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEELKED,DISP=SHR
31 XX DD DSNAME=&LIBPRFX..SCEELKEX,DISP=SHR 00570000
IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEELKEX,DISP=SHR
32 XXSYSPRINT DD SYSOUT=* 00580000
33 XXSYSLIN DD DSNAME=&&LOADSET,DISP=(OLD,DELETE) 00590000
34 XX DD DDNAME=SYSIN 00600000
35 XXSYSLMOD DD DSNAME=&&GOSET(&GOPGM),SPACE=(CYL,(1,1,1)), 00610000
XX UNIT=SYSALLDA,DISP=(MOD,PASS),DSNTYPE=LIBRARY 00620000
IEFC653I SUBSTITUTION JCL - DSNAME=&&GOSET(GO),SPACE=(CYL,(1,1,1)),UNIT=SYSALLDA,DISP=(MOD,PASS),
DSNTYPE=LIBRARY
36 XXSYSUT1 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00630000
37 XXGO EXEC PGM=*.LKED.SYSLMOD,COND=((8,LT,COBOL),(4,LT,LKED)), 00640000
XX REGION=0M 00650000
38 XXSTEPLIB DD DSNAME=&LIBPRFX..SCEERUN,DISP=SHR 00660000
IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEERUN,DISP=SHR
39 XX DD DSNAME=&LIBPRFX..SCEERUN2,DISP=SHR 00670000
IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEERUN2,DISP=SHR
40 XXSYSPRINT DD SYSOUT=* 00680000
41 XXCEEDUMP DD SYSOUT=* 00690000
42 XXSYSUDUMP DD SYSOUT=* 00700000
//*LKED.SYSLMOD DD DSN=&SYSUID..LANG.LOAD(CALC1000),DISP=SHR 00080001
STMT NO. MESSAGE
2 IEFC001I PROCEDURE IGYWCLG WAS EXPANDED USING SYSTEM LIBRARY USER.PROCLIB
37 IEF686I DDNAME REFERRED TO ON DDNAME KEYWORD IN PRIOR STEP WAS NOT RESOLVED
ICH70001I KC03MA9 LAST ACCESS AT 01:58:24 ON SUNDAY, APRIL 28, 2019
IEF236I ALLOC. FOR CALC1001 LKED STEP1
IEF237I A001 ALLOCATED TO SYSLIB
IEF237I A001 ALLOCATED TO
IEF237I JES2 ALLOCATED TO SYSPRINT
IGD103I SMS ALLOCATED TO DDNAME SYSLIN
IEF237I DMY ALLOCATED TO
IGD101I SMS ALLOCATED TO DDNAME (SYSLMOD )
DSN (SYS19118.T020453.RA000.CALC1001.GOSET.H01 )
STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TEMP00
IGD101I SMS ALLOCATED TO DDNAME (SYSUT1 )
DSN (SYS19118.T020453.RA000.CALC1001.R0175191 )
STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TEMP00
IEF142I CALC1001 LKED STEP1 - STEP WAS EXECUTED - COND CODE 0000
IEF285I CEE.SCEELKED KEPT
IEF285I VOL SER NOS= Z1RES1.
IEF285I CEE.SCEELKEX KEPT
IEF285I VOL SER NOS= Z1RES1.
IEF285I KC03MA9.CALC1001.JOB01758.D0000103.? SYSOUT
IGD105I SYS19118.T020453.RA000.CALC1001.LOADSET.H01 DELETED, DDNAME=SYSLIN
IGD106I SYS19118.T020453.RA000.CALC1001.GOSET.H01 PASSED, DDNAME=SYSLMOD
IGD105I SYS19118.T020453.RA000.CALC1001.R0175191 DELETED, DDNAME=SYSUT1
IEF373I STEP/LKED /START 2019118.0204
IEF032I STEP/LKED /STOP 2019118.0204
CPU: 0 HR 00 MIN 00.01 SEC SRB: 0 HR 00 MIN 00.00 SEC
VIRT: 92K SYS: 296K EXT: 1640K SYS: 11644K
ATB- REAL: 0K SLOTS: 0K
VIRT- ALLOC: 0M SHRD: 0M
IEF236I ALLOC. FOR CALC1001 GO STEP1
IGD103I SMS ALLOCATED TO DDNAME PGM=*.DD
IEF237I A002 ALLOCATED TO STEPLIB
IEF237I A002 ALLOCATED TO
IEF237I JES2 ALLOCATED TO SYSPRINT
IEF237I JES2 ALLOCATED TO CEEDUMP
IEF237I JES2 ALLOCATED TO SYSUDUMP
IEF237I JES2 ALLOCATED TO SYSOUT
IEC130I SYSIN DD STATEMENT MISSING
IEF285I KC03MA9.CALC1001.JOB01758.D0000107.? SYSOUT
IEF472I CALC1001 GO STEP1 - COMPLETION CODE - SYSTEM=0C1 USER=0000 REASON=00000001
IGD104I SYS19118.T020453.RA000.CALC1001.GOSET.H01 RETAINED, DDNAME=PGM=*.DD
IEF285I CEE.SCEERUN KEPT
IEF285I VOL SER NOS= Z1RES2.
IEF285I CEE.SCEERUN2 KEPT
IEF285I VOL SER NOS= Z1RES2.
IEF285I KC03MA9.CALC1001.JOB01758.D0000104.? SYSOUT
IEF285I KC03MA9.CALC1001.JOB01758.D0000105.? SYSOUT
IEF285I KC03MA9.CALC1001.JOB01758.D0000106.? SYSOUT
IEF373I STEP/GO /START 2019118.0204
IEF032I STEP/GO /STOP 2019118.0204
CPU: 0 HR 00 MIN 00.01 SEC SRB: 0 HR 00 MIN 00.00 SEC
VIRT: 84K SYS: 300K EXT: 3828K SYS: 11708K
ATB- REAL: 0K SLOTS: 0K
VIRT- ALLOC: 0M SHRD: 0M
IGD103I SMS ALLOCATED TO DDNAME SYS00001
IGD104I SYS19118.T020454.RA000.CALC1001.R0175209 RETAINED, DDNAME=SYS00001
IGD105I SYS19118.T020453.RA000.CALC1001.GOSET.H01 DELETED, DDNAME=SYSLMOD
IEF375I JOB/CALC1001/START 2019118.0204
IEF033I JOB/CALC1001/STOP 2019118.0204
CPU: 0 HR 00 MIN 00.05 SEC SRB: 0 HR 00 MIN 00.00 SEC
1z/OS V2 R1 BINDER 02:04:54 SUNDAY APRIL 28, 2019
BATCH EMULATOR JOB(CALC1001) STEP(STEP1 ) PGM= IEWBLINK PROCEDURE(LKED )
ALIASES NO
ALIGN2 NO
AMODE UNSPECIFIED
CALL YES
CASE UPPER
COMPAT UNSPECIFIED
COMPRESS AUTO
DCBS NO
DYNAM NO
EXTATTR UNSPECIFIED
EXITS: NONE
FILL NONE
GID UNSPECIFIED
HOBSET NO
INFO NO
LET 04
LINECT 060
LIST SUMMARY
LISTPRIV NO
LONGPARM NO
MAP NO
MAXBLK 032760
MODMAP NO
MSGLEVEL 00
OVLY NO
PRINT YES
RES NO
REUSABILITY UNSPECIFIED
RMODE UNSPECIFIED
SIGN NO
STORENX NOREPLACE
STRIPCL NO
STRIPSEC NO
SYMTRACE
TERM NO
TRAP ON
UID UNSPECIFIED
UPCASE NO
WKSPACE 000000K,000000K
XCAL NO
XREF NO
***END OF OPTIONS***
1SAVE OPERATION SUMMARY:
MEMBER NAME GO
LOAD LIBRARY SYS19118.T020453.RA000.CALC1001.GOSET.H01
PROGRAM TYPE PROGRAM OBJECT(FORMAT 3)
VOLUME SERIAL TEMP00
DISPOSITION ADDED NEW
TIME OF SAVE 02.04.54 APR 28, 2019
1SAVE MODULE ATTRIBUTES:
AC 000
AMODE 31
COMPRESSION NONE
DC NO
EDITABLE YES
EXCEEDS 16MB NO
EXECUTABLE YES
LONGPARM NO
MIGRATABLE NO
OL NO
OVLY NO
PACK,PRIME NO,NO
PAGE ALIGN NO
REFR NO
RENT NO
REUS NO
RMODE ANY
SCTR NO
SIGN NO
SSI
SYM GENERATED NO
TEST NO
XPLINK NO
MODULE SIZE (HEX) 00001880
DASD SIZE (HEX) 0000A000
1 ENTRY POINT AND ALIAS SUMMARY:
NAME: ENTRY TYPE AMODE C_OFFSET CLASS NAME STATUS
CALC1000 MAIN_EP 31 00000000 C_CODE
*** E N D O F O P E R A T I O N S U M M A R Y R E P O R T ***
1z/OS V2 R1 BINDER 02:04:54 SUNDAY APRIL 28, 2019
BATCH EMULATOR JOB(CALC1001) STEP(STEP1 ) PGM= IEWBLINK PROCEDURE(LKED )
IEW2008I 0F03 PROCESSING COMPLETED. RETURN CODE = 0.
1CEE3DMP V2 R1.0: Condition processing resulted in the unhandled condition. 04/28/19 2:04:54 AM
_________________________________
TO END PROGRAM ENTER 0.
TO CALCULATE SALES TAX, ENTER THE SALES AMOUNT.
IGZ0017S The open of DISPLAY or ACCEPT file with environment name SYSIN was unsuccessful.
CEE3201S The system detected an operation exception (System Completion Code=0C1).
From compile unit CALC1000 at entry point CALC1000 at compile unit offset +000002DC at entry offset +000002DC
at address 1ED002DC.
Re: Help with a JCL error
by enrico-sorichetti » Sun Apr 28, 2019 11:47 am
did You notice that the post with the data for the first run has beed edited to use the code tags ?
start using them
the mainframe data as You posted is unreadable
start using them
the mainframe data as You posted is unreadable
cheers
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort
- enrico-sorichetti
- Global moderator
- Posts: 3006
- Joined: Fri Apr 18, 2008 11:25 pm
- Has thanked: 0 time
- Been thanked: 165 times
-
- Related topics
- Replies
- Views
- Last post
-
- JCL Error CN(Internal) Error
by zeldabluess » Mon Sep 16, 2019 6:08 am - 5 Replies
- 3476 Views
- Last post by enrico-sorichetti
Mon Sep 16, 2019 2:05 pm
- JCL Error CN(Internal) Error
-
- JCL error
1, 2by Bjoern » Wed Nov 28, 2007 10:21 pm - 11 Replies
- 20026 Views
- Last post by dick scherrer
Fri Nov 30, 2007 10:27 pm
- JCL error
-
- JOB NOT RUN - JCL ERROR 020
by chasermf » Mon Jun 09, 2008 3:28 pm - 2 Replies
- 5860 Views
- Last post by Bill Dennis
Tue Jun 10, 2008 2:11 am
- JOB NOT RUN - JCL ERROR 020
-
- JCL ERROR
1, 2by raghuvanshi » Tue Feb 14, 2012 8:38 am - 10 Replies
- 9479 Views
- Last post by raghuvanshi
Thu Feb 16, 2012 7:28 am
- JCL ERROR
-
- Error Help
1, 2by JUSTINTOIT » Sun Oct 14, 2012 9:43 pm - 12 Replies
- 5657 Views
- Last post by NicC
Mon Oct 15, 2012 6:10 pm
- Error Help