例題
[P2488.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2488. 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 WSO1 PIC X(10). 000013 01 WSO2 PIC X(10). 000014 REPORT SECTION. 000015 RD REP1 PAGE 66 000016 HEADING 2 000017 FIRST DETAIL 6. 000018 01 TYPE RH. 000019 02 . 000020 03 COLUMN 10 PIC X(10) SOURCE WSO1. 000021 PROCEDURE DIVISION. 000022 END PROGRAM P2488.
P2488.cob 20: JMN2488I-S COLUMN NUMBER句は,LINE NUMBER句を含む記述項またはLINE NUMBER句を含む記述項に従属する記述項に限り指定することができます.そのまま処理を続行します.
詳細な説明
COLUMN NUMBER句では,印字行の上での印字位置を指定します.一方,印字行の位置(報告集団の縦の位置)はLINE NUMBER句で指定しなければなりません.