埋め込みの説明
@1@ : 特殊レジスタ名(LINE-COUNTER, LINAGE-COUNTER)
例題
[C3061.cob] 000001 PROGRAM-ID. C3061. 000002 ENVIRONMENT DIVISION. 000003 INPUT-OUTPUT SECTION. 000004 FILE-CONTROL. 000005 SELECT RW-FS1 ASSIGN TO 000006 REPFILE. 000007 SELECT PRINT-FILE ASSIGN TO 000008 SYS006. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD PRINT-FILE 000012 LINAGE IS 50 LINES. 000013 01 PRINT-REC PIC X(120). 000014 FD RW-FS1 000015 LABEL RECORDS ARE STANDARD 000016 REPORT IS RW-FS1-REPORT-1. 000017 WORKING-STORAGE SECTION. 000018 01 REPORT-LINE-IMAGE. 000019 02 FILLER PICTURE X(43). 000020 02 WS-COUNTER PICTURE 9(6) VALUE ZERO. 000021 02 STORE-LINE-COUNTER PICTURE 9(6). 000022 REPORT SECTION. 000023 RD RW-FS1-REPORT-1 000024 PAGE LIMIT IS 20 LINES. 000025 01 RW-FS1-GROUP 000026 TYPE IS DETAIL. 000027 03 RW-FS1-ELEM 000028 LINE NUMBER IS PLUS 1 000029 COLUMN NUMBER IS 5 000030 PICTURE X(76) 000031 SOURCE IS REPORT-LINE-IMAGE. 000032 PROCEDURE DIVISION. 000033 MOVE 100 TO LINE-COUNTER 000034 MOVE 10 TO LINAGE-COUNTER 000035 . 000036 END PROGRAM C3061.
c3061.cob 33: JMN3061I-S 特殊レジスタ'LINE-COUNTER'は，受取り側に指定できません．
c3061.cob 34: JMN3061I-S 特殊レジスタ'LINAGE-COUNTER'は，受取り側に指定できません．
