埋め込みの説明
@1@ : ACCEPTまたはDISPLAY.
@2@ : BLANK,AUTO,FULL,LEFT-JUSTIFY,PROMPT,REQUIRED,RIGHT-JUSTIFY,SPACE-FILL,TRAILING-SIGN,UPDATEまたはZERO-FILL
例題
[P2963.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2963. 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 AT 1010 000010 WITH AUTO. 000011 DISPLAY PSTATE AT 1010 000012 WITH AUTO. 000013 EXIT PROGRAM. 000014 END PROGRAM P2963.
P2963.cob 12: JMN2963I-S DISPLAY文のWITH指定にAUTOは指定できません.AUTOは無効となります.
詳細な説明
スクリーン操作機能のACCEPT文には,以下のWITH指定は指定できません.
BLANK
スクリーン操作機能のDISPLAY文には,以下のWITH指定は指定できません.
AUTO
FULL
LEFT-JUSTIFY
PROMPT
RIGHT-JUSTIFY
REQUIRED
SECURE
SPACE-FILL
TRAILING-SIGN
UPDATE
ZERO-FILL