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

2.4.122 JMN3182I-W

一つのWRITE文に,ADVANCING PAGE指定とEND-OF-PAGE指定の両方は記述できません.
そのまま受け入れられます.

      000001 IDENTIFICATION  DIVISION.
      000002 PROGRAM-ID. C3182.
      000003 ENVIRONMENT  DIVISION.
      000004 INPUT-OUTPUT SECTION.
      000005 FILE-CONTROL.
      000006     SELECT FILE-1 ASSIGN TO S-SYS001.
      000007 DATA  DIVISION.
      000008 FILE SECTION.
      000009   FD FILE-1 LINAGE IS 50 LINES.
      000010    01 REC-1 PIC X(80).
      000011 PROCEDURE  DIVISION.
      000012     WRITE REC-1 AFTER ADVANCING PAGE AT EOP GO TO L1.
      000013   L1. STOP RUN.
    

C3182.cob (12) : JMN3182I-W 一つのWRITE文に,ADVANCING PAGE指定とEND-OF-PAGE指定の両方は記述できません.そのまま受け入れられます.