埋め込みの説明
@1@ : STD
@2@ : DATE,DAY,DAY-OF-WEEK
例題
[C9133.cob] 000001 @OPTIONS FLAGSW(STDM) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C9133. 000004 ENVIRONMENT DIVISION. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 REC01 PIC 9(5). 000008 PROCEDURE DIVISION. 000009 P-START. 000010 ACCEPT REC01 FROM DAY-OF-WEEK. 000011 STOP RUN.
C9133.cob 10: JMN9133I-W (STD)ACCEPT文中のDAY-OF-WEEKは共通範囲外です.処理を続行します.