引数の説明
ACCEPTまたはDISPLAY. |
エラーの発生した指定を示す予約語. |
例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2770.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 AA PIC X(2).
000007 SCREEN SECTION.
000008 01 A1 PIC X(8) FROM AA.
000009 PROCEDURE DIVISION.
000010 ACCEPT A1
000011 AT LINE .
000012 END PROGRAM P2770.
P2770.cob (11): JMN2770I-S ACCEPT文のLINE指定に誤りがあります.