2.2.7 JMN9000 - JMN9999

9001	9002	9003	9004	9005	9006	9007	9008	9009	9010
9011	9012	9013	9014	9015	9016	9017	9018	9019	9020
9021	9022	9023	9024	9025	9101	9102	9103	9104	9105
9106	9107	9108	9109	9110	9111	9115	9116	9117	9118
9119	9121	9122	9123	9124	9125	9126	9127	9128	9129
9133	9151	9152	9153	9154	9161	9171	9172	9173	9180
9181	9182	9183	9191	9192	9193	9221	9242	9251	9261
9331	9332	9333	9334	9335	9341	9343	9344	9345	9346
9352	9353	9354	9361	9371	9381	9384	9391	9392	9393
9501	9502	9503	9504	9506	9507	9900	9901	9902	9903
9904	9905	9906	9907	9908	9909	9910	9911	9912	9913
9914	9915	9916	9917	9918	9919	9920	9921	9922	9923
9924	9925	9926	9927	9928	9929	9931	9932	9987	9999

JMN9001I-W

(@1@)@2@ statement is beyond the common range.

Parameter explanation

@1@ : SIA,STD

@2@ : CANCEL,COMPUTE,CONNECT,COPY,DELETE,DISCONECT,ENTRY,ERASE,EVALUATE,EXAMINE,EXEC AQL,EXIT PERFORM,FIND,FINISH,GENERATE,GET,GOBACK,IF DB-EXCEPTION,INITIALIZE,INITIATE,MERGE,MODIFY,READY,RELEASE,REPLACE,RETURN,SEARCH,SEARCH ALL,SORT,START,STORE,STRING,TERMINATE,TRANSACTION,UNLOCK,UNSTRING,USE,USE FOR DB-EXCEPTION,USE FOR DBUGGING,USE FOR DEAD-LOCK

Example

