probleme de compilation

  • ouaid
    ouaid

    le 11/01/2016 à 12:53 Citer ce message

    Salut, je dois compiler mes programmes COBOL dans z / OS sous hercules
    Probleme de compilation avec IGYWCLG :
    mon JCL :

    //PGMINJCL JOB 'COBOL PGM SUM',CLASS=A,

    // MSGLEVEL=(1,1),MSGCLASS=H,NOTIFY=&SYSUID

    //********************************************

    //* THIS STEP COMPILES, LINK-EDIT RUN COBOL *

    //********************************************

    //STEP05 EXEC IGYWCLG

    //SYSPRINT DD SYSOUT=*

    //SYSOUT DD SYSOUT=*

    //COBOL.SYSIN DD DSN=MQLFESS.DATA.PGM(PGMSUM01),DISP=SHR

    //

    mais toujours obtenir l'erreur suivante:
    ---------------------------------------------------------------------------------------
    2 IEFC001I PROCEDURE IGYWCLG WAS EXPANDED USING SYSTEM LIBRARY ADCD.Z110.PROCLIB

    Merci d'avance
  • Likeable
    Likeable

    le 18/01/2016 à 21:59 Citer ce message

    Bonjour ce n'est pas un message d'erreur cela, mettez tout le compte rendu de votre sysout de job et je pourrais vous dire où est le problème

    sinon je ne peux rien pour vous.
  • Julien
    Julien

    le 03/02/2019 à 23:20 Citer ce message

    Bonjour, j'ai le même problème que lui !

    -------------------------------------------------------------------------------
    SDSF OUTPUT DISPLAY IBMUSERA JOB00799 DSID 2 LINE 0 COLUMNS 02- 81
    COMMAND INPUT ===> SCROLL ===> CSR
    ********************************* TOP OF DATA **********************************
    J E S 2 J O B L O G -- S Y S T E M S Y S 1 -- N

    06.06.08 JOB00799 ---- MONDAY, 04 FEB 2019 ----
    06.06.08 JOB00799 IRR010I USERID IBMUSER IS ASSIGNED TO THIS JOB.
    06.06.08 JOB00799 IEFC452I IBMUSERA - JOB NOT RUN - JCL ERROR 151
    ------ JES2 JOB STATISTICS ------
    7 CARDS READ
    89 SYSOUT PRINT RECORDS
    0 SYSOUT PUNCH RECORDS
    7 SYSOUT SPOOL KBYTES
    0.00 MINUTES EXECUTION TIME
    1 //IBMUSERA JOB 'COMPIL','JULIEN',MSGLEVEL=(1,1),MSGCLASS=A,CLASS=A
    2 // NOTIFY=&SYSUID
    3 //COMPIL EXEC IGYWCLG,REGION=OM
    4 XXIGYWCLG PROC LNGPRFX='IGY.V4R1M0',SYSLBLK=3200,
    XX LIBPRFX='CEE',GOPGM=GO
    XX*
    XX********************************************************************
    XX*
    XX* Enterprise COBOL for z/OS
    XX* Version 4 Release 1 Modification 0
    XX*
    XX* LICENSED MATERIALS - PROPERTY OF IBM.
    XX*
    XX* 5655-S71 COPYRIGHT IBM CORP. 1991, 2007
    XX* ALL RIGHTS RESERVED
    XX*
    XX* US GOVERNMENT USERS RESTRICTED RIGHTS - USE,
    XX* DUPLICATION OR DISCLOSURE RESTRICTED BY GSA
    XX* ADP SCHEDULE CONTRACT WITH IBM CORP.
    XX*
    XX********************************************************************
    XX*
    XX* COMPILE, LINK EDIT AND RUN A COBOL PROGRAM
    XX*
    XX* PARAMETER DEFAULT VALUE USAGE
    XX* LNGPRFX IGY.V4R1M0 PREFIX FOR LANGUAGE DATA SET NAMES
    XX* SYSLBLK 3200 BLKSIZE FOR OBJECT DATA SET
    XX* LIBPRFX CEE PREFIX FOR LIBRARY DATA SET NAMES
    XX* GOPGM GO MEMBER NAME FOR LOAD MODULE
    XX*
    XX* CALLER MUST SUPPLY //COBOL.SYSIN DD ...
    XX*
    XX* CALLER MUST ALSO SUPPLY //COBOL.SYSLIB DD ... for COPY statements
    XX*
    5 XXCOBOL EXEC PGM=IGYCRCTL,REGION=0M
    6 XXSTEPLIB DD DSNAME=&LNGPRFX..SIGYCOMP,
    XX DISP=SHR
    IEFC653I SUBSTITUTION JCL - DSNAME=IGY.V4R1M0.SIGYCOMP,DISP=SHR
    7 XXSYSPRINT DD SYSOUT=*
    8 XXSYSLIN DD DSNAME=&&LOADSET,UNIT=SYSALLDA,
    XX DISP=(MOD,PASS),SPACE=(TRK,(3,3)),
    XX DCB=(BLKSIZE=&SYSLBLK)
    IEFC653I SUBSTITUTION JCL - DSNAME=&&LOADSET,UNIT=SYSALLDA,DISP=(MODDISP=(MOD,PASS),SPACE=(TRK,(3,3)),
    DCB=(BLKSIZE=3200)
    9 XXSYSUT1 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
    10 XXSYSUT2 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
    11 XXSYSUT3 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
    12 XXSYSUT4 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
    13 XXSYSUT5 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
    14 XXSYSUT6 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
    15 XXSYSUT7 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
    16 //COBOL.SYSIN DD DSN=IBMUSER.LIB.COBOL(TEMPLATE),DISP=SHR
    17 XXLKED EXEC PGM=HEWL,COND=(8,LT,COBOL),REGION=0M
    18 XXSYSLIB DD DSNAME=&LIBPRFX..SCEELKED,
    XX DISP=SHR
    IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEELKED,DISP=SHR
    19 //SYSPRINT DD SYSOUT=*
    X/SYSPRINT DD SYSOUT=*
    STMT NO. MESSAGE
    2 IEFC605I UNIDENTIFIED OPERATION FIELD
    3 IEFC001I PROCEDURE IGYWCLG WAS EXPANDED USING SYSTEM LIBRARY ADCD.Z110.PROCLIB


    Pourriez vous m'aidez s'il vous plait ?

    Voici mon script JCL :

    //IBMUSER JOB 'COMPIL','JULIEN',MSGLEVEL=(1,1),MSGCLASS=A,CLASS=A
    // NOTIFY=&SYSUID
    //COMPIL EXEC IGYWCLG,REGION=OM
    //COBOL.SYSIN DD DSN=IBMUSER.LIB.COBOL(TEMPLATE),DISP=SHR
    //LKED.SYSLMOD DD DSN=IBMUSER.LIB.LOAD(TEMPLATE),DISP=SHR
    //SYSPRINT DD SYSOUT=*
    //SYSOUT DD SYSOUT=*


    Merci.
  • Likeable
    Likeable

    le 04/03/2019 à 06:28 Citer ce message

    Bonjour,

    Avec un peu d'habitude et d'attention, vous pouvez voir que vous avez ce message d'erreur :

    2 IEFC605I UNIDENTIFIED OPERATION FIELD

    et si vous allez à la ligne 2 (de la sysout, pas du jcl d'origine ! ), vous constatez

    1 //IBMUSERA JOB 'COMPIL','JULIEN',MSGLEVEL=(1,1),MSGCLASS=A,CLASS=A
    2 // NOTIFY=&SYSUID

    Il manque une virgule à la fin de la ligne 1, c'est pour cela que la suite de la carte job n'est pas comprise (ligne 2 ! )

Répondre à ce message

Aperçu