JMN3000I-S
Parameter Explanation
@1@ : Data item associated with the subscript.
@2@ : Number of dimensions of subscripts that are 0 or less.
Example
[C3000.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3000. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 GR01. 000006 02 TBL01 OCCURS 10 TIMES. 000007 03 TBL02 OCCURS 10 TIMES. 000008 04 AN01 PIC X. 000009 PROCEDURE DIVISION. 000010 MOVE SPACE TO AN01(1, 0).
C3000.cob 10: JMN3000I-S The value of the subscript of 2th dimension for 'AN01' must be positive. 1 is used for the subscript value.
JMN3001I-S
Parameter Explanation
@1@ : Data item on which subscript is put.
@2@ : Number of dimensions for which wrong subscript is specified.
@3@ : Range of value of correct subscript.
Example
[C3001.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3001. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 GR01. 000006 02 TBL01 OCCURS 10 TIMES. 000007 03 TBL02 OCCURS 10 TIMES. 000008 04 AN01 PIC X. 000009 PROCEDURE DIVISION. 000010 MOVE SPACE TO AN01(1, 11).
C3001.cob 10: JMN3001I-S The value of the subscript of the 2th dimension for 'AN01' must not exceed 10. 1 is used for the subscript value.
JMN3002I-S
Parameter Explanation
@1@ : Data item on which subscript is put.
@2@ : Number of correct subscripts.
Example
[C3002.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3002. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 GR01. 000006 02 TBL01 OCCURS 10 TIMES. 000007 03 TBL02 OCCURS 10 TIMES. 000008 04 AN01 PIC X. 000009 PROCEDURE DIVISION. 000010 MOVE SPACE TO AN01(1, 2, 3).
C3002.cob 10: JMN3002I-S The number of subscripts for 'AN01' must be 2. Extra high-order-end subscripts are ignored.
JMN3003I-S
Parameter Explanation
@1@ : Data item associated with the subscript.
@2@ : Number of correct subscripts.
Example
[C3003.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3003. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 GR01. 000006 02 TBL01 OCCURS 10 TIMES. 000007 03 TBL02 OCCURS 10 TIMES. 000008 04 AN01 PIC X. 000009 PROCEDURE DIVISION. 000010 MOVE SPACE TO AN01(2).
C3003.cob 10: JMN3003I-S The number of subscripts for 'AN01' must be 2. The value of each higher dimension subscript is replaced with 1.
JMN3004I-W
Parameter Explanation
@1@ : Data item on which subscript is put.
@2@ : Number of dimensions which does wrong subscript putting.
@3@ : Wrong index name.
Example
[C3004.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3004. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 GR01. 000006 02 TBL01 OCCURS 10 TIMES INDEXED BY IX01. 000007 03 TBL02 OCCURS 10 TIMES. 000008 04 AN01 PIC X. 000009 PROCEDURE DIVISION. 000010 MOVE SPACE TO AN01(1, IX01). 000011 END PROGRAM C3004.
C3004.cob 10: JMN3004I-W Index-name 'IX01' of the 2th dimension for 'AN01' must be specified using the INDEXED BY phrase of that table. It is assumed that the index-name is an index for that table.
JMN3005I-S
Parameter Explanation
@1@ : Reference modified data item.
Example
[C3005.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3005. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 SBITEM PIC S9(9) BINARY. 000006 PROCEDURE DIVISION. 000007 MOVE ZERO TO SBITEM(1:2). 000008 END PROGRAM C3005.
C3005.cob 7: JMN3005I-S The usage of the reference modified data item 'SBITEM' must be 'DISPLAY'. Usage 'DISPLAY' is assumed.
JMN3006I-S
Parameter Explanation
@1@ : Reference modified data item.
Example
[C3006.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3006. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 SBITEM PIC X(10). 000006 PROCEDURE DIVISION. 000007 MOVE ZERO TO SBITEM(1:0). 000008 END PROGRAM C3006.
C3006.cob 7: JMN3006I-S The length of the reference modifier for 'SBITEM' must be greater than zero. A length of 1 is assumed.
JMN3007I-S
Parameter Explanation
@1@ : Reference modified data item.
Example
[C3007.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3007. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 SBITEM PIC X(10). 000006 PROCEDURE DIVISION. 000007 MOVE ZERO TO SBITEM(0:1). 000008 END PROGRAM C3007.
C3007.cob 7: JMN3007I-S The leftmost-character-position of the reference modifier for 'SBITEM' must be greater than zero. The leftmost-character-position is assumed to be 1.
JMN3008I-S
Parameter Explanation
@1@ : Reference modified data item.
@2@ : Range of correct length.
Example
[C3008.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3008. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 SBITEM PIC X(10). 000006 PROCEDURE DIVISION. 000007 MOVE ZERO TO SBITEM(1:11). 000008 END PROGRAM C3008.
C3008.cob 7: JMN3008I-S The length of the reference modifier for 'SBITEM' cannot exceed 10. A length of 1 is assumed.
JMN3009I-S
Parameter Explanation
@1@ : Reference modified data item.
@2@ : Range at correct Leftmost-character-position.
Example
[C3009.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3009. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 SBITEM PIC X(10). 000006 PROCEDURE DIVISION. 000007 MOVE ZERO TO SBITEM(11:1). 000008 END PROGRAM C3009.
C3009.cob 7: JMN3009I-S The leftmost-character-position of the reference modifier for 'SBITEM' cannot exceed 10. The leftmost-character-position is assumed to be 1.
JMN3010I-S
Parameter Explanation
@1@ : Reference modified data item.
@2@ : Range of value by which one is subtracted in total of correct leftmost-character-position and length.
Example
[C3010.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3010. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 SBITEM PIC X(10). 000006 PROCEDURE DIVISION. 000007 MOVE ZERO TO SBITEM(6:6). 000008 END PROGRAM C3010.
C3010.cob 7: JMN3010I-S The sum of the leftmost-character-position and the length of the reference modifier for 'SBITEM' cannot exceed 10. The leftmost-character-position and the length are both assumed to be 1.
JMN3011I-S
Example
[C3011.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3011. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 ED01 PIC S9(9). 000006 01 ED02 PIC S9(9). 000007 PROCEDURE DIVISION. 000008 COMPUTE ED01 = ED02 / 0. 000009 END PROGRAM C3011.
C3011.cob 8: JMN3011I-S The value of the divisor is zero, where zero is a numeric literal with a value of 0, a figurative constant 'ZERO', or the result of an operation with no significant digits. A value consisting of all 9's is moved to the receiving item, with the number of digits being determined from the PICTURE clause of the receiving item. When the receiving item is an arithmetic expression, the number of digits is 30.
JMN3012I-W
Example
[C3012.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3012. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 ED01 PIC S9(18). 000006 01 ED02 PIC S9P(15). 000007 01 ED03 PIC S9P(15). 000008 PROCEDURE DIVISION. 000009 COMPUTE ED01 = ED02 * ED03.
C3012.cob 9: JMN3012I-W There are no significant digits in the intermediate result of operation. The result is assumed to be zero.
Explanation
In cases like that shown above the compiler can determine that the result will not fit in the available intermediate storage. Intermediate results are limited to 30 digits. Although there are only two significant digits in the calculation ED02 * ED03, the answer still has to be converted to a fixed-point number with the scaling applied before being moved to the result. The scaling would result in the significant digits being shifted 30 positions to the left - so they would be shifted out of the space allocated for the intermediate result, making the intermediate result zero.
Rather than generate code that performs the multiplication, followed by the scaling, that is clearly going to give the answer zero, the compiler generates code that assumes the answer is zero and issues the warning message so you can check if you intended that the answer always be zero.
JMN3013I-W
Example
[C3013.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3013. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 ED01 PIC S9(18). 000006 PROCEDURE DIVISION. 000007 COMPUTE ED01 = 0 ** 0. 000008 END PROGRAM C3013.
C3013.cob 7: JMN3013I-W Computing the zero power of zero occurred, where zero is a numeric literal with value 0, figurative constant 'ZERO', or a result of an operation with no significant digits. The result is assumed to be zero.
JMN3014I-I
Example
[C3014.cob] 000001 @OPTIONS CONF(68) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3014. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 ED01 PIC 9P. 000007 01 AN01 PIC X. 000008 PROCEDURE DIVISION. 000009 MOVE ED01 TO AN01. 000010 END PROGRAM C3014.
C3014.cob 9: JMN3014I-I (CONF) During a move between a nonnumeric operand and a numeric operand, the numeric operand has 'P' to left of the decimal point. The numeric operand was moved, assuming zero at the position of 'P'.
JMN3015I-I
Example
[C3015.cob] 000001 @OPTIONS CONF(V52) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3015. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 EB01 PIC 1. 000007 01 AN01 PIC X. 000008 PROCEDURE DIVISION. 000009 MOVE EB01 TO AN01. 000010 END PROGRAM C3015.
C3015.cob 9: JMN3015I-I (CONF) A Boolean item or Boolean literal is moved to an alphanumeric item. An elementary move between two alphanumeric items is assumed.
JMN3016I-I
Example
[C3016.cob] 000001 @OPTIONS CONF(68) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3016. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 ED01 PIC 9(5). 000007 PROCEDURE DIVISION. 000008 MOVE ALL "123" TO ED01. 000009 END PROGRAM C3016.
C3016.cob 8: JMN3016I-I (CONF) The ALL literal is moved to a numeric item or numeric edited item. The literal is repeated, character by character, until its size is equal to the size of the receiving operand.
JMN3017I-I
Example
[C3017.cob] 000001 @OPTIONS CONF(74) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3017. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 GR01. 000007 02 ODO01 PIC 9(4) BINARY VALUE 3. 000008 02 TBL01 PIC X(10) OCCURS 10 DEPENDING ON ODO01. 000009 PROCEDURE DIVISION. 000010 MOVE SPACE TO GR01. 000011 END PROGRAM C3017.
C3017.cob 10: JMN3017I-I (CONF) The group item including the item with the OCCURS DEPENDING ON clause and its object item is specified in the receiving operand. The maximum length of the receiving item is assumed.
JMN3018I-S
Example
[C3018.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3018. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 ED01 PIC 9(5). 000006 PROCEDURE DIVISION. 000007 MOVE "1234E" TO ED01. 000008 END PROGRAM C3018.
C3018.cob 7: JMN3018I-S A nonnumeric literal moved to a numeric item can consist only of numeric characters.
JMN3021I-S
Example
[C3021.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3021. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 BI01 PIC S9(4) COMPUTATIONAL. 000006 PROCEDURE DIVISION. 000007 MOVE +54321 TO BI01. 000008 END PROGRAM C3021.
C3021.cob 7: JMN3021I-S The value of the numeric literal that is moved to the binary item cannot exceed the maximum value that can be held in the receiving item.
Explanation
This message is given when you compile the program with NOTRUNC and attempt to move a numeric literal that is outside the range of binary values that can be stored in the target item. In the example above BI01 is stored in 2 bytes, so can store values in the range -32767 to +32767; +54321 is outside this range so cannot be stored in BI01.
The message is not given if you compile with TRUNC (though you will receive a warning message) because you have specified that such moves should truncate the digits to fit the target item. In the above example, BI01 would contain +4321 after the move when the program is compiled with TRUNC.
JMN3022I-W
Parameter Explanation
@1@ : Data item on sending side.
@2@ : Data item on receiving side.
Example
[C3022.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3022. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 ID01 PIC 9V9 PACKED-DECIMAL. 000006 01 AN01 PIC X(4). 000007 PROCEDURE DIVISION. 000008 MOVE ID01 TO AN01. 000009 END PROGRAM C3022.
C3022.cob 8: JMN3022I-W Non-integer item 'ID01' cannot be moved to alphanumeric item 'AN01'. After moving the sending operand to an unsigned external decimal item with the same digits as the sending operand, the alphanumeric item redefining that external decimal item is moved to the receiving alphanumeric item.
JMN3023I-S
Parameter Explanation
@1@ : sending element
@2@ : receiving element
Example
[C3023.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3023. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 AL01 PIC A. 000006 01 ED01 PIC 9. 000007 PROCEDURE DIVISION. 000008 MOVE AL01 TO ED01.
C3023.cob 8: JMN3023I-S 'AL01' cannot be moved to 'ED01'.
Explanation
This error message is given when an explicit or implicit MOVE is coded with a combination of sending and receiving items that is not allowed. For valid combinations of sending and receiving items, refer to "Rules for Moving (Transcribing) Data" in Chapter 6 of the "NetCOBOL Language Reference".
JMN3024I-W ([Win32])
Example
[C3024.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3024. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 ED01 PIC S9(16). 000006 01 ED02 PIC SV9(16). 000007 PROCEDURE DIVISION. 000008 ADD ED01 TO ED02.
C3024.cob 8: JMN3024I-W The intermediate result cannot contain more than 30 digits. The intermediate result is assumed to have 30 digits.
JMN3024I-W ([Winx64])
Parameter Explanation
@1@ : The maximum number of intermediate result digits.
Example
[C3024.cob] 000001 @OPTIONS ARITHMETIC(18) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3024. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 ED01 PIC S9(16). 000007 01 ED02 PIC SV9(16). 000008 PROCEDURE DIVISION. 000009 ADD ED01 TO ED02.
C3024.cob 9: JMN3024I-W The intermediate result cannot contain more than 30 digits. The intermediate result is assumed to have 30 digits.
[C3024.cob] 000001 @OPTIONS ARITHMETIC(31) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3024. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 ED01 PIC S9(20). 000007 01 ED02 PIC SV9(20). 000008 PROCEDURE DIVISION. 000009 ADD ED01 TO ED02.
C3024.cob 9: JMN3024I-W The intermediate result cannot contain more than 38 digits. The intermediate result is assumed to have 38 digits.
JMN3025I-S
Example
[C3025.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3025. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC 1(8) BIT. 000007 PROCEDURE DIVISION. 000008 P-START. 000009 IF ( A ) = B"00001111" THEN 000010 STOP RUN.
C3025.cob 9: JMN3025I-S A Boolean expression cannot be specified in a conditional expression.
JMN3028I-S
Parameter Explanation
@1@ : Identifier
Example
[C3028.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3028. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 LIB-NAME PIC S9(8). 000007 PROCEDURE DIVISION. 000008 P-START. 000009 CALL LIB-NAME.
C3028.cob 9: JMN3028I-S Identifier 'LIB-NAME' of the CALL statement must be an alphanumeric item or a national item.
JMN3029I-S
Example
[C3029.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3029. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 PROCEDURE DIVISION. 000007 P-START. 000008 CALL "C3029SUB" USING INT-START REC. 000009 INT-START. 000010 EXIT PROGRAM. 000011 IDENTIFICATION DIVISION. 000012 PROGRAM-ID. C3029SUB. 000013 ENVIRONMENT DIVISION. 000014 DATA DIVISION. 000015 LINKAGE SECTION. 000016 01 RETURN-P POINTER. 000017 PROCEDURE DIVISION USING RETURN-P. 000018 DISPLAY "C3029SUB". 000019 END PROGRAM C3029SUB. 000020 END PROGRAM C3029.
C3029.cob 8: JMN3029I-S A procedure-name cannot be specified for the USING phrase in this CALL statement.
JMN3030I-S
Parameter Explanation
@1@ : Identifier
Example
[C3030.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3030. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 TEST-P PIC 9(8). 000007 PROCEDURE DIVISION. 000008 P-START. 000009 CANCEL TEST-P.
C3030.cob 9: JMN3030I-S Identifier 'TEST-P' in the CANCEL statement must be an alphanumeric or a national item.
JMN3034I-S
Parameter Explanation
@1@ : Symbol of the set item.
@2@ : Symbol of the item or integer constant specified for the TO phrase.
Example
[C3034.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3034. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC S9(8) BINARY. 000007 01 B INDEX. 000008 PROCEDURE DIVISION. 000009 P-START. 000010 SET A TO B. 000011 STOP RUN.
C3034.cob 10: JMN3034I-S The content of 'A' in the SET statement cannot be changed by 'B'. Specify a correct combination.
JMN3036I-S
Parameter Explanation
@1@ : Symbol or constant
@2@ : Key word that shows paragraphs that can be specified by the REPLACING phrase.
Example
[C3036.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3036. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC X(10). 000007 01 B PIC 99 VALUE 10. 000008 PROCEDURE DIVISION. 000009 P-START. 000010 INITIALIZE A REPLACING ALPHABETIC BY B 000011 NUMERIC BY B. 000012 STOP RUN.
C3036.cob 10: JMN3036I-S In the REPLACING phrase of the INITIALIZE statement, 'B' must be in a category that can be moved to an item of category ALPHABETIC.
JMN3037I-S
Parameter Explanation
@1@ : Item name specified for the receiving side.
Example
[C3037.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3037. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A. 000007 02 B PIC X OCCURS 1 TO 10 DEPENDING ON C. 000008 01 C PIC 99. 000009 PROCEDURE DIVISION. 000010 P-START. 000011 INITIALIZE A C. 000012 STOP RUN.
C3037.cob 11: JMN3037I-S Item 'A' which is defined with an OCCURS clause with DEPENDING cannot be specified in an INITIALIZE statement.
JMN3038I-S
Parameter Explanation
@1@ : Identifier.
Example
[C3038.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3038. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC 99. 000007 01 B PIC XX. 000008 PROCEDURE DIVISION. 000009 PERFORM VARYING A FROM B BY 1 UNTIL A < 0 000010 COMPUTE A = A - 1 000011 END-PERFORM. 000012 STOP RUN.
C3038.cob 9: JMN3038I-S 'B' in the PERFORM statement must be a numeric item.
JMN3039I-S
Parameter Explanation
@1@ : Identifier.
Example
[C3039.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3039. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC 9V9. 000007 PROCEDURE DIVISION. 000008 PERFORM L1 A TIMES. 000009 L1. 000010 DISPLAY A. 000011 L2. 000012 STOP RUN.
C3039.cob 8: JMN3039I-S 'A' in the PERFORM statement must be an integer item.
JMN3040I-S
Parameter Explanation
@1@ : Identifier.
@2@ : SEARCH/SEARCH ALL
Example
[C3040.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3040. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 TBL. 000007 02 A OCCURS 5 TIMES. 000008 03 B PIC 9. 000009 PROCEDURE DIVISION. 000010 SEARCH A WHEN B(1) = 0 000011 STOP RUN.
C3040.cob 10: JMN3040I-S Identifier 'A' in the SEARCH statement must be a data item that has an OCCURS clause with an INDEXED BY phrase.
JMN3041I-S
Parameter Explanation
@1@ : Identifier.
Example
[C3041.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3041. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 TBL. 000007 02 X OCCURS 5 TIMES 000008 INDEXED BY IX1. 000009 03 A PIC 9. 000010 01 B PIC 9V9. 000011 PROCEDURE DIVISION. 000012 SEARCH X VARYING B WHEN A(IX1) = 0 000013 MOVE 1 TO A(IX1). 000014 STOP RUN.
C3041.cob 12: JMN3041I-S 'B' of the VARYING phrase in the SEARCH statement must be an index-name, indexed data item, or integer item.
JMN3043I-S
Example
[C3043.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3043. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC 9(2). 000007 01 B PIC XX. 000008 01 X PIC 9(2). 000009 PROCEDURE DIVISION. 000010 EVALUATE X 000011 WHEN A THROUGH B 000012 MOVE 1 TO A. 000013 STOP RUN.
C3043.cob 11: JMN3043I-S The two operands connected by the THROUGH phrase in the EVALUATE statement must be of the same class.
JMN3046I-S
Example
[C3046.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3046. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC 9(2). 000007 PROCEDURE DIVISION. 000008 EVALUATE A 000009 WHEN 0 000010 MOVE 0 TO A 000011 WHEN TRUE 000012 MOVE 1 TO A 000013 END-EVALUATE. 000014 END PROGRAM C3046.
C3046.cob 11: JMN3046I-S If an arithmetic expression, identifier, or literal is specified in the selection subject of the EVALUATE statement, the selection object must be an arithmetic expression, identifier, literal, or 'ANY'.
JMN3048I-S
Example
[C3048.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3048. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC 1(2). 000007 01 B PIC 1(2). 000008 01 X PIC 1(2). 000009 PROCEDURE DIVISION. 000010 EVALUATE X 000011 WHEN A THROUGH B 000012 MOVE B"01" TO A. 000013 STOP RUN.
C3048.cob 11: JMN3048I-S The two operands connected with the THROUGH phrase in the EVALUATE statement cannot be a Boolean or object identifier.
JMN3049I-S
Example
[C3049.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3049. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC X(2). 000007 PROCEDURE DIVISION. 000008 EVALUATE TRUE 000009 WHEN A 000010 MOVE 1 TO A. 000011 STOP RUN.
C3049.cob 9: JMN3049I-S If 'TRUE' or 'FALSE' is specified in the selection subject of the EVALUATE statement, the selection object must be a conditional expression, 'TRUE', 'FALSE', or 'ANY'.
JMN3050I-W
Parameter Explanation
@1@ : MOVE, ADD, or SUBTRACT
Example
[C3050.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3050. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 AA. 000008 02 CC-1 PIC 9(4). 000009 02 CC-2 PIC 9(8). 000010 01 BB. 000011 02 CC-3 PIC 9(4). 000012 02 CC-4 PIC 9(8). 000013 PROCEDURE DIVISION. 000014 P-START. 000015 ADD CORR AA TO BB. 000016 STOP RUN.
C3050.cob 15: JMN3050I-W No corresponding items exist in the ADD statement with CORRESPONDING phrase. The statement is ignored.
Explanation
If there are no elementary items that correspond between sending and receiving items in a statement that has the CORRESPONDING phrase, then the statement has no meaning.
Note that for elementary items to match, the fully qualified names, below the items specified in the statement, must match. It is not sufficient that the names of the elementary items match if there are intervening group items between the elementary items and the items specified in the statement.
JMN3051I-S
Parameter Explanation
@1@ : MOVE, ADD or SUBTRACT.
@2@ : Identifier.
Example
[C3051.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3051. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 AA. 000008 02 CC-1 PIC 9(4). 000009 02 CC-2 PIC 9(8). 000010 01 BB. 000011 02 CC-3 PIC 9(4). 000012 02 CC-4 PIC 9(8). 000013 PROCEDURE DIVISION. 000014 P-START. 000015 ADD CORR CC-2 TO BB. 000016 STOP RUN.
C3051.cob 15: JMN3051I-S 'CC-2' specified in the ADD statement with the CORRESPONDING phrase must be a group item.
JMN3053I-S
Parameter Explanation
@1@ : Identifier.
Example
[C3053.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3053. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 AA PIC ZZZZ9. 000007 PROCEDURE DIVISION. 000008 P-START. 000009 ACCEPT AA FROM SYSIN. 000010 STOP RUN.
C3053.cob 9: JMN3053I-S In the ACCEPT statement specifying a mnemonic-name or function-name, identifier 'AA' must be a fixed-length group item, alphabetic item, alphanumeric item, external decimal item, internal decimal item, binary item, or external boolean item.
JMN3054I-S
Parameter Explanation
@1@ : Identifier.
Example
[C3054.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3054. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-FILE ASSIGN TO DA-S-SYS006. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD IN-FILE LABEL RECORD STANDARD. 000010 01 REC. 000011 02 REC-NO PIC 9(4). 000012 02 REC-DATA PIC X(8). 000013 02 FILLER PIC X(68). 000014 WORKING-STORAGE SECTION. 000015 77 AA PIC 1(8). 000016 PROCEDURE DIVISION. 000017 P-START. 000018 ACCEPT AA FROM DATE. 000019 STOP RUN.
C3054.cob 18: JMN3054I-S If a DATE, DAY, DAY-OF-WEEK, or TIME is specified in the 'FROM' phrase of the ACCEPT statement, 'AA' must be a fixed length group item, alphanumeric, alphanumeric edited, numeric edited, external decimal, or binary item.
JMN3056I-S
Parameter Explanation
@1@ : Organization of file
@2@ : File name
@3@ : SORT or MERGE
@4@ : USING or GIVING
Example
[C3056.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3056. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 ASSIGN TO DA-S-SYS001. 000007 SELECT FILE-2 ASSIGN TO DA-D-SYS002. 000008 SELECT FILE-3 ASSIGN TO DA-I-SYS003 000009 ACCESS MODE IS RANDOM 000010 INDEXED RECORD KEY IS KEY-3-1. 000011 DATA DIVISION. 000012 FILE SECTION. 000013 SD FILE-1 LABEL RECORD STANDARD. 000014 01 REC-1. 000015 02 KEY-1 PIC 9(2). 000016 02 KEY-2 PIC 9(2). 000017 02 KEY-3 PIC 9(2). 000018 02 FILLER PIC X(74). 000019 FD FILE-2 LABEL RECORD STANDARD. 000020 01 REC-2 PIC X(80). 000021 FD FILE-3 LABEL RECORD STANDARD. 000022 01 REC-3. 000023 02 KEY-3-1 PIC 9(2). 000024 02 KEY-3-2 PIC X(78). 000025 PROCEDURE DIVISION. 000026 P-START. 000027 SORT FILE-1 ON ASCENDING KEY KEY-1 KEY-2 000028 USING FILE-2 000029 GIVING FILE-3. 000030 STOP RUN.
C3056.cob 27: JMN3056I-S Indexed file 'FILE-3' cannot be specified to a GIVING phrase in a SORT statement.
Explanation
The file which the message shows is not a type which can be specified for the USING phrase and the GIVING phrase of the SORT statement and the MERGE statement.
Only the file of the following types can be specified:
Sequential files on a mass storage unit or floppy disk drive
Relative files in sequential access mode
Indexed files in sequential access mode
JMN3057I-S
Parameter Explanation
@1@ : SORT or MERGE
Example
[C3057.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3057. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 ABN-1 IS CODE-3. 000007 INPUT-OUTPUT SECTION. 000008 FILE-CONTROL. 000009 SELECT FILE-1 ASSIGN TO DA-S-SYS001. 000010 SELECT FILE-2 ASSIGN TO DA-S-SYS002. 000011 SELECT FILE-3 ASSIGN TO DA-S-SYS003. 000012 DATA DIVISION. 000013 FILE SECTION. 000014 SD FILE-1 LABEL RECORD STANDARD. 000015 01 REC-1. 000016 02 KEY-1 PIC 9(2). 000017 02 KEY-2 PIC 9(2). 000018 02 KEY-3 PIC 9(2). 000019 02 FILLER PIC X(74). 000020 FD FILE-2 LABEL RECORD STANDARD. 000021 01 REC-2 PIC X(80). 000022 FD FILE-3 LABEL RECORD STANDARD. 000023 01 REC-3 PIC X(80). 000024 PROCEDURE DIVISION. 000025 P-START. 000026 SORT FILE-1 ON ASCENDING KEY KEY-1 KEY-2 000027 COLLATING SEQUENCE ABN-1 000028 USING FILE-2 000029 GIVING FILE-3. 000030 STOP RUN.
C3057.cob 26: JMN3057I-S An alphabet-name corresponding to a function-name cannot be specified in the COLLATING SEQUENCE phrase of SORT.
JMN3060I-S
Parameter Explanation
@1@ : Name of identifier.
Example
[C3060.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3060. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 DATA DIVISION. 000006 FILE SECTION. 000007 CONSTANT SECTION. 000008 01 ED-DATA PIC 9(4) VALUE 10. 000009 PROCEDURE DIVISION. 000010 P-START. 000011 MOVE 20 TO ED-DATA. 000012 STOP RUN.
C3060.cob 11: JMN3060I-S 'ED-DATA' defined in the CONSTANT SECTION cannot be specified in a receiving field.
JMN3061I-S
Parameter Explanation
@1@ : Special register name(LINE-COUNTER or LINAGE-COUNTER)
Example
[C3061.cob] 000001 PROGRAM-ID. C3061. 000002 ENVIRONMENT DIVISION. 000003 INPUT-OUTPUT SECTION. 000004 FILE-CONTROL. 000005 SELECT RW-FS1 ASSIGN TO 000006 REPFILE. 000007 SELECT PRINT-FILE ASSIGN TO 000008 SYS006. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD PRINT-FILE 000012 LINAGE IS 50 LINES. 000013 01 PRINT-REC PIC X(120). 000014 FD RW-FS1 000015 LABEL RECORDS ARE STANDARD 000016 REPORT IS RW-FS1-REPORT-1. 000017 WORKING-STORAGE SECTION. 000018 01 REPORT-LINE-IMAGE. 000019 02 FILLER PICTURE X(43). 000020 02 WS-COUNTER PICTURE 9(6) VALUE ZERO. 000021 02 STORE-LINE-COUNTER PICTURE 9(6). 000022 REPORT SECTION. 000023 RD RW-FS1-REPORT-1 000024 PAGE LIMIT IS 20 LINES. 000025 01 RW-FS1-GROUP 000026 TYPE IS DETAIL. 000027 03 RW-FS1-ELEM 000028 LINE NUMBER IS PLUS 1 000029 COLUMN NUMBER IS 5 000030 PICTURE X(76) 000031 SOURCE IS REPORT-LINE-IMAGE. 000032 PROCEDURE DIVISION. 000033 MOVE 100 TO LINE-COUNTER 000034 MOVE 10 TO LINAGE-COUNTER 000035 . 000036 END PROGRAM C3061.
C3061.cob 33: JMN3061I-S Special register 'LINE-COUNTER' cannot be specified in a receiving field.
C3061.cob 34: JMN3061I-S Special register 'LINAGE-COUNTER' cannot be specified in a receiving field.
JMN3062I-S
Parameter Explanation
@1@ : ADD/SUBTRACT/MULTIPLY/DIVIDE
@2@ : Name of the identifier.
Example
[C3062.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3062. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC X(4). 000007 01 B PIC 9(4). 000008 PROCEDURE DIVISION. 000009 P-START. 000010 ADD A TO B. 000011 SUBTRACT A FROM B. 000012 MULTIPLY A BY B. 000013 DIVIDE A INTO B. 000014 STOP RUN.
C3062.cob 10: JMN3062I-S Operand 'A' in the ADD statement must be numeric item.
C3062.cob 11: JMN3062I-S Operand 'A' in the SUBTRACT statement must be numeric item.
C3062.cob 12: JMN3062I-S Operand 'A' in the MULTIPLY statement must be numeric item.
C3062.cob 13: JMN3062I-S Operand 'A' in the DIVIDE statement must be numeric item.
JMN3063I-S
Parameter Explanation
@1@ : ADD/SUBTRACT/MULTIPLY/DIVIDE
@2@ : Name of identifier.
Example
[C3063.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3063. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC 9(4). 000007 01 B PIC 9(4). 000008 01 C PIC X(4). 000009 PROCEDURE DIVISION. 000010 P-START. 000011 ADD A TO B GIVING C. 000012 SUBTRACT A FROM B GIVING C. 000013 MULTIPLY A BY B GIVING C. 000014 DIVIDE A INTO B GIVING C. 000015 STOP RUN.
C3063.cob 11: JMN3063I-S Operand 'C' of the GIVING phrase in the ADD statement must be a numeric or a numeric edited item.
C3063.cob 12: JMN3063I-S Operand 'C' of the GIVING phrase in the SUBTRACT statement must be a numeric or a numeric edited item.
C3063.cob 13: JMN3063I-S Operand 'C' of the GIVING phrase in the MULTIPLY statement must be a numeric or a numeric edited item.
C3063.cob 14: JMN3063I-S Operand 'C' of the GIVING phrase in the DIVIDE statement must be a numeric or a numeric edited item.
JMN3064I-S
Parameter Explanation
@1@ : ADD/SUBTRACT
@2@ : Name of identifier.
Example
[C3064.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3064. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A. 000007 02 C1 PIC XX. 000008 01 B. 000009 02 C1 PIC 99. 000010 PROCEDURE DIVISION. 000011 P-START. 000012 ADD CORR A TO B. 000013 SUBTRACT CORR A FROM B. 000014 STOP RUN.
C3064.cob 12: JMN3064I-S Corresponding item 'C1' in the ADD statement with the CORRESPONDING phrase must be an elementary numeric data item.
C3064.cob 13: JMN3064I-S Corresponding item 'C1' in the SUBTRACT statement with the CORRESPONDING phrase must be an elementary numeric data item.
JMN3065I-S
Parameter Explanation
@1@ : dividend/divisor
Example
[C3065.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3065. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A COMP-1. 000007 01 B PIC 99. 000008 01 C PIC 9999. 000009 01 D PIC 99. 000010 PROCEDURE DIVISION. 000011 P-START. 000012 DIVIDE A BY B GIVING C REMAINDER D. 000013 DIVIDE A INTO B GIVING C REMAINDER D. 000014 STOP RUN.
C3065.cob 12: JMN3065I-S Dividend of the DIVIDE statement with the REMAINDER clause must be a fixed decimal point item or a decimal point literal.
C3065.cob 13: JMN3065I-S Divisor of the DIVIDE statement with the REMAINDER clause must be a fixed decimal point item or a decimal point literal.
JMN3066I-S
Parameter Explanation
@1@ : Name of identifier.
Example
[C3066.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3066. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC 9999. 000007 01 B PIC 99. 000008 01 C PIC 9999. 000009 01 D COMP-1. 000010 PROCEDURE DIVISION. 000011 P-START. 000012 DIVIDE A INTO B GIVING C REMAINDER D. 000013 STOP RUN.
C3066.cob 12: JMN3066I-S Receiving item 'D' of the DIVIDE statement with remainder must be fixed decimal point item or a numeric edited item.
JMN3067I-S
Example
[C3067.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3067. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC 1111. 000007 PROCEDURE DIVISION. 000008 P-START. 000009 COMPUTE A = B"1010" AND 1234. 000010 STOP RUN.
C3067.cob 9: JMN3067I-S The literal of the boolean expression must be a boolean literal or ZERO. The literal is assumed to be ZERO.
JMN3068I-S
Example
[C3068.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3068. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC 1111. 000007 01 B PIC 1111. 000008 01 C PIC 11111. 000009 PROCEDURE DIVISION. 000010 P-START. 000011 COMPUTE A = B AND C. 000012 COMPUTE A = B"101011" AND B"111". 000013 STOP RUN.
C3068.cob 11: JMN3068I-S The length of boolean items and boolean literals (except a boolean literal with 'ALL') must be the same.
C3068.cob 12: JMN3068I-S The length of boolean items and boolean literals (except a boolean literal with 'ALL') must be the same.
JMN3069I-S
Parameter Explanation
@1@ : Name of identifier.
Example
[C3069.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3069. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC XXXX. 000007 01 B PIC 9(4). 000008 01 C PIC 9(4). 000009 01 D PIC 9(4). 000010 PROCEDURE DIVISION. 000011 P-START. 000012 COMPUTE A = B + C ON SIZE ERROR STOP RUN 000013 NOT ON SIZE ERROR MOVE B TO D. 000014 STOP RUN.
C3069.cob 12: JMN3069I-S Receiving operand 'A' with the [NOT] ON SIZE ERROR phrase must be a numeric item or a numeric edited item.
JMN3070I-S
Example
[C3070.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3070. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC 9(4). 000007 01 B PIC XXXX. 000008 01 C PIC 9(4). 000009 PROCEDURE DIVISION. 000010 P-START. 000011 COMPUTE A = B ON SIZE ERROR STOP RUN 000012 NOT ON SIZE ERROR MOVE B TO C. 000013 STOP RUN.
C3070.cob 11: JMN3070I-S The expression to the right of the equals sign in a COMPUTE statement with the [NOT] ON SIZE ERROR phrase must be an arithmetic expression.
JMN3071I-S
Parameter Explanation
@1@ : Name of identifier.
Example
[C3071.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3071. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC 1111. 000007 01 B PIC 9(4). 000008 01 C PIC 9(4). 000009 PROCEDURE DIVISION. 000010 P-START. 000011 COMPUTE A = B + C. 000012 STOP RUN.
C3071.cob 11: JMN3071I-S If the expression to the right of the equals sign in a COMPUTE statement is an arithmetic expression, receiving operand 'A' must be a numeric item or a numeric edited item.
JMN3072I-S
Parameter Explanation
@1@ : Name of identifier.
Example
[C3072.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3072. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC 9(4). 000007 01 B PIC 1111. 000008 01 C PIC 1111. 000009 PROCEDURE DIVISION. 000010 P-START. 000011 COMPUTE A = B AND C. 000012 STOP RUN.
C3072.cob 11: JMN3072I-S If the expression to the right of the equals sign in a COMPUTE statement is a boolean expression, receiving operand 'A' must be a boolean item.
JMN3073I-S
Example
[C3073.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3073. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC 9(4). 000007 01 B PIC XXXX. 000008 PROCEDURE DIVISION. 000009 P-START. 000010 COMPUTE A = B. 000011 STOP RUN.
C3073.cob 10: JMN3073I-S The expression to the right of the equals sign in a COMPUTE statement must be an arithmetic expression or a boolean expression.
JMN3074I-S
Parameter Explanation
@1@ : Name of identifier.
Example
[C3074.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3074. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC XXXX. 000007 PROCEDURE DIVISION. 000008 P-START. 000009 COMPUTE A = ZERO. 000010 STOP RUN.
C3074.cob 9: JMN3074I-S Receiving operand 'A' of the COMPUTE statement must be a numeric item, a numeric edited item, or a boolean item.
JMN3075I-S
Example
[C3075.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3075. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC 9999. 000007 01 B PIC 1111. 000008 01 C PIC XXXX. 000009 PROCEDURE DIVISION. 000010 P-START. 000011 COMPUTE A B = ZERO. 000012 STOP RUN.
C3075.cob 11: JMN3075I-S Receiving items of the COMPUTE statement must be numeric items or numeric edited items, or they all must be boolean items.
JMN3076I-S
Example
[C3076.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3076. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC 1111. 000007 01 B PIC 1111. 000008 01 C PIC 1111. 000009 PROCEDURE DIVISION. 000010 P-START. 000011 COMPUTE A ROUNDED = B AND C. 000012 STOP RUN.
C3076.cob 11: JMN3076I-S The ROUNDED phrase cannot be specified for a COMPUTE statement containing a boolean item.
JMN3077I-S
Parameter Explanation
@1@ : Identifier, special register, or index-name.
@2@ : Data type.
@3@ : Identifier, special register, or index-name.
@4@ : Data type.
Example
[C3077.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3077. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC S9(3) PACKED-DECIMAL. 000007 01 B PIC XX. 000008 PROCEDURE DIVISION. 000009 P-START. 000010 IF A = B STOP RUN.
C3077.cob 10: JMN3077I-S 'A'(internal decimal) and 'B'(alphanumeric) cannot be compared.
JMN3078I-S
Example
[C3078.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3078. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 PROCEDURE DIVISION. 000006 P-START. 000007 IF 10 = 20 STOP RUN.
C3078.cob 7: JMN3078I-S A comparison between a literal and a literal cannot be done in a relation condition.
JMN3079I-S
Example
[C3079.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3079. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC 1(8). 000007 01 B PIC 1(8) BIT. 000008 PROCEDURE DIVISION. 000009 P-START. 000010 IF A > B STOP RUN.
C3079.cob 10: JMN3079I-S The relational operator for a comparison of boolean operands must be 'EQUAL(=)' or 'NOT EQUAL(NOT =)'.
JMN3080I-S
Example
[C3080.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3080. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC 1 BIT. 000007 01 B PIC 1(8) BIT. 000008 PROCEDURE DIVISION. 000009 P-START. 000010 IF A = B STOP RUN.
C3080.cob 10: JMN3080I-S In comparison between a Boolean operand and a Boolean operand other than ALL boolean literal, the number of Boolean characters of both operands must be the same.
JMN3081I-S
Parameter Explanation
@1@ : Identifier or figure constant.
Example
[C3081.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3081. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC S9(4)V9 BINARY. 000007 01 B. 000008 02 C OCCURS 10 TIMES INDEXED BY IX. 000009 03 D PIC XX. 000010 PROCEDURE DIVISION. 000011 P-START. 000012 IF A = IX STOP RUN.
C3081.cob 12: JMN3081I-S 'A' of the index comparison must be an integer.
JMN3083I-S
Parameter Explanation
@1@ : ALPHABETIC, ALPHABETIC-LOWER or ALPHABETIC-UPPER.
@2@ : Identifier.
Example
[C3083.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3083. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC 9(4). 000007 PROCEDURE DIVISION. 000008 P-START. 000009 IF A IS ALPHABETIC STOP RUN.
C3083.cob 9: JMN3083I-S For an ALPHABETIC check of a class condition, 'A' must be a group item, alphabetic item, alphanumeric item, alphanumeric edited item, or numeric edited item.
JMN3084I-S
Parameter Explanation
@1@ : Identifier.
Example
[C3084.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3084. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC A(4). 000007 PROCEDURE DIVISION. 000008 P-START. 000009 IF A IS NUMERIC STOP RUN.
C3084.cob 9: JMN3084I-S For numeric check of class condition, 'A' must be external decimal item, internal decimal item, group item, alphanumeric item, alphanumeric edited item, or numeric edited item.
JMN3085I-S
Parameter Explanation
@1@ : Identifier.
Example
[C3085.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3085. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC 9(4). 000007 PROCEDURE DIVISION. 000008 P-START. 000009 IF A IS BOOLEAN STOP RUN.
C3085.cob 9: JMN3085I-S For a boolean check of class condition, 'A' must be an external boolean item, group item, alphanumeric item, alphanumeric edited item, or numeric edited item.
JMN3086I-S
Parameter Explanation
@1@ : Identifier.
Example
[C3086.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3086. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 CLASS ABC IS "ABC". 000007 DATA DIVISION. 000008 WORKING-STORAGE SECTION. 000009 01 A PIC 9. 000010 PROCEDURE DIVISION. 000011 P-START. 000012 IF A IS ABC STOP RUN.
C3086.cob 12: JMN3086I-S For a class name check of a class condition, 'A' must be a group item, alphabetic item, alphanumeric item, alphanumeric edited item, or numeric edited item.
JMN3087I-S
Parameter Explanation
@1@ : Identifier.
Example
[C3087.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3087. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC X(4). 000007 PROCEDURE DIVISION. 000008 P-START. 000009 IF A IS POSITIVE STOP RUN.
C3087.cob 9: JMN3087I-S 'A' of the sign condition must be a numeric item.
JMN3088I-S
Example
[C3088.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3088. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 PROCEDURE DIVISION. 000006 IF 10 + 20 IS POSITIVE THEN 000007 DISPLAY "ERROR" 000008 END-IF 000008 END PROGRAM C3088.
C3088.cob 6: JMN3088I-S The arithmetic expression of the sign condition must contain at least one identifier.
JMN3090I-S
Parameter Explanation
@1@ : Identifier.
Example
[C3090.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3090. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC 9(10) PACKED-DECIMAL. 000007 01 B PIC XX. 000008 01 C PIC X(4). 000009 PROCEDURE DIVISION. 000010 P-START. 000011 UNSTRING A DELIMITED BY B INTO C. 000012 STOP RUN.
C3090.cob 11: JMN3090I-S The usage of sending item 'A' in the UNSTRING statement must be 'DISPLAY'.
JMN3091I-S
Example
[C3091.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3091. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC X(10). 000007 01 B PIC XX. 000008 01 C PIC X(4). 000009 PROCEDURE DIVISION. 000010 P-START. 000011 UNSTRING A(1:6) DELIMITED BY B INTO C. 000012 STOP RUN.
C3091.cob 11: JMN3091I-S An item with a reference modifier cannot be specified for a sending operand of an UNSTRING statement.
JMN3092I-S
Parameter Explanation
@1@ : DELIMITED, INTO or DELIMITER.
@2@ : Identifier.
Example
[C3092.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3092. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC X(10). 000007 01 B PIC 9(3) PACKED-DECIMAL. 000008 01 C PIC X(4). 000009 PROCEDURE DIVISION. 000010 P-START. 000011 UNSTRING A DELIMITED BY B INTO C. 000012 STOP RUN.
C3092.cob 11: JMN3092I-S The usage of identifier 'B' of the DELIMITED phrase in the UNSTRING statement must be 'DISPLAY'.
JMN3095I-S
Parameter Explanation
@1@ : Identifier.
Example
[C3095.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3095. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC X(10). 000007 01 B PIC XX. 000008 01 C PIC ZZZ,ZZZ. 000009 PROCEDURE DIVISION. 000010 P-START. 000011 UNSTRING A DELIMITED BY B INTO C. 000012 STOP RUN.
C3095.cob 11: JMN3095I-S Identifier 'C' of the INTO phrase in the UNSTRING statement cannot be an alphanumeric edited item, numeric edited item, national edited item, or a numeric item having 'P' in its PICTURE character-string.
JMN3097I-S
Parameter Explanation
@1@ : COUNT,POINTER or TALLYING.
@2@ : Identifier.
Example
[C3097.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3097. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC X(10). 000007 01 B PIC XX. 000008 01 C PIC X(4). 000009 01 D PIC 9(3)V9 BINARY. 000010 PROCEDURE DIVISION. 000011 P-START. 000012 UNSTRING A DELIMITED BY B INTO C POINTER D. 000013 STOP RUN.
C3097.cob 12: JMN3097I-S Identifier 'D' of the POINTER phrase of the UNSTRING statement must be an integer item.
JMN3098I-S
Example
[C3098.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3098. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC N(10). 000007 01 B PIC XX. 000008 01 C PIC N(4). 000009 01 D PIC XX. 000010 PROCEDURE DIVISION. 000011 P-START. 000012 UNSTRING A DELIMITED BY B INTO C DELIMITER IN D. 000013 STOP RUN.
C3098.cob 12: JMN3098I-S If any of the operands in the DELIMITED BY phrase, INTO phrase, or DELIMITER IN phrase is a national type, then, in the UNSTRING statement on the sending side, the type for all must be national type and should have the same Encoding.
JMN3105I-S
Parameter Explanation
@1@ : ADD, SUBTRACT or MOVE.
@2@ : Identifier.
Example
[C3105.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3105. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 S. 000007 02 B PIC X(5). 000008 02 C. 000009 03 B PIC X(1). 000010 02 D PIC X(5). 000011 01 R. 000012 02 B PIC X(5). 000013 02 D PIC X(5). 000014 PROCEDURE DIVISION. 000015 P-START. 000016 MOVE CORRESPONDING S TO R. 000017 STOP RUN.
C3105.cob 16: JMN3105I-S Corresponding item 'B' is not unique in the MOVE statement with the CORRESPONDING phrase.
JMN3107I-S
Parameter Explanation
@1@ : DELIMITED or INTO.
@2@ : Identifier.
Example
[C3107.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3107. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 AN-1 PIC X(6). 000006 01 AN-2 PIC 9(2) BINARY. 000007 01 AN-3 PIC X(10). 000008 PROCEDURE DIVISION. 000009 P-START. 000010 STRING AN-1 DELIMITED BY AN-2 INTO AN-3. 000011 STRING AN-1 DELIMITED BY SIZE INTO AN-2. 000012 STOP RUN.
C3107.cob 10: JMN3107I-S The usage of operand 'AN-2' of the DELIMITED phrase in the STRING statement must be 'DISPLAY'.
C3107.cob 11: JMN3107I-S The usage of operand 'AN-2' of the INTO phrase in the STRING statement must be 'DISPLAY'.
JMN3108I-S
Example
[C3108.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3108. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 AN-1 PIC X(6). 000006 01 AN-2 PIC X(10). 000007 01 I PIC 9 BINARY. 000008 PROCEDURE DIVISION. 000009 P-START. 000010 STRING AN-1 DELIMITED BY "I" INTO AN-2(I : I). 000011 STOP RUN.
C3108.cob 10: JMN3108I-S An item with a reference modifier cannot be specified as a receiving area item in the STRING statement.
JMN3109I-S
Parameter Explanation
@1@ : POINTER
@2@ : Identifier.
Example
[C3109.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3109. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 AN-1 PIC X(6). 000006 01 AN-2 PIC X(10). 000007 01 PTR PIC 99V9. 000008 PROCEDURE DIVISION. 000009 P-START. 000010 STRING AN-1 DELIMITED BY "I" INTO AN-2 POINTER PTR. 000011 STOP RUN.
C3109.cob 10: JMN3109I-S Item 'PTR' of the 'POINTER' phrase in the STRING statement must be an integer item.
JMN3110I-S
Example
[C3110.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3110. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 AN-1 PIC X(6) VALUE "STRING". 000006 01 AN-2 PIC ZZZ9. 000007 PROCEDURE DIVISION. 000008 P-START. 000009 STRING AN-1 DELIMITED BY "I" INTO AN-2. 000010 STOP RUN.
C3110.cob 9: JMN3110I-S The receiving item in the STRING statement cannot be an alphanumeric edited item, a numeric edited item, or a national edited item.
JMN3111I-S
Example
000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3111. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 AN-1 PIC X(6) VALUE "STRING". 000006 01 AN-2 PIC X(10). 000007 PROCEDURE DIVISION. 000008 P-START. 000009 STRING AN-1 DELIMITED BY N"あ" INTO AN-2. 000010 STOP RUN.
C3111.cob 8: JMN3111I-S If any of the operands in the DELIMITED BY phrase or the INTO phrase is a national type, then on the sending side in the STRING statement, all operands must be National language and have the same encoding.
JMN3116I-S
Parameter Explanation
@1@ : Organization of file.
@2@ : Fine name.
@3@ : 'INPUT', 'OUTPUT', 'I-O' or 'EXTEND'.
Example
[C3116.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3116. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 LINE SEQUENTIAL ASSIGN TO PS-SYS001. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD FILE-1. 000010 01 REC-1 PIC X(80). 000011 PROCEDURE DIVISION. 000012 OPEN I-O FILE-1. 000013 STOP RUN.
C3116.cob 12: JMN3116I-S Line sequential file 'FILE-1' cannot be specified in the I-O phrase of the OPEN statement.
JMN3117I-S
Parameter Explanation
@1@ : File name.
Example
[C3117.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3117. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 ASSIGN TO S-SYS001. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD FILE-1 LINAGE IS 50 LINES. 000010 01 REC-1 PIC X(80). 000011 PROCEDURE DIVISION. 000012 OPEN EXTEND FILE-1. 000013 STOP RUN.
C3117.cob 12: JMN3117I-S File 'FILE-1' with the LINAGE clause cannot be specified in the EXTEND phrase of the OPEN statement.
JMN3119I-S
Parameter Explanation
@1@ : 'REVERSED', 'WITH NO REWIND' or 'FOR REMOVAL'.
Example
[C3119.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3119. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 ASSIGN TO SYS001 000007 ORGANIZATION IS INDEXED 000008 ACCESS MODE IS RANDOM 000009 RECORD KEY IS KEY-REC. 000010 DATA DIVISION. 000011 FILE SECTION. 000012 FD FILE-1. 000013 01 REC-1. 000014 02 KEY-REC PIC XX. 000015 02 FILLER PIC X(78). 000016 PROCEDURE DIVISION. 000017 OPEN INPUT FILE-1 REVERSED. 000018 STOP RUN.
C3119.cob 17: JMN3119I-S The REVERSED phrase can only be specified for a sequential file other than a print file with a FORMAT clause.
JMN3121I-S
Parameter Explanation
@1@ : 'REEL' or 'UNIT'
Example
[C3121.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3121. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 ASSIGN TO SYS001 000007 ORGANIZATION IS INDEXED 000008 ACCESS MODE IS RANDOM 000009 RECORD KEY IS KEY-REC. 000010 DATA DIVISION. 000011 FILE SECTION. 000012 FD FILE-1. 000013 01 REC-1. 000014 02 KEY-REC PIC XX. 000015 02 FILLER PIC X(78). 000016 PROCEDURE DIVISION. 000017 CLOSE FILE-1 REEL. 000018 STOP RUN.
C3121.cob 17: JMN3121I-S A REEL phrase can only be specified for a sequential file other then a print file with a FORMAT clause. The REEL phrase is ignored.
JMN3123I-S
Parameter Explanation
@1@ : File name.
Example
[C3123.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3123. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 ASSIGN TO DA-S-SYS001. 000007 SELECT FILE-2 ASSIGN TO DA-S-SYS002. 000008 SELECT FILE-3 ASSIGN TO DA-S-SYS003. 000009 SELECT FILE-4 ASSIGN TO DA-S-SYS004. 000010 DATA DIVISION. 000011 FILE SECTION. 000012 SD FILE-1. 000013 01 REC-1. 000014 02 KEY-1 PIC XX. 000015 02 FILLER PIC X(78). 000016 FD FILE-2 LABEL RECORD STANDARD. 000017 01 REC-2 PIC X(80). 000018 FD FILE-3 LABEL RECORD STANDARD. 000019 01 REC-3 PIC X(80). 000020 FD FILE-4 LABEL RECORD STANDARD. 000021 01 REC-4 PIC X(80). 000022 PROCEDURE DIVISION. 000023 MERGE FILE-1 ON ASCENDING KEY KEY-1 000024 USING FILE-2 FILE-2 000025 GIVING FILE-4. 000026 STOP RUN.
C3123.cob 24: JMN3123I-S In the USING or GIVING phrase of the MERGE statement, a file cannot be specified more than once. File 'FILE-2' is ignored.
JMN3124I-S
Parameter Explanation
@1@ : File name.
@2@ : 'SORT' or 'MERGE'
Example
[C3124.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3124. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 ASSIGN TO DA-S-SYS001. 000007 SELECT FILE-2 ASSIGN TO DA-S-SYS002. 000008 SELECT FILE-3 ASSIGN TO DA-S-SYS003. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 SD FILE-1 LABEL RECORD IS STANDARD. 000012 01 REC-1. 000013 02 KEY-REC PIC XX. 000014 02 FILLER PIC X(78). 000015 FD FILE-2 LABEL RECORD IS STANDARD. 000016 01 REC-2 PIC N(40) CHARACTER TYPE IS MODE-2. 000017 FD FILE-3 LABEL RECORD IS STANDARD. 000018 01 REC-3 PIC X(80). 000019 PROCEDURE DIVISION. 000020 SORT FILE-1 ON ASCENDING KEY KEY-REC 000021 USING FILE-2 000022 GIVING FILE-3. 000023 STOP RUN.
C3124.cob 21: JMN3124I-S A file having a record description entry with a CHARACTER TYPE or PRINTING POSITION clause cannot be specified in the USING or GIVING phrase of the SORT statement. File name 'FILE-2' is ignored.
JMN3127I-S
Parameter Explanation
@1@ : Identifier of the FROM specification.
@2@ : Record name.
Example
[C3127.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3127. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 ASSIGN TO SYS001. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD FILE-1. 000010 01 REC-1. 000011 02 REC-1-1 PIC XX. 000012 02 REC-1-2 PIC XX. 000013 02 FILLER PIC X(76). 000014 PROCEDURE DIVISION. 000015 WRITE REC-1 FROM REC-1-2. 000016 STOP RUN.
C3127.cob 15: JMN3127I-S Operand 'REC-1-2' of the FROM phrase and record-name 'REC-1' cannot occupy the same storage space.
JMN3128I-S
Example
[C3128.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3128. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 ASSIGN TO S-SYS001. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD FILE-1. 000010 01 REC-1 PIC X(80). 000011 WORKING-STORAGE SECTION. 000012 01 CNTL-DATA PIC X(36). 000013 PROCEDURE DIVISION. 000014 WRITE REC-1 CONTROL AREA IS CNTL-DATA. 000015 STOP RUN.
C3128.cob 14: JMN3128I-S The CONTROL AREA phrase cannot be specified for any file except a communication-file.
JMN3130I-S
Parameter Explanation
@1@ : File name.
Example
[C3130.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3130. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 CHANNEL-01 IS CHN-1. 000007 INPUT-OUTPUT SECTION. 000008 FILE-CONTROL. 000009 SELECT FILE-1 ASSIGN TO S-SYS001. 000010 DATA DIVISION. 000011 FILE SECTION. 000012 FD FILE-1 LINAGE IS 50 LINES. 000013 01 REC-1 PIC X(121). 000014 PROCEDURE DIVISION. 000015 WRITE REC-1 AFTER ADVANCING CHN-1. 000016 STOP RUN.
C3130.cob 15: JMN3130I-S An ADVANCING phrase with a mnemonic-name cannot be specified in the WRITE statement for file 'FILE-1' with the LINAGE clause. BEFORE ADVANCING 1 is assumed.
JMN3132I-S
Example
[C3132.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3132. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 ASSIGN TO SYS001 000007 ORGANIZATION IS INDEXED 000008 ACCESS MODE IS RANDOM 000009 RECORD KEY IS KEY-REC. 000010 DATA DIVISION. 000011 FILE SECTION. 000012 FD FILE-1. 000013 01 REC-1. 000014 02 KEY-REC PIC XX. 000015 02 FILLER PIC X(78). 000016 PROCEDURE DIVISION. 000017 WRITE REC-1 AFTER ADVANCING 1. 000018 STOP RUN.
C3132.cob 17: JMN3132I-S The ADVANCING phrase can only be specified for a sequential file.
JMN3135I-S
Parameter Explanation
@1@ : Identifier.
Example
[C3135.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3135. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 ASSIGN TO S-SYS001. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD FILE-1. 000010 01 REC-1 PIC X(121). 000011 WORKING-STORAGE SECTION. 000012 77 LCD-1 PIC XX. 000013 PROCEDURE DIVISION. 000014 WRITE REC-1 AFTER ADVANCING LCD-1. 000015 STOP RUN.
C3135.cob 14: JMN3135I-S Operand 'LCD-1' of the ADVANCING phrase in the WRITE statement must be an integer item. ADVANCING 1 is assumed.
JMN3136I-S
Example
[C3136.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3136. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 ASSIGN TO S-SYS001. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD FILE-1. 000010 01 REC-1 PIC X(121). 000011 PROCEDURE DIVISION. 000012 WRITE REC-1 AFTER ADVANCING 40000. 000013 STOP RUN.
C3136.cob 12: JMN3136I-S The integer of the ADVANCING phrase in the WRITE statement must be 0 through 32767. ADVANCING 1 is assumed.
JMN3141I-S
Parameter Explanation
@1@ : 'AT EOP', 'NOT AT EOP', 'INVALID KEY' or 'NOT INVALID KEY'.
@2@ : Organization of file.
Example
[C3141.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3141. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 ASSIGN TO SYS001 000007 ORGANIZATION IS INDEXED 000008 ACCESS MODE IS RANDOM 000009 RECORD KEY IS KEY-REC. 000010 DATA DIVISION. 000011 FILE SECTION. 000012 FD FILE-1. 000013 01 REC-1. 000014 02 KEY-REC PIC XX. 000015 02 FILLER PIC X(78). 000016 WORKING-STORAGE SECTION. 000017 77 DATA-1 PIC XX. 000018 PROCEDURE DIVISION. 000019 WRITE REC-1 AT EOP GO TO L1. 000020 MOVE "AA" TO DATA-1. 000021 L1. STOP RUN.
C3141.cob 19: JMN3141I-S The AT EOP clause cannot be specified for indexed file.
JMN3142I-S
Parameter Explanation
@1@ : 'Presentation file' or 'Chart file'
@2@ : File name.
Example
[C3142.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3142. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 ASSIGN TO GS-SYS001 000007 SYMBOLIC DESTINATION IS "ACM". 000008 DATA DIVISION. 000009 FILE SECTION. 000010 FD FILE-1. 000011 01 REC-1 PIC X(121). 000012 PROCEDURE DIVISION. 000013 REWRITE REC-1. 000014 STOP RUN.
C3142.cob 13: JMN3142I-S Presentation file 'FILE-1' cannot be specified in a REWRITE statement.
JMN3143I-S
Parameter Explanation
@1@ : File name.
Example
[C3143.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3143. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 ASSIGN TO SYS001 000007 ORGANIZATION IS INDEXED 000008 ACCESS MODE IS RANDOM 000009 RECORD KEY IS KEY-REC. 000010 DATA DIVISION. 000011 FILE SECTION. 000012 FD FILE-1. 000013 01 REC-1. 000014 02 KEY-REC PIC XX. 000015 02 FILLER PIC X(78). 000016 PROCEDURE DIVISION. 000017 READ FILE-1 NEXT. 000018 STOP RUN.
C3143.cob 17: JMN3143I-S The NEXT phrase cannot be specified for random access file 'FILE-1'.
JMN3144I-S
Parameter Explanation
@1@ : Identifier of INTO specification.
Example
[C3144.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3144. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 ASSIGN TO SYS001. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD FILE-1. 000010 01 REC-1. 000011 02 REC-1-S PIC X(80). 000012 PROCEDURE DIVISION. 000013 READ FILE-1 INTO REC-1-S. 000014 STOP RUN.
C3144.cob 13: JMN3144I-S Operand 'REC-1-S' of the INTO phrase and record area cannot occupy the same storage space.
JMN3145I-S
Example
[C3145.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3145. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 ASSIGN TO SYS001 000007 ORGANIZATION IS INDEXED 000008 ACCESS MODE IS SEQUENTIAL 000009 RECORD KEY IS KEY-REC. 000010 DATA DIVISION. 000011 FILE SECTION. 000012 FD FILE-1. 000013 01 REC-1. 000014 02 KEY-REC PIC XX. 000015 02 FILLER PIC X(78). 000016 PROCEDURE DIVISION. 000017 READ FILE-1 KEY IS KEY-REC. 000018 STOP RUN.
C3145.cob 17: JMN3145I-S The KEY phrase of the READ statement can only be specified for an indexed file of random access mode. The KEY phrase is ignored.
JMN3146I-S
Parameter Explanation
@1@ : Data name of KEY specification.
Example
[C3146.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3146. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 ASSIGN TO SYS001 000007 ORGANIZATION IS INDEXED 000008 ACCESS MODE IS RANDOM 000009 RECORD KEY IS KEY-REC. 000010 DATA DIVISION. 000011 FILE SECTION. 000012 FD FILE-1. 000013 01 REC-1. 000014 02 KEY-REC PIC XX. 000015 02 FILLER PIC X(78). 000016 WORKING-STORAGE SECTION. 000017 77 KEY-DATA PIC XX. 000018 PROCEDURE DIVISION. 000019 READ FILE-1 KEY IS KEY-DATA. 000020 STOP RUN.
C3146.cob 19: JMN3146I-S Data-item of the KEY phrase in the READ statement must be specified as a record key or an alternate record key.
JMN3147I-S
Parameter Explanation
@1@ : Access mode.
@2@ : File name.
@3@ : 'AT END', 'NOT AT END', 'INVALID KEY' or 'NOT INVALID KEY'.
Example
[C3147.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3147. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 ASSIGN TO SYS001 000007 ORGANIZATION IS INDEXED 000008 ACCESS MODE IS RANDOM 000009 RECORD KEY IS KEY-REC. 000010 DATA DIVISION. 000011 FILE SECTION. 000012 FD FILE-1. 000013 01 REC-1. 000014 02 KEY-REC PIC XX. 000015 02 FILLER PIC X(78). 000016 PROCEDURE DIVISION. 000017 READ FILE-1 AT END GO TO L1. 000018 L1. STOP RUN.
C3147.cob 17: JMN3147I-S The AT END phrase cannot be specified in the READ statement for file 'FILE-1' of random access.
JMN3148I-S
Example
[C3148.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3148. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 PROCEDURE DIVISION. 000006 P-1. 000007 GO TO . 000008* 000009 END PROGRAM C3148.
C3148.cob 7: JMN3148I-S A GO TO statement without a procedure-name must be referred to by an ALTER statement.
JMN3149I-S
Parameter Explanation
@1@ : Identifier.
Example
[C3149.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3149. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 77 DP-CTR PIC XX. 000007 77 AA PIC XX. 000008 PROCEDURE DIVISION. 000009 GO TO L1 L2 DEPENDING ON DP-CTR. 000010 L1. MOVE "AA" TO AA. 000011 GO TO L3. 000012 L2. MOVE "BB" TO AA. 000013 L3. STOP RUN.
C3149.cob 9: JMN3149I-S Identifier 'DP-CTR' of the GO TO DEPENDING ON statement must be an integer item.
JMN3150I-S
Parameter Explanation
@1@ : Paragraph name.
Example
[C3150.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3150. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 77 AA PIC XXX. 000007 PROCEDURE DIVISION. 000008 ALTER L1 TO L2. 000009 L1. MOVE "AAA" TO AA. 000010 GO TO L3. 000011 L2. MOVE "BBB" TO AA. 000012 L3. STOP RUN.
C3150.cob 8: JMN3150I-S Paragraph 'L1' referred to by the ALTER statement must be a sentence consisting of a single GO TO statement without a DEPENDING ON phrase.
JMN3151I-S
Parameter Explanation
@1@ : Identifier or 'literal'
@2@ : 'numeric item' or 'numeric literal'
Example
[C3151.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3151. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC 9999. 000007 01 B PIC 9999. 000008 01 C PIC XXXX. 000009 PROCEDURE DIVISION. 000010 P-START. 000011 COMPUTE A = B + C. 000012 COMPUTE A = B + B"10101". 000013 STOP RUN.
C3151.cob 11: JMN3151I-S Operand 'C' in the arithmetic expression must be a numeric item.
C3151.cob 12: JMN3151I-S Operand literal in the arithmetic expression must be a numeric literal.
JMN3152I-S
Parameter Explanation
@1@ : Identifier or 'literal'
@2@ : 'boolean item' or 'boolean literal'
Example
[C3152.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3152. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC 1111. 000007 01 B PIC 9999. 000008 PROCEDURE DIVISION. 000009 P-START. 000010 COMPUTE A = NOT ( NOT B ). 000011 COMPUTE A = NOT ( NOT 12345 ). 000012 STOP RUN.
C3152.cob 10: JMN3152I-S Operand 'B' in boolean expression must be boolean item.
C3152.cob 11: JMN3152I-S Operand literal in boolean expression must be a boolean literal.
JMN3153I-S
Parameter Explanation
@1@ : Identifier
Example
[C3153.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3153. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC 9999. 000007 01 B PIC XXXX. 000008 PROCEDURE DIVISION. 000009 P-START. 000010 COMPUTE A = ( B ). 000011 STOP RUN.
C3153.cob 10: JMN3153I-S Operand 'B' enclosed with parentheses in the expression must be a numeric item or a boolean item.
JMN3154I-S
Parameter Explanation
@1@ : Identifier or 'literal'
@2@ : 'numeric item' or 'numeric literal'
Example
[C3154.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3154. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC 9999. 000007 01 B. 000008 02 C PIC 9999 OCCURS 10 TIMES. 000009 01 I PIC 999V999. 000010 PROCEDURE DIVISION. 000011 P-START. 000012 COMPUTE A = C ( I ) + 5. 000013 COMPUTE A = C ( 1.25 ) + 5. 000014 STOP RUN.
C3154.cob 12: JMN3154I-S Data-name 'I' in parentheses for the subscript or reference modifier must be a numeric item which is an integer.
C3154.cob 13: JMN3154I-S Data-name literal in parentheses for the subscript or reference modifier must be a numeric literal which is an integer.
JMN3157I-S
Example
[C3157.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3157. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC X(10). 000007 01 B PIC 99 VALUE 10. 000008 PROCEDURE DIVISION. 000009 P-START. 000010 INITIALIZE A REPLACING ALPHABETIC BY B. 000011 STOP RUN.
C3157.cob 10: JMN3157I-S There is no valid data item in the REPLACING phrase of the INITIALIZE statement.
JMN3158I-I
Example
[C3158.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3158. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC X(10). 000007 PROCEDURE DIVISION. 000008 P-START. 000009 INITIALIZE A REPLACING NUMERIC BY 1 000010 ALPHABETIC BY "A". 000011 STOP RUN.
C3158.cob 9: JMN3158I-I There is no item to be initialized by INITIALIZE statement.
JMN3159I-S
Example
[C3159.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3159. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC X(2). 000007 01 B PIC XX. 000008 01 X PIC X(2). 000009 PROCEDURE DIVISION. 000010 EVALUATE A = B 000011 WHEN A 000012 MOVE 1 TO A. 000013 STOP RUN.
C3159.cob 11: JMN3159I-S When conditional expression of a selection subject is specified in the EVALUATE statement, the selection object must be a conditional expression, TRUE, FALSE, or ANY.
JMN3160I-S
Parameter Explanation
@1@ : Identifier
Example
[C3160.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3160. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 GRP. 000007 02 TBL OCCURS 10 TIMES INDEXED BY INX. 000008 03 A PIC X. 000009 01 B PIC XX. 000010 01 X PIC X(2). 000011 PROCEDURE DIVISION. 000012 SEARCH ALL TBL 000013 WHEN A(INX) = "Z" 000014 MOVE 1 TO B. 000015 STOP RUN.
C3160.cob 12: JMN3160I-S The KEY IS phrase must be specified in the data description entry of 'TBL' of the SEARCH ALL statement.
JMN3161I-S
Parameter Explanation
@1@ : Identifier
Example
[C3161.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3161. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 GRP1. 000007 02 TBL1 OCCURS 10 TIMES ASCENDING KEY IS K1 000008 INDEXED BY INX1. 000009 03 K1 PIC X. 000010 01 GRP2. 000011 02 TBL2 OCCURS 10 TIMES ASCENDING KEY IS K2 000012 INDEXED BY INX2. 000013 03 K2 PIC X. 000014 01 A PIC XX. 000015 01 B PIC X(2). 000016 PROCEDURE DIVISION. 000017 SEARCH ALL TBL1 000018 WHEN K2(INX1) = "Y" 000019 MOVE 1 TO A. 000020 STOP RUN.
C3161.cob 18: JMN3161I-S The data name in the WHEN phrase of the SEARCH ALL statement must be specified in the KEY IS phrase of the data description entry of 'TBL1'.
JMN3162I-S
Parameter Explanation
@2@ : Identifier
Example
[C3162.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3162. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 GRP. 000007 02 TBL OCCURS 5 TIMES. 000008 03 TBL-2 OCCURS 5 TIMES ASCENDING KEY IS A 000009 INDEXED BY INX1 INX2. 000010 04 A PIC 9. 000011 PROCEDURE DIVISION. 000012 SEARCH ALL TBL-2 000013 WHEN A(3, INX2) = 1 000014 STOP RUN.
C3162.cob 13: JMN3162I-S The rightmost subscript of the WHEN phrase in the SEARCH ALL statement must be the first index-name related to 'TBL-2'.
JMN3163I-S
Example
[C3163.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3163. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 GRP. 000007 02 TBL OCCURS 10 TIMES ASCENDING KEY IS A B C 000008 INDEXED BY INX. 000009 03 A PIC 9. 000010 03 B PIC X. 000011 03 C PIC X. 000012 PROCEDURE DIVISION. 000013 SEARCH ALL TBL 000014 WHEN C(INX) = "A" 000015 AND A(INX) = 9 000016 STOP RUN.
C3163.cob 14: JMN3163I-S All data-names or condition-names specified in the KEY IS phrase must be specified as data-names or condition-names in the WHEN phrase of the SEARCH ALL statement.
Explanation
You don't have to specify all the KEY IS items of a table definition in the WHEN phrase of the SEARCH ALL statement, but you cannot omit higher level keys when including lower keys. For example, if the key definition has "KEY IS A B C" then the WHEN phrase can reference: only A; A and B; and A, B and C; but it cannot just have A and C or just B or C.
JMN3164I-S
Parameter Explanation
@1@ : Organization of file.
@2@ : File name.
Example
[C3164.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3164. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 ASSIGN TO S-SYS001. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD FILE-1. 000010 01 REC-1 PIC X(80). 000011 PROCEDURE DIVISION. 000012 DELETE FILE-1. 000013 STOP RUN.
C3164.cob 12: JMN3164I-S Sequential file 'FILE-1' cannot be specified in DELETE statement.
JMN3165I-S
Parameter Explanation
@1@ : File name.
@2@ : 'INVALID KEY' or 'NOT INVALID KEY'
Example
[C3165.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3165. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 ASSIGN TO S-SYS001 000007 ORGANIZATION IS INDEXED 000008 ACCESS MODE IS SEQUENTIAL 000009 RECORD KEY IS REC-KEY. 000010 DATA DIVISION. 000011 FILE SECTION. 000012 FD FILE-1. 000013 01 REC-1. 000014 02 REC-KEY PIC XX. 000015 02 FILLER PIC XX. 000016 PROCEDURE DIVISION. 000017 DELETE FILE-1 INVALID KEY GO TO L1. 000018 L1. STOP RUN.
C3165.cob 17: JMN3165I-S For sequential access to file 'FILE-1', the INVALID KEY phrase cannot be specified in a DELETE statement.
JMN3166I-S
Parameter Explanation
@1@ : Access mode.
@2@ : Organization of file.
@3@ : File name.
Example
[C3166.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3166. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 ASSIGN TO SYS001. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD FILE-1. 000010 01 REC-1 PIC X(80). 000011 PROCEDURE DIVISION. 000012 START FILE-1. 000013 STOP RUN.
C3166.cob 12: JMN3166I-S Sequential access sequential file 'FILE-1' cannot be specified in a START statement.
JMN3169I-S
Example
[C3169.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3169. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 ASSIGN TO SYS001 000007 ORGANIZATION IS RELATIVE 000008 ACCESS MODE IS SEQUENTIAL 000009 RELATIVE KEY IS REL-KEY. 000010 DATA DIVISION. 000011 FILE SECTION. 000012 FD FILE-1. 000013 01 REC-1 PIC X(80). 000014 WORKING-STORAGE SECTION. 000015 77 REL-KEY PIC 99. 000016 77 KEY-DATA PIC XX. 000017 PROCEDURE DIVISION. 000018 START FILE-1 KEY IS = KEY-DATA. 000019 STOP RUN.
C3169.cob 18: JMN3169I-S An item which is not specified in a RELATIVE KEY clause cannot be specified in a KEY phrase of a START statement with a relative file.
JMN3170I-S
Example
[C3170.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3170. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 ASSIGN TO SYS001 000007 ORGANIZATION IS INDEXED 000008 ACCESS MODE IS SEQUENTIAL 000009 RECORD KEY IS KEY-REC. 000010 DATA DIVISION. 000011 FILE SECTION. 000012 FD FILE-1. 000013 01 REC-1. 000014 02 KEY-REC PIC XX. 000015 02 FILLER PIC X(78). 000016 WORKING-STORAGE SECTION. 000017 77 KEY-DATA PIC XX. 000018 PROCEDURE DIVISION. 000019 START FILE-1 KEY IS = KEY-DATA. 000020 STOP RUN.
C3170.cob 19: JMN3170I-S An item which is not specified in a RECORD KEY clause or an ALTERNATE RECORD KEY clause, or an item which is subordinate to it, cannot be specified in a KEY phrase of a START statement with an indexed file.
JMN3175I-S
Parameter Explanation
@1@ : Identifier
Example
[C3175.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3175. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 AN-1 PIC 9(2) BINARY. 000006 01 AN-2 PIC X(6). 000007 01 AN-3 PIC X(10). 000008 PROCEDURE DIVISION. 000009 P-START. 000010 STRING AN-1 DELIMITED BY AN-2 INTO AN-3. 000011 STOP RUN.
C3175.cob 10: JMN3175I-S The USAGE of sending item 'AN-1' in the STRING statement must be DISPLAY.
JMN3181I-S
Example
[C3181.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3181. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 GRP. 000007 02 TBL OCCURS 5 TIMES ASCENDING KEY IS A B 000008 INDEXED BY IX. 000009 03 A PIC 9. 000010 03 B PIC 9. 000011 PROCEDURE DIVISION. 000012 SEARCH ALL TBL 000013 WHEN A (IX) = B (IX) 000014 STOP RUN.
C3181.cob 13: JMN3181I-S A key item cannot be specified in both the left and right parts of a conditional expression in a WHEN phrase or an AND phrase in a SEARCH ALL statement.
JMN3182I-W
Example
[C3182.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3182. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 ASSIGN TO S-SYS001. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD FILE-1 LINAGE IS 50 LINES. 000010 01 REC-1 PIC X(80). 000011 PROCEDURE DIVISION. 000012 WRITE REC-1 AFTER ADVANCING PAGE AT EOP GO TO L1. 000013 L1. STOP RUN.
C3182.cob 12: JMN3182I-W An ADVANCING PAGE phrase and an END-OF-PAGE phrase cannot both be specified in the same WRITE statement. It is accepted as written: the compiler will generate code for both ADVANCING PAGE and END-OF-PAGE.
JMN3184I-S
Example
[C3184.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3184. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 ASSIGN TO S-SYS001. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD FILE-1. 000010 01 REC-1. 000011 02 REC-1-1 PIC N(5) MODE-1. 000012 02 FILLER PIC X(70). 000013 PROCEDURE DIVISION. 000014 REWRITE REC-1. 000015 END PROGRAM C3184.
C3184.cob 14: JMN3184I-S A national item or a national edited item with a CHARACTER TYPE phrase or a file which includes an item with a PRINTING POSITION phrase cannot be specified in a REWRITE statement.
JMN3188I-S
Parameter Explanation
@1@ : Identifier
Example
[C3188.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3188. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 77 ID1 PIC S9(9) BINARY. 000007 77 CTR PIC 99. 000008 PROCEDURE DIVISION. 000009 INSPECT ID1 TALLYING CTR FOR CHARACTERS. 000010 END PROGRAM C3188.
C3188.cob 9: JMN3188I-S Inspected item 'ID1' in the INSPECT statement must be an item with a USAGE of DISPLAY.
JMN3189I-S
Parameter Explanation
@1@ : Identifier
Example
[C3189.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3189. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 77 ID1 PIC X(20). 000007 77 CTR PIC XX. 000008 PROCEDURE DIVISION. 000009 INSPECT ID1 TALLYING CTR FOR CHARACTERS. 000010 END PROGRAM C3189.
C3189.cob 9: JMN3189I-S Tallying item 'CTR' in the INSPECT statement must be a numeric item.
JMN3190I-S
Example
[C3190.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3190. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 77 ID1 PIC X(20). 000007 PROCEDURE DIVISION. 000008 INSPECT ID1 REPLACING CHARACTERS BY "01". 000009 END PROGRAM C3190.
C3190.cob 8: JMN3190I-S For a CHARACTERS phrase in an INSPECT statement, the length of the replaced character and scope specifying character must be 1. The statement is ignored.
JMN3191I-S
Example
[C3191.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3191. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 77 ID1 PIC X(20). 000007 PROCEDURE DIVISION. 000008 INSPECT ID1 REPLACING ALL "0" BY "11". 000009 END PROGRAM C3191.
C3191.cob 8: JMN3191I-S For a REPLACING phrase in an INSPECT statement, the lengths of the replacing character and replaced character must be equal.
JMN3192I-S
Example
[C3192.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3192. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 77 ID1 PIC X(400). 000007 77 CV-CHAR1 PIC X(300). 000008 77 CV-CHAR2 PIC X(300). 000009 PROCEDURE DIVISION. 000010 INSPECT ID1 CONVERTING CV-CHAR1 TO CV-CHAR2. 000011 END PROGRAM C3192.
C3192.cob 10: JMN3192I-S For a CONVERTING phrase in an INSPECT statement, if the converted character is a national or a national edited item, the converting character and the converted character cannot exceed 65536 in length. Non-national items cannot exceed 256 in length.
C3192.cob 10: JMN3192I-S For a CONVERTING phrase in an INSPECT statement, if the converted character is a national or a national edited item, the converting character and the converted character cannot exceed 65536 in length. Non-national items cannot exceed 256 in length.
JMN3193I-S
Example
[C3193.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3193. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 77 ID1 PIC X(20). 000007 77 CV-CHAR1 PIC XX. 000008 77 CV-CHAR2 PIC X. 000009 PROCEDURE DIVISION. 000010 INSPECT ID1 CONVERTING CV-CHAR1 TO CV-CHAR2. 000011 END PROGRAM C3193.
C3193.cob 10: JMN3193I-S For a CONVERTING phrase in an INSPECT statement, the lengths of the converting character and the converted character must be equal.
JMN3194I-S
Example
[C3194.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3194. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 77 ID1 PIC X(20). 000007 77 REP-CHAR PIC N. 000008 PROCEDURE DIVISION. 000009 INSPECT ID1 REPLACING CHARACTERS BY REP-CHAR. 000010 END PROGRAM C3194.
C3194.cob 9: JMN3194I-S In the INSPECT statement, items other than the tallying item and the inspecting item must all be national items or national edited items, or non-national items.
JMN3195I-S
Example
[C3195.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3195. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 TAL-CHAR PIC S99 BINARY. 000007 77 ID1 PIC X(20). 000008 77 CTR PIC 99 PACKED-DECIMAL. 000009 PROCEDURE DIVISION. 000010 INSPECT ID1 TALLYING CTR FOR ALL TAL-CHAR. 000011 END PROGRAM C3195.
C3195.cob 10: JMN3195I-S Items other than the item being inspected and the tallying item in INSPECT statement must have a USAGE of DISPLAY.
JMN3196I-S
Parameter Explanation
@1@ : Organization of file.
@2@ : File name.
Example
[C3196.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3196. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE001 ASSIGN SYS010-DA-OUTFILE 000007 ORGANIZATION IS RELATIVE 000008 ACCESS MODE IS SEQUENTIAL. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD FILE001 LABEL RECORD STANDARD. 000012 01 LINE-REC PIC X(77). 000013 01 CTL-REC PIC X(61). 000014 PROCEDURE DIVISION. 000015 OPEN OUTPUT FILE001. 000016 CALL "EXTPROG" USING BY CONTENT FILE001. 000017 CLOSE FILE001. 000018 END PROGRAM C3196.
C3196.cob 16: JMN3196I-S Relative file 'FILE001' cannot be specified to a USING phrase in a CALL statement.
JMN3198I-S
Parameter Explanation
@1@ : Key data item.
Example
[C3198.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3198. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 GR. 000007 02 TBL OCCURS 10 TIMES ASCENDING KEY IS KEY-1 000008 INDEXED BY INX. 000009 03 KEY-1 PIC X(5). 000010 PROCEDURE DIVISION. 000011 SEARCH ALL TBL 000012 WHEN KEY-1(INX)(1 : 3) = "AAA" 000013 STOP RUN.
C3198.cob 12: JMN3198I-S 'KEY-1' in the SEARCH ALL statement cannot be reference modified.
JMN3199I-S
Example
[C3199.cob] 000001 @OPTIONS ENCODE(UTF8,UTF16,LE) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3199. 000004 ENVIRONMENT DIVISION. 000005 CONFIGURATION SECTION. 000006 SPECIAL-NAMES. 000007 ALPHABET U16L FOR NATIONAL UTF16LE 000008 ALPHABET U32L FOR NATIONAL UTF32LE 000009 . 000010 DATA DIVISION. 000011 WORKING-STORAGE SECTION. 000012 77 ID1 PIC N ENCODING U16L. 000013 77 REP-CHAR PIC N ENCODING U32L. 000014 PROCEDURE DIVISION. 000015 INSPECT ID1 REPLACING CHARACTERS BY REP-CHAR. 000016 END PROGRAM C3199.
C3199.cob 15: JMN3199I-S In the INSPECT statement, all items being inspected must be of the same encoding scheme, except for the TALLYING item.
JMN3200I-S
Parameter Explanation
@1@ : Access mode.
@2@ : Organization of file.
@3@ : File name.
@4@ : 'INPUT', 'OUTPUT', 'I-O' or 'EXTEND'.
Example
[C3200.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3200. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 ASSIGN TO SYS001 000007 ORGANIZATION IS INDEXED 000008 ACCESS MODE IS RANDOM 000009 RECORD KEY IS KEY-REC. 000010 DATA DIVISION. 000011 FILE SECTION. 000012 FD FILE-1. 000013 01 REC-1. 000014 02 KEY-REC PIC XX. 000015 02 FILLER PIC X(78). 000016 PROCEDURE DIVISION. 000017 OPEN EXTEND FILE-1. 000018 STOP RUN.
C3200.cob 17: JMN3200I-S Indexed file 'FILE-1' with access mode random access cannot be specified for a EXTEND phrase of an OPEN statement.
JMN3202I-S
Parameter Explanation
@1@ : 'OPEN' or 'CLOSE'.
@2@ : File name.
Example
[C3202.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3202. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 ASSIGN TO SYS001. 000007 SELECT FILE-2 ASSIGN TO SYS002. 000008 DATA DIVISION. 000009 FILE SECTION. 000010 FD FILE-1. 000011 01 REC-1 PIC X(80). 000012 FD FILE-2. 000013 01 REC-2 PIC X(80). 000014 PROCEDURE DIVISION. 000015 OPEN INPUT FILE-1 FILE-2 000016 OUTPUT FILE-1. 000017 STOP RUN.
C3202.cob 16: JMN3202I-S File 'FILE-1' cannot be specified in the OPEN statement more than once. Only the first specification is accepted.
JMN3203I-I
Example
[C3203.cob] 000001 @OPTIONS CONF(68) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3203. 000004 ENVIRONMENT DIVISION. 000005 INPUT-OUTPUT SECTION. 000006 FILE-CONTROL. 000007 SELECT FILE-1 ASSIGN TO S-SYS001. 000008 DATA DIVISION. 000009 FILE SECTION. 000010 FD FILE-1. 000011 01 REC-1 PIC X(80). 000012 PROCEDURE DIVISION. 000013 WRITE REC-1. 000014 WRITE REC-1 AFTER ADVANCING 1 LINE. 000015 STOP RUN.
C3203.cob 13: JMN3203I-I (CONF) A 'WRITE' statement with an ADVANCING phrase and a WRITE statement with no specification are coded for the same file. 'AFTER ADVANCING 1' is added to the WRITE statement without an ADVANCING phrase.
JMN3207I-I
Example
[C3207.cob] 000001 @OPTIONS CONF(68) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3207. 000004 ENVIRONMENT DIVISION. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 A PIC X(10) VALUE "ABC/*/*DEF". 000008 01 B PIC X(5). 000009 01 C PIC X(5). 000010 PROCEDURE DIVISION. 000011 P-START. 000012 UNSTRING A DELIMITED BY ALL "/*" 000013 INTO B DELIMITER IN C.
C3207.cob 12: JMN3207I-I (CONF) A 'DELIMITED BY' phrase with 'ALL' and a 'DELIMITER IN' phrase are both specified. If there is a string of delimiters in the sending item, one delimiter is moved to the item of 'DELIMITER IN' phrase.
JMN3218I-S
Parameter Explanation
@1@ : File name.
Example
[C3218.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3218. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 ASSIGN TO SYS001 000007 ORGANIZATION IS RELATIVE 000008 ACCESS MODE IS SEQUENTIAL. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD FILE-1. 000012 01 REC-1 PIC X(80). 000013 PROCEDURE DIVISION. 000014 OPEN INPUT FILE-1. 000015 START FILE-1. 000016 CLOSE FILE-1. 000017 STOP RUN.
C3218.cob 15: JMN3218I-S A 'RELATIVE KEY' clause must be specified for relative file 'FILE-1'.
JMN3219I-I
Example
[C3219.cob] 000001 @OPTIONS CONF(74) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3219. 000004 ENVIRONMENT DIVISION. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 A PIC 9(2) BINARY. 000008 01 B PIC 9(2) BINARY. 000009 01 C PIC 9(2) BINARY. 000010 01 X PIC 9(2) BINARY. 000011 01 Y PIC 9(2) BINARY. 000012 01 Z PIC 9(2) BINARY. 000013 PROCEDURE DIVISION. 000014 PERFORM L1 VARYING A FROM B BY C UNTIL A = B 000015 AFTER X FROM Y BY Z UNTIL X = Y. 000016 L1. 000017 STOP RUN.
C3219.cob 15: JMN3219I-I (CONF) The order of increment for an identifier in a PERFORM statement is as follows. (1) The present value of the 'BY' phrase is added to the identifier of the VARYING phrase. (2) The identifier of the 'AFTER' phrase is set to the present value of the 'FROM' phrase.
JMN3222I-I
Example
[C3222.cob] 000001 @OPTIONS CONF(74) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3222. 000004 ENVIRONMENT DIVISION. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 A PIC AA. 000008 PROCEDURE DIVISION. 000009 IF A IS ALPHABETIC DISPLAY "CONF-OK" 000010 ELSE DISPLAY "CONF-NG". 000011 STOP RUN.
C3222.cob 9: JMN3222I-I (CONF) An alphabetic check is specified. Lowercase alphabetic characters are considered to belong to the alphabetic class.
JMN3223I-I
Parameter Explanation
@1@ : MOVE, ADD or SUBTRACT
JMN3226I-I
Parameter Explanation
@1@ : Identifier.
Example
[C3226.cob] 000001 @OPTIONS CONF(74),LANGLVL(85) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3226. 000004 ENVIRONMENT DIVISION. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 A PIC 999PP. 000008 PROCEDURE DIVISION. 000009 MOVE 12345 TO A. 000010 IF "123" = A THEN 000011 DISPLAY "CONF-OK" 000012 ELSE 000013 DISPLAY "CONF-NG" 000014 END-IF 000015 END PROGRAM C3226.
C3226.cob 10: JMN3226I-I (CONF) Numeric item 'A' with a 'P' on the left of the decimal point is compared with a nonnumeric operand. A numeric item without a 'P' on the left of decimal-point is assumed.
JMN3229I-S
Parameter Explanation
@1@ : Identifier of FROM specification.
Example
[C3229.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3229. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 ASSIGN TO S-SYS001. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD FILE-1. 000010 01 REC-1 PIC X(80). 000011 WORKING-STORAGE SECTION. 000012 01 DATA-1. 000013 02 DATA-1-1 PIC X(10). 000014 02 DATA-1-2 PIC N(10) CHARACTER TYPE IS MODE-1. 000015 77 NN1 PIC 99. 000016 77 NN2 PIC 99. 000017 PROCEDURE DIVISION. 000018 OPEN OUTPUT FILE-1. 000019 WRITE REC-1 FROM DATA-1(NN1:NN2). 000020 CLOSE FILE-1. 000021 STOP RUN.
C3229.cob 19: JMN3229I-S Item 'DATA-1' including an item with a CHARACTER TYPE phrase or PRINTING POSITION phrase specified in a 'FROM' phrase in a WRITE statement must not have a reference modifier.
JMN3231I-S
Parameter Explanation
@1@ : Identifier or special register.
@2@ : Data type.
@3@ : Identifier or special register.
@4@ : Data type.
Example
[C3231.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3231. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC N(10). 000007 01 B PIC X(20). 000008 PROCEDURE DIVISION. 000009 P-START. 000010 IF A = B STOP RUN.
C3231.cob 10: JMN3231I-S 'A' (national) and 'B' (alphanumeric) cannot be compared.
JMN3236I-S
Parameter Explanation
@1@ : 'SORT' or 'MERGE'
@2@ : 'USING' or 'GIVING'
@3@ : File name.
Example
[C3236.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3236. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT US-FILE ASSIGN TO SYS001-DA-S-SYS001. 000007 SELECT GV-FILE ASSIGN TO SYS002-DA-S-SYS002. 000008 SELECT SD-FILE ASSIGN TO SYS003-DA-S-SYS003. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD US-FILE. 000012 01 US-REC1 PIC X(100). 000013 FD GV-FILE. 000014 01 GV-REC1 PIC X(75). 000015 SD SD-FILE. 000016 01 SD-REC. 000017 02 SD-KEY1 PIC X(5). 000018 02 FILLER PIC X(75). 000019 PROCEDURE DIVISION. 000020 SORT SD-FILE ASCENDING KEY SD-KEY1 000021 USING US-FILE 000022 GIVING GV-FILE. 000023 STOP RUN.
C3236.cob 20: JMN3236I-S The record length of file 'US-FILE' specified in the USING phrase of the SORT statement cannot exceed the maximum record length of the sort-merge file, and cannot be less than the sort-merge file minimum record length.
JMN3238I-S
Parameter Explanation
@1@ : SORT or MERGE
@2@ : Identifier
JMN3240I-S
Parameter Explanation
@1@ : 'arithmetic expression', 'numeric literal', 'nonnumeric literal', 'national literal', 'boolean literal' or name of figurative constant.
@2@ : Identifier, special register or index-name.
@3@ : Data type.
Example
[C3240.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3240. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC S9(3) PACKED-DECIMAL. 000007 PROCEDURE DIVISION. 000008 P-START. 000009 IF "AB" = A STOP RUN.
C3240.cob 9: JMN3240I-S Nonnumeric literal and 'A' (internal decimal) cannot be compared.
JMN3241I-S
Parameter Explanation
@1@ : Identifier, special register or index-name.
@2@ : Data type.
@3@ : 'arithmetic expression', 'numeric literal', 'nonnumeric literal', 'national literal', 'boolean literal' or name of figurative constant.
Example
[C3241.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3241. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC S9(3) PACKED-DECIMAL. 000007 PROCEDURE DIVISION. 000008 P-START. 000009 IF A = "AB" STOP RUN.
C3241.cob 9: JMN3241I-S 'A' (internal decimal) and nonnumeric literal cannot be compared.
JMN3242I-S
Parameter Explanation
@1@ : 'Numeric literal', 'Nonnumeric literal', 'National literal', 'ZERO(S,ES)' or 'QUOTE(S)'.
@2@ : Identifier or special register.
@3@ : Data type.
Example
[C3242.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3242. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC N(10). 000007 PROCEDURE DIVISION. 000008 P-START. 000009 IF "AB" = A STOP RUN.
C3242.cob 9: JMN3242I-S Nonnumeric literal and 'A' (national) cannot be compared.
JMN3243I-S
Parameter Explanation
@1@ : Identifier or special register.
@2@ : Data type.
@3@ : 'numeric literal', 'nonnumeric literal', 'national literal', 'ZERO(S,ES)' or 'QUOTE(S)'.
Example
[C3243.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3243. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC N(10). 000007 PROCEDURE DIVISION. 000008 P-START. 000009 IF A = "AB" STOP RUN.
C3243.cob 9: JMN3243I-S 'A' (national) and nonnumeric literal cannot be compared.
JMN3244I-S
Parameter Explanation
@1@ : 'Arithmetic expression', 'Nonnumeric literal', 'National literal', 'Boolean literal' or name of figurative constant(excluded ZERO).
@2@ : 'arithmetic expression', 'nonnumeric literal', 'national literal', 'boolean literal' or name of figurative constant(excluded ZERO).
Example
[C3244.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3244. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC S9(3) PACKED-DECIMAL. 000007 PROCEDURE DIVISION. 000008 P-START. 000009 IF A + 10 = "AB" STOP RUN.
C3244.cob 9: JMN3244I-S Arithmetic expression and nonnumeric literal cannot be compared.
JMN3245I-W
Example
[C3245.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3245. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC S99. 000007 PROCEDURE DIVISION. 000008 COMPUTE A = 0 ** -5. 000009 END PROGRAM C3245.
C3245.cob 8: JMN3245I-W The computation results in zero being raised to the power of a negative integer literal. The value zero comes from a numeric literal with value 0, the figurative constant ZERO, or a computation in which no significant digits will reach the intermediate result. The result is assumed to be zero.
JMN3246I-W
Example
[C3246.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3246. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC S9(18). 000007 01 B PIC S9(3). 000008 01 C PIC S9(12). 000009 PROCEDURE DIVISION. 000010 COMPUTE A = B ** C. 000011 END PROGRAM C3246.
C3246.cob 10: JMN3246I-W The integer exponent is greater than 9 digits. The exponent is assumed to be the 9 low order digits.
JMN3248I-S
Parameter Explanation
@1@ : File name.
Example
[C3248.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3248. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 LINE SEQUENTIAL ASSIGN TO SYS001. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD FILE-1 RECORD CONTAINS 0 CHARACTERS. 000010 01 REC-1 PIC X(80). 000011 PROCEDURE DIVISION. 000012 OPEN OUTPUT FILE-1. 000013 STOP RUN.
C3248.cob 12: JMN3248I-S File 'FILE-1' with the RECORD CONTAINS 0 CHARACTERS clause cannot be specified in an OPEN statement with an OUTPUT phrase.
JMN3249I-S
Parameter Explanation
@1@ : Data name
Example
[C3249.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3249. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 TBL. 000007 02 X OCCURS 5 TIMES ASCENDING KEY IS A 000008 INDEXED BY IX1. 000009 03 A PIC 9(2). 000010 01 B PIC 1(2). 000011 PROCEDURE DIVISION. 000012 SEARCH ALL X 000013 WHEN A(IX1) = B 000014 CONTINUE 000015 END-SEARCH. 000016 END PROGRAM C3249.
C3249.cob 13: JMN3249I-S Key item 'A' and the comparison object in the SEARCH ALL statement cannot be boolean items (literal).
JMN3250I-S
Parameter Explanation
@1@ : MOVE, ADD or SUBTRACT.
Example
[C3250.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3250. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 AA. 000008 02 CC-1 PIC X(4). 000009 02 CC-2 PIC X(4). 000010 01 BB. 000011 02 CC-1 PIC X(4). 000012 02 CC-2 PIC X(4). 000013 PROCEDURE DIVISION. 000014 P-START. 000015 ADD CORR AA(1:4) TO BB. 000016 STOP RUN.
C3250.cob 15: JMN3250I-S An item with a reference modifier cannot be specified in a ADD statement with a CORRESPONDING phrase.
JMN3259I-S
Parameter Explanation
@1@ : SORT or MERGE.
@2@ : USING or GIVING.
@3@ : File name.
Example
[C3259.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3259. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT US-FILE ASSIGN TO SYS001-DA-S-SYS001. 000007 SELECT GV-FILE ASSIGN TO SYS002-DA-S-SYS002. 000008 SELECT SD-FILE ASSIGN TO SYS003-DA-S-SYS003. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD US-FILE. 000012 01 US-REC1 PIC X(80). 000013 FD GV-FILE. 000014 01 GV-REC1 PIC X(75). 000015 SD SD-FILE. 000016 01 SD-REC. 000017 02 SD-KEY1 PIC X(5). 000018 02 FILLER PIC X(75). 000019 PROCEDURE DIVISION. 000020 SORT SD-FILE ASCENDING KEY SD-KEY1 000021 USING US-FILE 000022 GIVING GV-FILE. 000023 STOP RUN.
C3259.cob 20: JMN3259I-S The record length of the sort-merge file specified in the SORT statement must be less than or equal to the maximum record length of file 'GV-FILE' specified in the GIVING phrase, and greater than or equal to its minimum record length.
JMN3262I-I
Example
[C3262.cob] 000001 @OPTIONS CONF(V10) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3262. 000004 ENVIRONMENT DIVISION. 000005 INPUT-OUTPUT SECTION. 000006 FILE-CONTROL. 000007 SELECT FILE-1 ASSIGN TO S-SYS001. 000008 DATA DIVISION. 000009 FILE SECTION. 000010 FD FILE-1 LINAGE IS 50 LINES. 000011 01 REC-1 PIC X(80). 000012 PROCEDURE DIVISION. 000013 OPEN OUTPUT FILE-1. 000014 WRITE REC-1. 000015 WRITE REC-1. 000016 CLOSE FILE-1. 000017 STOP RUN.
C3262.cob 14: JMN3262I-I (CONF) WRITE statements without ADVANCING phrases are specified for files with LINAGE clauses. 'AFTER ADVANCING 1' is assumed.
C3262.cob 15: JMN3262I-I (CONF) WRITE statements without ADVANCING phrases are specified for files with LINAGE clauses. 'AFTER ADVANCING 1' is assumed.
JMN3264I-S
Parameter Explanation
@1@ : 'SORT' or 'MERGE'.
@2@ : File name.
@3@ : Data name.
Example
[C3264.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3264. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT SD-FILE ASSIGN TO SYS001-DA-S-SYS001. 000007 SELECT US-FILE ASSIGN TO SYS002-DA-S-SYS002. 000008 SELECT GV-FILE ASSIGN TO SYS003 000009 ORGANIZATION IS INDEXED 000010 RECORD KEY IS RKEY-1 000011 ALTERNATE RECORD KEY IS AKEY-1 000012 ALTERNATE RECORD KEY IS AKEY-2 000013 ALTERNATE RECORD KEY IS AKEY-3 000014 ACCESS MODE IS SEQUENTIAL. 000015 DATA DIVISION. 000016 FILE SECTION. 000017 FD US-FILE. 000018 01 US-REC1 PIC X(80). 000019 FD GV-FILE. 000020 01 GV-REC1. 000021 02 RKEY-1 PIC XX. 000022 02 AKEY-1 PIC XX. 000023 02 AKEY-2 PIC XX. 000024 02 AKEY-3 PIC XX. 000025 02 FILLER PIC X(72). 000026 SD SD-FILE. 000027 01 SD-REC1. 000028 02 SD-KEY1 PIC XX. 000029 02 SD-KEY2 PIC XX. 000030 02 FILLER PIC X(74). 000031 02 SD-KEY3 PIC XX. 000032 PROCEDURE DIVISION. 000033 SORT SD-FILE ASCENDING KEY SD-KEY3 000034 USING US-FILE 000035 GIVING GV-FILE. 000036 STOP RUN.
C3264.cob 33: JMN3264I-S When indexed file 'GV-FILE' is specified in a GIVING phrase of a SORT statement, data-name 'SD-KEY3' of the KEY phrase must exist in the same character position as the data item of the prime record key of the file.
JMN3265I-S
Parameter Explanation
@1@ : 'SORT' or 'MERGE'.
Example
[C3265.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3265. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 ALPHABET ABN-1 IS "A" THRU "Z". 000007 INPUT-OUTPUT SECTION. 000008 FILE-CONTROL. 000009 SELECT US-FILE ASSIGN TO SYS001-DA-S-SYS001. 000010 SELECT GV-FILE ASSIGN TO SYS002-DA-S-SYS002. 000011 SELECT SD-FILE ASSIGN TO SYS003-DA-S-SYS003. 000012 DATA DIVISION. 000013 FILE SECTION. 000014 FD US-FILE. 000015 01 US-REC1 PIC X(80). 000016 FD GV-FILE. 000017 01 GV-REC1 PIC X(80). 000018 SD SD-FILE. 000019 01 SD-REC1. 000020 02 SD-KEY1 PIC NN. 000021 02 FILLER PIC X(76). 000022 PROCEDURE DIVISION. 000023 SORT SD-FILE ASCENDING KEY SD-KEY1 000024 COLLATING SEQUENCE IS ABN-1 000025 USING US-FILE 000026 GIVING GV-FILE. 000027 STOP RUN.
C3265.cob 23: JMN3265I-S When a national item or national edited item is specified in the KEY phrase of a SORT statement, the COLLATING SEQUENCE phrase cannot be specified.
JMN3266I-I
Example
[C3266.cob] 000001 @OPTIONS CONF(V10),CTLCHR(N) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3266. 000004 ENVIRONMENT DIVISION. 000005 INPUT-OUTPUT SECTION. 000006 FILE-CONTROL. 000007 SELECT F1 ASSIGN S-SYS001. 000008 DATA DIVISION. 000009 FILE SECTION. 000010 FD F1. 000011 01 R1 PIC X(80). 000012 WORKING-STORAGE SECTION. 000013 01 D1 PIC X(80) VALUE ALL "ABCDEFGHIJ". 000014 PROCEDURE DIVISION. 000015 OPEN OUTPUT F1. 000016 MOVE D1 TO R1. 000017 WRITE R1 AFTER ADVANCING 1 LINE. 000018 CLOSE F1. 000019* 000020 OPEN INPUT F1. 000021 READ F1. 000022 DISPLAY R1. 000023 CLOSE F1. 000024 STOP RUN.
C3266.cob 21: JMN3266I-I (CONF) A file with a control character is specified in the READ statement. The record including the control character is read.
JMN3268I-S
Parameter Explanation
@1@ : Identifier.
@2@ : Number of subscripts.
Example
[C3268.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3268. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 GRP. 000007 02 TBL OCCURS 5 TIMES. 000008 03 TBL-2 OCCURS 5 TIMES ASCENDING KEY IS A 000009 INDEXED BY INX. 000010 04 A PIC 9. 000011 PROCEDURE DIVISION. 000012 SEARCH ALL TBL-2 000013 WHEN A(INX) = 1 000014 STOP RUN.
C3268.cob 13: JMN3268I-S The number of subscripts for 'A' of the 'WHEN' phrase in the SEARCH ALL statement must be 2.
JMN3269I-S
Parameter Explanation
@1@ : Report name.
Example
[C3269.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3269. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT OU-FILE ASSIGN TO DA-S-SYS006. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD OU-FILE LABEL RECORD STANDARD 000010 REPORT IS RE-1. 000011 WORKING-STORAGE SECTION. 000012 01 REP-LINE PIC X(8). 000013 REPORT SECTION. 000014 RD RE-1 000015 PAGE LIMITS 66 LINES 000016 HEADING 3 000017 FIRST DETAIL 10 000018 LAST DETAIL 50. 000019 01 TYPE RH LINE 5. 000020 02 COLUMN 25 PIC X(8) 000021 SOURCE REP-LINE. 000022 01 TYPE PH LINE 7. 000023 02 COLUMN 25 PIC X(8) 000024 VALUE "REPORT-1". 000025 01 TYPE DE LINE PLUS 1. 000026 02 COLUMN 25 PIC X(8) 000027 VALUE "REPORT-2". 000028 PROCEDURE DIVISION. 000029 P-START. 000030 OPEN OUTPUT OU-FILE. 000031 INITIATE RE-1. 000032 GENERATE RE-1. 000033 TERMINATE RE-1. 000034 CLOSE OU-FILE. 000035 STOP RUN.
C3269.cob 32: JMN3269I-S When report-name 'RE-1' is specified in a GENERATE statement, a 'CONTROL' clause must be specified in the report description entry.
JMN3270I-S
Parameter Explanation
@1@ : Report name.
Example
[C3270.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3270. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT LP1FILE ASSIGN TO DA-S-SYS006. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD LP1FILE LABEL RECORD STANDARD 000010 REPORT IS RE-1. 000011 WORKING-STORAGE SECTION. 000012 01 REP-LINE PIC X(80). 000013 REPORT SECTION. 000014 RD RE-1 000015 CONTROL IS FINAL 000016 PAGE LIMITS 66 LINES 000017 HEADING 3 000018 FIRST DETAIL 10 000019 LAST DETAIL 50. 000020 01 DE-1 TYPE DETAIL LINE PLUS 1. 000021 02 COLUMN 25 PIC X(80) 000022 SOURCE REP-LINE. 000023 01 DE-2 TYPE DETAIL LINE PLUS 1. 000024 02 COLUMN 25 PIC X(80) 000025 VALUE "REPORT-1". 000026 PROCEDURE DIVISION. 000027 P-START. 000028 OPEN OUTPUT LP1FILE. 000029 INITIATE RE-1. 000030 GENERATE RE-1. 000031 TERMINATE RE-1. 000032 CLOSE LP1FILE. 000033 STOP RUN.
C3270.cob 30: JMN3270I-S If report-name 'RE-1' is specified in a GENERATE statement, plural detail report groups cannot be specified in the report description entry.
JMN3271I-S
Parameter Explanation
@1@ : Report name.
Example
[C3271.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3271. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT LP1FILE ASSIGN TO DA-S-SYS006. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD LP1FILE LABEL RECORD STANDARD 000010 REPORT IS RE-1. 000011 REPORT SECTION. 000012 RD RE-1 000013 CONTROL IS FINAL 000014 PAGE LIMITS 66 LINES 000015 HEADING 3 000016 FIRST DETAIL 10 000017 LAST DETAIL 50. 000018 01 TYPE PAGE HEADING LINE 5. 000019 02 COLUMN 25 PIC X(8) 000020 VALUE "HEADER-1". 000021 PROCEDURE DIVISION. 000022 P-START. 000023 OPEN OUTPUT LP1FILE. 000024 INITIATE RE-1. 000025 GENERATE RE-1. 000026 TERMINATE RE-1. 000027 CLOSE LP1FILE. 000028 STOP RUN.
C3271.cob 25: JMN3271I-S Report-name 'RE-1' is specified in a GENERATE statement must have one or more body groups in its report description entry.
JMN3272I-S
Parameter Explanation
@1@ : Data name.
Example
[C3272.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3272. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT LP1FILE ASSIGN TO DA-S-SYS006. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD LP1FILE LABEL RECORD STANDARD 000010 REPORT IS RE-1. 000011 REPORT SECTION. 000012 RD RE-1 000013 CONTROL IS FINAL 000014 PAGE LIMITS 66 LINES 000015 HEADING 3 000016 FIRST DETAIL 10 000017 LAST DETAIL 50. 000018 01 RH-1 TYPE REPORT HEADING LINE 5. 000019 02 COLUMN 25 PIC X(8) 000020 VALUE "R-HEADER". 000021 PROCEDURE DIVISION. 000022 P-START. 000023 OPEN OUTPUT LP1FILE. 000024 INITIATE RE-1. 000025 GENERATE RH-1. 000026 TERMINATE RE-1. 000027 CLOSE LP1FILE. 000028 STOP RUN.
C3272.cob 25: JMN3272I-S Data name 'RH-1' in the GENERATE statement must be the name of detail report group.
JMN3273I-S
Parameter Explanation
@1@ : Report file name.
Example
[C3273.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3273. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 ASSIGN TO S-SYS001. 000007 SELECT FILE-2 ASSIGN TO S-SYS002. 000008 DATA DIVISION. 000009 FILE SECTION. 000010 FD FILE-1 000011 REPORT IS REC-1. 000012 SD FILE-2. 000013 01 REC-2 PIC X(100). 000014 REPORT SECTION. 000015 RD REC-1 000016 PAGE LIMIT IS 66 LINES 000017 HEADING 3 000018 FIRST DETAIL 10 000019 LAST DETAIL 50. 000020 01 LINE NUMBER IS 5 TYPE IS RH. 000021 02 COLUMN NUMBER IS 10 PIC X(14) VALUE "*** HEADER ***". 000022 PROCEDURE DIVISION. 000023 OPEN INPUT FILE-1. 000024 OPEN I-O FILE-1. 000025 READ FILE-1. 000026 SORT FILE-2 ASCENDING KEY REC-2 USING FILE-1 GIVING FILE-1. 000027 STOP RUN.
C3273.cob 23: JMN3273I-S Report file 'FILE-1' cannot be specified for a statement except for an OPEN OUTPUT, OPEN EXTEND, CLOSE, or USE statement.
C3273.cob 24: JMN3273I-S Report file 'FILE-1' cannot be specified for a statement except for an OPEN OUTPUT, OPEN EXTEND, CLOSE, or USE statement.
C3273.cob 25: JMN3273I-S Report file 'FILE-1' cannot be specified for a statement except for an OPEN OUTPUT, OPEN EXTEND, CLOSE, or USE statement.
C3273.cob 26: JMN3273I-S Report file 'FILE-1' cannot be specified for a statement except for an OPEN OUTPUT, OPEN EXTEND, CLOSE, or USE statement.
C3273.cob 27: JMN3273I-S Report file 'FILE-1' cannot be specified for a statement except for an OPEN OUTPUT, OPEN EXTEND, CLOSE, or USE statement.
JMN3275I-W
Parameter Explanation
@1@ : Identifier or 'Numeric literal'.
Example
[C3275.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3275. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC X(3). 000007 01 B PIC 99V9. 000008 PROCEDURE DIVISION. 000009 P-START. 000010 IF A = B STOP RUN.
C3275.cob 10: JMN3275I-W 'B' of the nonnumeric comparison must be an integer. The decimal-point is assumed to be on the rightmost side.
JMN3276I-W
Example
[C3276.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3276. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 AN-1 PIC X(6) VALUE "STRING". 000006 01 AN-2 PIC X(10) JUSTIFIED. 000007 PROCEDURE DIVISION. 000008 P-START. 000009 STRING AN-1 DELIMITED BY "I" INTO AN-2. 000010 STOP RUN.
C3276.cob 9: JMN3276I-W The receiving item in the STRING statement cannot be a item with a JUSTIFIED clause. The items is assumed to not have a JUSTIFIED clause.
JMN3277I-S
Parameter Explanation
@1@ : INTO or DELIMITER
@2@ : Identifier
Example
[C3277.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3277. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC X(10). 000007 01 B PIC 9(3). 000008 01 C PIC +9V9E+99. 000009 PROCEDURE DIVISION. 000010 P-START. 000011 UNSTRING A DELIMITED BY B INTO C. 000012 END PROGRAM C3277.
C3277.cob 11: JMN3277I-S Identifier 'C' of a INTO phrase in an UNSTRING statement cannot be an external floating-point item.
JMN3278I-S
Parameter Explanation
@1@ : Data name
Example
[C3278.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3278. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 TBL. 000007 02 X OCCURS 5 TIMES ASCENDING KEY IS A 000008 INDEXED BY IX1. 000009 03 A PIC 9P. 000010 PROCEDURE DIVISION. 000011 SEARCH ALL X 000012 WHEN A(IX1) = "10" 000013 CONTINUE 000014 END-SEARCH. 000015 END PROGRAM C3278.
C3278.cob 12: JMN3278I-S In a SEARCH ALL statement, when either key item 'A' or a comparison object is an integer item with P, another object cannot be an alphabetic, alphanumeric, alphanumeric-edited, numeric-edited, nonnumeric-literal, or a figurative constant other than ZERO.
JMN3280I-S
Parameter Explanation
@1@ : Data name
JMN3281I-I
Example
[C3281.cob] 000001 @OPTIONS CONF(V52) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3281. 000004 ENVIRONMENT DIVISION. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 A PIC S9(4). 000008 PROCEDURE DIVISION. 000009 MOVE -0 TO A. 000010 END PROGRAM C3281.
C3281.cob 9: JMN3281I-I (CONF) The numeric literal '-0' is specified as a sending item in a MOVE statement. '+0' is assumed.
JMN3286I-S
Parameter Explanation
@1@ : Identifier.
Example
[C3286.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3286. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC X. 000007 01 PTR USAGE IS POINTER. 000008 PROCEDURE DIVISION. 000009 MOVE "A" TO PTR->A. 000010 STOP RUN.
C3286.cob 9: JMN3286I-S 'A' must be defined in the BASED-STORAGE SECTION.
JMN3287I-S
Parameter Explanation
@1@ : Argument of function
@2@ : Function name
Example
[C3287.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3287. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 P POINTER. 000007 01 FG. 000008 02 B1 PIC 1(4) BIT. 000009 02 B2 PIC 1(4) BIT. 000010 PROCEDURE DIVISION. 000011 MOVE FUNCTION ADDR (B1) TO P 000012 MOVE FUNCTION ADDR (B2) TO P 000013 END PROGRAM C3287.
C3287.cob 11: JMN3287I-S Argument 'B1' cannot be specified to FUNCTION ADDR.
C3287.cob 12: JMN3287I-S Argument 'B2' cannot be specified to FUNCTION ADDR.
JMN3291I-S
Example
[C3291.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3291. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 ASSIGN TO S-SYS001. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD FILE-1 000010 RECORD IS VARYING IN SIZE 000011 FROM 80 TO 120 CHARACTERS 000012 DEPENDING ON DEP-1. 000013 01 REC-1 PIC X(120). 000014 WORKING-STORAGE SECTION. 000015 01 A PIC N(50) CHARACTER TYPE IS MODE-1. 000016 01 DEP-1 PIC 999. 000017 PROCEDURE DIVISION. 000018 WRITE REC-1 FROM A. 000019 END PROGRAM C3291.
C3291.cob 18: JMN3291I-S If a record containing a RECORD clause with a DEPENDING ON phrase is specified in a WRITE statement, an item containing a CHARACTER TYPE or PRINTING POSITION clause cannot be specified in the FROM phrase.
JMN3298I-S
Parameter Explanation
@1@ : Control record name.
Example
[C3298.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3298. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 ASSIGN TO SYS001 000007 FORMAT IS FMT-001. 000008 DATA DIVISION. 000009 FILE SECTION. 000010 FD FILE-1 000011 CONTROL RECORD IS CNTL-REC. 000012 01 CNTL-REC PIC X(80). 000013 WORKING-STORAGE SECTION. 000014 01 FMT-001 PIC X(8). 000015 PROCEDURE DIVISION. 000016 WRITE CNTL-REC AFTER ADVANCING 1. 000017 END PROGRAM C3298.
C3298.cob 16: JMN3298I-S An ADVANCING phrase cannot be specified to a WRITE statement for control record 'CNTL-REC'.
JMN3301I-S
Parameter Explanation
@1@ : Identifier.
Example
[C3301.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3301. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 BASED-STORAGE SECTION. 000006 01 A PIC S9(8) BINARY. 000007 PROCEDURE DIVISION. 000008 MOVE 12345 TO A. 000009 STOP RUN.
C3301.cob 8: JMN3301I-S Data item 'A' specified in the BASED-STORAGE SECTION must be qualified by a pointer expression.
JMN3304I-S
Parameter Explanation
@1@ : Identifier.
@2@ : Statement name.
Example
[C3304.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3304. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 PTR1 USAGE IS POINTER. 000006 PROCEDURE DIVISION. 000007 INITIALIZE PTR1. 000008 STOP RUN.
C3304.cob 7: JMN3304I-S Pointer data item 'PTR1' cannot be specified in the INITIALIZE statement.
JMN3307I-S
Example
[C3307.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3307. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 PTR1 USAGE IS POINTER. 000007 01 PTR2 USAGE IS POINTER. 000008 PROCEDURE DIVISION. 000009 IF PTR1 > PTR2 THEN DISPLAY "NG". 000010 END PROGRAM C3307.
C3307.cob 9: JMN3307I-S The relational operator for comparison of pointer data operands must be 'EQUAL(=)' or 'NOT EQUAL(NOT =)'.
JMN3309I-S
Parameter Explanation
@1@ : Data name.
@2@ : Statement name(READ or START).
@3@ : Specification.
Example
[C3309.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3309. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 ASSIGN TO SYS001 000007 ORGANIZATION IS INDEXED 000008 RECORD KEY IS KEY-1 000009 ACCESS MODE IS RANDOM. 000010 DATA DIVISION. 000011 BASED-STORAGE SECTION. 000012 01 BSD-1 PIC X BASED ON PTR1. 000013 FILE SECTION. 000014 FD FILE-1. 000015 01 REC-1. 000016 02 KEY-1 PIC X(5). 000017 02 PIC X(75). 000018 WORKING-STORAGE SECTION. 000019 01 PTR1 POINTER. 000020 PROCEDURE DIVISION. 000021 OPEN INPUT FILE-1. 000022 READ FILE-1 KEY IS BSD-1. 000023 CLOSE FILE-1. 000024 END PROGRAM C3309.
C3309.cob 22: JMN3309I-S Data name 'BSD-1' defined in the BASED-STORAGE SECTION cannot be specified in the KEY phrase of the READ statement.
JMN3326I-W
Parameter Explanation
@1@ : Statement name.
@2@ : Identifier.
Example
[C3326.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3326. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 NUM PIC 99. 000006 PROCEDURE DIVISION. 000007 MOVE -10 TO NUM. 000008 END PROGRAM C3326.
C3326.cob 7: JMN3326I-W 'NUM' is an unsigned numeric item or a numeric edited item without editing sign control symbols in the MOVE statement. A negative value cannot be moved.
JMN3327I-W
Parameter Explanation
@1@ : statement name
@2@ : literal or identifier
@3@ : identifier
Example
[C3327.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3327. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 A1 PIC V99. 000006 01 A2 PIC 99. 000007 PROCEDURE DIVISION. 000008 MOVE 10 TO A1. 000009 MOVE A1 TO A2. 000010 STOP RUN.
C3327.cob 8: JMN3327I-W When numeric literal is moved to 'A1' in the MOVE statement, there are no overlapping digits.
C3327.cob 9: JMN3327I-W When 'A1' is moved to 'A2' in the MOVE statement, there are no overlapping digits.
Explanation
This message indicates that there are no overlapping positions/digits in the sending and receiving items when moving fixed point numbers. When this is the case none of the digits in the sending item would be moved to any positions in the receiving item.
JMN3328I-W
Parameter Explanation
@1@ : Statement name.
@2@ : Identifier.
Example
[C3328.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3328. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 A1 PIC 99. 000006 PROCEDURE DIVISION. 000007 MOVE 100 TO A1. 000008 END PROGRAM C3328.
C3328.cob 7: JMN3328I-W When a numeric literal is moved to 'A1' in the MOVE statement, digit overflow may occur.
JMN3330I-W
Parameter Explanation
@1@ : Statement name.
@2@ : Identifier.
Example
[C3330.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3330. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 A1 PIC 99V9. 000006 PROCEDURE DIVISION. 000007 MOVE 11.23 TO A1. 000008 END PROGRAM C3330.
C3330.cob 7: JMN3330I-W When a numeric literal is moved to 'A1' in the MOVE statement, the decimal part is truncated.
JMN3331I-W
Parameter Explanation
@1@ : Statement name.
@2@ : Identifier.
Example
[C3331.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3331. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 A1 PIC 99PP. 000006 PROCEDURE DIVISION. 000007 MOVE 1234 TO A1. 000008 END PROGRAM C3331.
C3331.cob 7: JMN3331I-W When a numeric literal is moved to numeric item 'A1' with scaling position character 'P' in the MOVE statement, the value of the character position corresponding to 'P' of the numeric item is not reflected.
JMN3332I-W
Parameter Explanation
@1@ : Statement name.
@2@ : Identifier or 'numeric literal'.
@3@ : Identifier.
Example
[C3332.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3332. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 A1 PIC 99PP. 000006 PROCEDURE DIVISION. 000007 MOVE 11 TO A1. 000008 END PROGRAM C3332.
C3332.cob 7: JMN3332I-W When numeric literal is moved to 'A1' in the MOVE statement, the value of the sending item is not reflected in the receiving item.
JMN3333I-S
Example
[C3333.cob] 000001 @OPTIONS CHECK(PRM) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3333. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC X(10). 000007 PROCEDURE DIVISION. 000008 CALL "SUB" USING A. 000009 STOP RUN. 000010 IDENTIFICATION DIVISION. 000011 PROGRAM-ID. SUB. 000012 DATA DIVISION. 000013 LINKAGE SECTION. 000014 01 B PIC X(10). 000015 01 C PIC X(10). 000016 PROCEDURE DIVISION 000017 USING B C. 000018 EXIT PROGRAM. 000019 END PROGRAM SUB. 000020 END PROGRAM C3333.
C3333.cob 8: JMN3333I-S The number of parameters specified in the USING phrase of the CALL statement must be the same as the number of parameters specified in the USING phrase of the PROCEDURE DIVISION.
JMN3334I-S
Parameter Explanation
@1@ : Program name
@2@ : Identifier
@3@ : Identifier
Example
[C3334.cob] 000001 @OPTIONS CHECK(PRM) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3334. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 U OBJECT REFERENCE. 000007 PROCEDURE DIVISION. 000008 CALL "C3334S" USING U. 000009 EXIT PROGRAM. 000010* 000011 IDENTIFICATION DIVISION. 000012 PROGRAM-ID. C3334S. 000013 DATA DIVISION. 000014 LINKAGE SECTION. 000015 01 L-U BINARY-CHAR UNSIGNED. 000016 PROCEDURE DIVISION 000017 USING L-U. 000018 EXIT PROGRAM. 000019 END PROGRAM C3334S. 000020 END PROGRAM C3334.
C3334.cob 8: JMN3334I-S The type of parameter 'U' specified in the USING phrase or the RETURNING phrase of the CALL statement must be the same as the type of parameter 'L-U' specified in the PROCEDURE DIVISION USING phrase or the RETURNING phrase of program 'C3334S'.
JMN3335I-S
Parameter Explanation
@1@ : Program name
@2@ : Identifier
@3@ : Identifier
Example
[C3335.cob] 000001 @OPTIONS CHECK(PRM) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3335. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC X(10). 000007 PROCEDURE DIVISION. 000008 CALL "SUB" USING A. 000009* 000010 IDENTIFICATION DIVISION. 000011 PROGRAM-ID. SUB. 000012 DATA DIVISION. 000013 LINKAGE SECTION. 000014 01 B PIC X(05). 000015 PROCEDURE DIVISION 000016 USING B. 000017 EXIT PROGRAM. 000018 END PROGRAM SUB. 000019 END PROGRAM C3335.
C3335.cob 8: JMN3335I-S The length of parameter 'A' specified in the USING phrase or RETURNING phrase of the CALL statement must be the same as the length of parameter 'B' specified in the PROCEDURE DIVISION USING phrase or RETURNING phrase of program 'SUB'.
JMN3337I-I
Example
[C3337.cob] 000001 @OPTIONS LANGLVL(85),CONF(74) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3337. 000004 ENVIRONMENT DIVISION. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 SND PIC X(10). 000008 01 DLM. 000009 02 DLMB OCCURS 2 PIC X. 000010 01 INTO1 PIC X(10). 000011 01 INTO2 PIC X(10). 000012 01 DLMI1 PIC X(2). 000013 01 DLMI2 PIC X(2). 000014 01 COUNT1 PIC 9(2). 000015 01 COUNT2 PIC 9(2). 000016 01 PTR PIC 9(2). 000017 01 TALLY1 PIC 9(2). 000018 PROCEDURE DIVISION. 000019 UNSTRING SND DELIMITED BY DLMB(TALLY) 000020 INTO INTO1 DELIMITER IN DLMI1 COUNT IN COUNT1 000021 INTO2 DELIMITER IN DLMI2 COUNT IN COUNT2 000022 POINTER PTR 000023 TALLYING TALLY1. 000024 END PROGRAM C3337.
C3337.cob 19: JMN3337I-I (CONF) The subscript or reference modifier is evaluated only one time immediately before execution in the UNSTRING statement.
JMN3338I-W
Example
[C3338.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3338. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 A PIC 99V9. 000006 PROCEDURE DIVISION. 000007 MOVE "12.3" TO A. 000008 MOVE 12.3 TO A. 000009 END PROGRAM C3338.
C3338.cob 7: JMN3338I-W A nonnumeric literal that contains a period was moved to a numeric item or a numeric edited item. The characters following the period are ignored in the nonnumeric literal.
Explanation
Please correct the nonnumeric literal to the numeric literal.
JMN3339I-I
Parameter Explanation
@1@ : ANSI85
Example
[C3339.cob] 000001 @OPTIONS CONF(OBS) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3339. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC 999V9. 000007 PROCEDURE DIVISION. 000008 MOVE ALL "123" TO A. 000009 END PROGRAM C3339.
C3339.cob 8: JMN3339I-I (OBS) Moving all literals of two or more characters to a numeric item or a numeric edited item is an obsolete feature in ANSI85 COBOL. It is accepted as written.
JMN3340I-I
Parameter Explanation
@1@ : ANSI85
JMN3342I-S
Parameter Explanation
@1@ : Identifier
@2@ : TO, 'UP BY' or 'DOWN BY'
Example
[C3342.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3342. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC X. 000007 01 B USAGE IS POINTER. 000008 PROCEDURE DIVISION. 000009 P-START. 000010 SET B TO A. 000011 END PROGRAM C3342.
C3342.cob 10: JMN3342I-S SET statement item 'A' of the TO phrase must be an index-name, index data item, integer item, pointer data item, NULL, address of special register, or object reference data item.
JMN3343I-S
Parameter Explanation
@1@ : Item name specified for receipt side
Example
[C3343.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3343. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC X. 000007 01 B USAGE IS POINTER. 000008 PROCEDURE DIVISION. 000009 P-START. 000010 SET A TO B. 000011 END PROGRAM C3343.
C3343.cob 10: JMN3343I-S SET statement receiving item 'A' must be an index-name, index data item, integer item, pointer data item, address of special register, or object reference data item.
JMN3344I-S
Parameter Explanation
@1@ : Data name
Example
[C3344.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3344. 000003 DATA DIVISION. 000004 BASED-STORAGE SECTION. 000005 01 AAA PIC X(10). 000006 WORKING-STORAGE SECTION. 000007 01 PT PIC S9(9) BINARY. 000008 PROCEDURE DIVISION. 000009 DISPLAY PT->AAA. 000010 END PROGRAM C3344.
C3344.cob 9: JMN3344I-S Data-name 'PT' of the pointer qualifier must be a pointer data item.
JMN3345I-S
Parameter Explanation
@1@ : Data name
Example
[C3345.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3345. 000003 DATA DIVISION. 000004 BASED-STORAGE SECTION. 000005 01. 000006 02 FILLER PIC X(5). 000007 02 A PIC X(1). 000008 PROCEDURE DIVISION. 000009 DISPLAY EDIT-COLOR OF A. 000010 END PROGRAM C3345.
C3345.cob 9: JMN3345I-S The special register for the presentation file cannot be created using data-name 'A' in the BASED-STORAGE SECTION.
JMN3346I-S
Parameter Explanation
@1@ : Identifier
Example
[C3346.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3346. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC X(4). 000007 PROCEDURE DIVISION. 000008 P-START. 000009 IF A IS KANJI 000010 DISPLAY A. 000011 IF A IS DBCS 000012 DISPLAY A. 000013 END PROGRAM C3346.
C3346.cob 9: JMN3346I-S 'A' being tested by KANJI or DBCS class condition must be a national item or a national-edited item.
C3346.cob 11: JMN3346I-S 'A' being tested by KANJI or DBCS class condition must be a national item or a national-edited item.
JMN3347I-S
Parameter Explanation
@1@ : Data name
Example
[C3347.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3347. 000003 DATA DIVISION. 000004 BASED-STORAGE SECTION. 000005 01 PT2 POINTER BASED ON PTR. 000006 01 PT3 POINTER BASED ON PT2. 000007 01 PT4 POINTER BASED ON PT3. 000008 01 PT5 POINTER BASED ON PT4. 000009 01 PT6 POINTER BASED ON PT5. 000010 01 PT7 POINTER BASED ON PT6. 000011 01 PT8 POINTER BASED ON PT7. 000012 01 GRR PIC X(10) BASED ON PT8. 000013 WORKING-STORAGE SECTION. 000014 01 PTR POINTER. 000015 01 GR PIC X(10). 000016 PROCEDURE DIVISION. 000017 DISPLAY GRR. 000018 END PROGRAM C3347.
C3347.cob 17: JMN3347I-S Data-name 'GRR' is qualified by an implicit pointer over 7 times, or qualified recursively.
JMN3348I-S
Parameter Explanation
@1@ : ARGUMENT-NUMBER
@2@ : Data name or literal
Example
[C3348.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3348. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 ARGUMENT-NUMBER IS A-N. 000007 DATA DIVISION. 000008 WORKING-STORAGE SECTION. 000009 01 AG1 PIC S9(8) BINARY. 000010 PROCEDURE DIVISION. 000011 ACCEPT AG1 FROM A-N. 000012 END PROGRAM C3348.
C3348.cob 11: JMN3348I-S When a mnemonic-name corresponds to function-name ARGUMENT-NUMBER, 'AG1' must be an unsigned integer item or an unsigned integer.
JMN3349I-S
Parameter Explanation
@1@ : ARGUMENT-VALUE, ENVIRONMENT-VALUE or ENVIRONMENT-NAME
@2@ : Data name or literal
Example
[C3349.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3349. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 ARGUMENT-VALUE IS A-V. 000007 DATA DIVISION. 000008 WORKING-STORAGE SECTION. 000009 01 AV1 PIC S9(8) BINARY. 000010 PROCEDURE DIVISION. 000011 ACCEPT AV1 FROM A-V. 000012 END PROGRAM C3349.
C3349.cob 11: JMN3349I-S When a mnemonic-name corresponds to function-name ARGUMENT-VALUE, 'AV1' must be a fixed length group item, an alphanumeric elementary item or a nonnumeric literal.
JMN3351I-S
Parameter Explanation
@1@ : Function name
Example
[C3351.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3351. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC S9(2)V9(2). 000007 01 B PIC X(1). 000008 PROCEDURE DIVISION. 000009 P-START. 000010 MOVE FUNCTION CHAR(A) TO B. 000011 END PROGRAM C3351.
C3351.cob 10: JMN3351I-S The argument of FUNCTION CHAR must be a type integer.
JMN3352I-S
Parameter Explanation
@1@ : Argument of function
@2@ : Function name
Example
[C3352.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3352. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC 9(8). 000007 01 B PIC X(8). 000008 PROCEDURE DIVISION. 000009 P-START. 000010 MOVE FUNCTION LOWER-CASE (A) TO B. 000011 END PROGRAM C3352.
C3352.cob 10: JMN3352I-S Argument 'A' of FUNCTION LOWER-CASE must be a type alphabetic or an alpha-numeric.
JMN3353I-S
Parameter Explanation
@1@ : Argument of function
@2@ : Function name
Example
[C3353.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3353. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A COMP-2. 000007 01 B PIC X(8). 000008 PROCEDURE DIVISION. 000009 COMPUTE A = FUNCTION SIN (B). 000010 END PROGRAM C3353.
C3353.cob 9: JMN3353I-S Argument 'B' of FUNCTION SIN must be a type numeric.
JMN3354I-S
Parameter Explanation
@1@ : Data name
Example
[C3354.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3354. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 LN PIC S9(2) BINARY. 000006 SCREEN SECTION. 000007 01 A. 000008 02 B VALUE "TEST-1". 000009 PROCEDURE DIVISION. 000010 DISPLAY A 000011 AT LINE NUMBER LN. 000012 END PROGRAM C3354.
C3354.cob 10: JMN3354I-S 'LN' must be an unsigned integer item.
JMN3355I-S
Parameter Explanation
@1@ : Data name
Example
[C3355.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3355. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 PGMNAME PIC X(10). 000006 01 ITEM PIC S9(9) BINARY. 000007 PROCEDURE DIVISION. 000008 CALL PGMNAME USING BY VALUE ITEM. 000009 END PROGRAM C3355.
C3355.cob 8: JMN3355I-S 'ITEM', which is a BY VALUE parameter of the CALL statement, must be one of: a binary item with a usage of COMP-5, BINARY-CHAR, BINARY-SHORT, or BINARY-LONG and is 4 bytes or less; or a 1 byte item; or a numeric literal that has 9 digits or less.
JMN3358I-S
Example
[C3358.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3358. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT F1 ASSIGN TO GS-SYS009 000007 SYMBOLIC DESTINATION IS "PRT". 000008 DATA DIVISION. 000009 FILE SECTION. 000010 FD F1. 000011 01 REC1. 000012 02 KY1 PIC X(2). 000013 02 PIC X(78). 000014 PROCEDURE DIVISION. 000015 UNLOCK F1. 000016 END PROGRAM C3358.
C3358.cob 15: JMN3358I-S The file that is specified in the UNLOCK statement must be a sequential file, a relative file, or an indexed file.
JMN3359I-S
Parameter Explanation
@1@ : Function name
Example
[C3359.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3359. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC S9(4)V9(4) BINARY. 000007 01 B PIC S9(8) PACKED-DECIMAL. 000008 01 C PIC X(8). 000009 01 D PIC S9(8)V9(8) BINARY. 000010 PROCEDURE DIVISION. 000011 P-START. 000012 COMPUTE D = FUNCTION MAX (A , B , C). 000013 END PROGRAM C3359.
C3359.cob 12: JMN3359I-S All arguments of FUNCTION MAX must be of the same type.
JMN3361I-S
Parameter Explanation
@1@ : Function name
Example
[C3361.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3361.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 A PIC S9(18) BINARY.
000007 PROCEDURE DIVISION.
000008 P-START.
000009 COMPUTE A = FUNCTION NUMVAL
000010 (" 1234567890.123456789").
000011 END PROGRAM C3361.C3361.cob 9: JMN3361I-S The numeric parts of the argument of FUNCTION NUMVAL cannot exceed 18 digits.
JMN3362I-S
Parameter Explanation
@1@ : Function name
Example
[C3362.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3362. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC S9(9)V9(9) BINARY. 000007 PROCEDURE DIVISION. 000008 COMPUTE A = FUNCTION SQRT( -2 ). 000009 END PROGRAM C3362.
C3362.cob 8: JMN3362I-S The argument of FUNCTION SQRT must be greater than or equal to 0.
JMN3363I-S
Example
[C3363.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3363. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC S9(18) BINARY. 000007 01 B PIC S9(8) BINARY VALUE +4. 000008 01 C PIC S9(8) BINARY VALUE +12. 000009 01 D PIC S9(8) BINARY VALUE +24. 000010 PROCEDURE DIVISION. 000011 COMPUTE A = FUNCTION PRESENT-VALUE (-2 B C D). 000012 END PROGRAM C3363.
C3363.cob 11: JMN3363I-S The first argument of the FUNCTION PRESENT-VALUE must be greater than -1.
JMN3364I-S
Example
[C3364.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3364. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC S9(18) BINARY VALUE +35983. 000007 01 B PIC S9(8) BINARY VALUE +4. 000008 01 C PIC S9(4) BINARY. 000009 PROCEDURE DIVISION. 000010 MOVE FUNCTION REM(A B)(3:2) TO C. 000011 END PROGRAM C3364.
C3364.cob 10: JMN3364I-S The numeric function cannot be reference modified. An alphanumeric function is assumed.
JMN3366I-S
Parameter Explanation
@1@ : DISPLAY, INITIALIZE, INSPECT or SET
Example
[C3366.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3366. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC S9(8) BINARY. 000007 PROCEDURE DIVISION. 000008 DISPLAY FUNCTION INTEGER( A ). 000009 END PROGRAM C3366.
C3366.cob 8: JMN3366I-S An integer function and a numeric function cannot be specified in the DISPLAY statement.
JMN3367I-S
Parameter Explanation
@1@ : Function name
Example
[C3367.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3367. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC S9(8) BINARY. 000007 PROCEDURE DIVISION. 000008 PERFORM FUNCTION INTEGER( A ) TIMES 000009 COMPUTE A = A - 1 000010 END-PERFORM 000011 END PROGRAM C3367.
C3367.cob 8: JMN3367I-S FUNCTION INTEGER in the PERFORM statement must be an integer or an integer item.
JMN3368I-S
Parameter Explanation
@1@ : WRITE, REWRITE or RELEASE
Example
[C3368.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3368. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 ASSIGN TO SYS001. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD FILE-1. 000010 01 WRTREC. 000011 02 WRT-1 PIC S9(8) BINARY. 000012 02 WRT-2 PIC X(72). 000013 WORKING-STORAGE SECTION. 000014 01 A PIC X(4). 000015 PROCEDURE DIVISION. 000016 P-START. 000017 OPEN OUTPUT FILE-1. 000018 WRITE WRTREC FROM FUNCTION LENGTH(A). 000019 CLOSE FILE-1. 000020 END PROGRAM C3368.
C3368.cob 18: JMN3368I-S An integer function and a numeric function cannot be specified in a FROM clause in a WRITE statement.
JMN3369I-S
Parameter Explanation
@1@ : STRING or UNSTRING
JMN3371I-S
Example
[C3371.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3371. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 CHARS PIC X(1) VALUE "4". 000007 01 I PIC 9(2). 000008 PROCEDURE DIVISION. 000009 P-START. 000010 INSPECT FUNCTION INTEGER-OF-DAY(5) 000011 TALLYING I FOR ALL CHARS. 000012 END PROGRAM C3371.
C3371.cob 10: JMN3371I-S An integer function and a numeric function cannot be specified in an INSPECT statement.
JMN3372I-S
Parameter Explanation
@1@ : MOVE, INITIALIZE, STRING or UNSTRING
Example
[C3372.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3372. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 RCV PIC 9(5). 000007 01 DATA-A PIC X(20) VALUE "ABC". 000008 PROCEDURE DIVISION. 000009 MOVE FUNCTION LENGTH(DATA-A) TO RCV *> ERROR 000010 COMPUTE RCV = FUNCTION LENGTH(DATA-A) *> OK 000011 END PROGRAM C3372.
C3372.cob 9: JMN3372I-S An integer function and a numeric function cannot be specified in the MOVE statement.
Explanation
An integer function and a numeric function can be specified only in the arithmetic expression.
Please use the COMPUTE statement when you set from the value of an integer function or a numeric function to variable.
JMN3373I-S
Parameter Explanation
@1@ : REWRITE or DELETE
@2@ : File name
Example
[C3373.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3373. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT F1 ASSIGN TO SYS006 000007 ORGANIZATION IS INDEXED 000008 ACCESS MODE IS RANDOM 000009 RECORD KEY IS AAA WITH DUPLICATES. 000010 DATA DIVISION. 000011 FILE SECTION. 000012 FD F1. 000013 01 REC-1. 000014 02 AAA PIC X(4). 000015 02 FILLER PIC X(76). 000016 PROCEDURE DIVISION. 000017 P-START. 000018 OPEN I-O F1. 000019 REWRITE REC-1. 000020 END PROGRAM C3373.
C3373.cob 19: JMN3373I-S Indexed file 'F1' with ACCESS MODE IS RANDOM specified and WITH DUPLICATES specified to prime key cannot be specified in a REWRITE statement.
JMN3374I-S
Parameter Explanation
@1@ : FUNCTION NUMVAL or FUNCTION NUMVAL-C
Example
[C3374.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3374.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 RCV PIC S9(8)V9(8) BINARY.
000007 PROCEDURE DIVISION.
000008 P-START.
000009 COMPUTE RCV = FUNCTION NUMVAL-C(" + \ 12345.35 %%").
000010 END PROGRAM C3374.C3374.cob 9: JMN3374I-S The argument format of FUNCTION NUMVAL-C is invalid.
JMN3375I-S
Example
[C3375.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3375. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 RCV PIC X(1). 000007 PROCEDURE DIVISION. 000008 P-START. 000009 MOVE FUNCTION CHAR(+300) TO RCV. 000010 END PROGRAM C3375.
C3375.cob 9: JMN3375I-S The argument of FUNCTION CHAR exceeds the maximum number of characters.
JMN3376I-S
Parameter Explanation
@1@ : FUNCTION ACOS or FUNCTION ASIN
Example
[C3376.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3376. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 RCV PIC S9V99. 000007 PROCEDURE DIVISION. 000008 P-START. 000009 COMPUTE RCV = FUNCTION ACOS(+2). 000010 END PROGRAM C3376.
C3376.cob 9: JMN3376I-S The argument value of FUNCTION ACOS must be between -1 and +1.
JMN3377I-S
Parameter Explanation
@1@ : FUNCTION ANNUITY
Example
[C3377.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3377. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 RCV PIC S9(5)V9(5) BINARY. 000007 01 A PIC S9(2) BINARY VALUE +3. 000008 PROCEDURE DIVISION. 000009 COMPUTE RCV = FUNCTION ANNUITY(-1 , A). 000010 END PROGRAM C3377.
C3377.cob 9: JMN3377I-S The first argument value of FUNCTION ANNUITY must be greater than or equal to 0.
JMN3378I-S
Parameter Explanation
@1@ : FUNCTION ANNUITY
Example
[C3378.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3378. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 RCV PIC S9(5)V9(5) BINARY. 000007 01 A PIC S9(2) BINARY VALUE +1. 000008 PROCEDURE DIVISION. 000009 P-START. 000010 COMPUTE RCV = FUNCTION ANNUITY(A -1). 000011 END PROGRAM C3378.
C3378.cob 10: JMN3378I-S The second argument value of FUNCTION ANNUITY must be an integer greater than 0.
JMN3379I-S
Parameter Explanation
@1@ : FUNCTION REM or FUNCTION MOD
Example
[C3379.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3379. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 RCV PIC S9(5)V9(5) BINARY. 000007 01 A PIC S9(2) BINARY VALUE +1. 000008 PROCEDURE DIVISION. 000009 P-START. 000010 COMPUTE RCV = FUNCTION REM(A 0). 000011 END PROGRAM C3379.
C3379.cob 10: JMN3379I-S The second argument value of FUNCTION REM must not equal 0.
JMN3380I-S
Parameter Explanation
@1@ : FUNCTION LOG or FUNCTION LOG10
Example
[C3380.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3380. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 RCV PIC S9(5)V9(5) BINARY. 000007 PROCEDURE DIVISION. 000008 P-START. 000009 COMPUTE RCV = FUNCTION LOG(-1.5). 000010 END PROGRAM C3380.
C3380.cob 9: JMN3380I-S The argument value of FUNCTION LOG must be greater than 0.
JMN3381I-S
Parameter Explanation
@1@ : FUNCTION ORD
Example
[C3381.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3381. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC X(2). 000007 01 RCV PIC S9(2) BINARY. 000008 PROCEDURE DIVISION. 000009 P-START. 000010 COMPUTE RCV = FUNCTION ORD(A). 000011 END PROGRAM C3381.
C3381.cob 10: JMN3381I-S The argument of FUNCTION ORD must be a type alphabetic or a type alphanumeric, and must be one character.
JMN3382I-S
Parameter Explanation
@1@ : FUNCTION MAX, FUNCTION MIN, FUNCTION ORD-MAX, FUNCTION ORD-MIN
Example
[C3382.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3382. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC 1(8) BIT. 000007 01 B PIC 9(1). 000008 01 RCV PIC 9(1). 000009 PROCEDURE DIVISION. 000010 P-START. 000011 COMPUTE RCV = FUNCTION MAX(A B). 000012 END PROGRAM C3382.
C3382.cob 11: JMN3382I-S The types of argument in FUNCTION MAX must be alphabetic, alphanumeric or numeric.
JMN3383I-S
Parameter Explanation
@1@ : FUNCTION NUMVAL, FUNCTION NUMVAL-C
Example
[C3383.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3383. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC A(10). 000007 01 B PIC S9(8) BINARY. 000008 PROCEDURE DIVISION. 000009 COMPUTE B = FUNCTION NUMVAL(A) 000010 END PROGRAM C3383.
C3383.cob 9: JMN3383I-S The argument of FUNCTION NUMVAL must be a nonnumeric literal or an alphanumeric item.
JMN3384I-W
Parameter Explanation
@1@ : FUNCTION NUMVAL, FUNCTION NUMVAL-C
Example
[C3384.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3384. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 TB. 000007 02 T1 PIC X(3). 000008 02 T2 PIC S9(5). 000009 01 B PIC S9(8) BINARY. 000010 PROCEDURE DIVISION. 000011 COMPUTE B = FUNCTION NUMVAL(TB). 000012 END PROGRAM C3384.
C3384.cob 11: JMN3384I-W The argument of FUNCTION NUMVAL must be a nonnumeric literal or an alphanumeric item. An alphanumeric item is assumed.
JMN3385I-S
Parameter Explanation
@1@ : Function name
Example
[C3385.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3385. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC S9(8) BINARY. 000007 01 I PIC S9(2)V9(2) BINARY. 000008 PROCEDURE DIVISION. 000009 PERFORM VARYING I FROM FUNCTION RANDOM BY 0.1 000011 UNTIL I > 5 000012 COMPUTE A = A - 1 000013 END-PERFORM 000014 END PROGRAM C3385.
C3385.cob 9: JMN3385I-S FUNCTION RANDOM in the PERFORM statement must be a numeric literal or a numeric item.
JMN3386I-S
Parameter Explanation
@1@ : FUNCTION INTEGER, FUNCTION INTEGER-PART, FUNCTION REM
Example
[C3386.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3386. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A COMP-2 VALUE +3.5. 000007 01 RCV PIC S9(4) BINARY. 000008 PROCEDURE DIVISION. 000009 COMPUTE RCV = FUNCTION INTEGER( A ). 000010 END PROGRAM C3386.
C3386.cob 9: JMN3386I-S The argument of FUNCTION INTEGER must be a fixed decimal point item or a decimal point literal.
JMN3388I-S
Example
[C3388.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3388. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 A PIC S9(8) BINARY. 000006 01 B PIC S9(4) BINARY. 000007 01 C PIC X(1). 000008 PROCEDURE DIVISION. 000009 CALL "SUBPROG" USING A B C. 000010 EXIT PROGRAM. 000011 IDENTIFICATION DIVISION. 000012 PROGRAM-ID. SUBPROG. 000013 DATA DIVISION. 000014 LINKAGE SECTION. 000015 01 A1 PIC S9(8) BINARY. 000016 01 B1 PIC S9(4) BINARY. 000017 01 C1 PIC X(1). 000018 PROCEDURE DIVISION WITH PASCAL LINKAGE 000019 USING A1 B1 C1. 000020 DISPLAY A1 B1 C1. 000021 END PROGRAM SUBPROG. 000022 END PROGRAM C3388.
C3388.cob 19: JMN3388I-S The WITH phrase cannot be specified in a PROCEDURE DIVISION of a contained program or a CALL statement for a contained program.
JMN3390I-W
Example
[C3390.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3390. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 A PIC S9(8) BINARY. 000006 01 B PIC S9(4) BINARY. 000007 01 C PIC X(1). 000008 PROCEDURE DIVISION. 000009 CALL "SUBPROG" WITH PASCAL LINKAGE USING A B C. 000010 END PROGRAM C3390.
C3390.cob 9: JMN3390I-W In this system, PASCAL LINKAGE cannot be used. STDCALL LINKAGE is assumed.
JMN3391I-W
JMN3392I-S
Parameter Explanation
@1@ : ACCEPT or DISPLAY
@2@ : Data name
Example
[C3392.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3392. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 A PIC X(8). 000006 01 B PIC X(2). 000007 PROCEDURE DIVISION. 000008 ACCEPT A WITH PROMPT B. 000009 END PROGRAM C3392.
C3392.cob 8: JMN3392I-S In the ACCEPT statement, 'B' of the PROMPT phrase must be a one character alphabetic item, alphanumeric item, national item, nonnumeric literal, or national character literal.
JMN3393I-S
Parameter Explanation
@2@ : Identifier
Example
[C3393.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3393. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 A PIC X(8). 000006 01 B PIC S9(5). 000007 PROCEDURE DIVISION. 000008 DISPLAY A AT 01001. 000009 ACCEPT A AT B. 000010 END PROGRAM C3393.
C3393.cob 8: JMN3393I-S Numeric literal of the AT phrase must be a numeric item with USAGE IS DISPLAY, or a numeric literal of 4 or 6 digits.
C3393.cob 9: JMN3393I-S 'B' of the AT phrase must be a numeric item with USAGE IS DISPLAY, or a numeric literal of 4 or 6 digits.
JMN3394I-S
Parameter Explanation
@1@ : DISPLAY
@2@ : Identifier
Example
[C3394.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3394. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 A PIC X(8). 000006 01 L PIC S9(4) BINARY. 000007 PROCEDURE DIVISION. 000008 DISPLAY FUNCTION MAX( "A" )(1 : L) UPON CRT. 000009 END PROGRAM C3394.
C3394.cob 8: JMN3394I-S The item length of FUNCTION MAX cannot be variable in the DISPLAY statement.
JMN3395I-S
Example
[C3395.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3395. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 ASSIGN TO SYS001 000007 ORGANIZATION IS INDEXED 000008 ACCESS MODE IS SEQUENTIAL 000009 RECORD KEY IS KEY-REC. 000010 DATA DIVISION. 000011 FILE SECTION. 000012 FD FILE-1. 000013 01 REC-1. 000014 02 KEY-REC PIC XX. 000015 02 FILLER PIC X(78). 000016 PROCEDURE DIVISION. 000017 READ FILE-1 PREVIOUS. 000018 END PROGRAM C3395.
C3395.cob 17: JMN3395I-S The PREVIOUS phrase of the READ statement can only be specified for an indexed file or a relative file of dynamic access mode.
JMN3396I-S
Parameter Explanation
@1@ : Identifier
@2@ : Inspection type of class condition(JAPANESE, UNICODE1, BMP)
Example
[C3396.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3396. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 A PIC S9(4) BINARY. 000008 PROCEDURE DIVISION. 000009 IF A IS JAPANESE THEN 000010 DISPLAY A 000011 END-IF. 000012 END PROGRAM C3396.
C3396.cob 9: JMN3396I-S 'A' being tested by the JAPANESE class condition must be an alphabetic, alphanumeric, alphanumeric-edited, numeric-edited, national or national-edited item.
JMN3397I-S
Parameter Explanation
@1@ : Function argument
Example
[C3397.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3397. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 A PIC X(4). 000008 01 B PIC X(4). 000009 PROCEDURE DIVISION. 000010 MOVE FUNCTION CAST-ALPHANUMERIC( A ) TO B. 000011 STOP RUN.
C3397.cob 10: JMN3397I-S Argument 'A' of FUNCTION CAST-ALPHANUMERIC must be a national item or a national-edited item.
JMN3398I-S
Parameter Explanation
@1@ : Function argument
Example
[C3398.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3398. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 A PIC S9(4) BINARY. 000008 01 B PIC N(4). 000009 PROCEDURE DIVISION. 000010 MOVE FUNCTION NATIONAL( A ) TO B. 000011 STOP RUN.
C3398.cob 10: JMN3398I-S Argument 'A' of FUNCTION NATIONAL must be an alphabetic, alphanumeric, alphanumeric-edited, numeric-edited or external decimal item.
JMN3399I-S
Parameter Explanation
@1@ : Identifier
Example
[C3399.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3399. 000003 DATA DIVISION. 000004 BASED-STORAGE SECTION. 000005 01 REC-1 BASED ON PT. 000006 02 KEY-REC PIC XX. 000007 02 FILLER PIC X(78). 000008 WORKING-STORAGE SECTION. 000009 01 PT POINTER. 000010 PROCEDURE DIVISION. 000011 DISPLAY REC-1 UPON CRT. 000012 END PROGRAM C3399.
C3399.cob 11: JMN3399I-S 'REC-1' of the DISPLAY statement must be defined in the WORKING-STORAGE SECTION.
JMN3400I-S
Parameter Explanation
@1@ : Identifier
Example
[C3400.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3400. 000003 DATA DIVISION. 000004 BASED-STORAGE SECTION. 000005 01 REC-1 BASED ON PT. 000006 02 KEY-REC PIC XX. 000007 02 FILLER PIC X(78). 000008 WORKING-STORAGE SECTION. 000009 01 PT POINTER. 000010 PROCEDURE DIVISION. 000011 ACCEPT REC-1 FROM CRT. 000012 END PROGRAM C3400.
C3400.cob 11: JMN3400I-S 'REC-1' of the ACCEPT statement must be defined in the WORKING-STORAGE SECTION.
JMN3401I-S
Parameter Explanation
@1@ : DISPLAY or ACCEPT
@2@ : BELL or BLANK LINE
Example
[C3401.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3401. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 GRP. 000006 02 A-ITEM PIC S9(4). 000007 02 B-ITEM PIC X(8). 000008 PROCEDURE DIVISION. 000009 ACCEPT GRP WITH BELL. 000010 DISPLAY GRP WITH BELL BLANK LINE. 000011 END PROGRAM C3401.
C3401.cob 9: JMN3401I-S BELL of the ACCEPT statement cannot be specified as a group item.
C3401.cob 10: JMN3401I-S BELL of the DISPLAY statement cannot be specified as a group item.
C3401.cob 10: JMN3401I-S BLANK LINE of the DISPLAY statement cannot be specified as a group item.
JMN3402I-S
Parameter Explanation
@1@ : DISPLAY or ACCEPT
@2@ : Identifier
Example
[C3402.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3402. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 A PIC 99.99. 000006 01 B PIC S9(5). 000007 PROCEDURE DIVISION. 000008 DISPLAY A WITH SIZE 2. 000009 ACCEPT B WITH SIZE 2. 000010 END PROGRAM C3402.
C3402.cob 8: JMN3402I-S If 'A' in the DISPLAY statement is a numeric item or a numeric edited item, the SIZE phrase cannot be specified.
C3402.cob 9: JMN3402I-S If 'B' in the ACCEPT statement is a numeric item or a numeric edited item, the SIZE phrase cannot be specified.
JMN3403I-S
Parameter Explanation
@1@ : DISPLAY or ACCEPT
@2@ : Identifier
Example
[C3403.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3403. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 A PIC X(5) JUSTIFIED. 000006 PROCEDURE DIVISION. 000007 DISPLAY A WITH SIZE 2. 000008 ACCEPT A WITH SIZE 2. 000009 END PROGRAM C3403.
C3403.cob 7: JMN3403I-S If 'A' in the DISPLAY statement is specified with the JUSTIFIED clause, the SIZE phrase cannot be specified.
C3403.cob 8: JMN3403I-S If 'A' in the ACCEPT statement is specified with the JUSTIFIED clause, the SIZE phrase cannot be specified.
JMN3404I-S
Parameter Explanation
@1@ : DISPLAY
Example
[C3404.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3404. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 PROCEDURE DIVISION. 000006 DISPLAY 12345 WITH SIZE 2. 000007 END PROGRAM C3404.
C3404.cob 6: JMN3404I-S If a numeric literal is specified in the DISPLAY statement, the SIZE phrase cannot be specified.
JMN3407I-S
Parameter Explanation
@1@ : Identifier
@2@ : Identifier or 'literal'
Example
[C3407.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3407. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 OBJA USAGE IS OBJECT REFERENCE. 000008 01 A PIC S9(8) COMP-5. 000009 01 B PIC X(5). 000010 PROCEDURE DIVISION. 000011 INVOKE OBJA A RETURNING B. 000012 END PROGRAM C3407.
C3407.cob 11: JMN3407I-S 'A' must be an alphanumeric item, a national item, an alphanumeric literal, or a national literal when untyped object reference identifier 'OBJA' is specified in an INVOKE statement.
JMN3408I-S
Parameter Explanation
@1@ : Identifier
@2@ : Method name
Example
[C3408.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C3408. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 OBJECT. 000006 PROCEDURE DIVISION. 000007* 000008 METHOD-ID. FM1. 000009 DATA DIVISION. 000010 WORKING-STORAGE SECTION. 000011 PROCEDURE DIVISION. 000012 INVOKE C3408 "FM1". 000013 EXIT METHOD. 000014 END METHOD FM1. 000015* 000016 END OBJECT. 000017 END CLASS C3408.
C3408.cob 12: JMN3408I-S Method 'FM1' cannot be invoked by 'C3408'.
Explanation
When the factory method is called, it is necessary to specify the factory object. When the object method is called, it is necessary to specify the object instance.
JMN3410I-S
Parameter Explanation
@1@ : Identifier
Example
[C3410.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3410. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 OBJA USAGE IS OBJECT REFERENCE. 000008 01 A PIC S9(4) BINARY. 000009 PROCEDURE DIVISION. 000010 INVOKE OBJA "M1" USING BY CONTENT A. 000011 END PROGRAM C3410.
C3410.cob 10: JMN3410I-S The BY CONTENT phrase cannot be specified in the INVOKE statement when an untyped object reference identifier, special class object reference identifier, or special class class-name 'OBJA' is specified in the INVOKE statement.
JMN3412I-S
Parameter Explanation
@1@ : sending identifier
@2@ : receiving identifier
Example
[JMN3412I-A.cob] 000001 CLASS-ID. JMN3412I-A. 000002 OBJECT. 000003 PROCEDURE DIVISION. 000004* 000005 END OBJECT. 000006 END CLASS JMN3412I-A. [JMN3412I-S.cob] 000001 CLASS-ID. JMN3412I-S. 000002 ENVIRONMENT DIVISION. 000003 CONFIGURATION SECTION. 000004 REPOSITORY. 000005 CLASS JMN3412I-A. 000006 OBJECT. 000007 PROCEDURE DIVISION. 000008* 000009 METHOD-ID. JMN3412-M1. 000010 DATA DIVISION. 000011 WORKING-STORAGE SECTION. 000012 01 OBJA OBJECT REFERENCE JMN3412I-A. 000013 LINKAGE SECTION. 000014 PROCEDURE DIVISION. 000015 SET OBJA TO SELF. 000016 END METHOD JMN3412-M1. 000017* 000018 END OBJECT. 000019 END CLASS JMN3412I-S.
JMN3412I-S.cob 15: JMN3412I-S Predefined object identifier SELF must conform to 'OBJA'.
Explanation
This message is given when the source and target object reference identifiers are not a permitted combination for explicit or implicit SET statements. The conformance rules for SET statements are provided in Chapter 11 of the "NetCOBOL Language Reference".
JMN3413I-S
Example
[C3413.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C3413. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 OBJECT. 000006 PROCEDURE DIVISION. 000007* 000008 METHOD-ID. FM1. 000009 DATA DIVISION. 000010 WORKING-STORAGE SECTION. 000011 01 OBJA USAGE IS OBJECT REFERENCE C3413. 000012 PROCEDURE DIVISION. 000013 IF OBJA > NULL THEN 000014 EXIT METHOD. 000015 END METHOD FM1. 000016* 000017 END OBJECT. 000018 END CLASS C3413.
C3413.cob 13: JMN3413I-S The relational operator for the comparison of object reference identifiers must be EQUAL(=) or NOT EQUAL(NOT =).
JMN3414I-S
Parameter Explanation
@1@ : Program name
Example
[C3414.cob] 000001 @OPTIONS CHECK(PRM) 000002 PROGRAM-ID. C3414. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 PROCEDURE DIVISION. 000006 CALL "C3414S". 000007 EXIT PROGRAM. 000008* 000009 PROGRAM-ID. C3414S. 000010 DATA DIVISION. 000011 LINKAGE SECTION. 000012 01 R PIC X(4). 000013 PROCEDURE DIVISION 000014 RETURNING R. 000015 EXIT PROGRAM. 000016 END PROGRAM C3414S. 000017 END PROGRAM C3414.
C3414.cob 6: JMN3414I-S A 'RETURNING' phrase must be specified for a CALL statement which calls 'C3414S'. There is a RETURNING phrase in the PROCEDURE DIVISION of program 'C3414S'.
JMN3415I-S
Parameter Explanation
@1@ : Method name
Example
[C3415.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C3415. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 OBJECT. 000007 DATA DIVISION. 000008 WORKING-STORAGE SECTION. 000009 01 OBJ3415 OBJECT REFERENCE C3415. 000010 PROCEDURE DIVISION. 000011* 000012 METHOD-ID. FM-1. 000013 DATA DIVISION. 000014 WORKING-STORAGE SECTION. 000015 01 A OBJECT REFERENCE C3415. 000016 PROCEDURE DIVISION. 000017 INVOKE OBJ3415 "FM-2" RETURNING A. 000018 END METHOD FM-1. 000019* 000020 METHOD-ID. FM-2. 000021 DATA DIVISION. 000022 WORKING-STORAGE SECTION. 000023 LINKAGE SECTION. 000024 PROCEDURE DIVISION. 000025 END METHOD FM-2. 000026* 000027 END OBJECT. 000028 END CLASS C3415.
C3415.cob 17: JMN3415I-S A 'RETURNING' phrase is not specified in the PROCEDURE DIVISION for method 'FM-2'.
JMN3421I-S
Parameter Explanation
@1@ : Method name
Example
[C3421-C.cob] 000001 CLASS-ID. C3421-C. 000002 ENVIRONMENT DIVISION. 000003 CONFIGURATION SECTION. 000004 REPOSITORY. 000005 OBJECT. 000006 DATA DIVISION. 000007 WORKING-STORAGE SECTION. 000008 PROCEDURE DIVISION. 000009* 000010 METHOD-ID. C3421-M. 000011 DATA DIVISION. 000012 WORKING-STORAGE SECTION. 000013 LINKAGE SECTION. 000014 PROCEDURE DIVISION. 000015 END METHOD C3421-M. 000016* 000017 METHOD-ID. C3421-M2. 000018 DATA DIVISION. 000019 WORKING-STORAGE SECTION. 000020 01 WORK1 PIC X(50). 000021 LINKAGE SECTION. 000022 PROCEDURE DIVISION. 000023 MOVE SELF::"C3421-M" TO WORK1. 000024 END METHOD C3421-M2. 000025* 000026 END OBJECT. 000027 END CLASS C3421-C.
C3421-C.cob 23: JMN3421I-S In-line invocation method 'C3421-M' does not have a RETURNING phrase. Figurative constant zero is assumed.
JMN3422I-S
Parameter Explanation
@1@ : "Object property"
Example
[C3422.cob] 000001 CLASS-ID. C3422. 000002 ENVIRONMENT DIVISION. 000003 CONFIGURATION SECTION. 000004 REPOSITORY. 000005 OBJECT. 000006 DATA DIVISION. 000007 WORKING-STORAGE SECTION. 000008 01 PROP-DATA PIC 9(10) PROPERTY. 000009 01 OBJ3422 OBJECT REFERENCE C3422. 000010 PROCEDURE DIVISION. 000011 METHOD-ID. C3422-M. 000012 DATA DIVISION. 000013 WORKING-STORAGE SECTION. 000014 01 X04 PIC X(4) VALUE "ABCD". 000015 LINKAGE SECTION. 000016 PROCEDURE DIVISION. 000017 MOVE PROP-DATA OF OBJ3422 (1:4) TO X04. *> JMN3422I-S 000018 END METHOD C3422-M. 000019 END OBJECT. 000020 END CLASS C3422.
C3422.cob 17: JMN3422I-S Object property cannot be reference modified.
JMN3423I-S
Example
[C3423.cob] 000001 CLASS-ID. C3423. 000002 OBJECT. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 PROPDAT PIC S9(9) COMP-5 PROPERTY WITH NO GET. 000006 PROCEDURE DIVISION. 000007 END OBJECT. 000008 END CLASS C3423. [P3423.cob] 000001 PROGRAM-ID. P3423. 000002 ENVIRONMENT DIVISION. 000003 CONFIGURATION SECTION. 000004 REPOSITORY. 000005 CLASS C3423. 000006 DATA DIVISION. 000007 WORKING-STORAGE SECTION. 000008 01 WDATA PIC S9(9) COMP-5. 000009 01 OBJC3423 OBJECT REFERENCE C3423. 000010 PROCEDURE DIVISION. 000011 MOVE PROPDAT OF OBJC3423 TO WDATA. 000012 END PROGRAM P3423.
P3423.cob 11: JMN3423I-S The property accessor (GET method) is not defined.
Explanation
This message is issued when an attempt is made to use a property as the source item in a statement when the property has no GET_ method defined.
JMN3424I-S
Example
[C3424.cob] 000001 CLASS-ID. C3424. 000002 OBJECT. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 PROPDAT PIC S9(9) COMP-5 PROPERTY WITH NO SET. 000006 PROCEDURE DIVISION. 000007 END OBJECT. 000008 END CLASS C3424. [P3424.cob] 000001 PROGRAM-ID. P3424. 000002 ENVIRONMENT DIVISION. 000003 CONFIGURATION SECTION. 000004 REPOSITORY. 000005 CLASS C3424. 000006 DATA DIVISION. 000007 WORKING-STORAGE SECTION. 000008 01 WDATA PIC S9(9) COMP-5. 000009 01 OBJC3424 OBJECT REFERENCE C3424. 000010 PROCEDURE DIVISION. 000011 MOVE WDATA TO PROPDAT OF OBJC3424. 000012 END PROGRAM P3424.
P3424.cob 11: JMN3424I-S The property accessor (SET method) is not defined.
Explanation
This message is issued when an attempt is made to use a property as the target item in a statement when the property has no SET_ method defined.
JMN3427I-S
Parameter Explanation
@1@ : "Object property"
JMN3428I-S
Parameter Explanation
@1@ : DISPLAY
Example
[C3428.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C3428. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 OBJECT. 000007 PROCEDURE DIVISION. 000008 METHOD-ID. FM1. 000009 DATA DIVISION. 000010 WORKING-STORAGE SECTION. 000011 01 OBJA OBJECT REFERENCE C3428. 000012 PROCEDURE DIVISION. 000013 DISPLAY OBJA. 000014 EXIT METHOD. 000015 END METHOD FM1. 000016 END OBJECT. 000017 END CLASS C3428.
C3428.cob 13: JMN3428I-S An object identifier cannot be specified in a DISPLAY statement.
JMN3429I-S
Parameter Explanation
@1@ : Group item name
Example
[C3429.cob] 000001 PROGRAM-ID. C3429. 000002 DATA DIVISION. 000003 WORKING-STORAGE SECTION. 000004 01 OR-GROUP. 000005 02 OBJREF OBJECT REFERENCE OCCURS 10. 000006 LINKAGE SECTION. 000007 PROCEDURE DIVISION. 000008 MOVE LOW-VALUE TO OR-GROUP 000009 END PROGRAM C3429.
C3429.cob 8: JMN3429I-S Group item 'OR-GROUP' that includes an object reference cannot be specified.
JMN3430I-S
JMN3432I-S
Example
[C3432.cob] 000001 CLASS-ID. C3432. 000002 ENVIRONMENT DIVISION. 000003 CONFIGURATION SECTION. 000004 REPOSITORY. 000005 OBJECT. 000006 DATA DIVISION. 000007 WORKING-STORAGE SECTION. 000008 PROCEDURE DIVISION. 000009 METHOD-ID. C3432-M. 000010 DATA DIVISION. 000011 WORKING-STORAGE SECTION. 000012 01 WK1 PIC X(20). 000013 LINKAGE SECTION. 000014 01 RTN PIC X(20). 000015 PROCEDURE DIVISION USING RTN. 000016 INVOKE SELF "C3432-M" USING WK1(1:18). 000017 END METHOD C3432-M. 000018 END OBJECT. 000019 END CLASS C3432.
C3432.cob 16: JMN3432I-S BY REFERENCE phrase items, RETURNING phrase items in an INVOKE statement, and argument items of in-line invocation cannot be reference modified.
JMN3433I-S
Parameter Explanation
@1@ : ANSI85
Example
[C3433.cob] 000001 CLASS-ID. C3433. 000002 ENVIRONMENT DIVISION. 000003 CONFIGURATION SECTION. 000004 REPOSITORY. 000005* 000006 OBJECT. 000007 DATA DIVISION. 000008 WORKING-STORAGE SECTION. 000009 PROCEDURE DIVISION. 000010 METHOD-ID. C3433-M. 000011 DATA DIVISION. 000012 WORKING-STORAGE SECTION. 000013 01 D908 PIC 9(8). 000014 LINKAGE SECTION. 000015 PROCEDURE DIVISION. 000016 MOVE ALL '40' TO D908. 000017 END METHOD C3433-M. 000018 END OBJECT. 000019 END CLASS C3433.
C3433.cob 16: JMN3433I-S Moving all literals of two or more characters to a numeric item or a numeric edited item is an obsolete feature in ANSI85 COBOL.
JMN3434I-S
Parameter Explanation
@1@ : ANSI85
Example
[C3434.cob] 000001 CLASS-ID. C3434. 000002 ENVIRONMENT DIVISION. 000003 CONFIGURATION SECTION. 000004 OBJECT. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 PROCEDURE DIVISION. 000008 METHOD-ID. C3434-M. 000009 DATA DIVISION. 000010 WORKING-STORAGE SECTION. 000011 01 D908 PIC 9(8) VALUE 40404040. 000012 LINKAGE SECTION. 000013 PROCEDURE DIVISION. 000014 IF ALL '40' = D908 000015 DISPLAY "SAME" 000016 END-IF 000017 END METHOD C3434-M. 000018 END OBJECT. 000019 END CLASS C3434.
C3434.cob 14: JMN3434I-S Comparing all literals of two or more characters with a numeric item or a numeric edited item is an obsolete feature in ANSI85 COBOL.
JMN3435I-S
Example
[C3435.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3435. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. CLASS OL-1 AS "*COM". 000006 DATA DIVISION. 000007 WORKING-STORAGE SECTION. 000008 01 OBJU OBJECT REFERENCE. 000009 PROCEDURE DIVISION. 000010 IF OBJU = OL-1 THEN 000011 EXIT PROGRAM. 000012 END PROGRAM C3435.
C3435.cob 10: JMN3435I-S The class-name of a special class cannot be specified in a conditional expression.
JMN3436I-S
Parameter Explanation
@1@ : RAISE, EXIT METHOD or EXIT PROGRAM
Example
[C3436.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3436. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. CLASS OL-1 AS "*COB-BINDTABLE". 000006 DATA DIVISION. 000007 WORKING-STORAGE SECTION. 000008 01 OBJ-1 OBJECT REFERENCE OL-1. 000009 PROCEDURE DIVISION. 000010 RAISE OL-1. 000011 END PROGRAM C3436.
C3436.cob 10: JMN3436I-S The object reference identifier in the RAISE statement cannot refer to a special class except *COM(OLE)-EXCEPTION.
JMN3437I-S
Example
[C3437.cob] 000001 CLASS-ID. C3437. 000002 ENVIRONMENT DIVISION. 000003 CONFIGURATION SECTION. 000004 REPOSITORY. 000005 OBJECT. 000006 DATA DIVISION. 000007 WORKING-STORAGE SECTION. 000008 01 OBJ1 OBJECT REFERENCE C3437 PROPERTY. 000009 PROCEDURE DIVISION. 000010* 000011 METHOD-ID. METHODI. 000012 DATA DIVISION. 000013 LINKAGE SECTION. 000014 01 OBJ2 OBJECT REFERENCE C3437. 000015 PROCEDURE DIVISION RETURNING OBJ2. 000016 IF SELF::"METHODI" = NULL THEN 000017 EVALUATE OBJ1 OF SELF 000018 WHEN NULL 000019 DISPLAY "NULL" 000020 WHEN OTHER 000021 DISPLAY "OHTER" 000022 END-EVALUATE 000023 END-IF. 000024 END METHOD METHODI. 000025* 000026 END OBJECT. 000027 END CLASS C3437.
C3437.cob 16: JMN3437I-S An in-line method invocation, or object property that returns object reference data, cannot be specified in a conditional expression.
C3437.cob 18: JMN3437I-S An in-line method invocation, or object property that returns object reference data, cannot be specified in a conditional expression.
JMN3438I-W
Example
[C3438.cob] 000001 @OPTIONS XREF 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3438. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC X(3). 000007 01 B PIC N(3). 000008 PROCEDURE DIVISION. 000009 MOVE A TO B. 000010 END PROGRAM C3438.
JMN3439I-S
Parameter Explanation
@1@ : data name
Example
[C3439.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C3439. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 IDENTIFICATION DIVISION. 000007 OBJECT. 000008 DATA DIVISION. 000009 PROCEDURE DIVISION. 000010 IDENTIFICATION DIVISION. 000011 METHOD-ID. C3439-1. 000012 DATA DIVISION. 000013 WORKING-STORAGE SECTION. 000014 01 A. 000015 02 A1 PIC 1(3) BIT. 000016 02 A2 PIC 1(5) BIT. 000017 PROCEDURE DIVISION. 000018 INVOKE SELF "C3439-2" USING A2. 000019 END METHOD C3439-1. 000020 IDENTIFICATION DIVISION. 000021 METHOD-ID. C3439-2. 000022 DATA DIVISION. 000023 LINKAGE SECTION. 000024 01 B PIC 1(5) BIT. 000025 PROCEDURE DIVISION USING B. 000026 END METHOD C3439-2. 000027 END OBJECT. 000028 END CLASS C3439.
C3439.cob 18: JMN3439I-S Internal boolean item 'A2' must be defined so that it starts on a byte boundary.
Explanation
If you use an internal boolean item as a BY REFERENCE parameter, it must have an address that can be passed in the call or method invocation. Addresses only contain byte offsets, not bit offsets, so an internal boolean item used as a BY REFERENCE parameter must be aligned to a byte boundary. If it is not, this error will be issued.
JMN3440I-S
Example
[JMN3440I-S.cob] 000001 CLASS-ID. C3440. 000002 FACTORY. 000003 PROCEDURE DIVISION. 000004* 000005 METHOD-ID. M3440-M1. 000006 DATA DIVISION. 000007 WORKING-STORAGE SECTION. 000008 LINKAGE SECTION. 000009 01 FPRM PIC X ANY LENGTH. 000010 PROCEDURE DIVISION USING FPRM. 000011 DISPLAY FPRM. 000012 END METHOD M3440-M1. 000013* 000014 METHOD-ID. M3440-M2. 000015 DATA DIVISION. 000016 WORKING-STORAGE SECTION. 000017 01 PRM PIC X(2). 000018 LINKAGE SECTION. 000019 PROCEDURE DIVISION. 000020 INVOKE SELF "M3440-M1" 000021 USING BY CONTENT PRM. 000022 END METHOD M3440-M2. 000023* 000024 END FACTORY. 000025 END CLASS C3440. 000025 END CLASS JMN3440I-S.
C3440.cob 20: JMN3440I-S When an ANY LENGTH clause is specified to a formal parameter, the USING parameter of the INVOKE statement or the argument of the in-line method invocation corresponding to its formal parameter must be a parameter for which the BY REFERENCE phrase is specified or a nonnumeric literal or national character literal except for ALL literal.
JMN3441I-S
Parameter Explanation
@1@ : Data name
@2@ : INVOKE or CALL
Example
[C3441.cob] 000001 CLASS-ID. C3441. 000002 FACTORY. 000003 PROCEDURE DIVISION. 000004* 000005 METHOD-ID. M3441-M1. 000006 DATA DIVISION. 000007 WORKING-STORAGE SECTION. 000008 LINKAGE SECTION. 000009 01 PRM PIC X ANY LENGTH. 000010 PROCEDURE DIVISION USING PRM. 000011 CALL "PROGA" USING PRM. 000012 END METHOD M3441-M1. 000013* 000014 END FACTORY. 000015 END CLASS C3441.
C3441.cob 11: JMN3441I-S Data-item 'PRM' with an ANY LENGTH clause cannot be specified in a USING or a RETURNING phrase of a CALL statement.
JMN3442I-S
Parameter Explanation
@1@ : Data name
@2@ : INVOKE
Example
[C3442.cob] 000001 CLASS-ID. C3442. 000002 OBJECT. 000003 PROCEDURE DIVISION. 000004* 000005 METHOD-ID. M3442-M1. 000006 DATA DIVISION. 000007 WORKING-STORAGE SECTION. 000008 LINKAGE SECTION. 000009 01 PRM PIC X ANY LENGTH. 000010 01 RET PIC X ANY LENGTH. 000011 PROCEDURE DIVISION USING PRM RETURNING RET. 000012 INVOKE SELF "M3442-M1" USING PRM RETURNING RET. 000013 END METHOD M3442-M1. 000014* 000015 END OBJECT. 000016 END CLASS C3442.
C3442.cob 12: JMN3442I-S Data-item 'RET' with an ANY LENGTH clause cannot be specified in a RETURNING phrase of a INVOKE statement.
JMN3443I-S
Parameter Explanation
@1@ : Data name
@2@ : Function name
Example
[C3443.cob] 000001 CLASS-ID. C3443. 000002 FACTORY. 000003 PROCEDURE DIVISION. 000004* 000005 METHOD-ID. M3443. 000006 DATA DIVISION. 000007 WORKING-STORAGE SECTION. 000008 01 WRCV PIC X(25). 000009 LINKAGE SECTION. 000010 01 WDATA-AN PIC X ANY LENGTH. 000011 PROCEDURE DIVISION USING WDATA-AN. 000012 MOVE FUNCTION REVERSE(WDATA-AN) TO WRCV. 000013 END METHOD M3443. 000014* 000015 END FACTORY. 000016 END CLASS C3443.
C3443.cob 12: JMN3443I-S Data-item 'WDATA-AN' with an ANY LENGTH clause cannot be specified in an argument of FUNCTION REVERSE.
JMN3444I-S
Parameter Explanation
@1@ : Data name
Example
[C3444.cob] 000001 CLASS-ID. C3444. 000002 FACTORY. 000003 PROCEDURE DIVISION. 000004* 000005 METHOD-ID. M3444. 000006 DATA DIVISION. 000007 WORKING-STORAGE SECTION. 000008 LINKAGE SECTION. 000009 01 WDATA-AN PIC X ANY LENGTH. 000010 PROCEDURE DIVISION USING WDATA-AN. 000011 INITIALIZE WDATA-AN. 000012 END METHOD M3444. 000013* 000014 END FACTORY. 000015 END CLASS C3444.
C3444.cob 11: JMN3444I-S Data-item 'WDATA-AN' with an ANY LENGTH clause cannot be specified in an INITIALIZE statement.
JMN3445I-S
Parameter Explanation
@1@ : Class name
Example
[A.cob] 000001 CLASS-ID. A. 000002 END CLASS A. [B.cob] 000001 CLASS-ID. B INHERITS A. 000002 ENVIRONMENT DIVISION. 000003 CONFIGURATION SECTION. 000004 REPOSITORY. 000005 CLASS A. 000006 END CLASS B. [X.cob] 000001 CLASS-ID. X. 000002 ENVIRONMENT DIVISION. 000003 CONFIGURATION SECTION. 000004 REPOSITORY. 000005 CLASS B. 000006 FACTORY. 000007 PROCEDURE DIVISION. 000008* 000009 METHOD-ID. MX. 000010 DATA DIVISION. 000011 LINKAGE SECTION. 000012 01 OBJB OBJECT REFERENCE B. 000013 PROCEDURE DIVISION RETURNING OBJB. 000014 END METHOD MX. 000015* 000016 END FACTORY. 000017 END CLASS X. [C3445.cob] 000001 PROGRAM-ID. C3445. 000002 ENVIRONMENT DIVISION. 000003 CONFIGURATION SECTION. 000004 REPOSITORY. 000005 CLASS A 000006 CLASS X. 000007 DATA DIVISION. 000008 WORKING-STORAGE SECTION. 000009 01 OBJA OBJECT REFERENCE A. 000010 LINKAGE SECTION. 000011 PROCEDURE DIVISION. 000012 INVOKE X "MX" RETURNING OBJA 000013 END PROGRAM C3445.
C3445.cob 12: JMN3445I-S Indirect reference class 'B' must be specified in a repository paragraph.
JMN3446I-S
Parameter Explanation
@1@ : Data name
Example
[C3446.cob] 000001 CLASS-ID. C3446. 000002 FACTORY. 000003 PROCEDURE DIVISION. 000004* 000005 METHOD-ID. M3446. 000006 DATA DIVISION. 000007 WORKING-STORAGE SECTION. 000008 LINKAGE SECTION. 000009 01 PRM PIC X ANY LENGTH. 000010 PROCEDURE DIVISION USING PRM. 000011 INVOKE SELF "M3446" USING BY CONTENT PRM. 000012 END METHOD M3446. 000013* 000014 END FACTORY. 000015 END CLASS C3446.
C3446.cob 11: JMN3446I-S Data-item 'PRM' with an ANY LENGTH clause cannot be specified in a BY CONTENT phrase of an INVOKE statement.
JMN3447I-S
Parameter Explanation
@1@ : Method name
Example
[C3447.cob] 000001 CLASS-ID. C3447. 000002 FACTORY. 000003 PROCEDURE DIVISION. 000004* 000005 METHOD-ID. M3447. 000006 DATA DIVISION. 000007 WORKING-STORAGE SECTION. 000008 01 X10 PIC X(10). 000009 LINKAGE SECTION. 000010 01 RET PIC X ANY LENGTH. 000011 PROCEDURE DIVISION RETURNING RET. 000012 MOVE SELF :: "M3447" TO X10 000013 END METHOD M3447. 000014* 000015 END FACTORY. 000016 END CLASS C3447.
C3447.cob 12: JMN3447I-S Method 'M3447' for which the ANY LENGTH clause is specified for an item of the RETURNING phrase in the PROCEDURE DIVISION header cannot be invoked by an in-line invocation.
JMN3448I-W
Parameter Explanation
@1@ : Identifier
@2@ : EXIT METHOD or EXIT PROGRAM
Explanation
This message is given if either:
The item specified in the RAISING phrase of either the EXIT METHOD or EXIT PROGRAM statements is not an object reference, or;
The object identifier specified in that RAISING phrase does not reference the class specified in the RAISING phrase of the PROCEDURE DIVISION header.
JMN3449I-S
Example
[C3449.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C3449 INHERITS FJBASE. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS FJBASE. 000007* 000008 OBJECT. 000009 PROCEDURE DIVISION. 000010 METHOD-ID. _FINALIZE OVERRIDE. 000011 PROCEDURE DIVISION. 000012 EXIT METHOD RAISING C3449. 000013 END METHOD _FINALIZE. 000014 END OBJECT. 000015 END CLASS C3449.
C3449.cob 12: JMN3449I-S An EXIT METHOD statement with a RAISING phrase cannot be specified in a _FINALIZE method.
JMN3450I-W
Parameter Explanation
@1@ : sending item
@2@ : receiving item
Example
[C3450.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3450. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 GRP. 000006 02 A-GRP. 000007 03 A-AREA PIC X(4). 000008 03 FILLER PIC X(1). 000009 02 B-GRP REDEFINES A-GRP. 000010 03 FILLER PIC X(1). 000011 03 B-AREA PIC X(4). 000012 PROCEDURE DIVISION. 000013 MOVE A-AREA TO B-AREA. 000014 END PROGRAM C3450.
C3450.cob 13: JMN3450I-W The result of the MOVE is undefined because the area of sending item 'A-AREA' and the area of receiving item 'B-AREA' overlap.
Explanation
This message is given to warn you that the sending and receiving areas overlap in an implicit or explicit MOVE statement. The results of the move are not defined as they depend on the architecture of the machine - what size chunks of data are moved from the sending to the receiving item.
JMN3451I-W
Parameter Explanation
@1@ : Name of VT type(VT_xxxxx)
@2@ : Data name
@3@ : Data type
Example
[C3451.cob] 000001 PROGRAM-ID. C3451. 000002 ENVIRONMENT DIVISION. 000003 CONFIGURATION SECTION. 000004 REPOSITORY. 000005 CLASS Excel-Range AS "*COM:EXCEL:Range" 000006 . 000007 DATA DIVISION. 000008 WORKING-STORAGE SECTION. 000009 01 CELL-OBJ OBJECT REFERENCE Excel-Range. 000010 01 ERR-COUNT PIC X(4). 000011 01 OK-COUNT PIC S9(9) COMP-5. 000012 PROCEDURE DIVISION. 000013* 000014 INVOKE CELL-OBJ "GET-Count" RETURNING ERR-COUNT 000015 INVOKE CELL-OBJ "GET-Count" RETURNING OK-COUNT 000016* 000017 END PROGRAM C3451.
C3451.cob 14: JMN3451I-W 'ERR-COUNT' (alphanumeric) is specified for a formal parameter of VT_I4 type. Sending and receiving may not function correctly.
JMN3453I-S
Example
[C3453.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3453. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS EXCEL AS "*COM:EXCEL:APPLICATION" 000007 CLASS WORKBOOK AS "*COM:EXCEL:WORKBOOK" 000008 CLASS WORKBOOKS AS "*COM:EXCEL:WORKBOOKS" 000009 . 000010 DATA DIVISION. 000011 WORKING-STORAGE SECTION. 000012 01 WEXCEL OBJECT REFERENCE EXCEL. 000013 01 WBOOK OBJECT REFERENCE WORKBOOK. 000014 01 WFILENAME OBJECT REFERENCE. 000015 PROCEDURE DIVISION. 000016 INVOKE EXCEL "NEW" RETURNING WEXCEL. 000017* 000018 INVOKE WORKBOOKS OF WEXCEL "OPEN" 000019 USING OMITTED 000020 RETURNING WBOOK. 000021* 000022 END PROGRAM C3453.
C3453.cob 19: JMN3453I-S The OMITTED phrase can only be specified for a parameter of a COM server method that has an optional attribute.
JMN3454I-S
Parameter Explanation
@1@ : Identifier
Example
[C3454.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C3454. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 . 000007 OBJECT. 000008 PROCEDURE DIVISION. 000009* 000010 METHOD-ID. MY-METHOD. 000011 DATA DIVISION. 000012 WORKING-STORAGE SECTION. 000013 01 OBJ3454 OBJECT REFERENCE C3454. 000014 LINKAGE SECTION. 000015 01 PRM1 PIC X(10). 000016 PROCEDURE DIVISION USING PRM1. 000017 INVOKE OBJ3454 "MY-METHOD" USING OMITTED. 000018 END METHOD MY-METHOD. 000019* 000020 END OBJECT. 000021 END CLASS C3454.
C3454.cob 17: JMN3454I-S The OMITTED phrase can only be specified as a parameter if 'OBJ3454' is a special class object reference identifier.
JMN3455I-S
Parameter Explanation
@1@ : name of identifier
@2@ : "formal parameter"
@3@ : VT type of formal parameter
Example
[C3455.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3455. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS EXCEL AS "*COM:EXCEL:APPLICATION" 000007 CLASS WORKBOOK AS "*COM:EXCEL:WORKBOOK" 000008 CLASS WORKBOOKS AS "*COM:EXCEL:WORKBOOKS" 000009 . 000010 DATA DIVISION. 000011 WORKING-STORAGE SECTION. 000012 01 WEXCEL OBJECT REFERENCE EXCEL. 000013 01 WBOOK OBJECT REFERENCE WORKBOOK. 000014 01 WFILENAME OBJECT REFERENCE. 000015 PROCEDURE DIVISION. 000016 INVOKE EXCEL "NEW" RETURNING WEXCEL. 000017* 000018 INVOKE WORKBOOKS OF WEXCEL "OPEN" 000019 USING WFILENAME 000020 RETURNING WBOOK. 000021* 000022 END PROGRAM C3455.
C3455.cob 19: JMN3455I-S 'WFILENAME' must be conformed to formal parameter (VT_BSTR type).
JMN3456I-S
Example
[C3456.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3456. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS EXCEL AS "*COM:EXCEL:APPLICATION" 000007 CLASS WORKBOOK AS "*COM:EXCEL:WORKBOOK" 000008 CLASS WORKBOOKS AS "*COM:EXCEL:WORKBOOKS" 000009 . 000010 DATA DIVISION. 000011 WORKING-STORAGE SECTION. 000012 01 WEXCEL OBJECT REFERENCE EXCEL. 000013 01 WBOOK OBJECT REFERENCE WORKBOOK. 000014 01 WFILENAME OBJECT REFERENCE. 000015 PROCEDURE DIVISION. 000016 INVOKE EXCEL "NEW" RETURNING WEXCEL. 000017* 000018 INVOKE WORKBOOKS OF WEXCEL "OPEN" 000019 USING SPACE 000020 RETURNING WBOOK. 000021* 000022 END PROGRAM C3456.
C3456.cob 19: JMN3456I-S A figurative constant and the ALL literal cannot be specified for the parameter of a special class method.
JMN3457I-I
Parameter Explanation
@1@ : Name of VT type(VT_xxxxx)
@2@ : Data name
@3@ : Data type
Example
[C3457.cob] 000001 PROGRAM-ID. C3457. 000002 ENVIRONMENT DIVISION. 000003 CONFIGURATION SECTION. 000004 REPOSITORY. 000005 CLASS EXCEL-RANGE AS "*COM:EXCEL:RANGE". 000006 DATA DIVISION. 000007 WORKING-STORAGE SECTION. 000008 01 B PIC X(20). 000009 01 RANGE-OBJ OBJECT REFERENCE EXCEL-RANGE. 000010 01 RCV COMP-2. 000011 PROCEDURE DIVISION. 000012 INVOKE RANGE-OBJ "GET-Text" RETURNING B. 000013 END PROGRAM C3457.
C3457.cob 12: JMN3457I-I 'B' (alphanumeric) is specified for a formal parameter of VT_VARIANT type.
JMN3458I-S
Parameter Explanation
@1@ : Data name
@2@ : ACCEPT or DISPLAY
Example
[C3458.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3458. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 CTRL-DATA PIC N(20). 000006 01 SCRN-DATA PIC N(16). 000007 SCREEN SECTION. 000008 01 ITITLE1 CONTROL CTRL-DATA. 000009 02 LINE NUMBER IS 3 COLUMN NUMBER IS 23. 000010 PROCEDURE DIVISION. 000011 DISPLAY ITITLE1. 000012 DISPLAY SCRN-DATA WITH CONTROL CTRL-DATA. 000013 EXIT PROGRAM. 000014 END PROGRAM C3458.
C3458.cob 11: JMN3458I-S Data-name 'CTRL-DATA' of the CONTROL phrase cannot be an alphanumeric item in the DISPLAY statement.
C3458.cob 12: JMN3458I-S Data-name 'CTRL-DATA' of the CONTROL phrase cannot be an alphanumeric item in the DISPLAY statement.
JMN3459I-S
Parameter Explanation
@1@ : Argument of function
Example
[C3459.cob] 000001 @OPTIONS RCS(UTF16) 000002 PROGRAM-ID. C3459. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 N20 PIC N(20). 000007 01 INTD PIC S9(9). 000008 PROCEDURE DIVISION. 000009 MOVE FUNCTION UCS2-OF (INTD) TO N20 000010 END PROGRAM C3459.
C3459.cob 9: JMN3459I-S If the 'INTD' argument of FUNCTION UCS2-OF is either an alphabetic, alphanumeric or alphanumeric-edited item, then the encoding format must be UTF8.
JMN3460I-S
Parameter Explanation
@1@ : Argument of function
Example
[C3460.cob] 000001 @OPTIONS RCS(UTF16) 000002 PROGRAM-ID. C3460. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 X20 PIC X(20). 000007 01 NGRP. 000008 02 N10 PIC N(10). 000009 PROCEDURE DIVISION. 000010 MOVE FUNCTION UTF8-OF (NGRP) TO X20 000011 END PROGRAM C3460.
C3460.cob 10: JMN3460I-S If the 'NGRP' argument of FUNCTION UTF8-OF is either a national item or a national-edited item, then the encoding format must be UTF16.
JMN3461I-S
Parameter Explanation
@1@ : Argument of function
Example
[C3461.cob] 000001 PROGRAM-ID. C3461. 000002 ENVIRONMENT DIVISION. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 LEN PIC 9(3). 000006 01 GRP. 000007 02 X10 PIC X(10). 000008 02 X20 PIC X(20). 000009 01 NUM01 PIC S9(4). 000010 PROCEDURE DIVISION. 000011 COMPUTE LEN = FUNCTION STORED-CHAR-LENGTH (GRP) 000012 COMPUTE LEN = FUNCTION STORED-CHAR-LENGTH (NUM01) 000013 END PROGRAM C3461.
C3461.cob 11: JMN3461I-S Argument 'GRP' of FUNCTION STORED-CHAR-LENGTH must be an alphabetic, alphanumeric, alphanumeric-edited, national or national-edited item.
C3461.cob 12: JMN3461I-S Argument 'NUM01' of FUNCTION STORED-CHAR-LENGTH must be an alphabetic, alphanumeric, alphanumeric-edited, national or national-edited item.
JMN3462I-W
Parameter Explanation
@1@ : Identifier(group item)
Example
[C3462.cob] 000001 @OPTIONS RCS(UTF16) 000002 PROGRAM-ID. C3462. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 X20 PIC X(20). 000007 01 NGRP. 000008 02 N10 PIC N(10). 000009 PROCEDURE DIVISION. 000010 IF X20 > NGRP THEN 000011 DISPLAY "X20 BIGGER" 000012 ELSE 000013 DISPLAY "X20 SMALLER" 000014 END-IF 000015 END PROGRAM C3462.
C3462.cob 10: JMN3462I-W If compile option RCS(UTF16) or ENCODE is specified, then the size is not compared as a national language when the national part of the group item 'NGRP' includes a national item.
JMN3463I-S
Parameter Explanation
@1@ : Identifier
@2@ : Identifier
Example
[C3463.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3463. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 TYPE-A TYPEDEF STRONG. 000008 02 A1 PIC S9(4) COMP-5. 000009 02 A2 PIC X(50). 000010 01 TYPE-B TYPEDEF STRONG. 000011 02 B1 PIC X(25). 000012 01 DATA-A TYPE TYPE-A. 000013 01 DATA-B TYPE TYPE-B. 000014 PROCEDURE DIVISION. 000015 MOVE DATA-A TO DATA-B. 000016 EXIT PROGRAM. 000017 END PROGRAM C3463.
C3463.cob 15: JMN3463I-S When receiving item 'DATA-B' is a strongly-typed group item, sending item 'DATA-A' must be a strongly-typed group item of the same type as 'DATA-B'.
JMN3464I-S
Example
[C3464.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3464. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 STG TYPEDEF STRONG. 000006 02 A PIC X(40). 000007 02 B PIC N(20). 000008 01 ABC TYPE STG. 000009 01 DEF PIC X(80). 000010 PROCEDURE DIVISION. 000011 IF ABC = DEF THEN 000012 DISPLAY "OK" 000013 END-IF. 000014 END PROGRAM C3464.
C3464.cob 11: JMN3464I-S If either data item is a strongly-typed group item, both data items must be of the same type.
JMN3465I-S
Parameter Explanation
@1@ : READ or RETURN
@2@ : Identifier
@3@ : File name
Example
[C3465.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3465. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT A-FILE ASSIGN TO SYS001. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD A-FILE. 000010 01 RECA1 PIC X(80). 000011 01 RECA2 PIC X(100). 000012 WORKING-STORAGE SECTION. 000013 01 STG TYPEDEF STRONG. 000014 02 A PIC X(40). 000015 02 B PIC N(20). 000016 01 INTOA TYPE STG. 000017 PROCEDURE DIVISION. 000018 OPEN INPUT A-FILE. 000019 READ A-FILE INTO INTOA. 000020 END PROGRAM C3465.
C3465.cob 19: JMN3465I-S If 'INTOA' of an INTO phrase in a READ statement is a strongly-typed group item, 'A-FILE' must have one record description.
JMN3466I-S
Example
[C3466.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3466. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 OBJU OBJECT REFERENCE. 000008 01 TYPE-A TYPEDEF STRONG. 000009 02 GP. 000010 03 A1 PIC S9(4) COMP-5. 000011 03 A2 PIC X(50). 000012 01 DATA-A TYPE TYPE-A. 000013 PROCEDURE DIVISION. 000014 INVOKE OBJU "M1" USING GP OF DATA-A. 000015 EXIT PROGRAM. 000016 END PROGRAM C3466.
C3466.cob 14: JMN3466I-S When a strongly-typed group item specified in a USING or RETURNING phrase of an INVOKE statement, or specified in an argument of an in-line method invocation, the group item must be level number 01.
JMN3467I-S
Parameter Explanation
@1@ : Strongly-typed group item
Example
[C3467.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3467. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 STG TYPEDEF STRONG. 000006 02 A PIC X(40). 000007 02 B PIC N(20). 000008 01 ABC TYPE STG. 000009 01 DEF PIC X(80). 000010 PROCEDURE DIVISION. 000011 ACCEPT ABC. 000012 END PROGRAM C3467.
C3467.cob 11: JMN3467I-S A strongly-typed group item 'ABC' is specified in a place where it cannot be specified.
JMN3468I-S
Example
[C3468.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3468. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 TYPE-A TYPEDEF STRONG. 000008 02 GP. 000009 03 A1 PIC XX/XX/XX. 000010 03 A2 PIC X(50). 000011 01 DATA-A TYPE TYPE-A. 000012 01 DATA-B PIC X(5). 000013 PROCEDURE DIVISION. 000014 MOVE A1(1:5) TO DATA-B. 000015 EXIT PROGRAM. 000016 END PROGRAM C3468.
C3468.cob 14: JMN3468I-S Strongly-typed items, or elementary items that are subordinate to strongly-typed group items (other than those of alphanumeric or national categories), cannot be reference modified.
JMN3469I-S
Example
[C3469.cob] 000001 CLASS-ID. C3469. 000002 ENVIRONMENT DIVISION. 000003 CONFIGURATION SECTION. 000004 OBJECT. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 PROCEDURE DIVISION. 000008* 000009 METHOD-ID. OM1. 000010 DATA DIVISION. 000011 WORKING-STORAGE SECTION. 000012 01 A TYPEDEF STRONG. 000013 02 D OBJECT REFERENCE C3469. 000014 01 WABC TYPE A. 000015 LINKAGE SECTION. 000016 PROCEDURE DIVISION. 000017 IF SELF::"OM2" = WABC THEN 000018 EXIT METHOD. 000019 END METHOD OM1. 000020* 000021 METHOD-ID. OM2. 000022 DATA DIVISION. 000023 WORKING-STORAGE SECTION. 000024 LINKAGE SECTION. 000025 01 A TYPEDEF STRONG. 000026 02 D OBJECT REFERENCE C3469. 000027 01 ABC TYPE A. 000028 PROCEDURE DIVISION RETURNING ABC. 000029 END METHOD OM2. 000030* 000031 END OBJECT. 000032 END CLASS C3469.
C3469.cob 17: JMN3469I-S An in-line method invocation, or an object property whose returning item is a strongly-typed group item containing object reference data, cannot be specified in a conditional expression.
JMN3470I-W
Parameter Explanation
@1@ : Identifier(group item)
Example
[C3470I-W.cob] 000001 @OPTIONS RCS(UTF16) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3470I-W. 000004 ENVIRONMENT DIVISION. 000005 CONFIGURATION SECTION. 000006 DATA DIVISION. 000007 WORKING-STORAGE SECTION. 000008 01 NMIXGR. 000009 02 X04 PIC X(4). 000010 02 N10 PIC N(10). 000011 PROCEDURE DIVISION. 000012 CALL NMIXGR. 000013 EXIT PROGRAM. 000014 END PROGRAM C3470I-W.
C3470I-W.cob 12: JMN3470I-W If compile option RCS(UTF16) or ENCODE is specified, then it cannot be called correctly if the group item 'NMIXGR', which includes the national item, is specified as a calling name.
JMN3471I-W
Parameter Explanation
@1@ : Identifier(group item)
Example
[JMN3471I-W.cob] 000001 @OPTIONS RCS(UTF16) 000002 PROGRAM-ID. JMN3471I-W. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT SMFILE ASSIGN SM1F. 000007 SELECT USFILE ASSIGN SEQ1F. 000008 SELECT GVFILE ASSIGN SEQ2F. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 SD SMFILE. 000012 01 R1. 000013 02 KEY-1 PIC X(4). 000014 02 KEY-2. 000015 03 KEY-1-1 PIC X(2). 000016 03 KEY-1-2 PIC N(1). 000017 02 R1-1 PIC X(72). 000018 FD USFILE. 000019 01 USR01 PIC X(80). 000020 FD GVFILE. 000021 01 GIV01 PIC X(80). 000022 WORKING-STORAGE SECTION. 000023 PROCEDURE DIVISION. 000024 SORT SMFILE ON ASCENDING KEY KEY-2 000025 USING USFILE 000026 GIVING GVFILE 000027 END PROGRAM JMN3471I-W.
JMNC3471I-W.cob 24: JMN3471I-W If compile option RCS(UTF16) or ENCODE is specified, then the size is not compared as a national language when the national part of the group item 'KEY-2' includes a national item.
JMN3472I-W
Parameter Explanation
@1@ : Identifier(group item)
Example
[C3472I-W.cob] 000001 @OPTIONS RCS(UTF16) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3472I-W. 000004 ENVIRONMENT DIVISION. 000005 CONFIGURATION SECTION. 000006 DATA DIVISION. 000007 WORKING-STORAGE SECTION. 000008 01 NMIXGR. 000009 02 X04 PIC X(4). 000010 02 N10 PIC N(10). 000011 PROCEDURE DIVISION. 000012 DISPLAY NMIXGR. 000013 EXIT PROGRAM. 000014 END PROGRAM C3472I-W.
C3472I-W.cob 12: JMN3472I-W If compile option RCS(UTF16) or ENCODE is specified, then in the group item 'NMIXGR', which includes the national items, the national language part is not displayed as national language in the DISPLAY statement.
JMN3473I-S
Parameter Explanation
@1@ : Identifier(group item)
Example
[C3473I-S.cob] 000001 @OPTIONS RCS(UTF16) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3473I-S. 000004 ENVIRONMENT DIVISION. 000005 INPUT-OUTPUT SECTION. 000006 FILE-CONTROL. 000007 SELECT A-FILE ASSIGN TO SYS001 000008 ORGANIZATION IS LINE SEQUENTIAL. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD A-FILE. 000012 01 A-RECORD. 000013 02 X24 PIC X(24). 000014 WORKING-STORAGE SECTION. 000015 01 XNMIXGR. 000016 02 X04 PIC X(24). 000017 02 N10 PIC N(10). 000018 PROCEDURE DIVISION. 000019 WRITE A-RECORD FROM XNMIXGR 000020 EXIT PROGRAM. 000021 END PROGRAM C3473I-S.
C3473I-S.cob 19: JMN3473I-S When compile option RCS(UTF16) or ENCODE is specified, then a WRITE statement of a line sequential file cannot contain both a national item and a group item 'XNMIXGR'.
JMN3476I-S
Example
[C3476.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3476. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 PROCEDURE DIVISION. 000008 EXIT SECTION *> JMN3476I-S 000009 . 000010 A SECTION. 000011 EXIT SECTION *> OK 000012 . 000013 END PROGRAM C3476.
C3476.cob 8: JMN3476I-S An EXIT statement with a SECTION phrase can only be specified in a section.
JMN3482I-S
Parameter Explanation
@1@ : Identifier
Example
[C3482.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3482. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 LINKAGE SECTION. 000006 01 WX3482 PIC X(10). 000007 PROCEDURE DIVISION. 000008 MOVE "ERROR3482" TO WX3482 *> JMN3482I-S 000009 END PROGRAM C3482.
C3482.cob 8: JMN3482I-S 'WX3482' defined in the LINKAGE SECTION must be specified in a USING phrase or a RETURNING phrase of the PROCEDURE DIVISION, or in a USING phrase of an ENTRY statement.
Explanation
Define the data item used as work data in WORKING-STORAGE SECTION.
JMN3483I-S
Example
[C3483.cob] 000001 @OPTIONS MAIN 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3483. 000004 ENVIRONMENT DIVISION. 000005 DATA DIVISION. 000006 LINKAGE SECTION. 000007 01 WPRM1. 000008 02 WPRM1L PIC 9(4). 000009 02 WPRM1X PIC 9(4). 000010 01 WPRM2. 000011 02 WPRM1L PIC 9(4). 000012 02 WPRM1X PIC 9(4). 000013 PROCEDURE DIVISION 000014 USING WPRM1 WPRM2. 000015 MOVE ZERO TO WPRM2 000016 END PROGRAM C3483.
C3483.cob 14: JMN3483I-S For the main program, the parameter specified for the USING phrase of the PROCEDURE DIVISION header should be only one group item which does not exceed 102 bytes, and the first subordinate elementary item must be a 2 byte binary item.
C3483.cob 15: JMN3483I-S For the main program, the parameter specified for the USING phrase of the PROCEDURE DIVISION header should be only one group item which does not exceed 102 bytes, and the first subordinate elementary item must be a 2 byte binary item.
Explanation
In the LINKAGE section of the main program, only one data item for receiving the parameter in the global server system format can be defined.
When the format of the data item in the LINKAGE section is wrong, this diagnostic message is output.
Refer to the "NetCOBOL User's Guide" for details of the global server system format parameters.
If it is a data item not used for this purpose, you should correct to define it in the WORKING-STORAGE section.
JMN3484I-S
Parameter Explanation
@1@ : Data name
Example
[C3484.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3484. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 ITEM PIC X(2). 000006 PROCEDURE DIVISION. 000007 CALL "ABC" USING BY VALUE ITEM. 000008 END PROGRAM C3484.
C3484.cob 7: JMN3484I-S 'ITEM' of BY VALUE in the CALL statement must be one of: a binary item with USAGE COMPUTATIONAL-5 with a length not exceeding 8 bytes; a one byte item; or a numeric literal of 18 digits or fewer.
JMN3485I-S
Parameter Explanation
@1@ : Group item name
@2@ : Statement name
Example
[C3485.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3485. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 G-ITEM. 000006 02 ELEM1 COMP-2. 000007 02 ELEM2 COMP-2. 000008 PROCEDURE DIVISION. 000009 CALL "ABC" RETURNING G-ITEM. 000010 END PROGRAM C3485.
C3485.cob 9: JMN3485I-S The group item 'G-ITEM' that only contains elementary items that are single precision floating-point items cannot be specified in the RETURNING phrase of the CALL statement.
JMN3504I-S
Parameter Explanation
@1@ : Class-name, interface-name, delegate-name or ENUM-name
Explanation
A class-name/interface-name/ENUM-name/delegate-name cannot be used in a conditional expression. They can only be used in type conditions.
JMN3508I-S
Parameter Explanation
@1@ : Program name
Example
[C3508.cob] 000001 @OPTIONS CHECK(PRM) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3508. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 R PIC S9(09) COMP-5. 000007 PROCEDURE DIVISION. 000008 CALL "C3508S" RETURNING R. 000009 EXIT PROGRAM. 000010 IDENTIFICATION DIVISION. 000011 PROGRAM-ID. C3508S. 000012 DATA DIVISION. 000013 LINKAGE SECTION. 000014 PROCEDURE DIVISION. 000015 EXIT PROGRAM. 000016 END PROGRAM C3508S. 000017 END PROGRAM C3508.
C3508.cob 8: JMN3508I-S A 'RETURNING' phrase cannot be specified for a CALL statement which calls 'C3508S'. There is no RETURNING phrase in the PROCEDURE DIVISION of program 'C3508S'.
JMN3524I-S
Parameter Explanation
@1@ : Identifier
@2@ : USAGE type of BINARY-xxx
Example
[C3524I-S.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3524I-S. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 DATA-1 USAGE BINARY-LONG SIGNED. 000008 PROCEDURE DIVISION. 000009 MOVE 123456789012345 TO DATA-1. 000010 EXIT PROGRAM. 000011 END PROGRAM C3524I-S.
C3524I-S.cob 9: JMN3524I-S The numeric literal of the sending item exceeds the range of USAGE BINARY-LONG SIGNED. Its numeric literal cannot be moved to 'DATA-1'.
Explanation
The range respectively of the value which can be stored in BINARY-CHAR/SHORT/LONG/DOUBLE data item has been decided. Refer to "USAGE Clause" in Chapter 5 of the "NetCOBOL Language Reference" for details.
JMN3525I-S
Parameter Explanation
@1@ : Function name(FUNCTION UNICODE-OF/ACP-OF)
Example
[C3525I-S.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3525I-S. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 DATA-1 PIC S9(9) COMP-5. 000008 01 DATA-2 PIC N(10). 000009 PROCEDURE DIVISION. 000010 MOVE FUNCTION UNICODE-OF ( DATA-1 ) TO DATA-2. 000011 EXIT PROGRAM. 000012 END PROGRAM C3525I-S.
C3525I-S.cob 10: JMN3525I-S The type of argument-1 of FUNCTION UNICODE-OF must be an alphabetic, alphanumeric or national, and it must not be a group item.
JMN3526I-S
Parameter Explanation
@1@ : Function name(FUNCTION UNICODE-OF/ACP-OF)
Example
[C3526I-S.cob] 000001 @OPTIONS RCS(UTF16) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3526I-S. 000004 ENVIRONMENT DIVISION. 000005 CONFIGURATION SECTION. 000006 DATA DIVISION. 000007 WORKING-STORAGE SECTION. 000008 01 DATA-1 PIC X(10). 000009 01 DATA-2 PIC X(10). 000010 01 DATA-3 PIC 9(5). 000011 PROCEDURE DIVISION. 000012 MOVE FUNCTION UNICODE-OF ( DATA-1 DATA-3 ) TO DATA-2. 000013 EXIT PROGRAM. 000014 END PROGRAM C3526I-S.
C3526I-S.cob 12: JMN3526I-S The argument-2 of FUNCTION UNICODE-OF must be of an alphanumeric category.
JMN3533I-S
Example
[C3533.cob] 000001 @OPTIONS RCS(UTF16) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3533. 000004 ENVIRONMENT DIVISION. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 A PIC X(8). 000008 01 B PIC X(8). 000009 PROCEDURE DIVISION. 000010 P-START. 000011 MOVE FUNCTION DISPLAY-OF ( A ) TO B. 000012 END PROGRAM C3533.
C3533.cob 11: JMN3533I-S Argument-1 of FUNCTION DISPLAY-OF must be of the national class.
JMN3534I-S
Example
[C3534.cob] 000001 @OPTIONS RCS(UTF16) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3534. 000004 ENVIRONMENT DIVISION. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 A PIC N(8). 000008 01 B PIC X(8). 000009 PROCEDURE DIVISION. 000010 P-START. 000011 MOVE FUNCTION DISPLAY-OF ( A N"A" ) TO B. 000012 STOP RUN. 000013 END PROGRAM C3534.
C3534.cob 11: JMN3534I-S In the FUNCTION DISPLAY-OF argument-2, if the character type is alphanumeric or alphabetic and the length is 1, the encoding format must be the same as the selected compile option for ENCODE.
JMN3535I-S
Example
[C3535.cob] 000001 @OPTIONS RCS(UTF16) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3535. 000004 ENVIRONMENT DIVISION. 000005 CONFIGURATION SECTION. 000006 DATA DIVISION. 000007 WORKING-STORAGE SECTION. 000008 01 DATA-1 PIC 9(10). 000009 01 DATA-2 PIC N(10). 000010 PROCEDURE DIVISION. 000011 MOVE FUNCTION NATIONAL-OF ( DATA-1 ) TO DATA-2. 000012 EXIT PROGRAM. 000013 END PROGRAM C3535.
C3535.cob 11: JMN3535I-S Argument-1 of FUNCTION NATIONAL-OF must be of the alphabetic or alphanumeric class.
JMN3536I-S
Example
[C3536.cob] 000001 @OPTIONS RCS(UTF16) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3536. 000004 ENVIRONMENT DIVISION. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 A PIC X(8). 000008 01 B PIC N(8). 000009 PROCEDURE DIVISION. 000010 P-START. 000011 MOVE FUNCTION NATIONAL-OF ( A N"＃＃" ) TO B. 000012 END PROGRAM C3536.
C3536.cob 11: JMN3536I-S If the FUNCTION NATIONAL-OF argument-2 is a national language item type and the length is 1 character, the encoding format must be same as the selected compile option for ENCODE.
JMN3551I-S
Parameter Explanation
@1@ : STRING/UNSTRING
@2@ : sending item/INTO phrase item
@3@ : data name (sending item or INTO phrase item)
Example
[C3551.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3551. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 DATA1 PIC X(10). 000006 01 DATA2. 000007 02 DATA21 PIC X(5). 000008 02 DATA22 PIC S9(9) COMP-5. 000009 01 DATA3 PIC N(15). 000010 01 RCV PIC X(50). 000011 PROCEDURE DIVISION. 000012 STRING DATA1 DATA2 DATA3 INTO RCV 000013 BY TSV-FORMAT 000014 END-STRING. 000015 . 000016 END PROGRAM C3551.
C3551.cob 12: JMN3551I-S Non-USAGE DISPLAY item, numeric edited item, alphanumeric edited item, national edited item, external boolean item, external floating-point item, numeric item that symbol 'P' exists in picture clause, and group item including either the above-mentioned cannot be specified in sending item of STRING statement with CSV-FORMAT or TSV-FORMAT. 'DATA2' is ignored.
JMN3552I-S
Parameter Explanation
@1@ : STRING/UNSTRING
@2@ : sending item/INTO phrase
@3@ : clause name
@4@ : data name (sending item or INTO phrase)
Example
[C3552.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3552. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 DATA1 PIC X(10). 000006 01 DATA2. 000007 02 DATA21 PIC X(5). 000008 02 DATA21R REDEFINES DATA21 PIC 9(5). 000009 02 DATA22 PIC N(5). 000010 01 DATA3 PIC N(15). 000011 01 RCV PIC X(50). 000012 PROCEDURE DIVISION. 000013 STRING DATA1 DATA2 DATA3 INTO RCV 000014 BY TSV-FORMAT 000015 END-STRING. 000016 . 000017 END PROGRAM C3552.
C3552.cob 13: JMN3552I-S 'DATA2' that is item with a REDEFINES clause or the group item including it cannot be specified in sending item of STRING statement with CSV-FORMAT or TSV-FORMAT. 'DATA2' is ignored.
JMN3553I-S
Parameter Explanation
@1@ : STRING/UNSTRING
@2@ : sending item/INTO phrase
@3@ : data name (sending item or INTO phrase)
Example
[C3553.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3553. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 DATA1 PIC S9(4). 000006 01 DATA2 PIC X(15). 000007 01 DATA3 PIC X(20). 000008 01 RCV PIC N(50). 000009 PROCEDURE DIVISION. 000010 STRING DATA1 DATA2 DATA3 INTO RCV 000011 BY TSV-FORMAT 000012 END-STRING. 000013 . 000014 END PROGRAM C3553.
C3553.cob 10: JMN3553I-S 'RCV' that is item of INTO phrase of STRING statement with CSV-FORMAT or TSV-FORMAT should be an alphanumeric item without JUSTIFIED and ANY LENGTH clause.
JMN3554I-S
Parameter Explanation
@1@ : STRING/UNSTRING
@2@ : data name (sending item or INTO phrase)
@3@ : data name (POINTER phrase)
Example
[C3554.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3554. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 DATA1 PIC S9(4). 000006 01 DATA2 PIC X(15). 000007 01 DATA3 PIC X(20). 000008 01 RCV PIC X(500). 000009 01 DATAP PIC S9(2). 000010 PROCEDURE DIVISION. 000011 STRING DATA1 DATA2 DATA3 INTO RCV 000012 BY TSV-FORMAT 000013 WITH POINTER DATAP 000014 END-STRING. 000015 . 000016 END PROGRAM C3554.
C3554.cob 13: JMN3554I-S 'DATAP' that is item of POINTER phrase of STRING statement with CSV-FORMAT or TSV-FORMAT should be an integer item that is without the symbols 'P' in PICTURE clause, and the value in which 1 is added to length of 'RCV' should be a range of the value of its item.
JMN3555I-S
Parameter Explanation
@1@ : STRING/UNSTRING
@2@ : intrinsic function, inline method invocation, etc
Example
[C3555.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3555. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 DATA1 PIC S9(4). 000006 01 DATA2 PIC X(15). 000007 01 DATA3 PIC X(20). 000008 01 RCV PIC X(500). 000009 01 DATAP PIC S9(2). 000010 PROCEDURE DIVISION. 000011 STRING DATA1 FUNCTION UPPER-CASE(DATA2) INTO RCV 000012 BY TSV-FORMAT 000013 END-STRING. 000014 . 000015 END PROGRAM C3555.
C3555.cob 11: JMN3555I-S FUNCTION UPPER-CASE cannot be specified in STRING statement with CSV-FORMAT or TSV-FORMAT.
JMN3557I-S
Parameter Explanation
@1@ : The inline invocation or object property.
@2@ : The method name or property name.
Example
[C3557.cob] 000001 @OPTIONS ARITHMETIC(31) 000002 CLASS-ID. C3557. 000003 OBJECT. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 PROPDAT PIC S9(31) COMP-5 PROPERTY. 000007 PROCEDURE DIVISION. 000008 END OBJECT. 000009 END CLASS C3557.
[P3557.cob] 000001 @OPTIONS ARITHMETIC(18) 000002 PROGRAM-ID. P3557. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS C3557. 000007 DATA DIVISION. 000008 WORKING-STORAGE SECTION. 000009 01 WDATA PIC S9(9) COMP-5. 000010 01 OBJC3557 OBJECT REFERENCE C3557. 000011 PROCEDURE DIVISION. 000012 MOVE WDATA TO PROPDAT OF OBJC3557.
P3557.cob 12: JMN3557I-S A numeric item exceeding 18 digits exists in the USING or RETURNING phrase of the object property 'PROPDAT'. The numeric item cannot be used in 18-digit mode.
JMN3558I-I
Example
[C3558.cob] 000001 @OPTIONS ARITHMETIC(31,INF) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3558. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 ED01 PIC S9(16). 000007 01 ED02 PIC SV9(16). 000008 PROCEDURE DIVISION. 000009 ADD ED01 TO ED02.
C3558.cob 9: JMN3558I-I The number of digits in the arithmetic expression intermediate result exceeds the maximum allowed in 18-digit mode.
Explanation
This message is output only when compile option ARITHMETIC(31,INF) is specified.
The maximum number of digits allowed for an intermediate result depends on the operation mode. 30 digits are allowed for 18-digit mode, and 38 digits are allowed for 31-digit mode.
This message is output to the arithmetic expression when the number of digits in the intermediate result exceeds the maximum number of digits allowed in 18-digit mode.
JMN3559I-I
Example
[C3559.cob] 000001 @OPTIONS ARITHMETIC(31,INF) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3559. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 ED01 PIC S9(16). 000007 01 FLOAT1 COMP-2. 000008 PROCEDURE DIVISION. 000009 COMPUTE FLOAT1 = ED01 / 2.
C3559.cob 9: JMN3559I-I The floating point attribute is applied to the intermediate result of the arithmetic expression in 31-digit mode.
Explanation
This message is output only when compile option ARITHMETIC(31,INF) is specified.
The floating point attribute is applied to the intermediate result only in 31-digit mode.
JMN3562I-S
Parameter Explanation
@1@ : Data name.
Example
[C3562.cob] 000001 @OPTIONS ENCODE(UTF8,UTF16,LE) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3562. 000004 ENVIRONMENT DIVISION. 000005 CONFIGURATION SECTION. 000006 SPECIAL-NAMES. 000007 ALPHABET U16L FOR NATIONAL UTF16LE 000008 ALPHABET U32L FOR NATIONAL UTF32LE 000009 . 000010 DATA DIVISION. 000011 WORKING-STORAGE SECTION. 000012 01 TBL. 000013 02 X OCCURS 5 TIMES ASCENDING KEY IS A 000014 INDEXED BY IX1. 000015 03 A PIC N(8) ENCODING U16L. 000016 01 B PIC N(8) ENCODING U32L. 000017 PROCEDURE DIVISION. 000018 SEARCH ALL X 000019 WHEN A(IX1) = B 000020 CONTINUE 000021 END-SEARCH. 000022 END PROGRAM C3562.
C3562.cob 19: JMN3562I-S The encoding of the target to be compared and the 'A' key item in the SEARCH ALL statement must be the same.
JMN3563I-S
Example
[C3563.cob] 000001 @OPTIONS ENCODE(UTF8,UTF16,LE) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3563. 000004 ENVIRONMENT DIVISION. 000005 CONFIGURATION SECTION. 000006 SPECIAL-NAMES. 000007 ALPHABET U16L FOR NATIONAL UTF16LE 000008 ALPHABET U32L FOR NATIONAL UTF32LE 000009 . 000010 DATA DIVISION. 000011 WORKING-STORAGE SECTION. 000012 01 A PIC N(8) ENCODING U16L. 000013 01 B PIC N(8) ENCODING U32L. 000014 PROCEDURE DIVISION. 000015 IF A = B THEN 000016 DISPLAY "OK" 000017 END-IF. 000018 END PROGRAM C3563.
C3563.cob 15: JMN3563I-S Different encoding cannot be given for the comparison of multiple data items.
JMN3564I-S
Example
[C3564.cob] 000001 @OPTIONS ENCODE(UTF8,UTF16,LE) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3564. 000004 ENVIRONMENT DIVISION. 000005 CONFIGURATION SECTION. 000006 SPECIAL-NAMES. 000007 ALPHABET U16L FOR NATIONAL UTF16LE 000008 ALPHABET U32L FOR NATIONAL UTF32LE 000009 . 000010 DATA DIVISION. 000011 WORKING-STORAGE SECTION. 000012 01 A PIC N(8) ENCODING U16L. 000013 01 B PIC N(8) ENCODING U32L. 000014 PROCEDURE DIVISION. 000015 MOVE A TO B. 000016 END PROGRAM C3564.
C3564.cob 15: JMN3564I-S Different encoding cannot be given for the move of multiple data items.
JMN3565I-S
Parameter Explanation
@1@ : Identifier
Example
[C3565I-S.cob] 000001 @OPTIONS ENCODE(UTF8,UTF32) 000002 PROGRAM-ID. C3565I-S. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 ALPHABET UTF16L FOR NATIONAL UTF16LE. 000007 INPUT-OUTPUT SECTION. 000008 FILE-CONTROL. 000009 SELECT FILE-1 ASSIGN TO S-SYS001. 000010 DATA DIVISION. 000011 FILE SECTION. 000012 FD FILE-1 000013 LINAGE IS PAGE-AREA LINE 000014 WITH FOOTING AT FOOT-AREA 000015 LINE AT TOP TOP-AREA 000016 LINE AT BOTTOM BOT-AREA. 000017 01 REC-1 PIC X(100). 000018 WORKING-STORAGE SECTION. 000019 01 GROUP-ITEM-1. 000020 02 PAGE-AREA PIC 9(4) COMP-3 VALUE 50. 000021 02 FOOT-AREA PIC 9(4) VALUE 10. 000022 02 TOP-AREA PIC 9(4) VALUE 5. 000023 02 BOT-AREA PIC 9(4) VALUE 5. 000024 01 GR. 000025 02 R-1 PIC N(5) ENCODING UTF16L. 000026 02 R-2 PIC X(30). 000027 PROCEDURE DIVISION. 000028 WRITE REC-1 FROM GR. 000029 END PROGRAM C3565I-S.
P3565I-S.cob 28: JMN3565I-S When compilation option RCS(UTF16) or ENCODE is specified, 'GR' cannot be specified in a WRITE statement for a print file. 'GR' is different from the encoding of the print file.
JMN3566I-S
Example
[C3566.cob] 000001 @OPTIONS ENCODE(UTF8,UTF32,LE) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3566. 000004 ENVIRONMENT DIVISION. 000005 CONFIGURATION SECTION. 000006 SPECIAL-NAMES. 000007 ALPHABET U32L FOR NATIONAL UTF32LE 000008 . 000009 DATA DIVISION. 000010 WORKING-STORAGE SECTION. 000011 01 A PIC N ENCODING U32L. 000012 PROCEDURE DIVISION. 000013 MOVE NX"0030" TO A. 000014 END PROGRAM C3566.
C3566.cob 13: JMN3566I-S The length of the national hexadecimal nonnumeric literal for encoding UTF32 must be a multiple of 8.
JMN3567I-W
Parameter Explanation
@1@: Identifier
@2@: FUNCTION NATIONAL, FUNCTION NATIONAL-OF
Example
[C3567I-W.cob] 000001 @OPTIONS ENCODE(UTF8,UTF32) 000002 PROGRAM-ID. C3567I-W. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 ALPHABET UTF32B NATIONAL UTF32BE. 000007 DATA DIVISION. 000008 WORKING-STORAGE SECTION. 000009 01 GRP-DATA. 000010 02 X-DATA-1 PIC X(5) VALUE "UTF-8". 000011 02 N-DATA-2 PIC N(6) ENCODING UTF32B VALUE NC"UTF-32". 000012 01 RCV PIC N(30). 000013 PROCEDURE DIVISION. 000014 MOVE FUNCTION NATIONAL(GRP-DATA) TO RCV 000015 DISPLAY RCV 000016 END PROGRAM C3567I-W.
C3567I-W.cob 14: JMN3567I-W In the 'GRP-DATA' group item, which is specified in the argument of FUNCTION NATIONAL, National items having different encoding formats are included. The 'GRP-DATA' national item is taken as the Encoding's alphanumeric data item.
JMN3568I-S
Parameter Explanation
@1@: Data name
@2@: JUSTIFIED or ANY LENGTH
Example
[C3568.cob] 000001 @OPTIONS ENCODE(UTF8,UTF32) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3568. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 W-X-JUST PIC X(20) JUSTIFIED VALUE "HELLO". 000007 01 W-N-UTF32 PIC N(10). 000008 PROCEDURE DIVISION. 000009 MOVE CONVERSION W-X-JUST TO W-N-UTF32. 000010 END PROGRAM C3568.
C3568.cob 9: JMN3568I-S In the CONVERSION specification MOVE statement, 'W-X-JUST' can not be specified in the items that are specified by the JUSTIFIED clause.
JMN3569I-S
Parameter Explanation
@1@: Data name
@2@: Data name
Example
[C3569.cob] 000001 @OPTIONS ENCODE(SJIS,SJIS) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3569. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 N08 PIC N(8). 000007 01 X08 PIC X(8). 000008 PROCEDURE DIVISION. 000009 MOVE CONVERSION X08 TO N08. 000010 END PROGRAM C3569.
C3569.cob 9: JMN3569I-S A 'X08' having the same encoding as the receiving side cannot be moved to 'N08'.
JMN3570I-S
Parameter Explanation
@1@: sending item
@2@: receiving item
Example
[C3570.cob] 000001 @OPTIONS ENCODE(UTF8,UTF32) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3570. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 GRP. 000007 02 A-GRP. 000008 03 A-AREA PIC N(4). 000009 03 FILLER PIC X(1). 000010 02 B-GRP REDEFINES A-GRP. 000011 03 FILLER PIC X(1). 000012 03 B-AREA PIC X(16). 000013 PROCEDURE DIVISION. 000014 MOVE CONVERSION A-AREA TO B-AREA. 000015 END PROGRAM C3570.
C3570.cob 14: JMN3570I-S Move cannot be performed because the area of receiving side item 'B-AREA' and the area of sending side item 'A-AREA' are overlapping.