引数の説明
SIGN,JUSTIFIED RIGHT,BLANK WHEN ZERO,VALUE,PRINTING POSITION,COLUMN NUMBER,SOURCE,SUMまたはGROUP INDICATE. |
例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2484.
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 LINE 3 PRINTING POSITION 2.
000020 03 COLUMN 1 PIC X(10) SOURCE WSO1.
000021 PROCEDURE DIVISION.
000022 END PROGRAM P2484.
P2484.cob (19) : JMN2484I-S 報告書節中のPRINTING POSITION句は,集団項目およびレベル番号01の基本項目に指定できません.
詳細な説明
報告集団記述項は,3つの階層で構成します.各階層では,記述可能な句が決められています.
もっとも下位の階層である3番目の階層(印字項目)の報告集団記述項で指定しなければならない句が別の階層の報告集団記述項で指定された場合に,この診断メッセージが出力されます.