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