An IBM extension allows the CALL and CANCEL statement identifier to be
an alphabetic data item. However, alphanumeric-edited items are not allowed;
therefore, any
CMPR2 programs
with alphabetic items defined with the symbol B will get a severe error message.
For example, the following program would have worked with
CMPR2,
but will now get a severe error message:
01 CALLDN PIC AAAAABB.
MOVE "PROG1" TO CALLDN.
CALL CALLDN.
CANCEL CALLDN.
- IGYPA3063-S
- "CALL" or "CANCEL" identifier "CALLDN (ALPHANUMERIC-EDITED)" was not alphanumeric,
zoned decimal nor alphabetic. The statement was discarded.
To compile with
Enterprise COBOL,
change the definition of CALLDN to all alphabetic or alphanumeric or add a
new data-name that redefines CALLDN with a valid data type as shown below.
01 CALLDN PIC A(7).
or
01 CALLDN PIC X(7).
or
01 CALLDN PIC AAAAABB
01 CALLDN1 REDEFINES CALLDN PIC A(7).
MOVE "PROG1" TO CALLDN1.
CALL CALLDN1.
CANCEL CALLDN1.