Erreur de compilation cobol avec JCL IGYWCL

Bonjour,

J'ai besoin d'aide et je trouve aucun appui, j’espère que je pourrai trouvez un expert qui accepte de m’aiguiller. Quand j'essaie de compiler avec script JCL j'ai ce message d'erreur :

Code:

---

03.33.09 JOB01003 $HASP165 IBMUSERJ ENDED AT N1 - JCL ERROR CN(INTERNAL)

---

Mon script semble bon ou il y a une erreur que j'ai pas vu.

Code:

---

1 2 3 4 5 6

//IBMUSERJ JOB 'COMPIL',REGION=1M,NOTIFY=&SYSUID //COMPIL EXEC IGYWCL //COBOL.SYSIN DD DSN=IBMUSER.LIB.COBOL(TEMPLATE),DISP=SHR //LKED.SYSLMOD DD DSN=IBMUSER.LIB.LOAD(TEMPLATE),DISP=OLD //RUN EXEC PGM=TEMPLATE //STEPLIB DD DSN=IBMUSER.LIB.LOAD(TEMPLATE),DISP=SHR

---

Je ne vois pas mon erreur dans mes log.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94

03.33.08 JOB01003 ---- SATURDAY, 09 FEB 2019 ---- 03.33.08 JOB01003 IRR010I USERID IBMUSER IS ASSIGNED TO THIS JOB. 03.33.09 JOB01003 IEF677I WARNING MESSAGE(S) FOR JOB IBMUSERJ ISSUED 03.33.09 JOB01003 ICH70001I IBMUSER LAST ACCESS AT 03:28:55 ON SATURDAY, FEBRU 03.33.09 JOB01003 $HASP373 IBMUSERJ STARTED - INIT 1 - CLASS A - SYS SYS1 03.33.09 JOB01003 IEF403I IBMUSERJ - STARTED - TIME=03.33.09 03.33.09 JOB01003 IEF453I IBMUSERJ - JOB FAILED - JCL ERROR - TIME=03.33.09 03.33.09 JOB01003 $HASP395 IBMUSERJ ENDED ------ JES2 JOB STATISTICS ------ 09 FEB 2019 JOB EXECUTION DATE 6 CARDS READ 96 SYSOUT PRINT RECORDS 0 SYSOUT PUNCH RECORDS 8 SYSOUT SPOOL KBYTES 0.00 MINUTES EXECUTION TIME 1 //IBMUSERJ JOB 'COMPIL',REGION=1M,NOTIFY=&SYSUID IEFC653I SUBSTITUTION JCL - 'COMPIL',REGION=1M,NOTIFY=IBMUSER 2 //COMPIL EXEC IGYWCL 3 XXIGYWCL PROC LNGPRFX='IGY.V4R1M0',SYSLBLK=3200, XX LIBPRFX='CEE', XX PGMLIB='&&GOSET',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 AND LINK EDIT A COBOL PROGRAM XX* XX* PARAMETER DEFAULT VALUE USAGE XX* LNGPRFX IGY.V4R1M0 PREFIX FOR LANGUAGE DATA SET NAMES XX* SYSLBLK 3200 BLOCKSIZE FOR OBJECT DATA SET XX* LIBPRFX CEE PREFIX FOR LIBRARY DATA SET NAMES XX* PGMLIB &&GOSET DATA SET NAME FOR LOAD MODULE 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* 4 XXCOBOL EXEC PGM=IGYCRCTL,REGION=0M 5 XXSTEPLIB DD DSNAME=&LNGPRFX..SIGYCOMP, XX DISP=SHR IEFC653I SUBSTITUTION JCL - DSNAME=IGY.V4R1M0.SIGYCOMP,DISP=SHR 6 XXSYSPRINT DD SYSOUT=* 7 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=(MOD,P DCB=(BLKSIZE=3200) 8 XXSYSUT1 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 9 XXSYSUT2 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 10 XXSYSUT3 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 11 XXSYSUT4 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 12 XXSYSUT5 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 13 XXSYSUT6 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 14 XXSYSUT7 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 15 //COBOL.SYSIN DD DSN=IBMUSER.LIB.COBOL(TEMPLATE),DISP=SHR 16 XXLKED EXEC PGM=HEWL,COND=(8,LT,COBOL),REGION=0M 17 XXSYSLIB DD DSNAME=&LIBPRFX..SCEELKED, XX DISP=SHR IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEELKED,DISP=SHR 18 XXSYSPRINT DD SYSOUT=* 19 XXSYSLIN DD DSNAME=&&LOADSET,DISP=(OLD,DELETE) 20 XX DD DDNAME=SYSIN 21 //LKED.SYSLMOD DD DSN=IBMUSER.LIB.LOAD(TEMPLATE),DISP=OLD X/SYSLMOD DD DSNAME=&PGMLIB(&GOPGM), X/ SPACE=(TRK,(10,10,1)), X/ UNIT=SYSALLDA,DISP=(MOD,PASS) IEFC653I SUBSTITUTION JCL - DSNAME=&&GOSET(GO),SPACE=(TRK,(10,10,1)),U 22 XXSYSUT1 DD UNIT=SYSALLDA,SPACE=(TRK,(10,10)) 23 //RUN EXEC PGM=TEMPLATE 24 //STEPLIB DD DSN=IBMUSER.LIB.LOAD(TEMPLATE),DISP=SHR STMT NO. MESSAGE 2 IEFC001I PROCEDURE IGYWCL WAS EXPANDED USING SYSTEM LIBRARY ADCD.Z110. 23 IEF686I DDNAME REFERRED TO ON DDNAME KEYWORD IN PRIOR STEP WAS NOT RESOLVED ICH70001I IBMUSER LAST ACCESS AT 03:28:55 ON SATURDAY, FEBRUARY 9, 2019 IEF212I IBMUSERJ COBOL COMPIL STEPLIB - DATA SET NOT FOUND IEF272I IBMUSERJ COBOL COMPIL - STEP WAS NOT EXECUTED. IEF373I STEP/COBOL /START 2019040.0333 IEF374I STEP/COBOL /STOP 2019040.0333 CPU 0MIN 00.00SEC SRB 0MIN 00.00S IEF375I JOB/IBMUSERJ/START 2019040.0333 IEF376I JOB/IBMUSERJ/STOP 2019040.0333 CPU 0MIN 00.00SEC SRB 0MIN 00.00S

