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

2.4.169 JMN3291I-S

DEPENDING ON指定を含むRECORD句が指定されたレコードをWRITE文に指定する場合,CHARACTER TYPE句またはPRINTING POSITION句を含む項目は,FROM指定に記述できません.

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.  C3291.
      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
      000010      RECORD IS VARYING IN SIZE
      000011       FROM 80 TO 120 CHARACTERS
      000012       DEPENDING ON DEP-1.
      000013 01  REC-1 PIC X(120).
      000014 WORKING-STORAGE SECTION.
      000015 01  A     PIC  N(50) CHARACTER TYPE IS MODE-1.
      000016 01  DEP-1 PIC  999.
      000017 PROCEDURE  DIVISION.
      000018     WRITE REC-1 FROM A.
      000019 END PROGRAM  C3291.
    

C3291.cob (18) : JMN3291I-S DEPENDING ON指定を含むRECORD句が指定されたレコードをWRITE文に指定する場合,CHARACTER TYPE句またはPRINTING POSITION句を含む項目は,FROM指定に記述できません.