埋め込みの説明
@1@ : STD
例題
[C9152.cob] 000001 @OPTIONS FLAGSW(STDM) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C9152. 000004 ENVIRONMENT DIVISION. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 REC01 PIC 9(5). 000008 PROCEDURE DIVISION. 000009 P-START. 000010 ALTER P-START1 TO P-START2. 000011 P-START1. 000012 GO TO. 000013 P-START2. 000014 STOP RUN.
C9152.cob 12: JMN9152I-W (STD)手続き名を省略したGO TO文は共通範囲外です.処理を続行します.