JMN9001I-W
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
Parameter Explanation
@1@ : STD
JMN9024I-W
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
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
Parameter Explanation
@1@ : SIA,STD
@2@ : EBCDIC,STANDARD-2
JMN9102I-W
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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.
C9127.cob 12: JMN9127I-W (STD)Complex-condition is beyond the common range.
JMN9128I-W
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
Parameter Explanation
@1@ : SIA,STD
JMN9332I-W
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
JMN9999I-S
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
