埋め込みの説明
@1@ : SIA，STD
例題
[P9343.cob] 000001 @OPTIONS FLAGSW(SIA) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. P9343. 000004 ENVIRONMENT DIVISION. 000005 INPUT-OUTPUT SECTION. 000006 FILE-CONTROL. 000007 SELECT IN-FILE ASSIGN TO INFL. 000008 SELECT OT-FILE ASSIGN TO OTFL. 000009 SELECT SORT-FILE ASSIGN TO STFL. 000010 DATA DIVISION. 000011 FILE SECTION. 000012 FD IN-FILE. 000013 01 IN-REC. 000014 02 RECI1 PIC X(80). 000015 FD OT-FILE. 000016 01 OT-REC. 000017 02 RECO1 PIC X(80). 000018 SD SORT-FILE. 000019 01 ST-REC. 000020 02 RECS1 PIC X(5). 000021 02 RECS2 PIC X(5). 000022 02 RECS3 PIC X(5). 000023 02 RECS4 PIC X(5). 000024 02 RECS5 PIC X(5). 000025 02 RECS6 PIC X(5). 000026 02 RECS7 PIC X(5). 000027 02 RECS8 PIC X(5). 000028 02 RECS9 PIC X(5). 000029 02 RECS10 PIC X(5). 000030 02 RECS11 PIC X(5). 000031 02 RECS12 PIC X(5). 000032 02 RECS13 PIC X(5). 000033 02 RECS14 PIC X(5). 000034 02 RECS15 PIC X(5). 000035 02 RECS16 PIC X(5). 000036 WORKING-STORAGE SECTION. 000037 PROCEDURE DIVISION. 000038 P-START. 000039 SORT SORT-FILE ASCENDING KEY 000040 RECS1 RECS2 RECS3 RECS4 RECS5 RECS6 RECS7 RECS8 000041 RECS9 RECS10 RECS11 RECS12 RECS13 RECS14 RECS15 RECS16 000042 USING IN-FILE GIVING OT-FILE. 000043 STOP RUN.
P9343.cob 39: JMN9343I-W (SIA)SORT文中のASCENDING/DESCENDING KEY句に指定するキーの個数は15以下でなければなりません．処理を続行します．
