Problème de compilation CICS

[a_karim_fr]

Bonjour,

J'ai un simple programme en CICS et je veux complier ce programme mais j'ai un Erreur qui dit :

An "EXEC CICS" statement was found, but the "CICS" compiler option was not in effect.

Voila mon programme

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
ID DIVISION.
PROGRAM-ID. EXEMPLE.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 out-msg.
02 filler pic x(20) value 'vous avez entrés'.
02 msg pic x(20).
01 inp-msg pic x(20) value 'entré un message'.
PROCEDURE DIVISION.
para1.
exec cics send from(inp-msg) erase end-exec.
exec cics receive into(msg) end-exec.
exec cics send from(out-msg) erase end-exec.

[Homer-ac]

Bonjour,
Ce message est lié au fait que le JCL de compilation n'est pas le bon. Il faut te renseigner auprès de tes collègues. Un programme CICS se compile après un step de précompilation ou à présent avec Enterprise Cobol, directement dans le compilateur IGYCRCTL, mais en activement le coprocesseur CICS dans les paramètres de compilation. C'est pourquoi le compilateur reconnait les EXEC CICS. Ils ne sont pas traduit en CALL à défaut de précompilation CICS mais le coprocesseur CICS n'est pas activé dans les paramètres de compile.
Il y nécessairement une procédure de compilation adaptée qui existe en fonction des standards de compilation mis en oeuvre sur ton site.

[a_karim_fr]

Bonjour,

Merci pour la réponse, mais personne de mes collèges connaisse le CICS mais voila mon JCL :

Code :

1
2
3
//COMPIL     EXEC COBLECL EXEMPLE
//COB1.SYSIN   DD DISP=SHR,DSN=TEST.LA123.PGM(EXEMPLE)
//LKED.SYSLMOD DD DISP=SHR,DSN=TEST.LA123.LOAD(EXEMPLE)

Mais comment activer le CICS, je peux avoir un simple exemple de JCL pour la base car je travail que sur les programme Cobol pas CICS

[Homer-ac]

Recherche en proclib ta proc COBLECL, c'est visiblement pour des compiles Batch, avec un peu de chance tu devrais en avoir une autre préfixée par COB pour CICS

[a_karim_fr]

Bonjour,

Merci beaucoup Humer-ac pour ton aide .
Est-ce que je peux savoir les étapes a suivre pour exécuter un programme CICS, car avec un JCL simple d'exécution.

j'ai exécuté avec ce JCL

Code :

1
2
3
4
5
6
//JOBLIB   DD   DSN=TEST.LA123.LOAD,DISP=SHR
//RB10     EXEC PGM=EXEMPLE,TIME=1
//SYSOUT   DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *

mais le MAX-RC = ABEND S0C1

et quand je passe par call pds(nom du programme) j'ai ce message :

Code :

1
2
3
4
5
6
7
8
9
10
CEE3201S The system detected an operation exception (System Completion Code=0C1
).
          From compile unit EXEMPLE at entry point EXEMPLE at compile unit offse
t -2BC8BCE0 at entry offset -2BC8BCE0
          at address 00000000.
          Possible Bad Branch:  Statement:   Offset: -FFFFFFF4
 <> LEAID ENTERED (LEVEL 01/29/2008 AT 15.20)
 <> LEAID PROCESSING COMPLETE. RC=0
 Abend 0C1000 hex occurred processing command 'CALL    '.
 ISPD210  CMD abended - 'CALL' terminated abnormally.

en AS-400 c'est facile a exécuter mais en Z/OS est ce que avec une commande ou par une JCL