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

2.4.137 JMN3229I-S

CHARACTER TYPE指定またはPRINTING POSITION指定が記述された項目を含む項目@1@をWRITE文のFROM指定に記述する場合,部分参照してはいけません.

引数の説明

@1@:

FROM指定の一意名

      000001 IDENTIFICATION  DIVISION.
      000002 PROGRAM-ID. C3229.
      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    01 REC-1 PIC X(80).
      000011 WORKING-STORAGE SECTION.
      000012    01 DATA-1.
      000013     02 DATA-1-1 PIC X(10).
      000014     02 DATA-1-2 PIC N(10) CHARACTER TYPE IS MODE-1.
      000015    77 NN1    PIC 99.
      000016    77 NN2    PIC 99.
      000017 PROCEDURE DIVISION.
      000018     OPEN OUTPUT FILE-1.
      000019     WRITE REC-1 FROM DATA-1(NN1:NN2).
      000020     CLOSE FILE-1.
      000021     STOP RUN.
    

C3229.cob (19) : JMN3229I-S CHARACTER TYPE指定またはPRINTING POSITION指定が記述された項目を含む項目'DATA-1'をWRITE文のFROM指定に記述する場合,部分参照してはいけません.