埋め込みの説明
@1@ : STD
例題
[P9333.cob] 000001 @OPTIONS FLAGSW(STDM) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. P9333. 000004 ENVIRONMENT DIVISION. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 REC01. 000008 02 REC02 PIC 9(4). 000009 02 REC03 PIC 9(4). 000010 02 REC04 PIC 9(4). 000011 02 REC05 PIC 9(4). 000012 02 REC06 PIC 9(4). 000013 02 REC07 PIC 9(4). 000014 PROCEDURE DIVISION. 000015 P-START. 000016 CALL "Z9333" USING REC02 000017 REC03 000018 REC04 000019 REC05 000020 REC06 000021 REC07. 000022 STOP RUN.
P9333.cob 16: JMN9333I-W (STD)CALL文中のUSING句に指定した作用対象の個数は5個以下でなければなりません.処理を続行します.