Help with a JCL error



JES, JES2, JCL utilities, IDCAMS, Compile & Run JCLs, PROCs etc...

Help with a JCL error

Postby 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.
cwseay
 
Posts: 16
Joined: Thu Oct 05, 2017 8:28 am
Has thanked: 4 times
Been thanked: 0 time

Re: Help with a JCL error

 

Re: Help with a JCL error

Postby 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-sorichetti
Global moderator
 
Posts: 2880
Joined: Fri Apr 18, 2008 11:25 pm
Has thanked: 0 time
Been thanked: 153 times

Re: Help with a JCL error

Postby steve-myers » Sat Apr 27, 2019 3:54 pm

For anyone to help you, you must
  1. Show us the job you submitted
  2. 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.
You must understand that JCL is somewhat standardized. The job must be something like

//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: 2030
Joined: Thu Jun 03, 2010 6:21 pm
Has thanked: 4 times
Been thanked: 220 times

Re: Help with a JCL error

Postby 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
NicC
Global moderator
 
Posts: 2935
Joined: Sun Jul 04, 2010 12:13 am
Location: Pushing up the daisies (almost)
Has thanked: 4 times
Been thanked: 133 times

Re: Help with a JCL error

Postby 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:

//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
 

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

 

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
cwseay
 
Posts: 16
Joined: Thu Oct 05, 2017 8:28 am
Has thanked: 4 times
Been thanked: 0 time

Re: Help with a JCL error

Postby 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-sorichetti
Global moderator
 
Posts: 2880
Joined: Fri Apr 18, 2008 11:25 pm
Has thanked: 0 time
Been thanked: 153 times

Re: Help with a JCL error

Postby cwseay » Sun Apr 28, 2019 4:13 am

I found and fixed that, re-ran it and got this:

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------ 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.
 
cwseay
 
Posts: 16
Joined: Thu Oct 05, 2017 8:28 am
Has thanked: 4 times
Been thanked: 0 time

Re: Help with a JCL error

Postby Robert Sample » Sun Apr 28, 2019 5:18 am

IEW2606S 4B39 MODULE INCORPORATES VERSION 3 PROGRAM OBJECT FEATURES AND CANNOT BE SAVED IN LOAD MODULE FORMAT.
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.
Robert Sample
Global moderator
 
Posts: 3615
Joined: Sat Dec 19, 2009 8:32 pm
Location: Dubuque, Iowa, USA
Has thanked: 1 time
Been thanked: 266 times

Re: Help with a JCL error

Postby 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.
 
cwseay
 
Posts: 16
Joined: Thu Oct 05, 2017 8:28 am
Has thanked: 4 times
Been thanked: 0 time

Re: Help with a JCL error

Postby 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
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-sorichetti
Global moderator
 
Posts: 2880
Joined: Fri Apr 18, 2008 11:25 pm
Has thanked: 0 time
Been thanked: 153 times

Next

Return to JCL

 


  • Related topics
    Replies
    Views
    Last post