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

2.4.94 JMN3141I-S

@1@指定は,@2@に記述できません.

引数の説明

@1@:

'AT EOP','NOT AT EOP','INVALID KEY','NOT INVALID KEY'

@2@:

編成種別

      000001 IDENTIFICATION  DIVISION.
      000002 PROGRAM-ID. C3141.
      000003 ENVIRONMENT  DIVISION.
      000004 INPUT-OUTPUT SECTION.
      000005 FILE-CONTROL.
      000006     SELECT FILE-1  ASSIGN TO SYS001
      000007     ORGANIZATION IS INDEXED
      000008     ACCESS MODE IS RANDOM
      000009     RECORD KEY IS KEY-REC.
      000010 DATA  DIVISION.
      000011 FILE SECTION.
      000012 FD FILE-1.
      000013    01 REC-1.
      000014     02 KEY-REC PIC XX.
      000015     02 FILLER  PIC X(78).
      000016 WORKING-STORAGE SECTION.
      000017    77 DATA-1 PIC XX.
      000018 PROCEDURE  DIVISION.
      000019     WRITE REC-1 AT EOP GO TO L1.
      000020     MOVE "AA" TO DATA-1.
      000021   L1. STOP RUN.
    

C3141.cob (19) : JMN3141I-S AT EOP指定は,索引ファイルに記述できません.