---

Tout est là :
IEF212I IBMUSERJ COBOL COMPIL STEPLIB - DATA SET NOT FOUND

Merci, en effet en créant le data set j'ai un maxcc de 0.

Code:

---

08.49.41 JOB01074 $HASP165 IBMUSERJ ENDED AT N1 MAXCC=0 CN(INTERNAL)

---

Le souci de mon nouveau script JCL, c'est qu'il me créait pas le fichier.

Code:

---

1 2 3 4 5 6 7

//IBMUSERJ JOB 'COMPIL',REGION=1M,NOTIFY=&SYSUID //COMPIL EXEC IGYWCL //STEPLIB DD DSN=IBMUSER.COBOL.COMPIL,DISP=SHR //COBOL.SYSIN DD DSN=IBMUSER.LIB.COBOL(TEMPLATE),DISP=SHR //SYSPRINT DD SYSOUT=* //SYSOUT DD SYSOUT=*,OUTLIM=100

---

Du coup mon jcl d'exécution ne trouve pas mon fichier

Code:

---

08.55.02 JOB01075 $HASP165 IBMUSERJ ENDED AT N1 - ABENDED S806 U0000 CN(INTERNA

---

Je m'excuse de mon ignorance, je n'ai pas été former à Z/OS mais juste au développement de COBOL.

Code:

---

1 2 3 4 5

//IBMUSERJ JOB 'EXECUTE','JULIEN',NOTIFY=&SYSUID //STEP1 EXEC PGM=TEMPLATE,TIME=(,1) //STEPLIB DD DSN=IBMUSERJ.COBOL.COMPIL(TEMPLATE),DISP=SHR //SYSPRINT DD SYSOUT=* //SYSOUT DD SYSOUT=*,OUTLIM=100

---

C'est difficile de vous aider sans avoir tous les éléments.

Plusieurs remarques ou questions :
1) que dit la JOB LOG sur votre dernier essai ?
2) j'ai l'impression que vous appelez la procédure sans lui fournir tous les paramètres
3) vous compilez en version 4, est ce normal ?
4) personne ne peut vous aider sur le site où vous êtes ?

Je suis du même avis que Luc Orient et j'ajoute que sur tous les sites Z/OS il y a des procédures de compilation installées. Vous n'avez pas à vous préoccuper de ce type de contingences, il y a des équipes consacrées, en interne ou en régie, peu importe, mais elles existent. Interrogez vos collègues, ils vous communiqueront un nom de service à contacter ;)

Moi j'aurais compilé ainsi :

Code:

---

1 2 3 4 5

//* //*ENTERPRISE COBOL ==>> COMPILATION ET LINK // EXEC IGYWCL,PGMLIB='IBMUSER.LIB.LOAD', // GOPGM=TEMPLATE //COBOL.SYSIN DD DISP=SHR,DSN=IBMUSER.LIB.COBOL(TEMPLATE)

---