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

2.4.205 JMN3368I-S

@1@文のFROM句に,整数関数および数字関数は指定できません.

引数の説明

@1@:

WRITE,REWRITE,RELEASE

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.  C3368.
      000003 ENVIRONMENT  DIVISION.
      000004 INPUT-OUTPUT SECTION.
      000005 FILE-CONTROL.
      000006      SELECT FILE-1 ASSIGN TO SYS001.
      000007 DATA  DIVISION.
      000008 FILE  SECTION.
      000009 FD FILE-1.
      000010  01 WRTREC.
      000011   02 WRT-1   PIC S9(8) BINARY.
      000012   02 WRT-2   PIC X(72).
      000013 WORKING-STORAGE SECTION.
      000014 01 A    PIC X(4).
      000015 PROCEDURE  DIVISION.
      000016 P-START.
      000017     OPEN OUTPUT FILE-1.
      000018     WRITE WRTREC FROM FUNCTION LENGTH(A).
      000019     CLOSE FILE-1.
      000020 END PROGRAM  C3368.
    

C3368.cob (18) : JMN3368I-S WRITE文のFROM句に,整数関数および数字関数は指定できません.