Page 2 of 2

Re: Cics webservices

PostPosted: Tue Dec 11, 2007 6:43 pm
by Bjoern
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).
  STMT NO. MESSAGE                                                             
         2 IEFC001I PROCEDURE COBCICS WAS EXPANDED USING SYSTEM LIBRARY USER.PROCLIB


Thanks for help.
Regards
Björn

Re: Cics webservices

PostPosted: Wed Dec 12, 2007 5:18 am
by dick scherrer
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).

Re: Cics webservices

PostPosted: Wed Dec 12, 2007 5:32 pm
by Bjoern
Hi,
sorry, I don't know where is the end of the compile. I'll post the whole output message.

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

Re: Cics webservices

PostPosted: Thu Dec 13, 2007 2:19 am
by dick scherrer
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.

Re: Cics webservices

PostPosted: Thu Dec 13, 2007 5:21 am
by Bjoern
Hi Dick,
and where? Over the ISPF Primary Option Menu or over the editor?

Regards,
Björn

Re: Cics webservices

PostPosted: Fri Dec 14, 2007 3:24 am
by dick scherrer
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.

Re: Cics webservices

PostPosted: Fri Dec 14, 2007 1:57 pm
by Bjoern
Hi Dick,
thanks for help. The catchword was "SDSF".

Regards
Björn

Re: Cics webservices

PostPosted: Sat Dec 15, 2007 12:46 am
by dick scherrer
You're welcome :)

Good to hear that progress is being made.

d