埋め込みの説明
@1@ : ACCEPTまたはDISPLAY.
@2@ : 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.
例題
[P2961.cob] 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指定は無効になります.