Archives par mot-clé : EIBRESP

EIBRESP

Contient un numéro correspondant à la condition RESP rencontrée. ces numéros sont listés dans le tableau suivant (en valeur décimale) sur la première colonne. La seconde colonne indique la condition rencontrée.

Voir aussi les options RESP, RESP2 et la fonction DFHRESP

Format: PIC S9(8) COMP.

CODECONDITION
00NORMAL
01ERROR
02RDATT
03WRBRK
04EOF
05EODS
06EOC
07INBFMH
08ENDINPT
09NONVAL
10NOSTART
11TERMIDERR
12FILENOTFOUND ou DSIDERR
13NOTFND
14DUPREC
15DUPKEY
16INVREQ
17IOERR
18NOSPACE
19NOTOPEN
20ENDFILE
21ILLOGIC
22LENGERR
23QZERO
24SIGNAL
25QBUSY
26ITEMERR
27PGMIDERR
28TRANSIDERR
29ENDDATA
30INVTSREQ
31EXPIRED
32RETPAGE
33RTEFAIL
34RTESOME
35TSIOERR
36MAPFAIL
37INVERRTERM
38INVMPSZ
39IGREQID
40OVERFLOW
41INVLDC
42NOSTG
43JIDERR
44QIDERR
45NOJBUFSP
46DSSTAT
47SELNERR
48FUNCERR
49UNEXPIN
50NOPASSBKRD
51NOPASSBKWR
53SYSIDERR
54ISCINVREQ
55ENQBUSY
56ENVDEFERR
57IGREQCD
58SESSIONERR
59SYSBUSY
60SESSBUSY
61NOTALLOC
62CBIDERR
63INVEXITREQ
64INVPARTNSET
65INVPARTN
66PARTNFAIL
69USERIDERR
70NOTAUTH
72SUPPRESSED
73WRONGSTAT
74NAMEERROR
76CCERROR
77MAPERROR
80NOSPOOL
81TERMERR
82ROLLEDBACK
83END
84DISABLED
85ALLOCERR
86STRELERR
87OPENERR
88SPOLBUSY
89SPOLERR
94LOADING

Exemple: utilisation de la zone EIBRESP sur une commande RECEIVE MAP

WORKING-STORAGE SECTION.
01 CODE-RETOUR PIC S9(8) COMP.

PROCEDURE DIVISION.

EXEC CICS RECEIVE
   MAP(NOM-MAP)
   MAPSET(NOM-MAPSET)
   INTO(ZONE-MAP)
END-EXEC

IF EIBRESP = DFHRESP(MAPFAIL)
  GO TO RESTAURER-ECRAN
END-IF

IF EIBRESP NOT = DFHRESP(NORMAL)
  GO TO AUTRES-ERREURS
END-IF