2.7.11 JMN9012I-W

(@1@)特殊レジスタ@2@は共通範囲外です．
処理を続行します．

引数の説明

@1@:

SIA，STD

@2@:

EDIT-COLOR，EDIT-CURSOR，EDIT-MODE，EDIT-OPTION，EDIT-STATUS，FCOM，LINE-COUNTER，LINAGE-COUNTER，PAGE-COUNTER，PROGRAM-STATUS，RETURN-CODE，SHIFT-IN，SHIFT-OUT，SORT-MESSAGE，SORT-MODE-SIZE，SORT-STATUS/SORT-RETURN，TALLY，WHEN-COMPILED

例

      000001 @OPTIONS FLAGSW(STDH)
      000002 IDENTIFICATION  DIVISION.
      000003 PROGRAM-ID.     C9012.
      000004 ENVIRONMENT     DIVISION.
      000005 INPUT-OUTPUT    SECTION.
      000006 FILE-CONTROL.
      000007     SELECT IN-FILE   ASSIGN TO INFL.
      000008     SELECT OT-FILE   ASSIGN TO OTFL.
      000009     SELECT SORT-FILE ASSIGN TO STFL.
      000010 DATA            DIVISION.
      000011 FILE            SECTION.
      000012 FD  IN-FILE.
      000013   01  IN-REC.
      000014     02  REC01    PIC X(5).
      000015     02  REC02    PIC X(50).
      000016 FD  OT-FILE.
      000017   01  OT-REC.
      000018     02  REC01    PIC X(5).
      000019     02  REC02    PIC X(50).
      000020 SD  SORT-FILE.
      000021   01  ST-REC.
      000022     02  RECKEY   PIC X(5).
      000023     02  REC02    PIC X(50).
      000024 WORKING-STORAGE SECTION.
      000025 PROCEDURE       DIVISION.
      000026 P-START.
      000027     SORT SORT-FILE ASCENDING KEY RECKEY
      000028       USING IN-FILE GIVING OT-FILE.
      000029     IF SORT-STATUS NOT = ZERO THEN
      000030       DISPLAY "** ERROR IN SORT STATEMANT **"
      000031     END-IF.
      000032     STOP RUN.

C9012.cob (29) : JMN9012I-W (STD)特殊レジスタSORT-STATUSは共通範囲外です．処理を続行します．