IBM Mainframe Forum

by **Bjoern** » Tue Dec 11, 2007 6:43 pm

Hi,
I have simplify my cobol program. Now I get the condition code 8. I don't feel confident, wether I see in the right job output message to see the cobol errors.

I have found this part from the job output message (JES Job Statistic).

Select all

STMT NO. MESSAGE
2 IEFC001I PROCEDURE COBCICS WAS EXPANDED USING SYSTEM LIBRARY USER.PROCLIB

Thanks for help.
Regards
BjÃ¶rn

by **dick scherrer** » Wed Dec 12, 2007 5:18 am

Hello,

That message is normal.

There is something in the code that is causing the 8.

There will be one or more disgnostic messages in the compilere output.

If you post the messages at the end of the compile, we should be able to clarify the error(s).

by **Bjoern** » Wed Dec 12, 2007 5:32 pm

Hi,
sorry, I don't know where is the end of the compile. I'll post the whole output message.

Select all

********************************* Top of Data **********************************
1 J E S 2 J O B L O G -- S Y S T E M S Y S 1 -- N
0
14.55.53 JOB04082 ---- TUESDAY, 11 DEC 2007 ----
14.55.53 JOB04082 IRR010I USERID USERID2 IS ASSIGNED TO THIS JOB.
14.55.53 JOB04082 ICH70001I USERID2 LAST ACCESS AT 14:49:02 ON TUESDAY, DECEM
14.55.53 JOB04082 $HASP373 USERID2C STARTED - INIT 1 - CLASS A - SYS SYS1
14.55.54 JOB04082 $HASP395 USERID2C ENDED
0------ JES2 JOB STATISTICS ------
- 11 DEC 2007 JOB EXECUTION DATE
- 8 CARDS READ
- 611 SYSOUT PRINT RECORDS
- 0 SYSOUT PUNCH RECORDS
- 43 SYSOUT SPOOL KBYTES
- 0.01 MINUTES EXECUTION TIME
1 //USERID2C JOB (),CLASS=A,MSGCLASS=M,MSGLEVEL=(1,1),NOTIFY=&SYSUID,
// REGION=4M
IEFC653I SUBSTITUTION JCL - (),CLASS=A,MSGCLASS=M,MSGLEVEL=(1,1),NOTIF
2 //STEP1 EXEC COBCICS,PARM.TRN='COBOL3'
XX********************************************************************
XX*
XX* Prozedur DFHYITVL aus CICSTS23.CICS.SDFHPROC
XX* Aenderungen sind mit (###) gekennzeichnet
XX*
XX********************************************************************
XX********************************************************************
XX*
XX* @BANNER_START 01
XX* Licensed Materials - Property of IBM
XX*
XX* 5697-E93
XX*
XX* (C) Copyright IBM Corp. 1994, 2003
XX*
XX* CICS
XX* (Element of CICS Transaction Server
XX* for z/OS, Version 2 Release 3)
XX* @BANNER_END
XX*
XX* STATUS = 6.3.0
XX*
XX* CHANGE ACTIVITY :
XX*
XX* $MOD(DFHYITVL),COMP(SYSGEN),PROD(CICS ):
XX*
XX* PN= REASON REL YYMMDD HDXXIII : REMARKS
XX* $L0= Base 410 94 HD3SCWG : Base
XX* $P1= D08934 630 030919 HD3SCWG : DFHEILID now in SDFHSAMP
XX*
XX********************************************************************
3 XXDFHYITVL PROC SUFFIX=1$, Suffix for translator module
XX INDEX='CICSTS23.CICS', Qualifier(s) for CICS libraries
XX* PROGLIB='CICSTS23.CICS.SDFHLOAD', Name o/p library@BA25137C (###)
XX PROGLIB='CICSTS23.CICS.PRAKLOAD', Name o/p library@BA25137C (###)
XX DSCTLIB='CICSTS23.CICS.SDFHCOB', Private macro/dsect@BA25137
XX DB2V='DSN710', Qualifier fuer DB2 V7.1.0 (###)
XX* AD370HLQ='SYS1', Qualifier(s) for AD/Cycle compiler (###)
XX AD370HLQ='IGY330', Qualifier(s) for AD/Cycle compiler (###)
XX* LE370HLQ='SYS1', Qualifier(s) for LE/370 libraries (###)
XX LE370HLQ='CEE', Qualifier(s) for LE/370 libraries (###)
XX OUTC=A, Class for print output
XX* REG=4M, Region size for all steps (###)
XX REG=0M, Region size for all steps (###)
XX LNKPARM='LIST,XREF', Link edit parameters
XX STUB='DFHEILID', Lked INC. for DFHELII @BA35295
XX LIB='SDFHSAMP', Library @BA35295
XX WORK=SYSDA Unit for work datasets
XX*
XX* This procedure contains 4 steps
XX* 1. Exec the COBOL translator
XX* (using the supplied suffix 1$)
XX* 2. Exec the COBOL compiler @BA35295
XX* 3. Reblock &LIB(&STUB) for use by the linkedit step@BA35295
XX* 4. Linkedit the output into dataset &PROGLIB
XX*
XX* The following JCL should be used
XX* to execute this procedure
XX*
XX* //APPLPROG EXEC DFHYITVL @BA35295
XX* //TRN.SYSIN DD *
XX* .
XX* . Application program
XX* .
XX* /*
XX* //LKED.SYSIN DD *
XX* NAME anyname(R)
XX* /*
XX*
XX* Where anyname is the name of your application program.
XX* (Refer to the system definition guide for full details,
XX* including what to do if your program contains calls to
XX* the common programming interface.)
XX*
4 XXTRN EXEC PGM=DFHECP&SUFFIX,
XX PARM='COBOL3', @BA35295
XX REGION=&REG
IEFC653I SUBSTITUTION JCL - PGM=DFHECP1$,PARM='COBOL3',REGION=0M
5 XXSTEPLIB DD DSN=&INDEX..SDFHLOAD,DISP=SHR
IEFC653I SUBSTITUTION JCL - DSN=CICSTS23.CICS.SDFHLOAD,DISP=SHR
6 XXSYSPRINT DD SYSOUT=&OUTC
IEFC653I SUBSTITUTION JCL - SYSOUT=A
7 XXSYSPUNCH DD DSN=&&SYSCIN,
XX DISP=(,PASS),UNIT=&WORK,
XX DCB=BLKSIZE=400,
XX SPACE=(400,(400,100))
XX*
IEFC653I SUBSTITUTION JCL - DSN=&&SYSCIN,DISP=(,PASS),UNIT=SYSDA,DCB=B
8 //TRN.SYSIN DD DSN=&SYSUID..CICS.COB(SQUARE1),DISP=SHR
IEFC653I SUBSTITUTION JCL - DSN=USERID2.CICS.COB(SQUARE1),DISP=SHR
9 XXCOB EXEC PGM=IGYCRCTL,REGION=&REG,
XX* PARM='NODYNAM,LIB,OBJECT,RENT,RES,APOST,MAP,XREF' (###)
XX PARM='NODYNAM,LIB,OBJECT,RENT,APOST,MAP,XREF' (###)
IEFC653I SUBSTITUTION JCL - PGM=IGYCRCTL,REGION=0M,PARM='NODYNAM,LIB,O
10 XXSTEPLIB DD DSN=&AD370HLQ..SIGYCOMP,DISP=SHR
IEFC653I SUBSTITUTION JCL - DSN=IGY330.SIGYCOMP,DISP=SHR
11 XXSYSLIB DD DSN=&DSCTLIB,DISP=SHR
IEFC653I SUBSTITUTION JCL - DSN=CICSTS23.CICS.SDFHCOB,DISP=SHR
12 XX DD DSN=&INDEX..SDFHCOB,DISP=SHR
IEFC653I SUBSTITUTION JCL - DSN=CICSTS23.CICS.SDFHCOB,DISP=SHR
13 XX DD DSN=&INDEX..SDFHMAC,DISP=SHR
IEFC653I SUBSTITUTION JCL - DSN=CICSTS23.CICS.SDFHMAC,DISP=SHR
14 XX DD DSN=&INDEX..SDFHSAMP,DISP=SHR
IEFC653I SUBSTITUTION JCL - DSN=CICSTS23.CICS.SDFHSAMP,DISP=SHR
15 XXSYSPRINT DD SYSOUT=&OUTC
IEFC653I SUBSTITUTION JCL - SYSOUT=A
16 XXSYSIN DD DSN=&&SYSCIN,DISP=(OLD,DELETE)
17 XXSYSLIN DD DSN=&&LOADSET,DISP=(MOD,PASS),
XX UNIT=&WORK,SPACE=(80,(250,100))
IEFC653I SUBSTITUTION JCL - DSN=&&LOADSET,DISP=(MOD,PASS),UNIT=SYSDA,S
18 XXSYSUT1 DD UNIT=&WORK,SPACE=(460,(350,100))
IEFC653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(460,(350,100))
19 XXSYSUT2 DD UNIT=&WORK,SPACE=(460,(350,100))
IEFC653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(460,(350,100))
20 XXSYSUT3 DD UNIT=&WORK,SPACE=(460,(350,100))
IEFC653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(460,(350,100))
21 XXSYSUT4 DD UNIT=&WORK,SPACE=(460,(350,100))
IEFC653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(460,(350,100))
22 XXSYSUT5 DD UNIT=&WORK,SPACE=(460,(350,100))
IEFC653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(460,(350,100))
23 XXSYSUT6 DD UNIT=&WORK,SPACE=(460,(350,100))
IEFC653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(460,(350,100))
24 XXSYSUT7 DD UNIT=&WORK,SPACE=(460,(350,100))
XX*
IEFC653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(460,(350,100))
25 XXCOPYLINK EXEC PGM=IEBGENER,COND=(7,LT,COB)
26 XXSYSUT1 DD DSN=&INDEX..&LIB(&STUB),DISP=SHR @BA35295
IEFC653I SUBSTITUTION JCL - DSN=CICSTS23.CICS.SDFHSAMP(DFHEILID),DISP=
27 XXSYSUT2 DD DSN=&&COPYLINK,DISP=(NEW,PASS),
XX DCB=(LRECL=80,BLKSIZE=400,RECFM=FB),
XX UNIT=&WORK,SPACE=(400,(20,20))
IEFC653I SUBSTITUTION JCL - DSN=&&COPYLINK,DISP=(NEW,PASS),DCB=(LRECL=
SPACE=(400,(20,20))
28 XXSYSPRINT DD SYSOUT=&OUTC
IEFC653I SUBSTITUTION JCL - SYSOUT=A
29 XXSYSIN DD DUMMY
XX*
30 XXLKED EXEC PGM=IEWL,REGION=&REG,
XX PARM='&LNKPARM',COND=(5,LT,COB)
IEFC653I SUBSTITUTION JCL - PGM=IEWL,REGION=0M,PARM='LIST,XREF',COND=(
31 XXSYSLIB DD DSN=&INDEX..SDFHLOAD,DISP=SHR
IEFC653I SUBSTITUTION JCL - DSN=CICSTS23.CICS.SDFHLOAD,DISP=SHR
32 XX DD DSN=&LE370HLQ..SCEELKED,DISP=SHR
IEFC653I SUBSTITUTION JCL - DSN=CEE.SCEELKED,DISP=SHR
33 XX DD DSN=&DB2V..SDSNLOAD,DISP=SHR (###)
IEFC653I SUBSTITUTION JCL - DSN=DSN710.SDSNLOAD,DISP=SHR
34 //LKED.SYSLMOD DD DSN=&SYSUID..CICS.LOAD,DISP=SHR
IEFC653I SUBSTITUTION JCL - DSN=USERID2.CICS.LOAD,DISP=SHR
X/SYSLMOD DD DSN=&PROGLIB,DISP=SHR
IEFC653I SUBSTITUTION JCL - DSN=CICSTS23.CICS.PRAKLOAD,DISP=SHR
35 XXSYSUT1 DD UNIT=&WORK,DCB=BLKSIZE=1024,
XX SPACE=(1024,(200,20))
IEFC653I SUBSTITUTION JCL - UNIT=SYSDA,DCB=BLKSIZE=1024,SPACE=(1024,(2
36 XXSYSPRINT DD SYSOUT=&OUTC
IEFC653I SUBSTITUTION JCL - SYSOUT=A
37 XXSYSLIN DD DSN=&&COPYLINK,DISP=(OLD,DELETE)
38 XX DD DSN=&&LOADSET,DISP=(OLD,DELETE)
39 XX DD DDNAME=SYSIN
40 //LKED.SYSIN DD *
STMT NO. MESSAGE
2 IEFC001I PROCEDURE COBCICS WAS EXPANDED USING SYSTEM LIBRARY USER.PRO
ICH70001I USERID2 LAST ACCESS AT 14:49:02 ON TUESDAY, DECEMBER 11, 2007
IEF236I ALLOC. FOR USERID2C TRN STEP1
IEF237I 5422 ALLOCATED TO STEPLIB
IEF237I JES2 ALLOCATED TO SYSPRINT
IGD101I SMS ALLOCATED TO DDNAME (SYSPUNCH)
DSN (SYS07345.T145553.RA000.USERID2C.SYSCIN.H01 )
STORCLAS (PRIM90) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= SMS001
IGD103I SMS ALLOCATED TO DDNAME SYSIN
IEF142I USERID2C TRN STEP1 - STEP WAS EXECUTED - COND CODE 0000
IEF285I CICSTS23.CICS.SDFHLOAD KEPT
IEF285I VOL SER NOS= Z5CIC1.
IEF285I USERID2.USERID2C.JOB04082.D0000102.? SYSOUT
IGD106I SYS07345.T145553.RA000.USERID2C.SYSCIN.H01 PASSED, DDNAME=SYSPUNCH
IGD104I USERID2.CICS.COB RETAINED, DDNAME=SYSIN
IEF373I STEP/TRN /START 2007345.1455
IEF374I STEP/TRN /STOP 2007345.1455 CPU 0MIN 00.02SEC SRB 0MIN 00.00
IEF236I ALLOC. FOR USERID2C COB STEP1
IEF237I 5418 ALLOCATED TO STEPLIB
IEF237I 5422 ALLOCATED TO SYSLIB
IEF237I 5422 ALLOCATED TO
IEF237I 5422 ALLOCATED TO
IEF237I 5422 ALLOCATED TO
IEF237I JES2 ALLOCATED TO SYSPRINT
IGD103I SMS ALLOCATED TO DDNAME SYSIN
IGD101I SMS ALLOCATED TO DDNAME (SYSLIN )
DSN (SYS07345.T145553.RA000.USERID2C.LOADSET.H01 )
STORCLAS (PRIM90) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= SMS003
IGD101I SMS ALLOCATED TO DDNAME (SYSUT1 )
DSN (SYS07345.T145553.RA000.USERID2C.R0106595 )
STORCLAS (PRIM90) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= SMS002
IGD101I SMS ALLOCATED TO DDNAME (SYSUT2 )
DSN (SYS07345.T145553.RA000.USERID2C.R0106596 )
STORCLAS (PRIM90) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= SMS004
IGD101I SMS ALLOCATED TO DDNAME (SYSUT3 )
DSN (SYS07345.T145553.RA000.USERID2C.R0106597 )
STORCLAS (PRIM90) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= SMS004
IGD101I SMS ALLOCATED TO DDNAME (SYSUT4 )
DSN (SYS07345.T145553.RA000.USERID2C.R0106598 )
STORCLAS (PRIM90) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= SMS001
IGD101I SMS ALLOCATED TO DDNAME (SYSUT5 )
DSN (SYS07345.T145553.RA000.USERID2C.R0106599 )
STORCLAS (PRIM90) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= SMS003
IGD101I SMS ALLOCATED TO DDNAME (SYSUT6 )
DSN (SYS07345.T145553.RA000.USERID2C.R0106600 )
STORCLAS (PRIM90) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= SMS001
IGD101I SMS ALLOCATED TO DDNAME (SYSUT7 )
DSN (SYS07345.T145553.RA000.USERID2C.R0106601 )
STORCLAS (PRIM90) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= SMS004
IEF142I USERID2C COB STEP1 - STEP WAS EXECUTED - COND CODE 0008
IEF285I IGY330.SIGYCOMP KEPT
IEF285I VOL SER NOS= Z5RES2.
IEF285I CICSTS23.CICS.SDFHCOB KEPT
IEF285I VOL SER NOS= Z5CIC1.
IEF285I CICSTS23.CICS.SDFHCOB KEPT
IEF285I VOL SER NOS= Z5CIC1.
IEF285I CICSTS23.CICS.SDFHMAC KEPT
IEF285I VOL SER NOS= Z5CIC1.
IEF285I CICSTS23.CICS.SDFHSAMP KEPT
IEF285I VOL SER NOS= Z5CIC1.
IEF285I USERID2.USERID2C.JOB04082.D0000103.? SYSOUT
IGD105I SYS07345.T145553.RA000.USERID2C.SYSCIN.H01 DELETED, DDNAME=SYSIN
IGD106I SYS07345.T145553.RA000.USERID2C.LOADSET.H01 PASSED, DDNAME=SYSLIN
IGD105I SYS07345.T145553.RA000.USERID2C.R0106595 DELETED, DDNAME=SYSUT1
IGD105I SYS07345.T145553.RA000.USERID2C.R0106596 DELETED, DDNAME=SYSUT2
IGD105I SYS07345.T145553.RA000.USERID2C.R0106597 DELETED, DDNAME=SYSUT3
IGD105I SYS07345.T145553.RA000.USERID2C.R0106598 DELETED, DDNAME=SYSUT4
IGD105I SYS07345.T145553.RA000.USERID2C.R0106599 DELETED, DDNAME=SYSUT5
IGD105I SYS07345.T145553.RA000.USERID2C.R0106600 DELETED, DDNAME=SYSUT6
IGD105I SYS07345.T145553.RA000.USERID2C.R0106601 DELETED, DDNAME=SYSUT7
IEF373I STEP/COB /START 2007345.1455
IEF374I STEP/COB /STOP 2007345.1455 CPU 0MIN 00.05SEC SRB 0MIN 00.00
IEF202I USERID2C COPYLINK STEP1 - STEP WAS NOT RUN BECAUSE OF CONDITION CODES
IEF272I USERID2C COPYLINK STEP1 - STEP WAS NOT EXECUTED.
IEF373I STEP/COPYLINK/START 2007345.1455
IEF374I STEP/COPYLINK/STOP 2007345.1455 CPU 0MIN 00.00SEC SRB 0MIN 00.00
IEF202I USERID2C LKED STEP1 - STEP WAS NOT RUN BECAUSE OF CONDITION CODES
IEF272I USERID2C LKED STEP1 - STEP WAS NOT EXECUTED.
IEF373I STEP/LKED /START 2007345.1455
IEF374I STEP/LKED /STOP 2007345.1455 CPU 0MIN 00.00SEC SRB 0MIN 00.00
IEF237I 5438 ALLOCATED TO SYS00001
IEF285I SYS07345.T145554.RA000.USERID2C.R0106603 KEPT
IEF285I VOL SER NOS= SMS003.
IGD105I SYS07345.T145553.RA000.USERID2C.LOADSET.H01 DELETED, DDNAME=SYSLIN
IEF375I JOB/USERID2C/START 2007345.1455
IEF376I JOB/USERID2C/STOP 2007345.1455 CPU 0MIN 00.07SEC SRB 0MIN 00.00
******************************** Bottom of Data ********************************

Sorry for that and thanks for your patience with me.

Regards
BjÃ¶rn

by **dick scherrer** » Thu Dec 13, 2007 2:19 am

Hi Bjorn,

The info you posted is part of the compile/link job.

The error(s) are not in these outputs. There is other output (from the actual compile step and/or the link edit step) that contains the error info we are looking for.

by **Bjoern** » Thu Dec 13, 2007 5:21 am

Hi Dick,
and where? Over the ISPF Primary Option Menu or over the editor?

Regards,
BjÃ¶rn

by **dick scherrer** » Fri Dec 14, 2007 3:24 am

Hi Bjorn,

Over the ISPF Primary Option Menu or over the editor?

When you submit a batch job, the "printed" output is placed in the JES spool.

To look at entries in the spool, you could use SDSF (which is usually one of the ISPF menu selections).

If they haven't shown you how to look at "your" output, you should talk with the system support or possibly the scheduling or computer operations people and learn how to look at output online.

by **Bjoern** » Fri Dec 14, 2007 1:57 pm

Hi Dick,
thanks for help. The catchword was "SDSF".

Regards
BjÃ¶rn

by **dick scherrer** » Sat Dec 15, 2007 12:46 am

You're welcome

Good to hear that progress is being made.

d

IBM Mainframe Forum

Cics webservices

Re: Cics webservices

Re: Cics webservices

Re: Cics webservices

Re: Cics webservices

Re: Cics webservices

Re: Cics webservices

Re: Cics webservices

Re: Cics webservices