引数の説明
ACCEPTまたはDISPLAY. |
AUTO,BACKGROUND-COLOR,BELL,BLANK,FOREGROUND-COLOR,FULL,GRID,HIGHLIGHT,LEFT-JUSTIFY,LEFTLIGHN,LOWLIGHT,OVERLINE,PROMPT,REQURED,REVERSE-VIDEO,RIGHT-JUSTIFY,SECURE,SIZE,SPACE-FILL,TRAILING-SIGN,UNDERLINE,UPDATEまたはZERO-FILL. |
例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2961.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 PSTATE PIC X(8).
000007 LINKAGE SECTION.
000008 PROCEDURE DIVISION.
000009 ACCEPT PSTATE WITH BACKGROUND-COLOR IS 0
000010 FOREGROUND-COLOR IS 1
000011 BACKGROUND-COLOR IS 3.
000012 END PROGRAM P2961.
P2961.cob (11) : JMN2961I-S ACCEPT文のWITH指定にBACKGROUND-COLORは複数指定することはできません.WITH指定は無効になります.