引数の説明
ADVANCINGまたはPOSITIONING. |
例
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の前に指定された値に等しい行数だけ行送りされます.