埋め込みの説明
@1@ : SOURCEまたはSUM.
例題
[P2482.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2482. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT REPFILE ASSIGN TO SYS001. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD REPFILE 000010 REPORT IS REP1. 000011 WORKING-STORAGE SECTION. 000012 01 . 000013 02 WSO1 PIC X(10) OCCURS 10 000014 INDEXED BY WIX. 000015 REPORT SECTION. 000016 RD REP1 PAGE 66. 000017 01 TYPE DE. 000018 02 LINE 12. 000019 03 COLUMN 10 PIC X(10) SOURCE WSO1(WIX + ). 000020 PROCEDURE DIVISION. 000021 LB. 000022 END PROGRAM P2482.
P2482.cob 19: JMN2482I-S SOURCE句の一意名に添字が指定された場合,指標名に続く+または-の直後の文字列は整数でなければなりません.1が指定されたものとみなします.
詳細な説明
添字の値は,演算子が+のときは+に続く値を指標名の値(出現番号に対応する値)に加えたものに,また,演算子が-のときは-に続く値を指標名の値から引いたものになります.符号に続く値は整数でなければなりません.