2.2.92 JMN1151I-S

@1@句の整数は32767以下でなければなりません．
32767とみなします．

引数の説明

@1@:

句の名前

例

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.    C1151.
      000003 ENVIRONMENT    DIVISION.
      000004 INPUT-OUTPUT   SECTION.
      000005 FILE-CONTROL.
      000006     SELECT MSGFILE ASSIGN TO D-INFILE
      000007     TRACK-LIMIT  IS 32768
      000008     .
      000009 DATA           DIVISION.
      000010 FILE           SECTION.
      000011 FD MSGFILE.
      000012 01 INFDAT.
      000013   02 INFNUM    PIC S9(8) BINARY.
      000014   02 INFMSG    PIC X(50).
      000015 END PROGRAM    C1151.

C1151.cob (7) : JMN1151I-S TRACK-LIMIT句の整数は32767以下でなければなりません．32767とみなします．