IBM 拡張によって、CALL および CANCEL ステートメントの ID として英字データ項目を使用できる
ようになりました。ただし、英数字編集項目は使用できません。したがって、記号 B で定義された英字項目を
使用している
CMPR2 プログラムの場合は、重大エラー・メッセージが出され
ます。たとえば、以下のプログラムは
CMPR2 では動作しましたが、現在は、重大
エラー・メッセージが出されます。
01 CALLDN PIC AAAAABB.
MOVE "PROG1" TO CALLDN.
CALL CALLDN.
CANCEL CALLDN.
- IGYPA3063-S
- 「CALL」または「CANCEL」の ID「CALLDN (ALPHANUMERIC-EDITED)」が英数字項目でもなく、ゾーン 10 進数でもなく、英字でもありませんでした。このステートメントは無視されました。
Enterprise COBOL でコンパイルするには、CALLDN の定義をすべて英字または英数字に変更するか、以下に示すように、CALLDN を有効なデータ型で再定義する新しいデータ名を追加してください。
01 CALLDN PIC A(7).
または
01 CALLDN PIC X(7).
または
01 CALLDN PIC AAAAABB
01 CALLDN1 REDEFINES CALLDN PIC A(7).
MOVE "PROG1" TO CALLDN1.
CALL CALLDN1.
CANCEL CALLDN1.