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

2.2.256 JMN1481I-E

'@1@'はMSPまたはXSPシステムの固有機能です.

引数の説明

@1@:

MSPまたはXSPシステムの固有機能の語

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.    C1481.
      000003 ENVIRONMENT    DIVISION.
      000004 INPUT-OUTPUT   SECTION.
      000005 FILE-CONTROL.
      000006     SELECT MSGFILE ASSIGN TO I-INFILE
      000007     ACCESS MODE  IS RANDOM
      000008     RECORD KEY   IS INFNUM
      000009     NOMINAL KEY  IS WINF
      000010     TRACK-AREA   IS 256 CHARACTERS
      000011     .
      000012 DATA           DIVISION.
      000013 FILE           SECTION.
      000014 FD MSGFILE.
      000015 01 INFDAT.
      000016   02 INFNUM    PIC S9(8) BINARY.
      000017   02 INFMSG    PIC X(50).
      000018 WORKING-STORAGE SECTION.
      000019 01 WINF        PIC S9(8) BINARY.
      000020 END PROGRAM C1481.
    

C1481.cob (6) : JMN1481I-E 'インデックスつき編成ファイル'はMSPまたはXSPシステムの固有機能です. C1481.cob (9) : JMN1481I-E 'NOMINAL KEY'はMSPまたはXSPシステムの固有機能です.