Bonjour,
J'ai un simple programme en CICS et je veux complier ce programme mais j'ai un Erreur qui dit :
Voila mon programmeAn "EXEC CICS" statement was found, but the "CICS" compiler option was not in effect.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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.
Partager