埋め込みの説明
@1@ : ADVANCINGまたはPOSITIONING．
例題
[P2593.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2593. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 CHANNEL-01 IS C01. 000007 INPUT-OUTPUT SECTION. 000008 FILE-CONTROL. 000009 SELECT SQFILE1 ASSIGN TO SYS001 000010 ORGANIZATION IS SEQUENTIAL. 000011 DATA DIVISION. 000012 FILE SECTION. 000013 FD SQFILE1. 000014 01 SQF1REC. 000015 02 PIC X(80). 000016 WORKING-STORAGE SECTION. 000017 PROCEDURE DIVISION. 000018 WRITE SQF1REC 000019 AFTER ADVANCING C01 LINE. 000020 END PROGRAM P2593.
P2593.cob 19: JMN2593I-S LINE(S)は，ADVANCING指定に整数または一意名を記述した場合にだけ指定できます．LINE(S)は無効になります．
詳細な説明
LINEまたはLINESの前に指定された値に等しい行数だけ行送りされます．