[C9001.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.  C9001.
000004 ENVIRONMENT  DIVISION.
000005 DATA         DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01  REC01.
000008     02  REC-1    PIC 9(4).
000009     02  REC-2    PIC 9(4).
000010     02  REC-3    PIC 9(4).
000011 PROCEDURE    DIVISION.
000012 P-START.
000013     COMPUTE REC-3 = REC-1 + REC-2.
000014     STOP RUN.

C9001.cob 13: JMN9001I-W (STD)COMPUTE statement is beyond the common range.

JMN9002I-W

(@1@)@2@ clause is beyond the common range.

Parameter explanation

@1@ : SIA,STD

@2@ : ALTERNATE RECORD KEY,APPLY MULTICONVERSATION-MODE,APPLY SAVED-AREA,APPLY WITH-ONLY,ASCENDING/DESCENDING KEY,BY VALUE,CHARACTER TYPE,CODE-SET,COLUMN NUMBER,COMMON,CONTROL RECORD,CONVERTING,CORRESPONDING,CRT STATUS,CURSOR,DEPENDING ON,DESTINATION-3,END-ACCEPT,END-CALL,END-DISPLAY,END-KEY,END-OF-PAGE,EXTEND,EXTERNAL,FIRST RECORD,FORMAT,GLOBAL,GROUP,INITIAL,INVALID KEY,KEY,LINAGE,LOCK MODE,MULTIPLE FILE TAPE,NEXT,NOT AT END-OF PAGE,NOT INVALID KEY,NOT ON EXCEPTION,ON EXCEPTION,ON OVERFLOW,OPTIONAL,ORGANIZATION IS RELATIVE,ORGANIZATION IS INDEXED,PADDING CHARACTER,PASSWORD,POSITIONING POINTER,POSITIONING UNIT,PRINTING MODE,PRINTING POSITION,PROCESSING CONTROL,RECORD DELIMITER,RECORD KEY,RECORD IS VARYING IN SIZE,RECORDING MODE,REMAINDER,REPLACING,RERUN,RESERVE AREA,REVERSED,REVERSED ORDER,REPORT,SAME RECORD AREA,SAME SORT-MERGE AREA,SEGMENT-LIMIT,SELECT,SOURCE,SYMBOLIC CONSTANT,SYMBOLIC CHARACTERS,TO TEST OR PERFORM,TEST AFTER,TEST BEFORE,TYPE,VARYING,WITH DEBUGGING MODE,WITH DUPLICATE,WITH LOCK,WITH NO ADVANCING,WITH NO LIMIT,WITH NO LOCK,WITH NO REWIND

Example

[C9002.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9002.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007   01  REC01.
000008     02  REC-NO   PIC X(5).
000009     02  REC-NAME PIC X(20).
000010     02  REC-DATA PIC X(50).
000011   01  REC02.
000012     02  REC-NO   PIC X(5).
000013     02  REC-NAME PIC X(20).
000014     02  REC-DATA PIC X(50).
000015 PROCEDURE       DIVISION.
000016 P-START.
000017     MOVE CORRESPONDING REC01 TO REC02.
000018     STOP RUN.

C9002.cob 17: JMN9002I-W (STD)CORRESPONDING clause is beyond the common range.

JMN9003I-W

(@1@)Function-name in @2@ statement is beyond the common range.

Parameter explanation

@1@ : SIA,STD

@2@ : ACCEPT,DISPLAY

Example

[C9003.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9003.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007   01  REC01      PIC X(80).
000008 PROCEDURE       DIVISION.
000009 P-START.
000010     ACCEPT REC01 FROM SYSIN.
000011     STOP RUN.

C9003.cob 10: JMN9003I-W (STD)Function-name in ACCEPT statement is beyond the common range.

JMN9004I-W

(@1@)Mnemonic-name in @2@ statement is beyond the common range.

Parameter explanation

@1@ : SIA,STD

@2@ : ACCEPT,DISPLAY,MERGE,SORT,WRITE

Example

[C9004.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9004.
000004 ENVIRONMENT     DIVISION.
000005 CONFIGURATION   SECTION.
000006  SPECIAL-NAMES.
000007     SYSIN IS NYURYOKU.
000008 DATA            DIVISION.
000009 WORKING-STORAGE SECTION.
000010   01  REC01      PIC X(80).
000011 PROCEDURE       DIVISION.
000012 P-START.
000013     ACCEPT REC01 FROM NYURYOKU.
000014     STOP RUN.

C9004.cob 13: JMN9004I-W (STD)Mnemonic-name in ACCEPT statement is beyond the common range.

JMN9005I-W

(@1@)Multiple file name in @2@ statement is beyond the common range.

Parameter explanation

@1@ : STD

@2@ : USE

Example

[C9005.cob]
000001 @OPTIONS FLAGSW(STDI)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9005.
000004 ENVIRONMENT     DIVISION.
000005 INPUT-OUTPUT    SECTION.
000006 FILE-CONTROL.
000007     SELECT IN-FILE  ASSIGN TO INFL1.
000008     SELECT OUT-FILE ASSIGN TO INFL2.
000009 DATA            DIVISION.
000010 FILE            SECTION.
000011 FD  IN-FILE.
000012   01  INREC    PIC X(80).
000013 FD  OUT-FILE.
000014   01  OTREC    PIC X(80).
000015 PROCEDURE      DIVISION.
000016 DECLARATIVES.
000017 USE-PROCESS     SECTION.
000018     USE AFTER STANDARD
000019         EXCEPTION PROCEDURE ON IN-FILE
000020                                OUT-FILE.
000021 END DECLARATIVES.
000022 P-START.
000023     STOP RUN.

C9005.cob 18: JMN9005I-W (STD)Multiple file name in USE statement is beyond the common range.

JMN9006I-W

(@1@)Identifier in @2@ statement is beyond the common range.

Parameter explanation

@1@ : STD

@2@ : CALL

Example

[C9006.cob]
000001 @OPTIONS FLAGSW(STDI)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9006.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007   01  REC01.
000008     02  REC-1    PIC 9(4).
000009     02  REC-2    PIC 9(4).
000010     02  REC-3    PIC 9(4).
000011   01 PGMNM       PIC X(8).
000012 PROCEDURE       DIVISION.
000013 P-START.
000014     CALL PGMNM USING REC01.
000015     STOP RUN.

C9006.cob 14: JMN9006I-W (STD)Identifier in CALL statement is beyond the common range.

JMN9007I-W

(@1@)Data-name in @2@ statement which defined in screen section is beyond the common range.

Parameter explanation

@1@ : SIA,STD

@2@ : ACCEPT,DISPLAY

Example

[C9007.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9007.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE  SECTION.
000007 01 WBUF         PIC X(100).
000008 SCREEN          SECTION.
000009 01  REC01.
000010   02  REC-NO    PIC X(5)  FROM WBUF.
000011   02  REC-NAME  PIC X(20) FROM WBUF.
000012   02  REC-DATA  PIC X(50) FROM WBUF.
000013 PROCEDURE       DIVISION.
000014 P-START.
000015     DISPLAY REC-NO.
000016     DISPLAY REC-NAME.
000017     DISPLAY REC-DATA.
000018     STOP RUN.

C9007.cob 15: JMN9007I-W (STD)Data-name in DISPLAY statement which defined in screen section is beyond the common range.

C9007.cob 16: JMN9007I-W (STD)Data-name in DISPLAY statement which defined in screen section is beyond the common range.

C9007.cob 17: JMN9007I-W (STD)Data-name in DISPLAY statement which defined in screen section is beyond the common range.

JMN9008I-W

(@1@)Source reference format (free) is beyond the common range.

Parameter explanation

@1@ : SIA,STD

Example

[C9008.cob]
@OPTIONS SRF(FREE),FLAGSW(SIA)
PROGRAM-ID.     C9008.
ENVIRONMENT     DIVISION.
DATA            DIVISION.
WORKING-STORAGE SECTION.
01 FOO01.
02 FOO-NO   PIC X(5).
02 FOO-NAME PIC X(20).
02 FOO-DATA PIC X(50).
PROCEDURE       DIVISION.
P-START.
STOP RUN.

C9008.cob 0: JMN9008I-W (SIA)Source reference format (free) is beyond the common range.

JMN9009I-W

(@1@)@2@ paragraph in identification division is beyond the common range.

Parameter explanation

@1@ : STD

@2@ : AUTHOR,INSTALATION,DATE-WRITTEN,DATE-COMPILED,SECURITY

Example

[C9009.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9009.
000004 DATE-COMPILED.  22ND AUG 1988.
000005 ENVIRONMENT     DIVISION.
000006 DATA            DIVISION.
000007 PROCEDURE       DIVISION.
000008 P-START.
000009      STOP RUN.

C9009.cob 4: JMN9009I-W (STD)DATE-COMPILED paragraph in identification division is beyond the common range.

JMN9010I-W

(@1@)Continuation of cobol words, numeric literals and picture character-strings is beyond the common range.

Parameter explanation

@1@ : STD

Example

[C9010.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9010.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 FILE            SECTION.
000007 WORKING-STORAGE SECTION.
000008   01  IN-REC.
000009     02  RECI1    PIC X(80
000010-    ).
000011   01  OT-R
000012-    EC.
000013     02  RECO1    PIC X(80).
000014 PROCEDURE       DIVISION.
000015 P-START.
000016     STOP RUN.

C9010.cob 10: JMN9010I-W (STD)Continuation of cobol words, numeric literals and picture character-strings is beyond the common range.

C9010.cob 12: JMN9010I-W (STD)Continuation of cobol words, numeric literals and picture character-strings is beyond the common range.

JMN9011I-W

(@1@)This function-name is beyond the common range.

Parameter explanation

@1@ : SIA

Example

[C9011.cob]
000001 @OPTIONS FLAGSW(SIA)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9011.
000004 ENVIRONMENT     DIVISION.
000005 CONFIGURATION   SECTION.
000006  SPECIAL-NAMES.
000007     SYSIPT IS I.
000008 DATA            DIVISION.
000009 WORKING-STORAGE SECTION.
000010 PROCEDURE       DIVISION.
000011     STOP RUN.

C9011.cob 7: JMN9011I-W (SIA)This function-name is beyond the common range.

JMN9012I-W

(@1@)Special register @2@ is beyond the common range.

Parameter explanation

@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

Example

[C9012.cob]
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)Special register SORT-STATUS is beyond the common range.

JMN9013I-W

(@1@)National literal is beyond the common range.

Parameter explanation

@1@ : STD

Example

[C9013.cob]
000001 @OPTIONS FLAGSW(STDH)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9013.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007 PROCEDURE       DIVISION.
000008 P-START.
000009     DISPLAY NC"ＮＡＴＩＯＮＡＬ".
000010     STOP RUN.

C9013.cob 9: JMN9013I-W (STD)National literal is beyond the common range.

JMN9014I-W

(@1@)Floating-point literal is beyond the common range.

Parameter explanation

@1@ : SIA,STD

Example

[C9014.cob]
000001 @OPTIONS FLAGSW(STDH)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9014.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007 PROCEDURE       DIVISION.
000008 P-START.
000009     DISPLAY 3.14159E+3.
000010     STOP RUN.

C9014.cob 9: JMN9014I-W (STD)Floating-point literal is beyond the common range.

JMN9015I-W

(@1@)Bool literal is beyond the common range.

Parameter explanation

@1@ : SIA,STD

Example

[C9015.cob]
000001 @OPTIONS FLAGSW(STDH)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9015.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007 PROCEDURE       DIVISION.
000008 P-START.
000009     DISPLAY B"11111111".
000010     STOP RUN.

C9015.cob 9: JMN9015I-W (STD)Bool literal is beyond the common range.

JMN9016I-W

(@1@)Number of dimensions for subscripting is beyond the common range.

Parameter explanation

@1@ : STD

Example

[C9016.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9016.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007   01  REC01.
000008     02  REC02  OCCURS 3 TIMES.
000009        03  REC03  OCCURS 3 TIMES.
000010         04  REC04  OCCURS 3 TIMES.
000011           05  REC05  OCCURS 3 TIMES.
000012             06  REC06  PIC 9(2).
000013 PROCEDURE    DIVISION.
000014 P-START.
000015     MOVE ZERO TO REC06(1 1 1 1).
000016     STOP RUN.

C9016.cob 15: JMN9016I-W (STD)Number of dimensions for subscripting is beyond the common range.

JMN9017I-W

(@1@)Hexadecimal nonnumeric literal is beyond the common range.

Parameter explanation

@1@ : STD

Example

[C9017.cob]
000001 @OPTIONS FLAGSW(STDH)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9017.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007   01  REC01.
000008     02   REC02  PIC X VALUE X"0A".
000009     02   REC03  PIC X.
000010 PROCEDURE       DIVISION.
000011 P-START.
000012     MOVE X"0C" TO REC03.
000013     STOP RUN

C9017.cob 12: JMN9017I-W (STD)Hexadecimal nonnumeric literal is beyond the common range.

JMN9018I-W

(@1@)Level number 66 is beyond the common range.

Parameter explanation

@1@ : STD

Example

[C9018.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9018.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007   01  REC01.
000008     02  REC-A   PIC X(4).
000009     02  REC-B   PIC X(4).
000010     02  REC-C   PIC X(4).
000011       66  REC-A RENAMES REC-B THRU REC-C.
000012 PROCEDURE       DIVISION.
000013 P-START.
000014     STOP RUN.

C9018.cob 11: JMN9018I-W (STD)Level number 66 is beyond the common range.

JMN9019I-W

(@1@)Level number 88 is beyond the common range.

Parameter explanation

@1@ : STD

Example

[C9019.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9019.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007   01   REC01.
000008     02 REC-NO  PIC 9(3).
000009       88 REC-88 VALUE 99.
000010 PROCEDURE    DIVISION.
000011 P-START.
000012     STOP RUN.

C9019.cob 9: JMN9019I-W (STD)Level number 88 is beyond the common range.

JMN9020I-W

(@1@)Symbolic character or literal or figurative constant with 'ALL' is beyond the common range.

Parameter explanation

@1@ : STD

Example

[C9020.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9020.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01  REC.
000008   02  REC01    PIC 99V99.
000009   02  REC02    PIC X(10) VALUE ALL "A".
000010 PROCEDURE       DIVISION.
000011 P-START.
000012     MOVE ALL "99" TO REC01.
000013     STOP RUN.

C9020.cob 9: JMN9020I-W (STD)Symbolic character or literal or figurative constant with 'ALL' is beyond the common range.

C9020.cob 12: JMN9020I-W (STD)Symbolic character or literal or figurative constant with 'ALL' is beyond the common range.

JMN9021I-W

(@1@)Reference modifier is beyond the common range.

Parameter explanation

@1@ : STD

Example

[C9021.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9021.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007   01  REC01.
000008     02  REC-NO   PIC X(10).
000009 PROCEDURE       DIVISION.
000010 P-START.
000011     MOVE "ABC" TO REC-NO(1:3).
000012     STOP RUN.

C9021.cob 11: JMN9021I-W (STD)Reference modifier is beyond the common range.

JMN9022I-W

(@1@)Qualification of data names is beyond the common range.

Parameter explanation

@1@ : STD

Example

[C9022.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9022.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007   01  OUT-REC.
000008     02  RECO1    PIC X.
000009 PROCEDURE       DIVISION.
000010 P-START.
000011     MOVE "0" TO RECO1 OF OUT-REC.
000012     STOP RUN.

C9022.cob 11: JMN9022I-W (STD)Qualification of data names is beyond the common range.

JMN9023I-W

(@1@)National character is beyond the common range.

Parameter explanation

@1@ : STD

JMN9024I-W

(@1@)In-line comment in this program is beyond the common range.

Parameter explanation

@1@ : STD

Example

[C9024.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION. *> In-line Comment
000003 PROGRAM-ID.     C9024.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01  A           PIC X(80). *> In-line Comment
000008 PROCEDURE       DIVISION.
000009 P-START.
000010     MOVE SPACE TO A.      *> In-line Comment
000011     STOP RUN.

C9024.cob 0: JMN9024I-W (STD)In-line comment in this program is beyond the common range.

JMN9025I-W

(@1@)Alphabetic-lower contained in '@2@' is beyond the common range.

Parameter explanation

@1@ : SIA,STD

@2@ : An user-definition word including lowercase letter

Example

[C9025.cob]
000001 @OPTIONS FLAGSW(SIA),ALPHAL
000002 IDENTIFICATION    DIVISION.
000003 PROGRAM-ID.       C9025.
000004 ENVIRONMENT       DIVISION.
000005 DATA              DIVISION.
000006 WORKING-STORAGE   SECTION.
000007 01   lowercase    PIC X(5).
000008 01   ABCdEFG      PIC X(5).
000009 PROCEDURE         DIVISION.
000010 P-START.
000011     MOVE SPACE TO  lowercase.
000012     STOP RUN.

C9025.cob 7: JMN9025I-W (SIA)Alphabetic-lower contained in 'lowercase' is beyond the common range.

C9025.cob 8: JMN9025I-W (SIA)Alphabetic-lower contained in 'ABCdEFG' is beyond the common range.

C9025.cob 11: JMN9025I-W (SIA)Alphabetic-lower contained in 'lowercase' is beyond the common range.

JMN9101I-W

(@1@)@2@ in ALPHABET clause is beyond the common range.

Parameter explanation

@1@ : SIA,STD

@2@ : EBCDIC,STANDARD-2

JMN9102I-W

(@1@)Function name in ALPHABET clause is beyond the common range.

Parameter explanation

@1@ : SIA

Example

[C9102.cob]
000001 @OPTIONS FLAGSW(SIA)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9102.
000004 ENVIRONMENT     DIVISION.
000005 CONFIGURATION   SECTION.
000006  SPECIAL-NAMES.
000007     ALPHABET FUGOU IS CODE-0.
000008 DATA         DIVISION.
000009 PROCEDURE    DIVISION.
000010 P-START.
000011     STOP RUN.

C9102.cob 7: JMN9102I-W (SIA)Function name in ALPHABET clause is beyond the common range.

JMN9103I-W

(@1@)Literal in ALPHABET clause is beyond the common range.

Parameter explanation

@1@ : STD

Example

[C9103.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9103.
000004 ENVIRONMENT     DIVISION.
000005 CONFIGURATION   SECTION.
000006  SPECIAL-NAMES.
000007     ALPHABET FUGOU IS 1.
000008 DATA            DIVISION.
000009 PROCEDURE       DIVISION.
000010 P-START.
000011     STOP RUN.

C9103.cob 7: JMN9103I-W (STD)Literal in ALPHABET clause is beyond the common range.

JMN9104I-W

(@1@)Mnemonic-name of CHARACTER TYPE clause is beyond the common range.

Parameter explanation

@1@ : SIA

Example

[C9104.cob]
000001 @OPTIONS FLAGSW(SIA)
000002 IDENTIFICATION   DIVISION.
000003 PROGRAM-ID.      C9104.
000004 ENVIRONMENT      DIVISION.
000005 CONFIGURATION    SECTION.
000006  SPECIAL-NAMES.
000007     F0202 IS PRINT.
000008 DATA            DIVISION.
000009 WORKING-STORAGE SECTION.
000010   01  REC01     PIC N(4) CHARACTER TYPE IS MODE-3 BY PRINT.
000011 PROCEDURE       DIVISION.
000012 P-START.
000013     STOP RUN.

C9104.cob 10: JMN9104I-W (SIA)Mnemonic-name of CHARACTER TYPE clause is beyond the common range.

JMN9105I-W

(@1@)Nested IF statement is beyond the common range.

Parameter explanation

@1@ : STD

Example

[C9105.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9105.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007   01  REC01     PIC 9(4).
000008   01  REC02     PIC 9(4).
000009 PROCEDURE       DIVISION.
000010 P-START.
000011     IF REC01 = LOW-VALUE THEN
000012        DISPLAY "LOW-VALUE"
000013     ELSE
000014     IF REC01 = HIGH-VALUE THEN
000015        DISPLAY "HIGH-VALUE"
000016     END-IF.
000017     STOP RUN.

C9105.cob 11: JMN9105I-W (STD)Nested IF statement is beyond the common range.

JMN9106I-W

(@1@)Multiple literal of VALUE clause is beyond the common range.

Parameter explanation

@1@ : SIA,STD

Example

[C9106.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9106.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007   01   REC01.
000008     02  REC-NO  PIC 9(3).
000009       88  REC-88 VALUE 3
000010                        5
000011                        7.
000012 PROCEDURE       DIVISION.
000013 P-START.
000014     STOP RUN.

C9106.cob 9: JMN9106I-W (STD)Multiple literal of VALUE clause is beyond the common range.

JMN9107I-W

(@1@)'Integer-1 THRU integer-2' of VALUE clause is beyond the common range.

Parameter explanation

@1@ : SIA,STD

Example

[C9107.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9107.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007   01   REC01    PIC 9(3).
000008     88   REC02  VALUE IS 0 THRU 3.
000009 PROCEDURE       DIVISION.
000010 P-START.
000011     STOP RUN.

C9107.cob 8: JMN9107I-W (STD)'Integer-1 THRU integer-2' of VALUE clause is beyond the common range.

JMN9108I-W

(@1@)Multiple 'integer-1 THRU integer-2' of VALUE clause is beyond the common range.

Parameter explanation

@1@ : SIA,STD

Example

[C9108.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9108.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007   01   REC01    PIC 9(3).
000008     88   REC02  VALUE IS 0 THRU 3
000009                          4 THRU 6.
000010 PROCEDURE       DIVISION.
000011 P-START.
000012     STOP RUN.

C9108.cob 8: JMN9108I-W (STD)Multiple 'integer-1 THRU integer-2' of VALUE clause is beyond the common range.

JMN9109I-W

(@1@)printing-mode-name in CHARACTER TYPE clause is beyond the common range.

Parameter explanation

@1@ : SIA,STD

Example

[C9109.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9109.
000004 ENVIRONMENT     DIVISION.
000005 CONFIGURATION   SECTION.
000006 SPECIAL-NAMES.
000007     PRINTING MODE INJI IS IN SIZE 3.0 POINT.
000008 DATA         DIVISION.
000009 WORKING-STORAGE SECTION.
000010 01  JPN-CAR  PIC N(5) CHARACTER TYPE IS INJI.
000011 PROCEDURE    DIVISION.
000012 P-START.
000013     STOP RUN.

C9109.cob 10: JMN9109I-W (STD)printing-mode-name in CHARACTER TYPE clause is beyond the common range.

JMN9110I-W

(@1@)VALUE OF data-name is beyond the common range.

Parameter explanation

@1@ : STD

Example

[C9110.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9110.
000004 ENVIRONMENT     DIVISION.
000005 INPUT-OUTPUT    SECTION.
000006 FILE-CONTROL.
000007     SELECT IN-FILE  ASSIGN TO INFL.
000008 DATA            DIVISION.
000009 FILE            SECTION.
000010 FD  IN-FILE   VALUE OF REC1  IS  REC2.
000011   01  REC1      PIC X(80).
000012   01  REC2      PIC X(80).
000013 PROCEDURE       DIVISION.
000014 P-START.
000015     STOP RUN.

C9110.cob 10: JMN9110I-W (STD)VALUE OF data-name is beyond the common range.

JMN9111I-W

(@1@)Nested REDEFINES clause is beyond the common range.

Parameter explanation

@1@ : STD

Example

[C9111.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9111.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007   01  IN-REC.
000008     02  RECI1    PIC X(80).
000009     02  RECI2    REDEFINES  RECI1.
000010       03  RECI21   PIC X(40).
000011       03  RECI22   REDEFINES  RECI21.
000012         04  RECI221  PIC X(20).
000013         04  RECI222  PIC X(20).
000014       03  RECI23   PIC X(40).
000015 PROCEDURE       DIVISION.
000016 P-START.
000017     STOP RUN.

C9111.cob 11: JMN9111I-W (STD)Nested REDEFINES clause is beyond the common range.

JMN9115I-W

(@1@)@2@ in PICTURE clause is beyond the common range.

Parameter explanation

@1@ : SIA,STD

@2@ : N,1,E

Example

[C9115.cob]
000001 @OPTIONS FLAGSW(STDH)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9115.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007   01  REC01      PIC N(5).
000008 PROCEDURE       DIVISION.
000009 P-START.
000010     STOP RUN.

C9115.cob 7: JMN9115I-W (STD)N in PICTURE clause is beyond the common range.

JMN9116I-W

(@1@)@2@ in USAGE clause is beyond the common range.

Parameter explanation

@1@ : SIA,STD

@2@ : COMPUTATIONAL-1,COMPUTATIONAL-2,COMPUTATIONAL-3,COMPUTATIONAL-4,COMPUTATIONAL-5,BIT,DISPLAY-1,POINTER

Example

[C9116.cob]
000001 @OPTIONS FLAGSW(SIA)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9116.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007   01  REC01     USAGE COMPUTATIONAL-1.
000008 PROCEDURE       DIVISION.
000009 P-START.
000010     STOP RUN.

C9116.cob 7: JMN9116I-W (SIA)COMPUTATIONAL-1 in USAGE clause is beyond the common range.

JMN9117I-W

(@1@)CONSTANT SECTION is beyond the common range.

Parameter explanation

@1@ : SIA,STD

Example

[C9117.cob]
000001 @OPTIONS FLAGSW(STDH)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9117.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 CONSTANT        SECTION.
000007   01  ASTER      PIC X(12) VALUE "*".
000008 PROCEDURE       DIVISION.
000009 P-START.
000010     STOP RUN.

C9117.cob 7: JMN9117I-W (STD)CONSTANT SECTION is beyond the common range.

JMN9118I-W

(@1@)@2@ in USE statement is beyond the common range.

Parameter explanation

@1@ : SIA,STD

@2@ : GLOBAL

Example

[C9118.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    C9118.
000004 ENVIRONMENT    DIVISION.
000005 INPUT-OUTPUT    SECTION.
000006 FILE-CONTROL.
000007     SELECT SEQFIL ASSIGN TO SYS006
000008       ORGANIZATION IS SEQUENTIAL.
000009 DATA           DIVISION.
000010 FILE            SECTION.
000011 FD SEQFIL.
000012 01 SEQREC      PIC X(80).
000013 PROCEDURE      DIVISION.
000014 DECLARATIVES.
000015 FILERR SECTION. USE GLOBAL AFTER STANDARD ERROR PROCEDURE INPUT
000016     GO ERR-EXIT.
000017 END DECLARATIVES.
000018     OPEN INPUT SEQFIL.
000019     READ SEQFIL.
000020     CLOSE SEQFIL.
000021 ERR-EXIT.

C9118.cob 15: JMN9118I-W (STD)GLOBAL in USE statement is beyond the common range.

JMN9119I-W

(@1@)BASED-STORAGE SECTION is beyond the common range.

Parameter explanation

@1@ : SIA,STD

Example

[C9119.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9119.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 BASED-STORAGE   SECTION.
000007   01  A          PIC 9(2).
000008 WORKING-STORAGE SECTION.
000009   01  PTR        POINTER.
000010 PROCEDURE       DIVISION.
000011 P-START.
000012     MOVE ZERO TO PTR->A.
000013     STOP RUN.

C9119.cob 6: JMN9119I-W (STD)BASED-STORAGE SECTION is beyond the common range.

JMN9121I-W

(@1@)Boolean operator @2@ is beyond the common range.

Parameter explanation

@1@ : SIA,STD

@2@ : AND,OR,EXOR,NOT

Example

[C9121.cob]
000001 @OPTIONS FLAGSW(STDH)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9121.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007   01  REC01     PIC 1(4) BIT.
000008 PROCEDURE       DIVISION.
000009 P-START.
000010     COMPUTE REC01 = REC01 AND B"1000".
000011     STOP RUN.

C9121.cob 10: JMN9121I-W (STD)Boolean operator B-AND is beyond the common range.

JMN9122I-W

(@1@)Class condition @2@ is beyond the common range.

Parameter explanation

@1@ : SIA,STD

@2@ : BOOLEAN,KANJI,DBCS

Example

[C9122.cob]
000001 @OPTIONS FLAGSW(STDH)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9122.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007   01  REC01      PIC X(3).
000008 PROCEDURE       DIVISION.
000009 P-START.
000010     IF REC01 IS BOOLEAN THEN
000011       DISPLAY "** TRUE **"
000012     END-IF.
000013     STOP RUN.

C9122.cob 10: JMN9122I-W (STD)Class condition BOOLEAN is beyond the common range.

JMN9123I-W

(@1@)Binary operator or unary operator @2@ is beyond the common range.

Parameter explanation

@1@ : STD

@2@ : +,-,*,/,**

Example

[C9123.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9123.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007   01 REC01     PIC S9(4).
000008   01 REC02     PIC S9(4).
000009   01 REC03     PIC S9(4).
000010 PROCEDURE       DIVISION.
000011 P-START.
000012     COMPUTE REC01 = REC02 + REC03.
000013     STOP RUN.

C9123.cob 12: JMN9123I-W (STD)Binary operator or unary operator + is beyond the common range.

JMN9124I-W

(@1@)Sign condition is beyond the common range.

Parameter explanation

@1@ : STD

Example

[C9124.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9124.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007   01  REC01      PIC S9(2) VALUE 0.
000008   01  REC02      PIC S9(2) VALUE 0.
000009 PROCEDURE       DIVISION.
000010 P-START.
000011     IF REC01 IS NOT NEGATIVE
000012       MOVE REC01 TO REC02
000013     END-IF.
000014     STOP RUN.

C9124.cob 11: JMN9124I-W (STD)Sign condition is beyond the common range.

JMN9125I-W

(@1@)Logical operator or unary operator @2@ is beyond the common range.

Parameter explanation

@1@ : STD

@2@ : AND,OR,NOT

Example

[C9125.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9125.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007   01  REC01      PIC S9(2) VALUE 0.
000008   01  REC02      PIC S9(2) VALUE 0.
000009   01  REC03      PIC S9(2) VALUE 0.
000010 PROCEDURE       DIVISION.
000011 P-START.
000012     IF REC01 IS GREATER REC02 AND
000013        NOT REC03 IS GREATER REC01 THEN
000014       MOVE 1 TO REC02.
000015     STOP RUN.

C9125.cob 12: JMN9125I-W (STD)Logical operator or unary operator AND is beyond the common range.

C9125.cob 12: JMN9125I-W (STD)Logical operator or unary operator NOT is beyond the common range.

JMN9126I-W

(@1@)Abbreviated combination condition is beyond the common range.

Parameter explanation

@1@ : STD

Example

[C9126.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9126.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007   01  REC01      PIC S9(2) VALUE 0.
000008   01  REC02      PIC S9(2) VALUE 0.
000009   01  REC03      PIC S9(2) VALUE 0.
000010 PROCEDURE       DIVISION.
000011 P-START.
000012     IF REC01 = LOW-VALUE OR HIGH-VALUE THEN
000013       MOVE 1 TO REC02.
000014     STOP RUN.

C9126.cob 12: JMN9126I-W (STD)Abbreviated combination condition is beyond the common range.

JMN9127I-W

(@1@)Complex-condition is beyond the common range.

Parameter explanation

@1@ : STD

Example

[C9127.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9127
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007   01  REC1                      PIC 9(8).
000008   01  REC2                      PIC 9(8).
000009   01  REC3                      PIC 9(8).
000010 PROCEDURE       DIVISION.
000011 P-START.
000012     IF REC1 = 0 AND NOT REC2 = REC3
000013     THEN  CONTINUE.
000014     STOP RUN.

C9127.cob 12: JMN9127I-W (STD)Complex-condition is beyond the common range.

JMN9128I-W

(@1@)Condition-name condition is beyond the common range.

Parameter explanation

@1@ : STD

Example

[C9128.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9128.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007   01 SIGNAL     PIC X.
000008     88  BLUE    VALUE "B".
000009 PROCEDURE       DIVISION.
000010     MOVE "B" TO SIGNAL.
000011     IF BLUE THEN
000012       DISPLAY "*** GO ***"
000013     END-IF.
000014     STOP RUN.

C9128.cob 11: JMN9128I-W (STD)Condition-name condition is beyond the common range.

JMN9129I-W

(@1@)Concatenation expression is beyond the common range.

Parameter explanation

@1@ : SIA,STD

Example

[C9129.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9129.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007   01  A          PIC X(2).
000008 PROCEDURE       DIVISION.
000009 P-START.
000010     IF  A = SPACE & "AA"
000011     THEN
000012       DISPLAY "*** A IS SPACE ***"
000013     END-IF.
000014     STOP RUN.

C9129.cob 10: JMN9129I-W (STD)Concatenation expression is beyond the common range.

JMN9133I-W

(@1@)@2@ in ACCEPT statement is beyond the common range.

Parameter explanation

@1@ : STD

@2@ : DATE,DAY,DAY-OF-WEEK

Example

[C9133.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9133.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007   01  REC01      PIC 9(5).
000008 PROCEDURE       DIVISION.
000009 P-START.
000010     ACCEPT REC01 FROM DAY-OF-WEEK.
000011     STOP RUN.

C9133.cob 10: JMN9133I-W (STD)DAY-OF-WEEK in ACCEPT statement is beyond the common range.

JMN9151I-W

(@1@)Multiple procedure-name of ALTER statement is beyond the common range.

Parameter explanation

@1@ : SIA,STD

Example

[C9151.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9151.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 PROCEDURE       DIVISION.
000007 P-START.
000008      ALTER  NUMBER1  TO  PROCEED  TO  NUMBER2,
000009             NUMBER2  TO  PROCEED  TO  P-START.
000010      STOP RUN.
000011 NUMBER1.
000012      GO TO.
000013 NUMBER2.
000014      GO TO.

C9151.cob 8: JMN9151I-W (STD)Multiple procedure-name of ALTER statement is beyond the common range.

JMN9152I-W

(@1@)GO TO statement omitted procedure name is beyond the common range.

Parameter explanation

@1@ : STD

Example

[C9152.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9152.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007  01  REC01       PIC 9(5).
000008 PROCEDURE    DIVISION.
000009 P-START.
000010     ALTER P-START1 TO P-START2.
000011 P-START1.
000012     GO  TO.
000013 P-START2.
000014     STOP RUN.

C9152.cob 12: JMN9152I-W (STD)GO TO statement omitted procedure name is beyond the common range.

JMN9153I-W

(@1@)@2@ special register specified of IF statement is beyond the common range.

Parameter explanation

@1@ : SIA,STD

@2@ : ADDRESS OF

Example

[C9153.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9153.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01  REC01       PIC 9(5).
000008 LINKAGE         SECTION.
000009 01  ZPTR0 POINTER.
000010 PROCEDURE       DIVISION USING ZPTR0.
000011 P-START.
000012     IF ADDRESS OF ZPTR0 = NULL THEN
000013        MOVE  00001 TO REC01
000014     END-IF.
000015     STOP RUN.

C9153.cob 12: JMN9153I-W (STD)ADDRESS OF special register specified of IF statement is beyond the common range.

JMN9154I-W

(@1@)Conditional statement in IF statement is beyond the common range.

Parameter explanation

@1@ : STD

Example

[C9154.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9154.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007   01  REC01     PIC 9(4).
000008   01  REC02     PIC 9(4).
000009 PROCEDURE       DIVISION.
000010 P-START.
000011     IF REC01 = LOW-VALUE THEN
000012       EVALUATE REC02
000013       WHEN 0
000014         DISPLAY "REC02=0"
000015       WHEN OTHER
000016         DISPLAY "REC02=" REC02
000017       END-EVALUATE
000018     END-IF.
000019     STOP RUN.

C9154.cob 12: JMN9154I-W (STD)Conditional statement in IF statement is beyond the common range.

JMN9161I-W

(@1@)@2@ in INITIALIZE statement is beyond the common range.

Parameter explanation

@1@ : SIA,STD

@2@ : EGCS,DBCS,BOOLEN,NATIONAL,NATIONAL-EDIT

Example

[C9161.cob]
000001 @OPTIONS FLAGSW(STDH)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9161.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007   01  REC01     PIC N(4).
000008   01  REC02     PIC N(4).
000009 PROCEDURE       DIVISION.
000010 P-START.
000011     INITIALIZE REC01 REPLACING
000012                NATIONAL DATA BY REC02.
000013     STOP RUN.

C9161.cob 11: JMN9161I-W (STD)NATIONAL in INITIALIZE statement is beyond the common range.

JMN9171I-W

(@1@)De-edit of numeric edited item in MOVE statement is beyond the common range.

Parameter explanation

@1@ : SIA

Example

[P9171.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     P9171.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007   01  REC01     PIC 9,999.
000008   01  REC02     PIC 9(4).
000009 PROCEDURE       DIVISION.
000010 P-START.
000011     MOVE REC01 TO REC02.
000012     STOP RUN.

P9171.cob 11: JMN9171I-W (STD)De-edit of numeric edited item in MOVE statement is beyond the common range.

JMN9172I-W

(@1@)National edited item moved to national edited item in MOVE statement is beyond the common range.

Parameter explanation

@1@ : SIA

Example

[P9172.cob]
000001 @OPTIONS FLAGSW(STDH)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     P9172.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007   01  REC01     PIC NBNBNB.
000008   01  REC02     PIC N(3)B(3).
000009 PROCEDURE       DIVISION.
000010 P-START.
000011     MOVE REC01 TO REC02.
000012     STOP RUN.

P9172.cob 11: JMN9172I-W (STD)National edited item moved to national edited item in MOVE statement is beyond the common range.

JMN9173I-W

(@1@)Numeric edited item moved to numeric edited item in MOVE statement is beyond the common range.

Parameter explanation

@1@ : STD

Example

[P9173.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     P9173.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007   01  REC01     PIC 9,999.
000008   01  REC02     PIC 99,99.
000009 PROCEDURE       DIVISION.
000010 P-START.
000011     MOVE REC01 TO REC02.
000012     STOP RUN.

P9173.cob 11: JMN9173I-W (STD)Numeric edited item moved to numeric edited item in MOVE statement is beyond the common range.

JMN9180I-W

(@1@)@2@ special register specified of SET statement is beyond the common range.

Parameter explanation

@1@ : SIA,STD

@2@ : ADDRESS OF

Example

[P9180.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     P9180.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01  REC01       PIC 9(5).
000008 LINKAGE         SECTION.
000009 01  ZPTR0       POINTER.
000010 PROCEDURE       DIVISION.
000011 P-START.
000012     SET  ADDRESS OF ZPTR0 TO NULLS.
000013     STOP RUN.

P9180.cob 12: JMN9180I-W (STD)ADDRESS OF special register specified of SET statement is beyond the common range.

JMN9181I-W

(@1@)TO TRUE clause in SET statement is beyond the common range.

Parameter explanation

@1@ : STD

Example

[P9181.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     P9181.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007   01  REC01.
000008     02  REC02 PIC X.
000009     88  REC03 VALUE "A".
000010 PROCEDURE       DIVISION.
000011 P-START.
000012       SET  REC03 TO TRUE.
000013       STOP RUN.

P9181.cob 12: JMN9181I-W (STD)TO TRUE clause in SET statement is beyond the common range.

JMN9182I-W

(@1@)Data item in START statement is beyond the common range.

Parameter explanation

@1@ : STD

Example

[P9182.cob]
000001 @OPTIONS FLAGSW(STDH)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     P9182.
000004 ENVIRONMENT     DIVISION.
000005 INPUT-OUTPUT    SECTION.
000006 FILE-CONTROL.
000007     SELECT IN-FILE ASSIGN TO IND
000008                 ORGANIZATION IS INDEXED
000009                 RECORD KEY   IS REC01.
000010 DATA            DIVISION.
000011 FILE            SECTION.
000012 FD IN-FILE.
000013   01  REC01     PIC 9(5).
000014 PROCEDURE       DIVISION.
000015 P-START.
000016       START IN-FILE
000017             KEY IS EQUAL TO REC01.
000018       STOP RUN.

P9182.cob 16: JMN9182I-W (STD)Data item in START statement is beyond the common range.

JMN9183I-W

(@1@)This relational character in START statement is beyond the common range.

Parameter explanation

@1@ : SIA,STD

Example

[P9183.cob]
000001 @OPTIONS FLAGSW(STDH)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     P9183.
000004 ENVIRONMENT     DIVISION.
000005 INPUT-OUTPUT    SECTION.
000006 FILE-CONTROL.
000007     SELECT SALARY-FILE ASSIGN TO IDFL
000008            ORGANIZATION IS INDEXED
000009            RECORD KEY IS EMPLOYEE-ID.
000010 DATA         DIVISION.
000011 FILE         SECTION.
000012 FD  SALARY-FILE.
000013   01  SALARY-REC.
000014     02  EMPLOYEE-ID   PIC X(6).
000015     02  SALARY        PIC 9(6).
000016 PROCEDURE    DIVISION.
000017 P-START.
000018     START SALARY-FILE KEY NOT > EMPLOYEE-ID.
000019     STOP RUN.

P9183.cob 18: JMN9183I-W (STD)This relational character in START statement is beyond the common range.

JMN9191I-W

(@1@)Multiple characters data item in INSPECT statement is beyond the common range.

Parameter explanation

@1@ : STD

Example

[P9191.cob]
000001 @OPTIONS FLAGSW(STDI)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     P9191.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007   01  REC01     PIC X(10).
000008   01  REC02     PIC 9(4).
000009 PROCEDURE       DIVISION.
000010 P-START.
000011     INSPECT REC01
000012             CONVERTING "***" TO "$$$".
000013     STOP RUN.

P9191.cob 11: JMN9191I-W (STD)Multiple characters data item in INSPECT statement is beyond the common range.

JMN9192I-W

(@1@)Multiple BEFORE/AFTER in INSPECT statement is beyond the common range.

Parameter explanation

@1@ : STD

Example

[P9192.cob]
000001 @OPTIONS FLAGSW(STDI)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     P9192.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007   01  REC01     PIC X(10).
000008   01  REC02     PIC 9(4).
000009 PROCEDURE       DIVISION.
000010 P-START.
000011     INSPECT REC01 TALLYING REC02
000012             FOR CHARACTERS AFTER  ","
000013                            BEFORE ",".
000014     STOP RUN.

P9192.cob 11: JMN9192I-W (STD)Multiple BEFORE/AFTER in INSPECT statement is beyond the common range.

JMN9193I-W

(@1@)Multiple @2@ operand in INSPECT statement is beyond the common range.

Parameter explanation

@1@ : STD

@2@ : TALLYING,REPLACING

Example

[P9193.cob]
000001 @OPTIONS FLAGSW(STDI)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     P9193.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007   01  REC01     PIC X(10).
000008   01  REC02     PIC 9(4).
000009 PROCEDURE       DIVISION.
000010 P-START.
000011     INSPECT REC01 REPLACING ALL "l" BY "L"
000012                                 "O" BY "o".
000013     STOP RUN.

P9193.cob 11: JMN9193I-W (STD)Multiple REPLACING operand in INSPECT statement is beyond the common range.

JMN9221I-W

(@1@)BLOCK CONTAINS 0 CHARACTERS is beyond the common range.

Parameter explanation

@1@ : SIA,STD

Example

[P9221.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     P9221.
000004 ENVIRONMENT     DIVISION.
000005 INPUT-OUTPUT    SECTION.
000006 FILE-CONTROL.
000007     SELECT CHAR-FILE ASSIGN TO CHAR-FL.
000008 DATA            DIVISION.
000009 FILE            SECTION.
000010 FD  CHAR-FILE
000011     BLOCK CONTAINS 0 CHARACTERS.
000012 01  CHAR-REC    PIC X(80).
000013 PROCEDURE    DIVISION.
000014 P-START.
000015     STOP RUN.

P9221.cob 10: JMN9221I-W (STD)BLOCK CONTAINS 0 CHARACTERS is beyond the common range.

JMN9242I-W

(@1@)'RECORD CONTAINS integer-1 TO integer-2' is beyond the common range.

Parameter explanation

@1@ : STD

Example

[C9242.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9242.
000004 ENVIRONMENT     DIVISION.
000005 INPUT-OUTPUT    SECTION.
000006 FILE-CONTROL.
000007     SELECT      IN-FILE ASSIGN INFIL.
000008 DATA            DIVISION.
000009 FILE            SECTION.
000010 FD IN-FILE
000011      RECORD CONTAINS 1 TO 5 CHARACTERS.
000012   01  REC01     PIC 9(5).
000013 PROCEDURE       DIVISION.
000014 P-START.
000015     STOP RUN.

C9242.cob 11: JMN9242I-W (STD)'RECORD CONTAINS integer-1 TO integer-2' is beyond the common range.

JMN9251I-W

(@1@)@2@ clause in CLOSE statement is beyond the common range.

Parameter explanation

@1@ : SIA,STD

@2@ : REEL,REEL FOR REMOVAL,UNIT,UNIT FOR REMOVAL,WITH NO REWIND

Example

[P9251.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     P9251.
000004 ENVIRONMENT     DIVISION.
000005 INPUT-OUTPUT    SECTION.
000006 FILE-CONTROL.
000007     SELECT      IN-FILE ASSIGN SEQ.
000008 DATA            DIVISION.
000009 FILE            SECTION.
000010 FD IN-FILE.
000011   01  REC01     PIC 9(5).
000012 PROCEDURE       DIVISION.
000013 P-START.
000014     OPEN INPUT IN-FILE.
000015     CLOSE IN-FILE REEL FOR REMOVAL.
000016     STOP RUN.

P9251.cob 15: JMN9251I-W (STD)REEL FOR REMOVAL clause in CLOSE statement is beyond the common range.

JMN9261I-W

(@1@)Line sequential file is beyond the common range.

Parameter explanation

@1@ : SIA,STD

Example

[P9261.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     P9261.
000004 ENVIRONMENT     DIVISION.
000005 INPUT-OUTPUT    SECTION.
000006 FILE-CONTROL.
000007     SELECT SEQFLINE
000008            ASSIGN TO C9261
000009            ORGANIZATION IS LINE SEQUENTIAL.
000010 DATA            DIVISION.
000011 FILE            SECTION.
000012 FD  SEQFLINE.
000013 01  FILE-NUM    PIC X(80).
000014 PROCEDURE       DIVISION.
000015 P-START.
000016     STOP RUN.

P9261.cob 12: JMN9261I-W (STD)Line sequential file is beyond the common range.

JMN9331I-W

(@1@)Subschema-name is beyond the common range.

Parameter explanation

@1@ : SIA,STD

JMN9332I-W

(@1@)Nested program is beyond the common range.

Parameter explanation

@1@ : STD

Example

[P9332.cob]
000001 @OPTIONS FLAGSW(STDI)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     P9332.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007   01 REC01      PIC 9(4).
000008   01 REC02      PIC 9(4).
000009 PROCEDURE       DIVISION.
000010 P-START.
000011     CALL "Z9332".
000012     STOP RUN.
000013*
000014 IDENTIFICATION  DIVISION.
000015 PROGRAM-ID.     Z9332.
000016 DATA            DIVISION.
000017 WORKING-STORAGE SECTION.
000018 PROCEDURE       DIVISION.
000019 P-START.
000020 END PROGRAM Z9332.
000021 END PROGRAM P9332.

P9332.cob 15: JMN9332I-W (STD)Nested program is beyond the common range.

JMN9333I-W

(@1@)Number of USING phrase in CALL statement must not exceed 5.

Parameter explanation

@1@ : STD

Example

[P9333.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     P9333.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01 REC01.
000008    02  REC02    PIC 9(4).
000009    02  REC03    PIC 9(4).
000010    02  REC04    PIC 9(4).
000011    02  REC05    PIC 9(4).
000012    02  REC06    PIC 9(4).
000013    02  REC07    PIC 9(4).
000014 PROCEDURE    DIVISION.
000015 P-START.
000016     CALL "Z9333" USING REC02
000017                        REC03
000018                        REC04
000019                        REC05
000020                        REC06
000021                        REC07.
000022     STOP RUN.

P9333.cob 16: JMN9333I-W (STD)Number of USING phrase in CALL statement must not exceed 5.

JMN9334I-W

(@1@)Number of formal parameters in USING phrase of PROCEDURE DIVISION header must not exceed 5.

Parameter explanation

@1@ : STD

Example

[P9334.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     P9334.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007 LINKAGE         SECTION.
000008 01  REC01       PIC 9(4).
000009 01  REC02       PIC 9(4).
000010 01  REC03       PIC 9(4).
000011 01  REC04       PIC 9(4).
000012 01  REC05       PIC 9(4).
000013 01  REC06       PIC 9(4).
000014 PROCEDURE       DIVISION USING REC01
000015                                REC02
000016                                REC03
000017                                REC04
000018                                REC05
000019                                REC06.
000020 P-START.
000021     STOP RUN.

P9334.cob 0: JMN9334I-W (STD)Number of formal parameters in USING phrase of PROCEDURE DIVISION header must not exceed 5.

JMN9335I-W

(@1@)END PROGRAM header is beyond the common range.

Parameter explanation

@1@ : STD

Example

[P9335.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     P9335.
000004 ENVIRONMENT     DIVISION.
000005 INPUT-OUTPUT    SECTION.
000006 DATA            DIVISION.
000007 PROCEDURE       DIVISION.
000008 P-START.
000009     STOP RUN.
000010 END PROGRAM P9335.

P9335.cob 10: JMN9335I-W (STD)END PROGRAM header is beyond the common range.

JMN9341I-W

(@1@)Sort-merge file is beyond the common range.

Parameter explanation

@1@ : STD

Example

[P9341.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     P9341.
000004 ENVIRONMENT     DIVISION.
000005 INPUT-OUTPUT    SECTION.
000006 FILE-CONTROL.
000007     SELECT      IN-FILE
000008                 ASSIGN TO SMF.
000009 DATA            DIVISION.
000010 FILE            SECTION.
000011 SD IN-FILE.
000012   01  REC01.
000013     02           PIC X(66).
000014 PROCEDURE       DIVISION.
000015 P-START.
000016     STOP RUN.

P9341.cob 11: JMN9341I-W (STD)Sort-merge file is beyond the common range.

JMN9343I-W

(@1@)Number of keys specified in ASCENDING/DESCENDING clause of SORT statement must not exceed 15.

Parameter explanation

@1@ : SIA,STD

Example

[P9343.cob]
000001 @OPTIONS FLAGSW(SIA)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     P9343.
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  RECI1    PIC X(80).
000015 FD  OT-FILE.
000016   01  OT-REC.
000017     02  RECO1    PIC X(80).
000018 SD  SORT-FILE.
000019   01  ST-REC.
000020     02  RECS1    PIC X(5).
000021     02  RECS2    PIC X(5).
000022     02  RECS3    PIC X(5).
000023     02  RECS4    PIC X(5).
000024     02  RECS5    PIC X(5).
000025     02  RECS6    PIC X(5).
000026     02  RECS7    PIC X(5).
000027     02  RECS8    PIC X(5).
000028     02  RECS9    PIC X(5).
000029     02  RECS10   PIC X(5).
000030     02  RECS11   PIC X(5).
000031     02  RECS12   PIC X(5).
000032     02  RECS13   PIC X(5).
000033     02  RECS14   PIC X(5).
000034     02  RECS15   PIC X(5).
000035     02  RECS16   PIC X(5).
000036 WORKING-STORAGE SECTION.
000037 PROCEDURE       DIVISION.
000038 P-START.
000039     SORT SORT-FILE ASCENDING KEY
000040          RECS1 RECS2  RECS3  RECS4  RECS5  RECS6  RECS7  RECS8
000041          RECS9 RECS10 RECS11 RECS12 RECS13 RECS14 RECS15 RECS16
000042          USING IN-FILE GIVING OT-FILE.
000043     STOP RUN.

P9343.cob 39: JMN9343I-W (SIA)Number of keys specified in ASCENDING/DESCENDING clause of SORT statement must not exceed 15.

JMN9344I-W

(@1@)COPY statement in library text is beyond the common range.

Parameter explanation

@1@ : SIA,STD

Example

[P9344.cob]
000001 @OPTIONS FLAGSW(STDH)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    P9344.
000004 ENVIRONMENT    DIVISION.
000005 CONFIGURATION   SECTION.
000006 DATA           DIVISION.
000007 WORKING-STORAGE SECTION.
000008     COPY  P9344A.
000009 PROCEDURE      DIVISION.
000010     DISPLAY WK1.
000011 END PROGRAM    P9344.
[P9344A.cbl]
000001     COPY  P9344B.
[P9344B.cbl]
000001 01 WK1  PIC X(8).

P9344A.cbl 1: JMN9344I-W (STD)COPY statement in library text is beyond the common range.

JMN9345I-W

(@1@)Text-name qualified by library-name is beyond the common range.

Parameter explanation

@1@ : STD

Example

[P9345.cob]
000001 @OPTIONS FLAGSW(STDI)
000002* The folder with WRKREC.cbl is specified for environment variable COB_COBLIB.
000003 IDENTIFICATION DIVISION.
000004 PROGRAM-ID.  P9345.
000005 DATA DIVISION.
000006 WORKING-STORAGE SECTION.
000007     COPY WRKREC OF COBLIB.
000008 PROCEDURE  DIVISION.
000009     STOP RUN.
[WRKREC.cbl]
000001 01 DATA1      PIC X(10).

P9345.cob 7: JMN9345I-W (STD)Text-name qualified by library-name is beyond the common range.

JMN9346I-W

(@1@)Text-name constant is beyond the common range.

Parameter explanation

@1@ : SIA,STD

Example

[P9346.cob]
000001 @OPTIONS FLAGSW(STDI)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.  P9346.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006     COPY "WRKREC.cbl".
000007 PROCEDURE  DIVISION.
000008     STOP RUN.
[WRKREC.cbl]
000001 01 DATA1      PIC X(10).

P9346.cob 6: JMN9346I-W (STD)Text-name constant is beyond the common range.

JMN9352I-W

(@1@)File description entry of report file is beyond the common range.

Parameter explanation

@1@ : SIA

Example

[C9352.cob]
000001 @OPTIONS FLAGSW(SIA)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9352.
000004 ENVIRONMENT     DIVISION.
000005 INPUT-OUTPUT    SECTION.
000006 FILE-CONTROL.
000007     SELECT      R-FILE ASSIGN TO RFIL.
000008 DATA            DIVISION.
000009 FILE            SECTION.
000010 FD  R-FILE REPORT R2-FILE.
000011 WORKING-STORAGE SECTION.
000012 REPORT          SECTION.
000013 RD  R2-FILE
000014     PAGE         62
000015     FIRST DETAIL  6
000016     LAST  DETAIL 58.
000017    01  DATA-1   TYPE DE
000018        LINE PLUS 1.
000019 PROCEDURE       DIVISION.
000020 P-START.
000021     STOP RUN.

C9352.cob 10: JMN9352I-W (SIA)File description entry of report file is beyond the common range.

JMN9353I-W

(@1@)Report description entry of report file is beyond the common range.

Parameter explanation

@1@ : STD

Example

[P9353.cob]
000001 @OPTIONS FLAGSW(RPW)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     P9353.
000004 ENVIRONMENT     DIVISION.
000005 INPUT-OUTPUT    SECTION.
000006 FILE-CONTROL.
000007     SELECT      R-FILE ASSIGN TO RFIL.
000008 DATA            DIVISION.
000009 FILE            SECTION.
000010 FD  R-FILE REPORT R2-FILE.
000011 WORKING-STORAGE SECTION.
000012 REPORT          SECTION.
000013 RD  R2-FILE
000014     PAGE         62
000015     FIRST DETAIL  6
000016     LAST  DETAIL 58.
000017   01  DATA1     TYPE DE
000018       LINE PLUS 1.
000019 PROCEDURE       DIVISION.
000020 P-START.
000021     STOP RUN.

P9353.cob 13: JMN9353I-W (STD)Report description entry of report file is beyond the common range.

JMN9354I-W

(@1@)REPORT SECTION header is beyond the common range.

Parameter explanation

@1@ : STD

Example

[P9354.cob]
000001 @OPTIONS FLAGSW(RPW)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     P9354.
000004 ENVIRONMENT     DIVISION.
000005 INPUT-OUTPUT    SECTION.
000006 FILE-CONTROL.
000007     SELECT  F-FILE  ASSIGN  TO  F.
000008 DATA            DIVISION.
000009 FILE            SECTION.
000010 FD  F-FILE  REPORT  R-FILE.
000011 REPORT          SECTION.
000012 RD  R-FILE
000013     PAGE         62
000014     FIRST DETAIL  6
000015     LAST  DETAIL 58.
000016   01  DATA-1   TYPE DE  LINE PLUS 1.
000017 PROCEDURE       DIVISION.
000018 P-START.
000019     STOP RUN.

P9354.cob 11: JMN9354I-W (STD)REPORT SECTION header is beyond the common range.

JMN9361I-W

(@1@)CLOSE statement for report file is beyond the common range.

Parameter explanation

@1@ : SIA

Example

[P9361.cob]
000001 @OPTIONS FLAGSW(SIA)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     P9361.
000004 ENVIRONMENT     DIVISION.
000005 INPUT-OUTPUT    SECTION.
000006 FILE-CONTROL.
000007     SELECT      R-FILE ASSIGN TO RFIL.
000008 DATA            DIVISION.
000009 FILE            SECTION.
000010 FD R-FILE REPORT R2-FILE.
000011 WORKING-STORAGE SECTION.
000012 REPORT          SECTION.
000013 RD  R2-FILE
000014     PAGE          62
000015     FIRST DETAIL   6
000016     LAST  DETAIL  58.
000017   01  DATA1     TYPE DE
000018       LINE PLUS 1.
000019 PROCEDURE       DIVISION.
000020 P-START.
000021     OPEN  OUTPUT R-FILE.
000022     CLOSE R-FILE.
000023     STOP RUN.

P9361.cob 22: JMN9361I-W (SIA)CLOSE statement for report file is beyond the common range.

JMN9371I-W

(@1@)OPEN statement for report file is beyond the common range.

Parameter explanation

@1@ : SIA

Example

[C9371.cob]
000001 @OPTIONS FLAGSW(SIA)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9371.
000004 ENVIRONMENT     DIVISION.
000005 INPUT-OUTPUT    SECTION.
000006 FILE-CONTROL.
000007     SELECT      R-FILE ASSIGN TO RFIL.
000008 DATA            DIVISION.
000009 FILE            SECTION.
000010 FD R-FILE REPORT R2-FILE.
000011 WORKING-STORAGE SECTION.
000012 REPORT          SECTION.
000013 RD  R2-FILE
000014     PAGE         62
000015     FIRST DETAIL  6
000016     LAST  DETAIL 58.
000017   01  DATA1     TYPE DE
000018       LINE PLUS 1.
000019 PROCEDURE       DIVISION.
000020 P-START.
000021     OPEN  OUTPUT R-FILE.
000022     CLOSE R-FILE.
000023     STOP RUN.

C9371.cob 21: JMN9371I-W (SIA)OPEN statement for report file is beyond the common range.

JMN9381I-W

(@1@)File description entry of presentation file is beyond the common range.

Parameter explanation

@1@ : STD

Example

[P9381.cob]
000001 @OPTIONS FLAGSW(STDH)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     P9381.
000004 ENVIRONMENT     DIVISION.
000005 INPUT-OUTPUT    SECTION.
000006 FILE-CONTROL.
000007     SELECT MED01 ASSIGN TO GS-FILE
000008            SYMBOLIC DESTINATION IS "PRT".
000009 DATA            DIVISION.
000010 FILE            SECTION.
000011 FD MED01.
000012   01  REC01     PIC 9(5).
000013   01  REC02     PIC 9(5).
000014 PROCEDURE       DIVISION.
000015 P-START.
000016      OPEN  INPUT MED01.
000017      CLOSE MED01.
000018      STOP RUN.

P9381.cob 11: JMN9381I-W (STD)File description entry of presentation file is beyond the common range.

JMN9384I-W

(@1@)@2@ in SYMBOLIC DESTINATION clause is beyond the common range.

Parameter explanation

@1@ : SIA

@2@ : ACM,CMD,TRM,WST,DATA-NAME

Example

[C9384.cob]
000001 @OPTIONS FLAGSW(SIA)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9384.
000004 ENVIRONMENT     DIVISION.
000005 INPUT-OUTPUT    SECTION.
000006 FILE-CONTROL.
000007     SELECT      MED01
000008                 ASSIGN               TO GS-FILE
000009                 SYMBOLIC DESTINATION IS "ACM".
000010 DATA            DIVISION.
000011 FILE            SECTION.
000012 FD MED01.
000013   01  REC01     PIC 9(5).
000014   01  REC02     PIC 9(5).
000015 PROCEDURE       DIVISION.
000016 P-START.
000017      OPEN  INPUT MED01.
000018      CLOSE MED01.
000019      STOP RUN.

C9384.cob 12: JMN9384I-W (SIA)ACM in SYMBOLIC DESTINATION clause is beyond the common range.

JMN9391I-W

(@1@)@2@ in ACCESS MODE clause is beyond the common range.

Parameter explanation

@1@ : STD

@2@ : RANDOM,DYNAMIC

Example

[P9391.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     P9391.
000004 ENVIRONMENT     DIVISION.
000005 INPUT-OUTPUT    SECTION.
000006 FILE-CONTROL.
000007     SELECT      INFILE
000008                 ASSIGN       TO IND
000009                 ORGANIZATION IS INDEXED
000010                 RECORD KEY   IS REC01
000011                 ACCESS MODE  IS RANDOM.
000012 DATA            DIVISION.
000013 FILE            SECTION.
000014 FD  INFILE.
000015   01  REC01     PIC 9(5).
000016   01  REC02     PIC 9(5).
000017 PROCEDURE       DIVISION.
000018 P-START.
000019     OPEN  INPUT INFILE.
000020     CLOSE INFILE.
000021     STOP RUN.

P9391.cob 14: JMN9391I-W (STD)RANDOM in ACCESS MODE clause is beyond the common range.

JMN9392I-W

(@1@)Literal of file identifier in ASSIGN clause is beyond the common range.

Parameter explanation

@1@ : SIA

Example

[P9392.cob]
000001 @OPTIONS FLAGSW(SIA)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     P9392.
000004 ENVIRONMENT     DIVISION.
000005 INPUT-OUTPUT    SECTION.
000006 FILE-CONTROL.
000007     SELECT      INFILE
000008                 ASSIGN       TO "INDATA.TXT".
000009 DATA            DIVISION.
000010 FILE            SECTION.
000011 FD  INFILE.
000012   01  REC01     PIC 9(5).
000013   01  REC02     PIC 9(5).
000014 PROCEDURE       DIVISION.
000015 P-START.
000016     OPEN  INPUT INFILE.
000017     CLOSE INFILE.
000018     STOP RUN.

P9392.cob 11: JMN9392I-W (SIA)Literal of file identifier in ASSIGN clause is beyond the common range.

JMN9393I-W

(@1@)@2@ in ASSIGN clause is beyond the common range.

Parameter explanation

@1@ : SIA,STD

@2@ : DATA-NAME,DISK,PRINTER

Example

[C9393.cob]
000001 @OPTIONS FLAGSW(STDH)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9393.
000004 ENVIRONMENT     DIVISION.
000005 INPUT-OUTPUT    SECTION.
000006 FILE-CONTROL.
000007     SELECT CHAR-FILE
000008            ASSIGN TO PRINTER.
000009 DATA            DIVISION.
000010 FILE            SECTION.
000011 FD  CHAR-FILE.
000012 01  CHAR-REC    PIC X(80).
000013 PROCEDURE    DIVISION.
000014 P-START.
000015     STOP RUN.

C9393.cob 11: JMN9393I-W (STD)PRINTER in ASSIGN clause is beyond the common range.

JMN9501I-W

(@1@)Separator '->' is beyond the common range.

Parameter explanation

@1@ : SIA,STD

Example

[P9501.cob]
000001 @OPTIONS FLAGSW(STDH)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    P9501.
000004 ENVIRONMENT    DIVISION.
000005 DATA           DIVISION.
000006 BASED-STORAGE   SECTION.
000007 01 WBUF        PIC X(20).
000008 WORKING-STORAGE SECTION.
000009 01 WPX         POINTER.
000010 PROCEDURE      DIVISION.
000011     MOVE LOW-VALUE TO WPX->WBUF
000012 END PROGRAM    P9501.

P9501.cob 11: JMN9501I-W (STD)Separator '->' is beyond the common range.

JMN9502I-W

(@1@)Function name @2@ is beyond the common range.

Parameter explanation

@1@ : SIA,STD

@2@ : ADDR,LENG

Example

[C9502.cob]
000001 @OPTIONS FLAGSW(SIA)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9502.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01 WBUF         PIC X(20).
000008 01 WPX          POINTER.
000009 PROCEDURE       DIVISION.
000010     MOVE FUNCTION ADDR(WBUF) TO WPX.

C9502.cob 10: JMN9502I-W (SIA)Function name ADDR is beyond the common range.

JMN9503I-W

(@1@)This function name is beyond the common range.

Parameter explanation

@1@ : SIA,STD

Example

[C9503.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9503.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007   01  A         PIC X(21).
000008 PROCEDURE       DIVISION.
000009 P-START.
000010     MOVE FUNCTION WHEN-COMPILED TO A.
000011     DISPLAY A.
000012     STOP RUN.

C9503.cob 10: JMN9503I-W (STD)This function name is beyond the common range.

JMN9504I-W

(@1@)Figurative constant NULL is beyond the common range.

Parameter explanation

@1@ : SIA,STD

Example

[P9504.cob]
000001 @OPTIONS FLAGSW(STDH)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     P9504.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01 WPTR  POINTER.
000008 PROCEDURE       DIVISION.
000009 P-START.
000010     SET WPTR TO NULL

P9504.cob 10: JMN9504I-W (STD)Figurative constant NULL is beyond the common range.

JMN9506I-W

(@1@)Data-name which defined in SCREEN SECTION is beyond the common range.

Parameter explanation

@1@ : SIA,STD

Example

[P9506.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     P9506.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007   01  REC-NUM-W    PIC 9(5)  VALUE  1.
000008   01  REC-NAME-W   PIC X(20) VALUE "A".
000009   01  REC-DATA-W   PIC X(10) VALUE "REC-NAME".
000010 SCREEN          SECTION.
000011   01  REC01.
000012     02  REC-NUM    PIC 9(5)  FROM REC-NUM-W.
000013     02  REC-NAME   PIC X(20) FROM REC-NAME-W.
000014     02  REC-DATA   PIC X(10) FROM REC-DATA-W.
000015 PROCEDURE       DIVISION.
000016 P-START.
000017     STOP RUN.

P9506.cob 11: JMN9506I-W (STD)Data-name which defined in SCREEN SECTION is beyond the common range.

JMN9507I-W

(@1@)'AS' for file identifier is beyond the common range.

Parameter explanation

@1@ : SIA

Example

[P9507.cob]
000001 @OPTIONS FLAGSW(SIA)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     P9507.
000004 ENVIRONMENT     DIVISION.
000005 INPUT-OUTPUT    SECTION.
000006 FILE-CONTROL.
000007     SELECT      IN-FILE
000008                 ASSIGN       TO AS-IND.
000009 DATA            DIVISION.
000010 FILE            SECTION.
000011 FD  IN-FILE.
000012   01  REC01     PIC 9(5).
000013   01  REC02     PIC 9(5).
000014 PROCEDURE       DIVISION.
000015 P-START.
000016     OPEN  INPUT IN-FILE.
000017     CLOSE IN-FILE.
000018     STOP RUN.

P9507.cob 8: JMN9507I-W (SIA)'AS' for file identifier is beyond the common range.

JMN9900I-E

(@1@) The source reference format (free) is not supported.

Parameter explanation

@1@ : GSS,GSW

Example

[P9900.cob]
@OPTIONS SRF(FREE),FLAGSW(GSS)
IDENTIFICATION  DIVISION.
PROGRAM-ID.     P9900.
ENVIRONMENT     DIVISION.
DATA            DIVISION.
WORKING-STORAGE SECTION.
01 FOO01.
02 FOO-NO   PIC X(5).
02 FOO-NAME PIC X(20).
02 FOO-DATA PIC X(50).
PROCEDURE       DIVISION.
P-START.
STOP RUN.

P9900.cob 0: JMN9900I-E (GSS) The source reference format (free) is not supported.

JMN9901I-E

(@1@) A character excluded from the COBOL character set for the OSIV system is used.

Parameter explanation

@1@ : GSS,GSW

Example

[P9901.cob]
000001 @OPTIONS FLAGSW(GSS)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    P9901.
000004 ENVIRONMENT    DIVISION.
000005 DATA           DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01 DATA_1      PIC X.
000008 PROCEDURE      DIVISION.
000009 END PROGRAM    P9901.

P9901.cob 7: JMN9901I-E (GSS) A character excluded from the COBOL character set for the OSIV system is used.

JMN9902I-E

(@1@) In the OSIV system, the length of @2@ must be 8 characters or less.

Parameter explanation

@1@ : GSS,GSW

@2@ : Program-name,entry-name,text-name,copy-name

Example

[P9902.cob]
000001 @OPTIONS FLAGSW(GSS)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    P9902.
000004 ENVIRONMENT    DIVISION.
000005 DATA           DIVISION.
000006 WORKING-STORAGE SECTION.
000007 PROCEDURE      DIVISION.
000008     ENTRY "ENTRY00001".
000009 END PROGRAM    P9902.

P9902.cob 8: JMN9902I-E (GSS) In the OSIV system, the length of entry-name must be 8 characters or less.

JMN9903I-E

(@1@) In the OSIV system, @2@ must consist of alphanumeric characters starting with an alphabetic character.

Parameter explanation

@1@ : GSS,GSW

@2@ : Program-name,entry-name,text-name,copy-name

Example

[P9903.cob]
000001 @OPTIONS FLAGSW(GSS)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    P9903.
000004 ENVIRONMENT    DIVISION.
000005 DATA           DIVISION.
000006 WORKING-STORAGE SECTION.
000007 PROCEDURE      DIVISION.
000008     ENTRY "ＥＮＴ"
000009 END PROGRAM    P9903.

P9903.cob 8: JMN9903I-E (GSS) In the OSIV system, entry-name must consist of alphanumeric characters starting with an alphabetic character.

JMN9904I-W

(@1@) @2@ includes a hyphen. In the OSIV system, hyphens are replaced by '#' .

Parameter explanation

@1@ : GSS,GSW

@2@ : Program-name,entry-name,text-name,copy-name

Example

[P9904.cob]
000001 @OPTIONS FLAGSW(GSS)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    P9904.
000004 ENVIRONMENT    DIVISION.
000005 DATA           DIVISION.
000006 WORKING-STORAGE SECTION.
000007 PROCEDURE      DIVISION.
000008     ENTRY "ENTRY-1"
000009 END PROGRAM    P9904.

P9904.cob 8: JMN9904I-W (GSS) entry-name includes a hyphen. In the OSIV system, hyphens are replaced by '#' .

JMN9905I-E

(@1@) The text-name constant is not supported in the OSIV system.

Parameter explanation

@1@ : GSS,GSW

Example

[P9905.cob]
000001 @OPTIONS FLAGSW(GSS)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    P9905.
000004 ENVIRONMENT    DIVISION.
000005 DATA           DIVISION.
000006 WORKING-STORAGE SECTION.
000007     COPY "CPNAME".
000008 PROCEDURE      DIVISION.
000009 END PROGRAM    P9905.
[CPNAME.cbl]
000001*   (comment line)

P9905.cob 7: JMN9905I-E (GSS) The text-name constant is not supported in the OSIV system.

JMN9906I-E

(@1@) An external-name for a program-name is not supported in the OSIV system.

Parameter explanation

@1@ : GSS,GSW

Example

[P9906.cob]
000001 @OPTIONS FLAGSW(GSS)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    P9906 AS "EXTNAME".
000004 ENVIRONMENT    DIVISION.
000005 DATA           DIVISION.
000006 WORKING-STORAGE SECTION.
000007 PROCEDURE      DIVISION.
000008 END PROGRAM    P9906.

P9906.cob 3: JMN9906I-E (GSS) An external-name for a program-name is not supported in the OSIV system.

JMN9907I-E

(@1@) In the OSIV system, the quotation mark character must correspond to the specification of compile option APOST/QUOTE.

Parameter explanation

@1@ : GSS,GSW

Example

[P9907.cob]
000001 @OPTIONS QUOTE,FLAGSW(GSS)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    P9907.
000004 ENVIRONMENT    DIVISION.
000005 DATA           DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01 WDA1        PIC X.
000008 01 WDA2        PIC X.
000009 PROCEDURE      DIVISION.
000010     MOVE "A" TO WDA1.
000011     MOVE 'B' TO WDA1.
000012 END PROGRAM    P9907.

P9907.cob 11: JMN9907I-E (GSS) In the OSIV system, the quotation mark character must correspond to the specification of compile option APOST/QUOTE.

JMN9908I-W

(@1@) The national literal contains characters that cannot be converted to a national character. The character is replaced by an underscore.

Parameter explanation

@1@ : GSS,GSW

Example

[P9908.cob]
000001 @OPTIONS FLAGSW(GSS)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    P9908.
000004 ENVIRONMENT    DIVISION.
000005 DATA           DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01 WNDA        PIC N(4).
000008 PROCEDURE      DIVISION.
000009     MOVE NX"C6FCCBDCB8EC" TO WNDA
000010 END PROGRAM    P9908.

P9908.cob 9: JMN9908I-W (GSS) The national literal contains characters that cannot be converted to a national character. The character is replaced by an underscore.

JMN9909I-E

(@1@) Function-name '@2@' is not supported in the OSIV system.

Parameter explanation

@1@ : GSS,GSW

@2@ : Function-names

Example

[P9909.cob]
000001 @OPTIONS FLAGSW(GSS)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    P9909.
000004 ENVIRONMENT    DIVISION.
000005 CONFIGURATION   SECTION.
000006 SPECIAL-NAMES.
000007     SYSERR IS EOUT.
000008 DATA           DIVISION.
000009 WORKING-STORAGE SECTION.
000010 PROCEDURE      DIVISION.
000011 END PROGRAM    P9909.

P9909.cob 7: JMN9909I-E (GSS) Function-name 'SYSERR' is not supported in the OSIV system.

JMN9910I-E

(@1@) @2@ is not supported in the OSIV system.

Parameter explanation

@1@ : GSS,GSW

@2@ : Function-name

Example

[P9910.cob]
000001 @OPTIONS FLAGSW(GSS)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    P9910.
000004 ENVIRONMENT    DIVISION.
000005 DATA           DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01 WDATE       PIC X(20).
000008 01 WANS        PIC S9(2)V999.
000009 01 WANGLE      PIC S9(2)V999.
000010 PROCEDURE      DIVISION.
000011     MOVE FUNCTION CURRENT-DATE TO WDATE
000012     COMPUTE WANS = FUNCTION SIN(WANGLE)
000013 END PROGRAM    P9910.

P9910.cob 12: JMN9910I-E (GSS) FUNCTION SIN is not supported in the OSIV system.

JMN9911I-E

(@1@) The concatenation expression is not supported in the OSIV system.

Parameter explanation

@1@ : GSS,GSW

Example

[P9911.cob]
000001 @OPTIONS FLAGSW(GSS)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    P9911.
000004 ENVIRONMENT    DIVISION.
000005 DATA           DIVISION.
000006 WORKING-STORAGE SECTION.
000007 PROCEDURE      DIVISION.
000008     DISPLAY "P" & "9911".
000009 END PROGRAM    P9911.

P9911.cob 8: JMN9911I-E (GSS) The concatenation expression is not supported in the OSIV system.

JMN9912I-E

(@1@) @2@ of the object-oriented programming functions is not supported in the OSIV system.

Parameter explanation

@1@ : GSS,GSW

@2@ : Class definition,method definition,REPOSITORY paragraph

Example

[P9912.cob]
000001 @OPTIONS FLAGSW(GSS)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    P9912.
000004 ENVIRONMENT    DIVISION.
000005 CONFIGURATION   SECTION.
000006 REPOSITORY.
000007     CLASS FJBASE.
000008 DATA           DIVISION.
000009 WORKING-STORAGE SECTION.
000010 PROCEDURE      DIVISION.
000011 END PROGRAM    P9912.

P9912.cob 6: JMN9912I-E (GSS) REPOSITORY paragraph of the object-oriented programming functions is not supported in the OSIV system.

JMN9913I-E

(@1@) The IDENTIFICATION DIVISION header cannot be omitted in the OSIV system.

Parameter explanation

@1@ : GSS,GSW

Example

[P9913.cob]
000001 @OPTIONS FLAGSW(GSS)
000002 PROGRAM-ID.    P9913.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 PROCEDURE      DIVISION.
000007 END PROGRAM    P9913.

P9913.cob 0: JMN9913I-E (GSS) The IDENTIFICATION DIVISION header cannot be omitted in the OSIV system.

JMN9914I-E

(@1@) The @2@ clause is not supported in the OSIV system.

Parameter explanation

@1@ : GSS,GSW

@2@ : CURSOR,CRT STATUS,WITH LOCK

Example

[P9914.cob]
000001 @OPTIONS FLAGSW(GSS)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    P9914.
000004 ENVIRONMENT    DIVISION.
000005 CONFIGURATION   SECTION.
000006 SPECIAL-NAMES.
000007     CURSOR IS WCOL.
000008 DATA           DIVISION.
000009 WORKING-STORAGE SECTION.
000010 01 WCOL        PIC X(4).
000011 PROCEDURE      DIVISION.
000012 END PROGRAM    P9914.

P9914.cob 3: JMN9914I-E (GSS) The CURSOR clause is not supported in the OSIV system.

JMN9915I-E

(@1@) In the OSIV system, a sort-merge file can only specify a file-identifier in the ASSIGN clause.

Parameter explanation

@1@ : GSS,GSW

Example

[P9915.cob]
000001 @OPTIONS FLAGSW(GSS)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    P9915.
000004 ENVIRONMENT    DIVISION.
000005 INPUT-OUTPUT    SECTION.
000006 FILE-CONTROL.
000007     SELECT SRTFILE ASSIGN TO "SYS001".
000008 I-O-CONTROL.
000009 DATA           DIVISION.
000010 FILE            SECTION.
000011 SD SRTFILE.
000012 01 SRTREC.
000013   02           PIC X(80).
000014 WORKING-STORAGE SECTION.
000015 01 WFS1        PIC X(2).
000016 PROCEDURE      DIVISION.
000017 END PROGRAM    P9915.

P9915.cob 11: JMN9915I-E (GSS) In the OSIV system, a sort-merge file can only specify a file-identifier in the ASSIGN clause.

JMN9916I-E

(@1@) Line sequential files are not supported in the OSIV system.

Parameter explanation

@1@ : GSS,GSW

Example

[P9916.cob]
000001 @OPTIONS FLAGSW(GSS)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    P9916.
000004 ENVIRONMENT    DIVISION.
000005 INPUT-OUTPUT    SECTION.
000006 FILE-CONTROL.
000007     SELECT SQFILE1 ASSIGN TO SYS001
000008       ORGANIZATION   IS LINE SEQUENTIAL.
000009 DATA           DIVISION.
000010 FILE            SECTION.
000011 FD SQFILE1.
000012 01 SQF1REC.
000013   02           PIC X(80).
000014 WORKING-STORAGE SECTION.
000015 PROCEDURE      DIVISION.
000016 END PROGRAM    P9916.

P9916.cob 11: JMN9916I-E (GSS) Line sequential files are not supported in the OSIV system.

JMN9917I-E

(@1@) The SCREEN SECTION and screen description entry are not supported in the OSIV system.

Parameter explanation

@1@ : GSS,GSW

Example

[P9917.cob]
000001 @OPTIONS FLAGSW(GSS)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    P9917.
000004 ENVIRONMENT    DIVISION.
000005 DATA           DIVISION.
000006 SCREEN          SECTION.
000007 01 SC1         VALUE "SC1".
000008 PROCEDURE      DIVISION.
000009 END PROGRAM    P9917.

P9917.cob 6: JMN9917I-E (GSS) The SCREEN SECTION and screen description entry are not supported in the OSIV system.

JMN9918I-E

(@1@) Named constants (level number 78) are not supported in the OSIV system.

Parameter explanation

@1@ : GSS,GSW

Example

[P9918.cob]
000001 @OPTIONS FLAGSW(GSS)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    P9918.
000004 ENVIRONMENT    DIVISION.
000005 DATA           DIVISION.
000006 WORKING-STORAGE SECTION.
000007 78 NDC1        VALUE 10.
000008 PROCEDURE      DIVISION.
000009 END PROGRAM    P9918.

P9918.cob 7: JMN9918I-E (GSS) Named constants (level number 78) are not supported in the OSIV system.

JMN9919I-E

(@1@) The type definition is not supported in the OSIV system.

Parameter explanation

@1@ : GSS,GSW

Example

[P9919.cob]
000001 @OPTIONS FLAGSW(GSS)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    P9919.
000004 ENVIRONMENT    DIVISION.
000005 DATA           DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01 T1 TYPEDEF  PIC X.
000008 PROCEDURE      DIVISION.
000009 END PROGRAM    P9919.

P9919.cob 7: JMN9919I-E (GSS) The type definition is not supported in the OSIV system.

JMN9920I-E

(@1@) @2@ in the USAGE clause is not supported in the OSIV system.

Parameter explanation

@1@ : GSS,GSW

@2@ : OBJECT REFERENCE,PROCEDURE-POINTER,COMP-5

Example

[P9920.cob]
000001 @OPTIONS FLAGSW(GSS)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    P9920.
000004 ENVIRONMENT    DIVISION.
000005 DATA           DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01 WPPX        PROCEDURE-POINTER.
000008 PROCEDURE      DIVISION.
000009 END PROGRAM    P9920.

P9920.cob 7: JMN9920I-E (GSS) PROCEDURE-POINTER in the USAGE clause is not supported in the OSIV system.

JMN9921I-E

(@1@) The @2@ phrase in the PROCEDURE DIVISION header is not supported in the OSIV system.

Parameter explanation

@1@ : GSS,GSW

@2@ : WITH,RETURNING

Example

[P9921.cob]
000001 @OPTIONS FLAGSW(GSS)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    P9921.
000004 ENVIRONMENT    DIVISION.
000005 DATA           DIVISION.
000006 LINKAGE         SECTION.
000007 01 LK1         PIC S9(4) BINARY.
000008 PROCEDURE      DIVISION
000009                    RETURNING LK1.
000010 END PROGRAM    P9921.

P9921.cob 8: JMN9921I-E (GSS) The RETURNING phrase in the PROCEDURE DIVISION header is not supported in the OSIV system.

JMN9922I-E

(@1@) The @2@ statement is not supported in the OSIV system.

Parameter explanation

@1@ : GSS,GSW

@2@ : EXIT PARAGRAPH,EXIT SECTION,UNLOCK

Example

[P9922.cob]
000001 @OPTIONS FLAGSW(GSS)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    P9922.
000004 ENVIRONMENT    DIVISION.
000005 DATA           DIVISION.
000006 WORKING-STORAGE SECTION.
000007 PROCEDURE      DIVISION.
000008     PERFORM P1.
000009 P1 SECTION.
000010     EXIT SECTION.
000011 END PROGRAM    P9922.

P9922.cob 10: JMN9922I-E (GSS) The EXIT SECTION statement is not supported in the OSIV system.

JMN9923I-E

(@1@) The @2@ phrase in the @3@ statement is not supported in the OSIV system.

Parameter explanation

@1@ : GSS,GSW

@2@ : WITH LOCK,PREVIOUS,RETURNING

@3@ : ENTRY,WITH,OPEN,READ

Example

[P9923.cob]
000001 @OPTIONS FLAGSW(GSS)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    P9923.
000004 ENVIRONMENT    DIVISION.
000005 DATA           DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01 RT-ITEM     PIC X.
000008 PROCEDURE      DIVISION.
000009     CALL "S9923" RETURNING RT-ITEM.
000010 END PROGRAM    P9923.

P9923.cob 9: JMN9923I-E (GSS) The RETURNING phrase in the CALL statement is not supported in the OSIV system.

JMN9924I-E

(@1@) In the OSIV system, identifier @2@ of the ACCEPT statement specifying a mnemonic-name or function-name must be a fixed-length group item, an alphabetic, an alphanumeric, or an external decimal item.

Parameter explanation

@1@ : GSS,GSW

@2@ : Identifier

Example

[P9924.cob]
000001 @OPTIONS FLAGSW(GSS)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    P9924.
000004 ENVIRONMENT    DIVISION.
000005 DATA           DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01 WBIN        PIC S9(9) BINARY.
000008 PROCEDURE      DIVISION.
000009     ACCEPT WBIN
000010 END PROGRAM    P9924.

P9924.cob 9: JMN9924I-E (GSS) In the OSIV system, identifier WBIN of the ACCEPT statement specifying a mnemonic-name or function-name must be a fixed-length group item, an alphabetic, an alphanumeric, or an external decimal item.

JMN9925I-E

(@1@) The @2@ statement of the screen handling function is not supported in the OSIV system.

Parameter explanation

@1@ : GSS,GSW

@2@ : ACCEPT, DISPLAY

Example

[P9925.cob]
000001 @OPTIONS FLAGSW(GSS)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    P9925.
000004 ENVIRONMENT    DIVISION.
000005 DATA           DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01 WDAT        PIC X(10).
000008 PROCEDURE      DIVISION.
000009     ACCEPT WDAT
000010            AT 1010
000011 END PROGRAM    P9925.

P9925.cob 9: JMN9925I-E (GSS) The ACCEPT statement of the screen handling function is not supported in the OSIV system.

JMN9926I-E

(@1@) In the OSIV system, the length of the program-name specified for a @2@ statement must be 8 characters or less.

Parameter explanation

@1@ : GSS,GSW

@2@ : CALL,CANCEL

Example

[P9926.cob]
000001 @OPTIONS FLAGSW(GSS)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    P9926.
000004 ENVIRONMENT    DIVISION.
000005 DATA           DIVISION.
000006 WORKING-STORAGE SECTION.
000007 PROCEDURE      DIVISION.
000008     CALL "PGM9926SUB"
000009 END PROGRAM    P9926.

P9926.cob 8: JMN9926I-E (GSS) In the OSIV system, the length of the program-name specified for a CALL statement must be 8 characters or less.

JMN9927I-E

(@1@) In the OSIV system, @2@ is invalid as a program-name in the @3@ statement.

Parameter explanation

@1@ : GSS,GSW

@2@ : character-string

@3@ : CALL,CANCEL

Example

[P9927.cob]
000001 @OPTIONS FLAGSW(GSS)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    P9927.
000004 ENVIRONMENT    DIVISION.
000005 DATA           DIVISION.
000006 WORKING-STORAGE SECTION.
000007 PROCEDURE      DIVISION.
000008     CALL "@PGM9926"
000009 END PROGRAM    P9927.

P9927.cob 8: JMN9927I-E (GSS) In the OSIV system, @PGM9926 is invalid as a program-name in the CALL statement.

JMN9928I-W

(@1@) The program-name in the @2@ statement includes a hyphen. In the OSIV system, hyphens are replaced by '#'.

Parameter explanation

@1@ : GSS,GSW

@2@ : CALL,CANCEL

Example

[P9928.cob]
000001 @OPTIONS FLAGSW(GSS)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    P9928.
000004 ENVIRONMENT    DIVISION.
000005 DATA           DIVISION.
000006 WORKING-STORAGE SECTION.
000007 PROCEDURE      DIVISION.
000008     CALL "PGM-9926"
000009 END PROGRAM    P9928.

P9928.cob 8: JMN9928I-W (GSS) The program-name in the CALL statement includes a hyphen. In the OSIV system, hyphens are replaced by '#'.

JMN9929I-E

(@1@) In the OSIV system, a JAPANESE check of the class condition is not supported.

Parameter explanation

@1@ : GSS,GSW

Example

[P9929.cob]
000001 @OPTIONS FLAGSW(GSS)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    P9929.
000004 ENVIRONMENT    DIVISION.
000005 DATA           DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01 WDX         PIC X(2).
000008 PROCEDURE      DIVISION.
000009     IF WDX IS JAPANESE THEN
000010       DISPLAY "OK"
000011     END-IF
000012 END PROGRAM    P9929.

P9929.cob 9: JMN9929I-E (GSS) In the OSIV system, a JAPANESE check of the class condition is not supported.

JMN9931I-E

(@1@) In the OSIV system, a relational character in the START statement is not supported.

Parameter explanation

@1@ : GSS,GSW

Example

[P9931.cob]
000001 @OPTIONS FLAGSW(GSS)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    P9931.
000004 ENVIRONMENT    DIVISION.
000005 INPUT-OUTPUT    SECTION.
000006 FILE-CONTROL.
000007     SELECT IXFILE1 ASSIGN TO SYS001
000008       ORGANIZATION   IS INDEXED
000009       RECORD KEY     IS WRKY1.
000010 DATA           DIVISION.
000011 FILE            SECTION.
000012 FD IXFILE1.
000013 01 IXF1REC.
000014   02 WRKY1            PIC X(2).
000015   02                  PIC X(80).
000016 WORKING-STORAGE SECTION.
000017 PROCEDURE      DIVISION.
000018     START IXFILE1
000019        KEY IS LESS THAN WRKY1
000020 END PROGRAM    P9931.

P9931.cob 18: JMN9931I-E (GSS) In the OSIV system, a relational character in the START statement is not supported.

JMN9932I-E

(@1@) @2@ is not supported in the OSIV system.

Parameter explanation

@1@ : GSS,GSW

@2@ : Hexadecimal numeric literal

Example

[P9932.cob]
000001 @OPTIONS FLAGSW(GSS)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    P9932.
000004 ENVIRONMENT    DIVISION.
000005 DATA           DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01 WNUM        PIC S9(9) BINARY.
000008 PROCEDURE      DIVISION.
000009     MOVE H"FFFF" TO WNUM.
000010 END PROGRAM    P9932.

P9932.cob 9: JMN9932I-E (GSS) hexadecimal numeric literal is not supported in the OSIV system.

JMN9987I-I

Non-ASCII characters are included in the nonnumeric literal.

JMN9999I-S

'@1@' cannot be used in this system.

Parameter explanation

@1@ : Relational database module(SQL),a name of intrinsic function specific to an other system,ACCEPT statement and DISPLAY statement for screen handling