引数の説明
ACCEPTまたはDISPLAY. |
FROMまたはUPON. |
例
000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2965. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 PSTATE PIC X(8). 000007 LINKAGE SECTION. 000008 PROCEDURE DIVISION. 000009 DISPLAY PSTATE AT 1010 000010 UPON CONSOLE. 000011 END PROGRAM P2965.
P2965.cob (10) : JMN2965I-S AT,LINE,COLUMN,MODE,WITH等の指定のあるDISPLAY文のUPON指定にはCRTが記述されなければなりません.