埋め込みの説明
@1@ : GSS,GSW
例題
[P9931.cob] 000001 @OPTIONS FLAGSW(GSS) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. P9931. 000004 ENVIRONMENT DIVISION. 000005 INPUT-OUTPUT SECTION. 000006 FILE-CONTROL. 000007 SELECT IXFILE1 ASSIGN TO SYS001 000008 ORGANIZATION IS INDEXED 000009 RECORD KEY IS WRKY1. 000010 DATA DIVISION. 000011 FILE SECTION. 000012 FD IXFILE1. 000013 01 IXF1REC. 000014 02 WRKY1 PIC X(2). 000015 02 PIC X(80). 000016 WORKING-STORAGE SECTION. 000017 PROCEDURE DIVISION. 000018 START IXFILE1 000019 KEY IS LESS THAN WRKY1 000020 END PROGRAM P9931.
P9931.cob 18: JMN9931I-E (GSS)OSIVシステムでは,START文のこの比較演算子はサポートしていません.