ページの先頭行へ戻る
NetCOBOL V11.0 メッセージ集
FUJITSU Software

2.5.168 JMN3270I-S

GENERATE文に報告書名@1@を指定するときは,その報告書記述項に明細報告集団を複数指定できません.

埋め込みの説明

@1@ : 報告書名

例題

[C3270.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3270.
000003 ENVIRONMENT  DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT LP1FILE ASSIGN TO DA-S-SYS006.
000007 DATA  DIVISION.
000008 FILE SECTION.
000009   FD LP1FILE LABEL RECORD STANDARD
000010     REPORT IS RE-1.
000011 WORKING-STORAGE SECTION.
000012 01  REP-LINE PIC X(80).
000013 REPORT SECTION.
000014  RD RE-1
000015     CONTROL IS FINAL
000016     PAGE LIMITS 66 LINES
000017     HEADING 3
000018     FIRST DETAIL 10
000019     LAST  DETAIL 50.
000020  01 DE-1 TYPE DETAIL LINE PLUS 1.
000021     02 COLUMN 25 PIC X(80)
000022     SOURCE REP-LINE.
000023  01 DE-2 TYPE DETAIL LINE PLUS 1.
000024     02 COLUMN 25 PIC X(80)
000025     VALUE "REPORT-1".
000026 PROCEDURE  DIVISION.
000027 P-START.
000028     OPEN OUTPUT LP1FILE.
000029     INITIATE RE-1.
000030     GENERATE RE-1.
000031     TERMINATE RE-1.
000032     CLOSE LP1FILE.
000033     STOP RUN.

C3270.cob 30: JMN3270I-S GENERATE文に報告書名'RE-1'を指定するときは,その報告書記述項に明細報告集団を複数指定できません.