引数の説明
必要とされるレコード長を示す整数値. |
例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2495.
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 WITM PIC N(20).
000013 REPORT SECTION.
000014 RD REP1 PAGE 66.
000015 01 TYPE DE CHARACTER TYPE MODE-3.
000016 02 LINE PLUS 1.
000017 03 COLUMN 20 PIC N(20) SOURCE WITM.
000018 03 COLUMN 80 PIC N(20) SOURCE WITM.
000019 PROCEDURE DIVISION.
000020 END PROGRAM P2495.
P2495.cob (9) : JMN2495I-I CHARACTER TYPE句またはPRINTING POSITION句の指定を持つ報告書レコードが長すぎます.RECORD CONTAINS 139が指定されたとみなします.