例
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句で指定しなければなりません.