JMN1000I-S
Example
[C1000.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P^1. 000003 END PROGRAM P^1.
C1000.cob 2: JMN1000I-S A character that is excluded from the COBOL character set is used. That character is ignored.
C1000.cob 3: JMN1000I-S A character that is excluded from the COBOL character set is used. That character is ignored.
Explanation
Only characters from the COBOL character set can be used in user-defined words and system-names.
JMN1001I-W
Example
[C1001.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID.C1001.
C1001.cob 2: JMN1001I-W A period, comma, or semicolon was not followed by a space. A space is assumed to follow the period, comma, or semicolon.
JMN1002I-S
Example
[C1002.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1002. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 ABCDEFGHIJKLMNOPQRSTUVWXYZ01234 PIC X. 000006 END PROGRAM C1002.
C1002.cob 5: JMN1002I-S COBOL words are limited to 30 characters each. The first 30 characters are used as the COBOL word.
JMN1003I-W
Parameter explanation
@1@ : reserved word
Example
[C1003.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1003. 000003 END PROGRAM C1003.
C1003.cob 1: JMN1003I-W The reserved word 'IDENTIFICATION' must start in Area A. The reserved word is assumed to start in Area A.
C1003.cob 2: JMN1003I-W The reserved word 'PROGRAM-ID' must start in Area A. The reserved word is assumed to start in Area A.
C1003.cob 3: JMN1003I-W The reserved word 'END' must start in Area A. The reserved word is assumed to start in Area A.
JMN1004I-W
Parameter explanation
@1@ : reserved word
Example
[C1004.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1004. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 SYMBOLIC CONSTANT 000007 NUM IS 10. 000008 END PROGRAM C1004.
C1004.cob 6: JMN1004I-W Reserved word 'SYMBOLIC' must start in Area B. The reserved word is assumed to start in Area B.
JMN1005I-W
Parameter explanation
@1@ : character-string(user-defined word, system-name, PICTURE character-string)
Example
[C1005.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1005. 000003 DATA DIVISION. 000004 WORKING-STOARGE SECTION. 000005 01 LEN PIC 9(2). 000006 END PROGRAM C1005.
C1005.cob 4: JMN1005I-W Character string 'WORKING-STOARGE' must start in Area B. The character string is assumed to start in Area B.
JMN1007I-S
Example
[C1007.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1007. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 あいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほま PIC X. 000006 END PROGRAM C1007.
C1007.cob 5: JMN1007I-S A national user-defined word exceeded the 30 character limit. Only the first 30 characters of the national user-defined word are used.
JMN1008I-S
Parameter explanation
@1@ : national character
Example
[C1008.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1008. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 陲涖 PIC X. 000006 END PROGRAM C1008.
C1008.cob 5: JMN1008I-S A character not in the national character set is used in a national user-defined word. '陲' is the assumed national user-defined word.
Explanation
National characters that are not in the COBOL character set are included in national language user-defined words. Specify compiler option NCW(SYS) when using extended characters. Refer to "Characters and Character Sets" in the "NetCOBOL Language Reference" and "NCW (Japanese-language character set specification for the user language)" in the appendix "Compiler Options" of the "NetCOBOL User's Guide" for more details.
When the source file is UNICODE(UTF-8), characters may be located outside of "Plane 0" (BMP(Basic Multilingual Plane) area) if national language user-defined words are included. National language user-defined words can only be located in "Plane 0".
JMN1009I-S
Example
[C1009.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1009. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 ＾ PIC X. 000006 END PROGRAM C1009.
C1009.cob 5: JMN1009I-S The first character of a national user-defined word is not in the national character set. The national user-defined word is ignored.
Explanation
National characters that are not in the COBOL character set are included at beginning of the National language user-defined words. Specify compiler option NCW(SYS) when using extended characters. Refer to "Characters and Character Sets" in the "NetCOBOL Language Reference" and "NCW (Japanese-language character set specification for the user language)" in the appendix "Compiler Options" of the "NetCOBOL User's Guide" for more details.
When the source file is UNICODE(UTF-8), characters may be located outside of "Plane 0" (BMP(Basic Multilingual Plane) area) if national language user-defined words are included. National language user-defined words can only be used in "Plane 0".
JMN1010I-S
Parameter explanation
@1@ : national language user-defined word
Example
[C1010.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1010. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 あい－ PIC X. 000006 END PROGRAM C1010.
C1010.cob 5: JMN1010I-S A hyphen or minus symbol must not be the first or last character of a national user-defined word. National user-defined word 'あい－' is ignored.
JMN1011I-S
Parameter explanation
@1@ : national language user-defined word
Example
[C1011.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1011. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 ＡＢＣ PIC X. 000006 END PROGRAM C1011.
C1011.cob 5: JMN1011I-S A national user-defined word must contain at least one kanji, hiragana, katakana or long tone symbol character. The national user-defined word 'ＡＢＣ' is ignored.
JMN1012I-S
Example
[C1012.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1012. 000003 PROCEDURE DIVISION. 000004 DISPLAY +1234.11E-AA 000005 END PROGRAM C1012.
C1012.cob 4: JMN1012I-S The exponent (following E) of the floating-point literal is invalid. The mantissa (preceding E) is assumed to be a numeric literal.
JMN1013I-S
Example
[C1013.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1013. 000003 PROCEDURE DIVISION. 000004 DISPLAY +1234567890123456.7E+01 000005 END PROGRAM C1013.
C1013.cob 4: JMN1013I-S The mantissa of the floating-point literal has exceeded the 16 digit limit. The first 16 digits are used as the mantissa.
JMN1014I-S
Example
[C1014.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1014. 000003 PROCEDURE DIVISION. 000004 DISPLAY 12.34E+001 000005 END PROGRAM C1014.
C1014.cob 4: JMN1014I-S The exponent of the floating-point literal has exceeded the two digit limit. The first two digits are used as the exponent.
JMN1015I-S
Example
[C1015.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1015. 000003 PROCEDURE DIVISION. 000004 DISPLAY 540000000000000.0E-99 000005 END PROGRAM C1015.
C1015.cob 4: JMN1015I-S The absolute value of the floating-point literal is less than minimum value (exponent underflow). The value of the floating-point literal is assumed to be zero.
JMN1016I-S
Example
[C1016.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1016. 000003 PROCEDURE DIVISION. 000004 DISPLAY +720000000000000.0E+99 000005 END PROGRAM C1016.
C1016.cob 4: JMN1016I-S The absolute value of the floating-point literal is greater than the maximum value (exponent overflow). The absolute value of the floating-point literal is assumed to be 7.2E75.
JMN1017I-S
Parameter explanation
@1@ : maximum digit of numeric literal
Example
[C1017.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1017. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 78 NUM-1 VALUE 12345678901234567890. 000006 END PROGRAM C1017.
C1017.cob 5: JMN1017I-S The numeric literal has exceeded the 19 digit limit. The first @1@ digits are used as the numeric literal.
JMN1018I-S
Example
[C1018.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1018. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 CHR PIC XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX. 000006 END PROGRAM C1018.
[Solaris][Linux]
C1018.cob 5: JMN1018I-S The PICTURE character string has exceeded the 30 character limit. The first 30 characters are used as the PICTURE character string.
[Linux64]
C1018.cob 5: JMN1018I-S The PICTURE character string has exceeded the 50 character limit. The first 50 characters are used as the PICTURE character string.
JMN1019I-W
Example
[C1019.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1019. 000003*COMMENT 000004+ 000005 END PROGRAM C1019.
C1019.cob 4: JMN1019I-W The indicator area must contain '-', '*', '/', 'D', or blank. A blank is assumed to be specified.
JMN1020I-W
Example
[C1020.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1020. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 CHRLIT PIC X(10) VALUE 000006 "ABCDEFGHIJ". 000007 END PROGRAM C1020.
C1020.cob 6: JMN1020I-W The literal must start in Area B. The literal is assumed to start in Area B.
JMN1021I-S
Example
[C1021.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1021. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 A1 PIC X(10) VALUE "12345 000006- 67890". 000007 01 A2 PIC X(10) VALUE "12345 000008 "67890". 000009 END PROGRAM C1021.
C1021.cob 6: JMN1021I-S The continuation line of the literal must have a hyphen in the indicator area and must start with a quotation mark. The continuation of the literal is assumed.
C1021.cob 8: JMN1021I-S The continuation line of the literal must have a hyphen in the indicator area and must start with a quotation mark. The continuation of the literal is assumed.
JMN1022I-S
Example
[C1022.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1022. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 TEISU PIC X(10) VALUE "ABCDEF. 000006 END PROGRAM C1022.
C1022.cob 5: JMN1022I-S The ending quotation mark of the literal is missing. The characters at the end of Area B are assumed to be a literal.
JMN1023I-S
Example
[C1023.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1023. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 78 MOJI VALUE "ABCDEFGHIJKLMNOPQRSTUVWXYZ 000006- "ABCDEFGHIJKLMNOPQRSTUVWXYZ 000007- "ABCDEFGHIJKLMNOPQRSTUVWXYZ 000008- "ABCDEFGHIJKLMNOPQRSTUVWXYZ 000009- "ABCDEFGHIJKLMNOPQRSTUVWXYZ 000010- "ABCDEFGHIJKLMNOPQRSTUVWXYZ 000011- "ABCDEFGHIJKLMNOPQRSTUVWXYZ 000012- "ABCDEFGHIJKLMNOPQRSTUVWXYZ". 000013 END PROGRAM C1023.
C1023.cob 5: JMN1023I-S The literal has exceeded the maximum length. The first x characters is assumed to be the literal.
Explanation
The maximum length of the literal is 160 bytes. The literal length must be a range in 1-160 bytes.
JMN1024I-S
Example
[C1024.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1024. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 CHAR1 PIC X VALUE X"". 000006 01 CHAR2 PIC X VALUE "". 000007 END PROGRAM C1024.
C1024.cob 5: JMN1024I-S Nonnumeric literals and hexadecimal nonnumeric literals must be greater than zero in length. A space is assumed.
C1024.cob 6: JMN1024I-S Nonnumeric literals and hexadecimal nonnumeric literals must be greater than zero in length. A space is assumed.
JMN1025I-S
Example
[C1025.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1025. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 BOOL1 PIC X(1) VALUE B"". 000006 END PROGRAM C1025.
C1025.cob 5: JMN1025I-S Boolean literals must be greater than zero in length. It is assumed to be a literal containing the single digit '0'.
JMN1026I-S
Example
[C1026.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1026. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 NCHAR PIC N(1) VALUE N"". 000006 END PROGRAM C1026.
C1026.cob 5: JMN1026I-S National literals must be greater than zero in length. It is assumed to be a space.
JMN1027I-S
Example
[C1027.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1027. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 BOOL-1 PIC 1(8) VALUE B"00012000". 000006 END PROGRAM C1027.
C1027.cob 5: JMN1027I-S A Boolean literal must consist of the Boolean characters 0 or 1. Characters other than 0 or 1 are assumed to be zeros.
JMN1028I-S
Example
[C1028.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1028. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 CHAR1 PIC X(2) VALUE X"313". 000006 END PROGRAM C1028.
C1028.cob 5: JMN1028I-S Hexadecimal nonnumeric literals must be an even number of characters. A zero is added at the end to make an even number of characters.
JMN1029I-S
Parameter explanation
@1@ : literal name
Example
[C1029.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1029. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 CHAR1 PIC X(1) VALUE X"AZ". 000006 01 NUM1 PIC 9 VALUE H"AZ". 000007 END PROGRAM C1029.
C1029.cob 5: JMN1029I-S Hexadecimal nonnumeric literal must consist of hexadecimal characters (0 through 9 and A through F). Characters other than hexadecimal characters are assumed to be zero.
C1029.cob 6: JMN1029I-S Hexadecimal numeric literal must consist of hexadecimal characters (0 through 9 and A through F). Characters other than hexadecimal characters are assumed to be zero.
JMN1040I-S
Parameter explanation
@1@ : 2, 4
Example
[C1040.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1040. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 NHEX PIC N(4) VALUE NX"93FA967B8C". 000007 PROCEDURE DIVISION. 000008 END PROGRAM C1040.
C1040.cob 6: JMN1040I-S The length of the national hexadecimal literal must be a multiple of 4. The literal is truncated to render it a multiple of 4.
JMN1041I-W
Example
[C1041.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1041. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 LITERAL1 PIC X VALUE A". 000006 END PROGRAM C1041.
C1041.cob 5: JMN1041I-W A separator must follow the character string. A separator after the character string is assumed.
JMN1042I-S
Example
[C1042.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1042. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 78 ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 000006- ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 000007- ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 000008- ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 000009- ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 000010- ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 000011- ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 000012- ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 000013- ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 000014- ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 000015- ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 VALUE ZERO. 000016 END PROGRAM C1042.
C1042.cob 14: JMN1042I-S A character string that is continued on multiple lines is limited to 324 characters. The character string is assumed to be comprised of the first 324 characters.
JMN1043I-S
Example
[C1043.cob] 000001 PROGRAM-ID. C1043. 000002 DATA DIVISION. 000003 WORKING-STORAGE SECTION. 000004 01 CHAR1 PIC 9(10) VALUE 12345 000005-67890. 000006 END PROGRAM C1043.
C1043.cob 5: JMN1043I-S Area A of the continuation line must be blank, or the character-string that is presented across continuation lines is an invalid word in COBOL. The hyphen in the indicator area is ignored.
JMN1044I-S
Parameter explanation
@1@ : program-name
Example
[C1044.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1044. 000003 IDENTIFICATION DIVISION. 000004 PROGRAM-ID. P1. 000005 PROCEDURE DIVISION. 000006 STOP RUN. 000007 END PROGRAM C1044.
C1044.cob 7: JMN1044I-S The program contained within program 'C1044' must end with an end program header. An end program header is assumed.
Explanation
There is not an end program header of an internal program of the program shown in @1@.
Please add the end program header of an internal program.
JMN1049I-S
Example
[C1049.cob] 000001 PROGRAM-ID. C1049. 000002 END PROGRAM C1049
C1049.cob 2: JMN1049I-S The end program header does not contain a period or it contains an invalid word.
JMN1050I-S
Example
[C1050.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1050. 000003 END PROGRAM.
C1050.cob 3: JMN1050I-S The end program header does not have a program-name.
JMN1051I-S
Example
[C1051.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1051. 000003 END PROGRAM C1051. ABC [P1.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P1. 000003 END PROGRAM P1.
C1051.cob 3: JMN1051I-S A character string occurs after the end program header that is not part of another program. The character string is ignored.
JMN1052I-S
Explanation
There is a word not related with other programs after the end program header that exists in the library text.
JMN1057I-S
Explanation
There was an I/O error when attempting to read a COBOL COPY library, so that no (more) text from that library is included. Possible reasons:
There is no Read access permission on the COBOL library file.
There is no Read access permission on the directory where the COBOL library files are stored.
JMN1061I-S
Example
[C1061.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1061. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 COPY C1061C. [C1061C.cbl] 000001 COPY C1061C. 000002 END PROGRAM C1061.
C1061C.cbl 1: JMN1061I-S The library text cannot include itself.
JMN1062I-S
Parameter explanation
@1@ : COBOL library
Example
[C1062.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1062. 000003 COPY COPY1. 000004 END PROGRAM C1062.
C1062.cob 3: JMN1062I-S The COBOL library 'COPY1' could not be found, or the library has an invalid organization or record format.
Explanation
The following are the most likely causes of this error message:
The specified library does not exist or could not be found. Check the following settings to ensure that they are pointing the compiler to the correct directory (or directories):
Specification of COBOL library name and position: Environment variable COB_library-name, Setting of COBOL library name with compiler option file
PATH to COBOL library file: Command Option -I, Compiler option LIB, Environment variable COB_COBCOPY
The library name is wrong. Check the following setting to ensure it defines the extension(s) you are using for your copy libraries.
Extension of COBOL library file: Compiler option LIBEXT, Environment variable COB_LIBSUFFIX
The file specified in a "COPY filename OF XMDLIB" statement is not a PowerFORM descriptor file.
JMN1073I-S
Parameter explanation
@1@ : program-name
Example
[C1073.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1073. 000003 END PROGRAM C10731.
C1073.cob 3: JMN1073I-S Program 'C10731' specified in the end program header is missing. The end program header uses the last unterminated program.
JMN1074I-S
Parameter explanation
@1@ : COPY,INCLUDE
Example
[C1074.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1074. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 COPY C1074C REPLACING ==DATA== BY ==COPY C1074CC.==. 000006 END PROGRAM C1074. [C1074C.cbl] 000001 DATA
C1074C.cbl 1: JMN1074I-S The COPY statement cannot be specified in library text referenced by a COPY statement with a REPLACING or JOINING phrase.
Explanation
The source text manipulation replaced with the COPY statement or the INCLUDE statement is impossible.
JMN1075I-S
Parameter explanation
@1@ : COPY,INCLUDE,REPLACE
Example
[C1075.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1075. 000003 .REPLACE A BY B. 000004 REPLACE OFF. 000005 END PROGRAM C1075.
C1075.cob 3: JMN1075I-S Word REPLACE must be preceded by a space and followed by a space.
JMN1076I-S
Parameter explanation
@1@ : COPY,INCLUDE
Example
[C1076.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1076. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 COPY CBLCPY REPLACING A BY B 000006 END PROGRAM C1076.
C1076.cob 6: JMN1076I-S The COPY statement is invalid, or the separator period is missing.
JMN1080I-W
Example
[C1080.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1080. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 COPY C1080C REPLACING ==,== BY ==:==. [C1080C.cbl] 000001 01 WK-DATA PIC X.
C1080.cob 5: JMN1080I-W A pseudo-text-1 is used that has no text words, or only contains a separator comma and separator semicolon. That pseudo-text-1 is not used as replace object.
JMN1081I-S
Parameter explanation
@1@ : COPY,INCLUDE,REPLACE
Example
[C1081.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1081. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 REPLACE ==A== BY ==B==. 000006 01 A PIC X. 000007 REPLACE OFF.A 000008 END PROGRAM C1081.
C1081.cob 7: JMN1081I-S The period of the REPLACE statement must be followed by a space.
JMN1082I-S
Example
[C1082.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1082. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION 000005 REPLACE A BY B. 000006 REPLACE OFF. 000007 END PROGRAM C1082.
C1082.cob 5: JMN1082I-S The REPLACE statement must be preceded by a separator period.
JMN1083I-S
Example
[C1083.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1083. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 REPLACE A A BY B. 000006 REPLACE OFF 000007 END PROGRAM C1083.
C1083.cob 5: JMN1083I-S The REPLACE statement is invalid or a separator period is missing.
C1083.cob 7: JMN1083I-S The REPLACE statement is invalid or a separator period is missing.
JMN1084I-I
Example
[C1084.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1084. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 REPLACE OFF. 000006 END PROGRAM C1084.
C1084.cob 5: JMN1084I-I The REPLACE statement corresponding to the REPLACE OFF statement is missing.
JMN1087I-W
Parameter explanation
@1@ : AQL,SQL
Example
[C1087.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1087. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 EXEC SQL BEGIN DECLARE SECTION END-EXEC. 000006 01 SQLSTATE PIC X(5). 000007 EXEC SQL END DECLARE SECTION END-EXEC. 000008 PROCEDURE DIVISION. 000009 EXEC SQL 000010 SELECT A 000011 END-EXEC 000012 END PROGRAM C1087.
C1087.cob 10: JMN1087I-W The SQL statement must start in Area B. The statement is assumed to start in Area B.
JMN1092I-S
JMN1093I-S
Example
[C1093.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1093. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 REPLACE ==A== BY ==REPLACE==. 000006 A OFF. 000007 REPLACE OFF. 000008 END PROGRAM C1093.
C1093.cob 6: JMN1093I-S The text generated by a REPLACE statement execution contains a REPLACE statement.
Explanation
The source text manipulation replaced with the REPLACE statement is impossible.
JMN1096I-I
Example
[C1096.cob] 000001 @OPTIONS CONF(68) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C1096. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 COPY C1096C. 000007 END PROGRAM C1096. [C1096C.cbl] 000001 WNAME PIC X(10).
C1096.cob 6: JMN1096I-I (CONF)The COPY statement is specified after a level 01 or 77 item.
JMN1097I-I
Example
[C1097.cob] 000001 @OPTIONS CONF(V10) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C1097. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 COPY C1097C REPLACING ==*== BY == ==. 000007 END PROGRAM C1097. [C1097C.cbl] 000001*01 WNAME1 PIC X(10). 000002*01 WNAME2 PIC X(10).
C1097.cob 6: JMN1097I-I (CONF)Only '*' is specified as pseudo-text-1 in the COPY statement.
JMN1099I-I
Example
[C1099.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1099. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 DATA-SS PIC X(3) VALUE "NG!". 000006 01 DATA-DD PIC X(3) VALUE "OK!". 000007 PROCEDURE DIVISION. 000008 REPLACE ==DATA-SS== BY ==DATA-DD==. 000009 COPY "C1099C.CBL" 000010 REPLACE OFF 000011 . 000012 END PROGRAM C1099.
C1099.cob 8: JMN1099I-I When the NONUMBER option is specified, diagnostic messages relating to COPY statements display the line number of the REPLACE statement rather than that of the COPY statement. Use the NUMBER option to get the exact line number of invalid COPY statements.
JMN1100I-W
Example
[C1100.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1100. 000003 DATA. 000004 END PROGRAM C1100.
C1100.cob 3: JMN1100I-W The word 'DIVISION' or 'SECTION' is missing. 'DIVISION' or 'SECTION' is assumed to be coded.
JMN1101I-S
Example
[C1101.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1101. 000003 IDENTIFICATION DIVISION. 000004 PROGRAM-ID. P1. 000005 ENVIRONMENT DIVISION. 000006 INPUT-OUTPUT SECTION. 000007 I-O-CONTROL. 000008 APPLY SAVED-AREA 000009 APPLY MULTICONVERSATION-MODE. 000010 END PROGRAM P1. 000011 END PROGRAM C1101.
C1101.cob 9: JMN1101I-S In programs included in other programs, the APPLY SAVED-AREA clause must have the ON phrase, and the APPLY MULTICONVERSATION-MODE clause must include a file-name.
Explanation
In internal program, the APPLY SAVED-AREA clause must have the ON phrase, and the APPLY MULTICONVERSATION-MODE clause must include a file-name.
JMN1103I-W
Example
[C1103.cob] 000001 IDENTIFICATION DIVISION 000002 PROGRAM-ID C1103 000003 ENVIRONMENT DIVISION 000004 CONFIGURATION SECTION 000005 FILE SECTION 000006 DATA DIVISION 000007 BASED-STORAGE SECTION 000008 WORKING-STORAGE SECTION 000009 CONSTANT SECTION 000010 END PROGRAM C1103
C1103.cob 1: JMN1103I-W The period is missing. The period is assumed to be coded.
C1103.cob 3: JMN1103I-W The period is missing. The period is assumed to be coded.
C1103.cob 4: JMN1103I-W The period is missing. The period is assumed to be coded.
C1103.cob 6: JMN1103I-W The period is missing. The period is assumed to be coded.
C1103.cob 7: JMN1103I-W The period is missing. The period is assumed to be coded.
C1103.cob 8: JMN1103I-W The period is missing. The period is assumed to be coded.
C1103.cob 9: JMN1103I-W The period is missing. The period is assumed to be coded.
JMN1104I-S
Example
[C1104.cob] 000001 IDENTIFICATION DIVISION. 000002 ENVIRONMENT DIVISION. 000003 DATA DIVISION. 000004 PROCEDURE DIVISION. 000005 END PROGRAM C1104.
C1104.cob 2: JMN1104I-S The PROGRAM-ID paragraph is missing. The program-name is generated by the system.
JMN1105I-W
Example
[C1105.cob] 000001 IDENTIFICATION DIVISION. 000002 DATE-COMPILED. 20040402. 000003 PROGRAM-ID. C1105. 000004 END PROGRAM C1105.
C1105.cob 3: JMN1105I-W The PROGRAM-ID paragraph must be the first paragraph in the IDENTIFICATION DIVISION. The PROGRAM-ID paragraph is assumed to be the first paragraph in the IDENTIFICATION DIVISION.
JMN1107I-S
Example
[C1107.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. 1107. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 PROCEDURE DIVISION. 000006 END PROGRAM 1107.
C1107.cob 2: JMN1107I-S An invalid character-string is specified in the program-id, or the program-id is missing. The program-name of the next paragraph or division is used.
Explanation
Please follow the rule of the user-defined word about the program-name.
JMN1110I-S
Example
[C1110.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1110 COMMON. 000003 END PROGRAM C1110.
C1110.cob 2: JMN1110I-S 'COMMON' can only be specified for internal programs.
JMN1111I-S
Parameter explanation
@1@ : program-name
Example
[C1111.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1111. 000003 IDENTIFICATION DIVISION. 000004 PROGRAM-ID. C1111. 000005 END PROGRAM C1111. 000006 END PROGRAM C1111.
C1111.cob 4: JMN1111I-S The program-name 'C1111' is already specified in another PROGRAM-ID paragraph or ENTRY statement. Program-name 'C1111' ignored.
JMN1113I-S
Example
[C1113.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1113. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 SYMBOLIC CONSTANT 000007 NUM1 IS 1234. 000008 IDENTIFICATION DIVISION. 000009 PROGRAM-ID. P1. 000010 ENVIRONMENT DIVISION. 000011 CONFIGURATION SECTION. 000012 END PROGRAM P1. 000013 END PROGRAM C1113.
C1113.cob 11: JMN1113I-S CONFIGURATION SECTION cannot be specified in an internal program.
JMN1114I-S
Example
[C1114.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1114. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 CONFIGURATION SECTION. 000006 END PROGRAM C1114.
C1114.cob 5: JMN1114I-S The CONFIGURATION SECTION must be specified before the INPUT-OUTPUT SECTION.
JMN1115I-S
Example
[C1115.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1115. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 CONFIGURATION SECTION. 000006 INPUT-OUTPUT SECTION. 000007 INPUT-OUTPUT SECTION. 000008 END PROGRAM C1115.
C1115.cob 5: JMN1115I-S The CONFIGURATION SECTION or INPUT-OUTPUT SECTION is already specified.
C1115.cob 7: JMN1115I-S The CONFIGURATION SECTION or INPUT-OUTPUT SECTION is already specified.
JMN1116I-S
Example
[C1116.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1116. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 SPECIAL-NAMES. 000007 INPUT-OUTPUT SECTION. 000008 FILE-CONTROL. 000009 FILE-CONTROL. 000010 END PROGRAM C1116.
C1116.cob 6: JMN1116I-S Each paragraph of the CONFIGURATION SECTION or INPUT-OUTPUT SECTION is already specified.
C1116.cob 9: JMN1116I-S Each paragraph of the CONFIGURATION SECTION or INPUT-OUTPUT SECTION is already specified.
JMN1117I-S
Example
[C1117.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1117. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 I-O-CONTROL. 000006 FILE-CONTROL. 000007 END PROGRAM C1117.
C1117.cob 6: JMN1117I-S A FILE-CONTROL paragraph or SELECT clause must be specified before the I-O-CONTROL paragraph.
JMN1118I-W
Example
[C1118.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1118. 000003 ENVIRONMENT DIVISION. 000004 SPECIAL-NAMES. 000005 END PROGRAM C1118.
C1118.cob 4: JMN1118I-W The CONFIGURATION SECTION header is missing. The header is assumed to be coded.
JMN1119I-W
Example
[C1119.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1119. 000003 ENVIRONMENT DIVISION. 000004 FILE-CONTROL. 000005 END PROGRAM C1119.
C1119.cob 4: JMN1119I-W The INPUT-OUTPUT SECTION header is missing. The header is assumed to be coded.
JMN1121I-S
Parameter explanation
@1@ : Clause for which a symbolic constant can be specified
@2@ : Undefined symbolic constant
Example
[C1121.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1121. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN TO SYS000. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD IN-F REPORT RP-F. 000010 REPORT SECTION. 000011 RD RP-F PAGE LIMIT IS CON1. 000012 01 RP1 TYPE RH. 000013 END PROGRAM C1121.
C1121.cob 11: JMN1121I-S The syntax of the 'PAGE' clause is invalid, or the symbolic constant 'CON1' is undefined.
JMN1123I-S
Parameter explanation
@1@ : Word which cannot be recognized
Example
[C1123.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1123. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 DATA1 PIC X(5). END 000006 PROCEDURE DIVISION. 000007 MOVE "ABC" TO DATA1 000008 END PROGRAM C1123.
C1123.cob 5: JMN1123I-S An invalid word 'END' was found. The invalid word and any following code is ignored until the next valid paragraph, section or division.
Explanation
A word is included that does not follow the syntax format. Refer to the "NetCOBOL Language Reference" and correct the format.
In addition, the compiler does not allow combining half size characters and full size characters. When half size and full size characters are combined in user-defined words, only the first block of same-size characters are recognized in row. Therefore, this message may be displayed at the point in the word where a different sized character is used.
ex. 01 ＡＢＣABC PIC X. *>JMN1123I-S An invalid word 'ABC' was found. ...
JMN1125I-S
Parameter explanation
@1@ : clause name
Example
[C1125.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1125. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 DATA1 PIC 9(4) PIC X(5). 000006 01 DATA2 PIC 9(4) VALUE 1234 VALUE 5678. 000007 END PROGRAM C1125.
C1125.cob 5: JMN1125I-S The PIC clause is already specified.
C1125.cob 6: JMN1125I-S The VALUE clause is already specified.
JMN1126I-S
Example
[C1126.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1126. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT ASSIGN TO A. 000007 END PROGRAM C1126.
C1126.cob 6: JMN1126I-S A file-name must be specified in the SELECT clause.
JMN1127I-S
Parameter explanation
@1@ : clause name
Example
[C1127.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1127. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 DATA1 PIC S9(4) SIGN VALUE 1. 000006 END PROGRAM C1127.
C1127.cob 5: JMN1127I-S The syntax of the SIGN clause is invalid.
JMN1128I-S
Example
[C1128.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1128. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT INFILE ASSIGN TO A. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD 1234. 000010 01 INREC PIC X(80). 000011 END PROGRAM C1128.
C1128.cob 9: JMN1128I-S The file-name must be specified in the file description entry.
JMN1129I-S
Example
[P1129.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P1129. 000003 PROCEDURE DIVISION. 000004 PROGRAM-ID. SUB RECURSIVE. 000005 END PROGRAM SUB. 000006 END PROGRAM P1129.
P1129.cob 4: JMN1129I-S 'RECURSIVE' can only be specified for external programs.
JMN1130I-S
Example
[P1130.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P1130. 000003 PROCEDURE DIVISION. 000004 PROGRAM-ID. SUB. 000005 DATA DIVISION. 000006 LOCAL-STORAGE SECTION. 000007 END PROGRAM SUB. 000008 END PROGRAM P1130.
P1130.cob 6: JMN1130I-S The LOCAL-STORAGE SECTION can only be specified for an external program that does not contain the INITIAL attribute.
JMN1131I-S
Example
[C1131.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1131. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 A PIC XX. 000006 88 FILLER VALUE "OK". 000007 78 FILLER VALUE A. 000008 66 FILLER RENAMES A THRU B. 000009 END PROGRAM C1131.
C1131.cob 6: JMN1131I-S FILLER cannot be specified after level-number '66', '78', or '88'.
C1131.cob 7: JMN1131I-S FILLER cannot be specified after level-number '66', '78', or '88'.
C1131.cob 8: JMN1131I-S FILLER cannot be specified after level-number '66', '78', or '88'.
JMN1132I-S
Example
[C1132.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1132. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 A PIC X(2). 000006 88 VALUE "OK". 000007 END PROGRAM C1132.
C1132.cob 6: JMN1132I-S A condition-name must be specified after level-number '88'.
JMN1133I-S
Example
[C1133.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1133. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 A PIC X(2). 000006 88 RES PIC X(2) VALUE "OK". 000007 END PROGRAM C1133.
C1133.cob 6: JMN1133I-S A VALUE clause must immediately follow the condition-name in the condition-name description entry.
JMN1134I-S
Example
[C1134.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1134. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 WK-TBL PIC X(10). 000006 66 RE-TBL PIC 9 RENAMES WK-TBL. 000007 END PROGRAM C1134.
C1134.cob 6: JMN1134I-S A RENAMES clause must immediately follow the data-name in '66' level-number data description entries.
JMN1141I-S
Example
[C1141.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1141 IS INITIAL INITIAL. 000003 END PROGRAM C1141.
[Solaris][Linux]
C1141.cob 2: JMN1141I-S COMMON, INITIAL, or PROTOTYPE is already specified. This COMMON, INITIAL or PROTOTYPE is ignored.
[Linux64]
C1141.cob 2: JMN1141I-S COMMON, INITIAL or RECURSIVE is already specified. This COMMON, INITIAL or RECURSIVE is ignored.
JMN1142I-S
Example
[C1142.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1142. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 WORK1 PIC F. 000006 END PROGRAM C1142.
C1142.cob 5: JMN1142I-S An invalid character is specified in the PICTURE character-string. PICTURE 9 is assumed.
JMN1143I-S
Example
[C1143.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1143. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 WORK1 PIC X(A). 000006 END PROGRAM C1143.
C1143.cob 5: JMN1143I-S A nonnumeric character cannot be specified in parentheses. PICTURE 9 is assumed.
JMN1144I-S
Example
[C1144.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1144. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 WORK1 PIC X(0). 000006 END PROGRAM C1144.
C1144.cob 5: JMN1144I-S The numeric in parentheses in the PICTURE character-string is zero or is not a valid numeric. 1 is assumed.
JMN1145I-S
Example
[C1145.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1145. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 WORK1 PIC X(10. 000006 END PROGRAM C1145.
C1145.cob 5: JMN1145I-S The right parenthesis corresponding to the left parenthesis is missing. PICTURE 9 is assumed.
JMN1146I-S
Example
[C1146.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1146. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 WORK1 PIC X(2147483648). 000006 END PROGRAM C1146.
C1146.cob 5: JMN1146I-S The numeric in parentheses in the PICTURE clause or consecutive same character length must not exceed 2147483647. 2147483647 is assumed.
JMN1147I-S
Example
[C1147.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1147. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 WORK1 PIC 9CR9. 000006 END PROGRAM C1147.
C1147.cob 5: JMN1147I-S CR or DB can be specified only at the end of a PICTURE character-string. PICTURE 9 is assumed.
JMN1148I-S
Example
[C1148.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1148. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 INPUT-OUTPUT SECTION. 000006 FILE-CONTROL. 000007 SELECT INMSG 000008 ASSIGN TO INFILE. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD INMSG. 000012 01 MSGFORM PIC X(50). 000013 PROCEDURE DIVISION. 000014 DECLARATIVES. 000015 IO-ERR SECTION. 000016 USE AFTER EXCEPTION PROCEDURE INMSG. 000017 END PROGRAM C1148.
C1148.cob 16: JMN1148I-S The END DECLARATIVES corresponding to the DECLARATIVES is missing. An END DECLARATIVES is assumed to be specified.
JMN1149I-W
Example
[C1149.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1149. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 WORK1 PIC X. 000006 77 WORK2 PIC 9. 000007 END PROGRAM C1149.
C1149.cob 5: JMN1149I-W Level-number 01 or 77 must be specified from area A. The level-number is assumed to be specified from area A.
C1149.cob 6: JMN1149I-W Level-number 01 or 77 must be specified from area A. The level-number is assumed to be specified from area A.
JMN1150I-S
Example
[C1150.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1150. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT MSGFILE ASSIGN TO I-INFILE 000007 ACCESS MODE IS RANDOM 000008 RECORD KEY IS INFNUM 000009 NOMINAL KEY IS WINF 000010 TRACK-AREA IS 32761 CHARACTERS 000011 . 000012 DATA DIVISION. 000013 FILE SECTION. 000014 FD MSGFILE. 000015 01 INFDAT. 000016 02 INFNUM PIC S9(8) BINARY. 000017 02 INFMSG PIC X(50). 000018 WORKING-STORAGE SECTION. 000019 01 WINF PIC S9(8) BINARY. 000020 END PROGRAM C1150.
C1150.cob 10: JMN1150I-S The integer in the TRACK-AREA clause must not exceed 32760. 32760 is assumed.
JMN1151I-S
Parameter explanation
@1@ : clause name
Example
[C1151.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1151. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT MSGFILE ASSIGN TO D-INFILE 000007 TRACK-LIMIT IS 32768 000008 . 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD MSGFILE. 000012 01 INFDAT. 000013 02 INFNUM PIC S9(8) BINARY. 000014 02 INFMSG PIC X(50). 000015 END PROGRAM C1151.
C1151.cob 7: JMN1151I-S The integer in the TRACK-LIMIT clause must not exceed 32767. 32767 is assumed.
JMN1154I-S
Example
[C1154.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1154. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT INFILE ASSIGN TO IN-F. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD INFILE 000010 LINAGE IS 10 000011 WITH AT 1234. 000012 01 INREC PIC X(80). 000013 END PROGRAM C1154.
C1154.cob 11: JMN1154I-S The FOOTING, TOP, or BOTTOM operand in the LINAGE clause is invalid.
JMN1155I-S
Example
[C1155.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1155. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 WORK1. 000006 02 CHR PIC X(10) VALUE "ABCDEFGHIJ". 000007 01 WK2 REDEFINES WORK1 OF WK1. 000008 02 CHR PIC X(10). 000009 END PROGRAM C1155.
C1155.cob 7: JMN1155I-S The data-name in the REDEFINES clause cannot be qualified. The qualifier is ignored.
JMN1156I-W
Example
[C1156.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1156. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT MSGFILE ASSIGN TO F-INFILE 000007 FILE-LIMIT IS "256" THRU "512" 000008 . 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD MSGFILE. 000012 01 INFDAT. 000013 02 INFNUM PIC S9(8) BINARY. 000014 02 INFMSG PIC X(50). 000015 END PROGRAM C1156.
C1156.cob 7: JMN1156I-W The syntax is invalid. This syntax is ignored.
Explanation
The mistake is found in the syntax (obsolete element) treated as a comment. However, it doesn't influence the operation of the program because it is treated as a comment.
JMN1158I-W
Example
[C1158.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1158. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE1 ASSIGN TO F1. 000007 SELECT FILE2 ASSIGN TO F2. 000008 I-O-CONTROL. 000009 SAME FILE1. 000010 DATA DIVISION. 000011 FILE SECTION. 000012 FD FILE1. 000013 01 REC1. 000014 02 RECNO1 PIC S9(8) BINARY. 000015 FD FILE2. 000016 01 REC2. 000017 02 RECNO2 PIC S9(8) BINARY. 000018 END PROGRAM C1158.
C1158.cob 9: JMN1158I-W Two or more file-names must be specified in a SAME clause. The SAME clause is accepted as written.
JMN1159I-S
Parameter explanation
@1@ : file identifier
Example
[C1159.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1159. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT MSGFILE ASSIGN TO INFILE. 000007 I-O-CONTROL. 000008 RERUN ON A1-DB-1. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD MSGFILE. 000012 01 INFDAT. 000013 02 INFNUM PIC S9(8) BINARY. 000014 02 INFMSG PIC X(50). 000015 END PROGRAM C1159.
C1159.cob 8: JMN1159I-S The file-identifier 'A1-DB-1' in the RERUN clause is invalid.
JMN1161I-S
Example
[C1161.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1161. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT MSGFILE ASSIGN TO INFILE. 000007 I-O-CONTROL. 000008 RERUN ON INFILE 0 RECORDS OF MSGFILE. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD MSGFILE. 000012 01 INFDAT. 000013 02 INFNUM PIC S9(8) BINARY. 000014 02 INFMSG PIC X(50). 000015 END PROGRAM C1161.
C1161.cob 8: JMN1161I-S The integer in the RECORDS phrase of the RERUN clause must be between 1 and 2147483647.
JMN1162I-S
Parameter explanation
@1@ : clause name
Example
[C1162.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1162. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT MSGFILE ASSIGN TO INFILE. 000007 I-O-CONTROL. 000008 APPLY RECORD-OVERFLOW ON "MSGFILE". 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD MSGFILE. 000012 01 INFDAT. 000013 02 INFNUM PIC S9(8) BINARY. 000014 02 INFMSG PIC X(50). 000015 END PROGRAM C1162.
C1162.cob 8: JMN1162I-S The file-name in the APPLY RECORD-OVERFLOW clause is missing or the syntax is invalid.
JMN1163I-S
Example
[C1163.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1163. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT MSGFILE ASSIGN TO INFILE. 000007 I-O-CONTROL. 000008 APPLY OVERFLOW ON MSGFILE. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD MSGFILE. 000012 01 INFDAT. 000013 02 INFNUM PIC S9(8) BINARY. 000014 02 INFMSG PIC X(50). 000015 END PROGRAM C1163.
C1163.cob 8: JMN1163I-S The syntax of the APPLY clause is invalid.
JMN1164I-S
Example
[C1164.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1164. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT MSGFILE ASSIGN TO INFILE. 000007 I-O-CONTROL. 000008 MULTIPLE TAPE MSGFILE. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD MSGFILE. 000012 01 INFDAT. 000013 02 INFNUM PIC S9(8) BINARY. 000014 02 INFMSG PIC X(50). 000015 END PROGRAM C1164.
C1164.cob 8: JMN1164I-S FILE must be specified in the MULTIPLE FILE TAPE clause. FILE is assumed to be specified.
JMN1165I-S
Example
[C1165.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1165. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT MSGFILE ASSIGN TO INFILE. 000007 I-O-CONTROL. 000008 MULTIPLE FILE TAPE "MSGFILE". 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD MSGFILE. 000012 01 INFDAT. 000013 02 INFNUM PIC S9(8) BINARY. 000014 02 INFMSG PIC X(50). 000015 END PROGRAM C1165.
C1165.cob 8: JMN1165I-S The syntax of the MULTIPLE FILE TAPE clause is invalid.
JMN1166I-S
Example
[C1166.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1166. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT MSGFILE ASSIGN TO INFILE. 000007 I-O-CONTROL. 000008 MULTIPLE FILE TAPE MSGFILE POSITION CNT. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD MSGFILE. 000012 01 INFDAT. 000013 02 INFNUM PIC S9(8) BINARY. 000014 02 INFMSG PIC X(50). 000015 WORKING-STORAGE SECTION. 000016 01 CNT PIC S9(4) BINARY. 000017 END PROGRAM C1166.
C1166.cob 8: JMN1166I-S An integer must be specified in the POSITION clause of the MULTIPLE FILE TAPE clause.
JMN1167I-W
Example
[C1167.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1167. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT INFILE ASSIGN TO INDATA. 000007 SELECT OUTFILE ASSIGN TO OUTDATA. 000008 I-O-CONTROL. 000009 MULTIPLE FILE TAPE INFILE. 000010 SAME INFILE OUTFILE. 000011 DATA DIVISION. 000012 FILE SECTION. 000013 FD INFILE. 000014 01 INFDAT. 000015 02 INFNUM PIC S9(8) BINARY. 000016 02 INFMSG PIC X(50). 000017 FD OUTFILE. 000018 01 OUTDAT. 000019 02 OUTFNUM PIC S9(8) BINARY. 000020 02 OUTMSG PIC X(50). 000021 END PROGRAM C1167.
C1167.cob 9: JMN1167I-W A period can be specified only at the end of an I-O-CONTROL paragraph. The period is ignored.
JMN1183I-S
Example
[C1183.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1183. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 WK-TBL. 000006 02 WK PIC X OCCURS 3 TO 1 000007 DEPENDING ON LENGCNT. 000008 01 LENGCNT PIC S9(4) BINARY. 000009 END PROGRAM C1183.
C1183.cob 6: JMN1183I-S The integer in the OCCURS clause must not exceed the value of the integer in the TO phrase. The integer in the TO phrase is used in the OCCURS clause.
JMN1184I-S
Example
[C1184.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1184. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 WK-TBL. 000006 02 WK PIC X OCCURS 1 TO 10. 000007 01 LENGCNT PIC S9(4) BINARY. 000008 END PROGRAM C1184.
C1184.cob 6: JMN1184I-S If the maximum number of occurrences is specified in the OCCURS clause, a DEPENDING ON phrase must also be specified. The maximum number of occurrences is assumed to be the exact number of occurrences.
Explanation
Please describe the DEPENDING ON phrase when you specify the TO phrase of the OCCURS clause.
JMN1185I-S
Example
[C1185.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1185. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 WK-TBL. 000006 02 WK PIC 9 OCCURS 0. 000007 END PROGRAM C1185.
C1185.cob 6: JMN1185I-S The exact or maximum number of occurrences in the OCCURS clause must be greater than or equal to 1. 1 is assumed to be specified.
JMN1187I-S
Example
[C1187.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1187. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT SORTFILE ASSIGN TO S-FILE. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 SD 1234. 000010 01 SORTREC PIC X(80). 000011 END PROGRAM C1187.
C1187.cob 9: JMN1187I-S A file-name must be specified after level indicator SD. This entry ignored, and processing skips to the next division, paragraph, level indicator, or level-number.
JMN1188I-S
Example
[C1188.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1188. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN GS-DISP 000007 SYMBOLIC DESTINATION IS "DSP" 000008 PROCESSING MODE IS SEQUENTIAL 000009 . 000010 DATA DIVISION. 000011 FILE SECTION. 000012 FD IN-F. 000013 01 IN-R PIC X(80). 000014 WORKING-STORAGE SECTION. 000015 END PROGRAM C1188.
C1188.cob 8: JMN1188I-S A data-name must be specified in the PROCESSING MODE clause of a presentation file.
JMN1190I-S
Parameter explanation
@1@ : clause name of presentation file
Example
[C1190.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1190. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN SYS000 000007 SYMBOLIC DESTINATION IS "DSP" 000008 . 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD IN-F. 000012 01 IN-R PIC X(80). 000013 WORKING-STORAGE SECTION. 000014 END PROGRAM C1190.
C1190.cob 7: JMN1190I-S The SYMBOLIC DESTINATION clause can be specified only for a presentation file.
Explanation
The hint: "GS" is necessary for the prefix for the file identifier of the presentation file.
JMN1193I-S
Example
[C1193.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1193. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT MSGFILE ASSIGN TO INFILE 000007 ORGANIZATION IS INDEXED 000008 RECORD KEY IS INFNUM 000009 FORMAT IS WINF 000010 . 000011 DATA DIVISION. 000012 FILE SECTION. 000013 FD MSGFILE. 000014 01 INFDAT. 000015 02 INFNUM PIC S9(8) BINARY. 000016 02 INFMSG PIC X(50). 000017 WORKING-STORAGE SECTION. 000018 01 WINF PIC X(8). 000019 END PROGRAM C1193.
C1193.cob 9: JMN1193I-S The FORMAT clause can be specified only for a presentation file or a sequential file.
JMN1194I-S
Example
[C1194.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1194. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT MSGFILE ASSIGN TO INFILE 000007 ORGANIZATION IS SEQUENTIAL 000008 GROUP IS WGRP 000009 . 000010 DATA DIVISION. 000011 FILE SECTION. 000012 FD MSGFILE. 000013 01 INFDAT. 000014 02 INFNUM PIC S9(8) BINARY. 000015 02 INFMSG PIC X(50). 000016 WORKING-STORAGE SECTION. 000017 01 WGRP PIC X(8). 000018 END PROGRAM C1194.
C1194.cob 8: JMN1194I-S The GROUP clause can be specified only for a presentation file or a print file with a FORMAT clause.
JMN1195I-S
Example
[C1195.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1195. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN GS-DISP 000007 SYMBOLIC DESTINATION IS "DSP" 000008 ACCESS MODE IS RANDOM 000009 . 000010 DATA DIVISION. 000011 FILE SECTION. 000012 FD IN-F. 000013 01 IN-R PIC X(80). 000014 WORKING-STORAGE SECTION. 000015 END PROGRAM C1195.
C1195.cob 8: JMN1195I-S SEQUENTIAL must be specified in the ACCESS MODE clause of a presentation file. SEQUENTIAL is assumed.
JMN1197I-S
Example
[C1197.cob] 000001 @OPTIONS 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C1197. 000004 ENVIRONMENT DIVISION. 000005 INPUT-OUTPUT SECTION. 000006 FILE-CONTROL. 000007 SELECT GSFILE ASSIGN TO GS-DD1 000008 SYMBOLIC DESTINATION IS "ACM" 000009 MESSAGE . 000010 DATA DIVISION. 000011 FILE SECTION. 000012 FD GSFILE. 000013 01 GSREC1. 000014 02 GSREC11 PIC X(80).
C1197.cob 9: JMN1197I-S The syntax of the MESSAGE MODE, MESSAGE CLASS, MESSAGE OWNER, or MESSAGE CODE clause is invalid.
JMN1198I-S
Example
[C1198.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1198. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 SYMBOLIC CONSTANT 000007 CON1 IS CON1. 000008 END PROGRAM C1198.
C1198.cob 7: JMN1198I-S The literal in the SYMBOLIC CONSTANT clause must be a numeric literal, nonnumeric literal, national literal, Boolean literal, hexadecimal nonnumeric literal, or pointer literal.
JMN1207I-S
Parameter explanation
@1@ : clause name
Example
[C1207.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1207. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SOURCE-COMPUTER. COMS01 000006 WITH DEBUGGING MODE 000007 WITH DEBUGGING MODE. 000008 END PROGRAM C1207.
C1207.cob 7: JMN1207I-S Two or more DEBUGGING clauses are specified.
JMN1208I-S
Example
[C1208.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1208. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 OBJECT-COMPUTER. COMS1 000006 PROGRAM SEQUENCE. 000007 END PROGRAM C1208.
C1208.cob 6: JMN1208I-S The syntax of the PROGRAM COLLATING SEQUENCE clause is invalid.
JMN1209I-S
Example
[C1209.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1209. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 SYMBOLIC CHARACTERS 000007 MCHR IS 10 000008 ALPHABET 000009 ABC IS NATIVE. 000010 END PROGRAM C1209.
C1209.cob 8: JMN1209I-S The ALPHABET clause must be specified before the SYMBOLIC CHARACTERS clause.
JMN1213I-S
Example
[C1213.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1213. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 SYSOUT. 000007 END PROGRAM C1213.
C1213.cob 6: JMN1213I-S The mnemonic-name is missing from the FUNCTION-NAME clause.
JMN1214I-S
Example
[C1214.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1214. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 SWITCH-0. 000007 END PROGRAM C1214.
C1214.cob 6: JMN1214I-S The mnemonic-name or the switch-status condition-name is missing from the FUNCTION-NAME clause with an external switch.
JMN1215I-S
Example
[C1215.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1215. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 SWITCH-0 IS ST0 000007 ON STATUS. 000008 END PROGRAM C1215.
C1215.cob 7: JMN1215I-S The condition-name is missing from the ON/OFF STATUS clause.
JMN1216I-S
Example
[C1216.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1216. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 ALPHABET ABC IS DD. 000007 END PROGRAM C1216.
C1216.cob 6: JMN1216I-S The syntax of the FUNCTION-NAME clause or ALPHABET clause is invalid.
JMN1217I-S
Example
[C1217.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1217. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 ALPHABET ABC IS 257. 000007 END PROGRAM C1217.
C1217.cob 6: JMN1217I-S The numeric literal in the ALPHABET or CLASS clause must be between 1 and 256. 1 is the assumed numeric literal for 0. 256 is the assumed numeric literal for values greater than 256.
JMN1218I-S
Example
[C1218.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1218. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 ALPHABET ABC IS "ABC" THRU "XYZ". 000007 END PROGRAM C1218.
C1218.cob 6: JMN1218I-S The nonnumeric literal in the ALPHABET clause must be 1 byte in length. The first byte is used as the nonnumeric literal.
C1218.cob 6: JMN1218I-S The nonnumeric literal in the ALPHABET clause must be 1 byte in length. The first byte is used as the nonnumeric literal.
JMN1219I-S
Example
[C1219.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1219. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 ALPHABET ABC IS "A" THRU "A". 000007 END PROGRAM C1219.
C1219.cob 6: JMN1219I-S Each native character must be represented by only one literal in the ALPHABET clause.
JMN1220I-S
Example
[C1220.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1220. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 ALPHABET ALP IS "A" THRU "Z" 000007 SYMBOLIC CHARACTERS 000008 TAB IS 10 IN 000009 . 000010 END PROGRAM C1220.
C1220.cob 7: JMN1220I-S The syntax of the SYMBOLIC CHARACTERS clause is invalid.
JMN1221I-S
Example
[C1221.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1221. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 ALPHABET ALP IS "A" THRU "Z" 000007 SYMBOLIC CHARACTERS 000008 TAB IS 10 11 12 000009 . 000010 END PROGRAM C1221.
C1221.cob 7: JMN1221I-S The number of symbolic characters and integers in the SYMBOLIC CHARACTERS clause must correspond.
JMN1222I-S
Example
[C1222.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1222. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 ALPHABET ALP IS "A" THRU "Z" 000007 SYMBOLIC CHARACTERS 000008 TAB IS 257 000009 . 000010 END PROGRAM C1222.
C1222.cob 8: JMN1222I-S The integer in the SYMBOLIC CHARACTERS clause must not exceed 256. The integer 256 is used.
JMN1223I-S
Example
[C1223.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1223. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 CLASS CHAR1 IS. 000007 END PROGRAM C1223.
C1223.cob 6: JMN1223I-S The syntax of the CLASS clause is invalid.
JMN1224I-S
Example
[C1224.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1224. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 CLASS ABC IS "ABC" THRU "XYZ". 000007 END PROGRAM C1224.
C1224.cob 6: JMN1224I-S The nonnumeric literal must be 1 character in length in a CLASS clause with a THROUGH phrase. The first character is used as the nonnumeric literal.
C1224.cob 6: JMN1224I-S The nonnumeric literal must be 1 character in length in a CLASS clause with a THROUGH phrase. The first character is used as the nonnumeric literal.
JMN1225I-S
Example
[C1225.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1225. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT INFILE ASSIGN TO IN-F. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD INFILE BLOCK CONTAINS WCNT. 000010 01 INREC PIC X(80). 000011 WORKING-STORAGE SECTION. 000012 01 WCNT PIC S9(4) BINARY. 000013 END PROGRAM C1225.
C1225.cob 9: JMN1225I-S The syntax of the BLOCK CONTAINS clause is invalid.
JMN1227I-S
Example
[C1227.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1227. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT INFILE ASSIGN TO IN-F. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD INFILE BLOCK CONTAINS 32761. 000010 01 INREC PIC X(80). 000011 END PROGRAM C1227.
C1227.cob 9: JMN1227I-S The integer in the BLOCK CONTAINS clause exceeds 32760. 32760 is used.
JMN1228I-S
Example
[C1228.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1228. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN TO ABC. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD IN-F BLOCK CONTAINS 10 TO 1. 000010 01 IN-R PIC X(80). 000011 END PROGRAM C1228.
C1228.cob 9: JMN1228I-S In a BLOCK CONTAINS clause, the smallest block size specified must be less than the greatest block size specified. The greatest block size is assumed to be the same as the smallest block size.
JMN1229I-S
Example
[C1229.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1229. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN TO SYS006. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD IN-F RECORD. 000010 01 IN-R PIC X(80). 000011 END PROGRAM C1229.
C1229.cob 9: JMN1229I-S The syntax of the RECORD clause is invalid.
JMN1231I-S
Example
[C1231.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1231. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN TO SYS006. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD IN-F RECORD 80 TO 10. 000010 01 IN-R PIC X(80). 000011 END PROGRAM C1231.
C1231.cob 9: JMN1231I-S In a RECORD clause data record, the smallest character size must be less than greatest character size. The greatest character size is assumed to be the same as the smallest character size.
JMN1232I-S
Example
[C1232.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1232. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN TO SYS006. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD IN-F RECORD CONTAINS RECCNT. 000010 01 IN-R PIC X(80). 000011 WORKING-STORAGE SECTION. 000012 01 RECCNT PIC S9(4) BINARY. 000013 END PROGRAM C1232.
C1232.cob 9: JMN1232I-S An integer must be specified in the RECORD CONTAINS clause.
JMN1233I-S
Example
[C1233.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1233. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 ST1 PIC 9. 000006 88 FLG VALUE ALL 9. 000007 END PROGRAM C1233.
C1233.cob 6: JMN1233I-S The syntax of the VALUE clause of the condition-name is invalid.
JMN1234I-S
Example
[C1234.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1234. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 WK-TBL. 000006 02 WK1 PIC X. 000007 02 WK2 PIC X. 000008 02 WK3 PIC X. 000009 66 RNM1 RENAMES "WK-TBL". 000010 END PROGRAM C1234.
C1234.cob 9: JMN1234I-S The syntax of the RENAMES clause is invalid.
JMN1236I-S
Example
[C1236.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1236. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SUBSCHEMA-NAME. "ABCDEFGHI". 000006 END PROGRAM C1236.
C1236.cob 5: JMN1236I-S The subschema-name must not exceed 8 characters.
JMN1237I-S
Parameter explanation
@1@ : subschema name
Example
[C1237.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1237. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SUBSCHEMA-NAME. "ABCDEF!H". 000006 END PROGRAM C1237.
C1237.cob 5: JMN1237I-S The invalid character-string 'ABCDEF!H' is specified as a subschema-name.
Explanation
It is necessary to compose the subschema-name of A-Z and 0-9.
JMN1238I-S
Example
[C1238.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1238. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SUBSCHEMA-NAME. ABCDEF. 000006 END PROGRAM C1238.
C1238.cob 5: JMN1238I-S The subschema-name is missing.
Explanation
The subschema-name has the following rules.
Within eight characters
It is composed of A-Z and 0-9.
JMN1239I-S
Example
[C1239.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1239. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SUBSCHEMA-NAME. "ABCDEF" IS PROTOTYPE. 000006 END PROGRAM C1239.
C1239.cob 5: JMN1239I-S The syntax of the SUBSCHEMA-NAME paragraph is invalid.
JMN1240I-S
Example
[C1240.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1240. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SUBSCHEMA-NAME. "ABCDEF" 000006 END PROGRAM C1240.
C1240.cob 5: JMN1240I-S A period is required at the end of the SUBSCHEMA-NAME paragraph.
JMN1241I-S
Example
[C1241.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1241. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SUBSCHEMA-NAME. "ABCDEF" GLOBAL GLOBAL. 000006 END PROGRAM C1241.
C1241.cob 5: JMN1241I-S EXTERNAL or GLOBAL is specified more than once in the SUBSCHEMA-NAME paragraph.
JMN1242I-S
Parameter explanation
@1@ : alphabet-name
Example
[C1242.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1242. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 ALPHABET ALP01 IS "A" THRU "Z" 000007 "a" THRU "z" 000008 SYMBOLIC CHARACTERS 000009 TAB IS 10 IN ALP. 000010 END PROGRAM C1242.
C1242.cob 8: JMN1242I-S The alphabet-name 'ALP' in the SYMBOLIC CHARACTERS clause is undefined.
JMN1243I-S
Example
[C1243.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1243. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 ALPHABET HUGO1 IS CODE-1 000007 SYMBOLIC CHARACTERS A IS 12 IN HUGO1. 000008 END PROGRAM C1243.
C1243.cob 7: JMN1243I-S The alphabet-name in the SYMBOLIC CHARACTERS clause must correspond to STANDARD-1, STANDARD-2, NATIVE, or literal.
JMN1244I-W
Example
[C1244.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1244. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN TO INFILE. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD IN-F LABEL IS STANDARD. 000010 01 IN-R PIC X(80). 000011 END PROGRAM C1244.
C1244.cob 9: JMN1244I-W The word RECORD or RECORDS is missing from the LABEL RECORDS clause. The word is assumed to be specified.
JMN1246I-W
Example
[C1246.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1246. 000003 DATA DIVISION. 000004 01 DATA-1 PIC 9(4). 000005 END PROGRAM C1246.
C1246.cob 4: JMN1246I-W The SECTION header is missing. The following is assumed: FILE SECTION for FD or SD, REPORT SECTION for rd, or WORKING-STORAGE SECTION for level-number.
JMN1253I-S
Example
[C1253.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1253. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 66 TBL RENAMES DATA-TBL. 000006 01 DATA-TBL. 000007 02 A PIC X. 000008 02 B PIC 9. 000009 END PROGRAM C1253.
C1253.cob 5: JMN1253I-S A Level 66 item must be specified only after an item with a level-number of 01 through 49, or 66. The Level 66 item is ignored.
JMN1254I-S
Example
[C1254.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1254. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN INFILE. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD IN-F. 000010 01 IN-R PIC X(80). 000011 77 DATA-1 PIC 9 VALUE ZERO. 000012 END PROGRAM C1254.
C1254.cob 11: JMN1254I-S A Level 77 item cannot be specified in a FILE SECTION. The item is assumed to be a level 01.
JMN1255I-S
Example
[C1255.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1255. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 02 DATA-1 PIC X. 000006 END PROGRAM C1255.
C1255.cob 5: JMN1255I-S An item with a level-number of 02 through 49 is specified without a level 01 item. The item is assumed to be a level 01.
JMN1256I-S
Parameter explanation
@1@ : TRACK-AREA,TRACK-LIMIT,PRINTING POSITION
Example
[C1256.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1256. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 POSITIONING UNIT PUN-A IS 12 CPI. 000007 DATA DIVISION. 000008 WORKING-STORAGE SECTION. 000009 01 REC-A PIC X(10) PRINTING POSITION IS 0 BY PUN-A. 000010 END PROGRAM C1256.
C1256.cob 9: JMN1256I-S 0 cannot be specified as an integer in the PRINTING POSITION clause.
JMN1257I-S
Example
[C1257.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1257. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 ALPHABET EBC IS EBCDIC 000007 SYMBOLIC CHARACTERS 000008 TAB IS 255 IN EBC 000009 . 000010 END PROGRAM C1257.
C1257.cob 7: JMN1257I-S The ordinal position corresponding to the integer in the SYMBOLIC CHARACTERS clause does not exist in the specified character set. Assumed to be ordinal position in the native character set.
JMN1258I-W
Example
[C1258.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1258. 000003 PROCEDURE DIVISION. 000004 DECLARATIVES. 000005 USE AFTER STANDARD EXCEPTION PROCEDURE ON INPUT. 000006 END DECLARATIVES. 000007 END PROGRAM C1258.
C1258.cob 5: JMN1258I-W A section-name is required immediately after DECLARATIVES. The section-name is assumed.
JMN1259I-W
Example
[C1259.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1259. 000003 PROCEDURE DIVISION. 000004 DECLARATIVES. 000005 SAMPLE. 000006 USE AFTER STANDARD EXCEPTION PROCEDURE ON INPUT. 000007 END DECLARATIVES. 000008 END PROGRAM C1259.
C1259.cob 5: JMN1259I-W A paragraph-name is specified immediately after a DECLARATIVES. The paragraph-name is used as the section-name.
JMN1260I-W
Example
[C1260.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1260. 000003 PROCEDURE DIVISION. 000004 DECLARATIVES. 000005 SAMPLE SECTION. 000006 USE AFTER STANDARD EXCEPTION PROCEDURE ON INPUT. 000007 USE1. 000008 USE AFTER STANDARD EXCEPTION PROCEDURE ON OUTPUT. 000009 END DECLARATIVES. 000010 END PROGRAM C1260.
C1260.cob 7: JMN1260I-W A section name must be specified immediately in front of the USE statement. The paragraph-name is used as the section-name.
JMN1261I-W
Example
[C1261.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1261. 000003 PROCEDURE DIVISION. 000004 DECLARATIVES. 000005 SAMPLE SECTION. 000006 USE AFTER STANDARD EXCEPTION PROCEDURE ON INPUT. 000007 USE AFTER STANDARD EXCEPTION PROCEDURE ON OUTPUT. 000008 END DECLARATIVES. 000009 END PROGRAM C1261.
C1261.cob 7: JMN1261I-W A section-header is required immediately in front of a USE statement.
JMN1265I-S
Parameter explanation
@1@ : alphabet-name
Example
[C1265.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1265. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 OBJECT-COMPUTER. OC1 PROGRAM COLLATING SEQUENCE IS HUGO1. 000006 SPECIAL-NAMES. 000007 ALPHABET HUGO1 IS CODE-1. 000008 END PROGRAM C1265.
C1265.cob 5: JMN1265I-S The alphabet-name 'HUGO1' of the PROGRAM COLLATING SEQUENCE clause must correspond to STANDARD-1, STANDARD-2, NATIVE, or literal.
JMN1266I-S
Parameter explanation
@1@ : alphabet-name
Example
[C1266.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1266. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 OBJECT-COMPUTER. OC1 PROGRAM COLLATING SEQUENCE IS HUGO1. 000006 SPECIAL-NAMES. 000007 ALPHABET EBC IS EBCDIC. 000008 END PROGRAM C1266.
C1266.cob 5: JMN1266I-S The alphabet-name 'HUGO1' specified in the PROGRAM COLLATING SEQUENCE clause is undefined.
JMN1267I-S
Example
[C1267.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1267. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IDX-F ASSIGN TO IDXFILE 000007 ORGANIZATION IS INDEXED 000008 RECORD KEY IS MAINKEY 000009 ALTERNATE RECORD KEY IS KEY1 000010 ALTERNATE RECORD KEY IS KEY2 : 000133 ALTERNATE RECORD KEY IS KEY125 000134 ALTERNATE RECORD KEY IS KEY126. 000135 DATA DIVISION. 000136 FILE SECTION. 000137 FD IDX-F. 000138 01 IDX-R PIC X(130). 000139 01 MAINKEY PIC X. 000140 01 KEY1 PIC X. : 000268 01 KEYB125 PIC X. 000269 01 KEYB126 PIC X. 000270 END PROGRAM C1267.
C1267.cob 134: JMN1267I-S The ALTERNATE RECORD KEY must not exceed 125.
JMN1268I-S
Example
[C1268.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1268. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 WK-TBL. 000006 02 WK PIC X OCCURS 255 000007 DEPENDING ON LENGCNT OF. 000008 01 AREA1. 000009 02 LENGCNT PIC S9(4) BINARY. 000010 END PROGRAM C1268.
C1268.cob 7: JMN1268I-S A qualifier must follow the connective word OF or IN. OF or IN is ignored.
JMN1269I-S
Example
[C1269.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1269. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 DATA-1 PIC S9(4) SIGN LEADING CHARACTER. 000006 END PROGRAM C1269.
C1269.cob 5: JMN1269I-S SEPARATE must precede CHARACTER in the SIGN clause. SEPARATE is assumed.
JMN1271I-S
Example
[C1271.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1271. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 A-TBL. 000006 02 DATA-1 PIC X OCCURS 3 000007 INDEXED BY I0 I1 I2 I3 I4 I5 I6 I7 I8 I9 I10 000008 I11 I12 I13 I14 I15 I16 I17 I18 I19 I20 000009 I21 I22 I23 I24 I25 I26 I27 I28 I29 I30 000010 I31 I32 I33 I34 I35 I36 I37 I38 I39 I40 000011 I41 I42 I43 I44 I45 I46 I47 I48 I49 I50 000012 I51 I52 I53 I54 I55 I56 I57 I58 I59 I60. 000013 END PROGRAM C1271.
C1271.cob 12: JMN1271I-S The number of index-names specified for one item must not exceed 60. The first 60 index-names are used.
JMN1273I-S
Parameter explanation
@1@ : AQL,SQL
Example
[C1273.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1273 000003 DATA DIVISION. 000004 CONSTANT SECTION. 000005 EXEC SQL BEGIN DECLARE SECTION END-EXEC. 000006 EXEC SQL END DECLARE SECTION END-EXEC. 000007 END PROGRAM C1273.
C1273.cob 5: JMN1273I-S EXEC SQL cannot be specified in the CONSTANT SECTION.
JMN1275I-S
Parameter explanation
@1@ : AQLCA
Example
[C1275.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1275. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 EXEC AQL INCLUDE AQLCA END-EXEC. 000006 EXEC AQL INCLUDE AQLCA END-EXEC. 000007 PROCEDURE DIVISION. 000008 END PROGRAM C1275.
C1275.cob 6: JMN1275I-S The INCLUDE AQLCA statement is duplicated.
JMN1276I-S
Example
[C1276.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1276. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 EXEC AQL INCLUDE AQLCA. 000006 END PROGRAM C1276.
C1276.cob 5: JMN1276I-S The syntax of the EXEC AQL statement is invalid.
JMN1278I-S
Example
[C1278.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1278. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 EXEC SQL BEGIN DECLARE SECTION END-EXEC. 000006 01 HOSTV1. 000007 02 HNUM PIC S9(4) BINARY. 000008 02 HNAME PIC X(30). 000009 EXEC SQL END DECLARE SECTION END-EXEC. 000010 01 HOSTV2. 000011 02 HNUM PIC S9(8) BINARY. 000012 02 HNAME PIC X(30). 000013 EXEC SQL END DECLARE SECTION END-EXEC. 000014 END PROGRAM C1278.
C1278.cob 13: JMN1278I-S An END DECLARE SECTION is specified, but no BEGIN DECLARE SECTION is specified.
JMN1279I-S
Example
[C1279.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1279. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 EXEC AQL BEGIN DECLARE SECTION END-EXEC. 000006 01 HOSTV1. 000007 02 HNUM PIC S9(4) BINARY. 000008 02 HNAME PIC X(30). 000009 EXEC AQL END DECLARE SECTION END-EXEC. 000010 EXEC AQL END DECLARE SECTION END-EXEC. 000011 END PROGRAM C1279.
C1279.cob 10: JMN1279I-S The END DECLARE SECTION statement is duplicated.
JMN1280I-S
Example
[C1280.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1280. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 EXEC SQL BEGIN DECLARE END-EXEC. 000006 01 HOSTV1. 000007 02 HNUM PIC S9(4) BINARY. 000008 02 HNAME PIC X(30). 000009 EXEC SQL END DECLARE SECTION END-EXEC. 000010 END PROGRAM C1280.
C1280.cob 5: JMN1280I-S The syntax of the BEGIN DECLARE SECTION statement is invalid.
JMN1281I-S
Example
[C1281.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1281. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 EXEC SQL BEGIN DECLARE SECTION END-EXEC. 000006 01 HOSTV1. 000007 02 HNUM PIC S9(4) BINARY. 000008 02 HNAME PIC X(30). 000009 EXEC SQL END DECLARE END-EXEC. 000010 END PROGRAM C1281.
C1281.cob 9: JMN1281I-S The syntax of the END DECLARE SECTION statement is invalid.
JMN1282I-S
Example
[C1282.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1282. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 MAINTBL. 000006 02 DATA-1 PIC X OCCURS 2147483648. 000007 END PROGRAM C1282.
C1282.cob 6: JMN1282I-S The integer in the OCCURS clause must not exceed 2147483647. 2147483647 is assumed.
JMN1284I-S
Example
[C1284.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1284. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 SELECT IN-F ASSIGN TO INFILE. 000006 DATA DIVISION. 000007 FILE SECTION. 000008 FD IN-F. 000009 01 IN-R PIC X(80). 000010 END PROGRAM C1284.
C1284.cob 5: JMN1284I-S The FILE-CONTROL paragraph is not specified. A FILE-CONTROL paragraph is assumed to be specified.
JMN1285I-S
Example
[C1285.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1285. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN TO INFILE. 000007 SELECT OUT-F ASSIGN TO OUTFILE. 000008 SAME IN-F OUT-F. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD IN-F. 000012 01 IN-R PIC X(80). 000013 FD OUT-F. 000014 01 OUT-R PIC X(80). 000015 END PROGRAM C1285.
C1285.cob 8: JMN1285I-S An I-O-CONTROL paragraph is not specified. an I-O-CONTROL paragraph is assumed to be specified.
JMN1286I-S
Example
[C1286.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1286. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 EXEC AQL INCLUDE AQLCA END-EXEC 000006 PROCEDURE DIVISION. 000007 END PROGRAM C1286.
C1286.cob 5: JMN1286I-S A period must end the 'EXEC AQL' statement included in the 'INCLUDE AQLCA' statement.
JMN1287I-S
Example
[C1287.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1287. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 ALPHABET 000007 HUGO1 IS NATIVE 000008 HUGO1 IS EBCDIC 000009 SYMBOLIC CHARACTERS 000010 A IS 1 IN HUGO1 000011 B IS 2 IN HUGO1. 000012 END PROGRAM C1287.
C1287.cob 9: JMN1287I-S The alphabet-name specified in the SYMBOLIC CHARACTERS clause is defined multiple times.
JMN1288I-S
Example
[C1288.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1288. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 OBJECT-COMPUTER. A 000006 PROGRAM COLLATING SEQUENCE IS HUGO1. 000007 SPECIAL-NAMES. 000008 ALPHABET 000009 HUGO1 IS NATIVE 000010 HUGO1 IS EBCDIC. 000011 END PROGRAM C1288.
C1288.cob 6: JMN1288I-S The alphabet-name specified in the PROGRAM COLLATING SEQUENCE clause is defined multiple times.
JMN1291I-S
Example
[C1291.cob] 000001 PROGRAM-ID. C1291. 000002 IDENTIFICATION DIVISION. 000003 END PROGRAM C1291.
C1291.cob 3: JMN1291I-S A program-name paragraph must be specified in the IDENTIFICATION DIVISION.
JMN1292I-S
Parameter explanation
@1@ : PROGRAM
Example
[C1292.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1292. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 PROCEDURE DIVISION. 000006 PROGRAM-ID. 1292. 000007 END PROGRAM I1292. 000008 END PROGRAM C1292.
C1292.cob 6: JMN1292I-S An invalid character-string is specified as the program-name, or the program-name is missing.
Explanation
Please follow the rule of the user-defined word about the program-name.
JMN1298I-S
Parameter explanation
@1@ : DEPENDING ON,KEY IS,INDEXED BY
Example
[C1298.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1298. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 TBL1. 000006 02 DATA-1 PIC X OCCURS 2 ASCENDING KEY "C1298". 000007 END PROGRAM C1298.
C1298.cob 6: JMN1298I-S The syntax of the KEY IS phrase in the OCCURS clause is invalid. The phrases following this phrase in the OCCURS clause are ignored.
JMN1299I-S
Example
[C1299.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1299. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 EXEC AQL BEGIN DECLARE SECTION END-EXEC. 000006 EXEC AQL INCLUDE AQLCA END-EXEC. 000007 EXEC AQL END DECLARE SECTION END-EXEC. 000008 END PROGRAM C1299.
C1299.cob 6: JMN1299I-S An INCLUDE AQLCA statement cannot be specified in an AQL VARIABLE DECLARE SECTION.
JMN1301I-S
Example
[C1301.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1301. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 WK-TBL OCCURS 2. 000006 02 DATA1 PIC 9. 000007 END PROGRAM C1301.
C1301.cob 5: JMN1301I-S An OCCURS clause cannot be specified for a level 01 or level 77 item.
JMN1302I-S
Example
[C1302.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1302. 000003 DATA DIVISION. 000004 CONSTANT SECTION. 000005 01 CONST1 PIC 9(2) VALUE 10 EXTERNAL. 000006 END PROGRAM C1302.
C1302.cob 5: JMN1302I-S An EXTERNAL clause can be specified only for a file description (FD) entry in a FILE SECTION, or an 01 level item in a WORKING-STORAGE SECTION.
Explanation
Example when EXTERNAL phrase is described in a file description entry:
OK
000090 DATA DIVISION. 000100 FILE SECTION. 000110 FD MSGFILE IS EXTERNAL. 000120 01 INFDAT. 000130 02 INFNUM PIC S9(8) BINARY. 000140 02 INFMSG PIC X(50).
NG
000090 DATA DIVISION. 000100 FILE SECTION. 000110 FD MSGFILE 000120 01 INFDAT IS EXTERNAL. 000130 02 INFNUM PIC S9(8) BINARY. 000140 02 INFMSG PIC X(50).
JMN1303I-S
Example
[C1303.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1303. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 MOJI PIC X(5) VALUE "ABCDE". 000006 01 REMOJI REDEFINES MOJI EXTERNAL. 000007 02 DATA1 PIC X. 000008 END PROGRAM C1303.
C1303.cob 6: JMN1303I-S The EXTERNAL clause and the REDEFINES clause cannot be specified for the same data item. The REDEFINES clause is ignored.
JMN1304I-S
Example
[C1304.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1304. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 P1 POINTER. 000006 01 WK-TBL. 000007 02 DATA-2 PIC X(5) GLOBAL. 000008 END PROGRAM C1304.
C1304.cob 7: JMN1304I-S The GLOBAL clause can be specified only for a level 01 item in a FILE SECTION, a WORKING-STORAGE SECTION, a CONSTANT SECTION, or a BASED-STORAGE SECTION.
JMN1305I-S
Example
[C1305.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1305. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT INFILE. 000007 END PROGRAM C1305.
C1305.cob 6: JMN1305I-S The file control entry requires an ASSIGN clause.
JMN1309I-S
Example
[C1309.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1309. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT INFILE ASSIGN TO SYS1 000007 ACCESS MODE IS DYNAMIC. 000008 DATA DIVISION. 000009 FILE SECTION. 000010 FD INFILE. 000011 01 INREC. 000012 02 KEY1 PIC X(80). 000013 END PROGRAM C1309.
C1309.cob 7: JMN1309I-S For a sequential file, SEQUENTIAL must be specified in the ACCESS MODE clause. SEQUENTIAL is assumed.
JMN1310I-S
Example
[C1310.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1310. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT SQFILE1 ASSIGN TO SYS014-DA-I-OUTDATA 000007 RECORD KEY IS SQFRKEY 000008 NOMINAL KEY IS SQFNKEY 000009 ACCESS MODE IS DYNAMIC 000010 . 000011 DATA DIVISION. 000012 FILE SECTION. 000013 FD SQFILE1. 000014 01 SQF1REC. 000015 02 SQFRKEY PIC X. 000016 02 SQFID001 PIC X(256). 000017 02 SQFDAT PIC X(30). 000018 WORKING-STORAGE SECTION. 000019 01 SQFNKEY PIC X. 000020 END PROGRAM C1310.
C1310.cob 9: JMN1310I-S DYNAMIC cannot be specified in the ACCESS MODE clause for a direct organization file, relative organization file, or indexed organization file. RANDOM is assumed.
JMN1312I-S
Example
[C1312.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1312. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN S1-VS-NAME 000007 ORGANIZATION RELATIVE 000008 RESERVE NO ALTERNATE 000009 . 000010 DATA DIVISION. 000011 FILE SECTION. 000012 FD IN-F. 000013 01 IN-R PIC X(80). 000014 END PROGRAM C1312.
C1312.cob 8: JMN1312I-S A RESERVE clause with ALTERNATE or NO can be specified only for sequential, relative organization, indexed organization or direct organization files.
JMN1313I-S
Example
[C1313.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1313. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN I-SYS000 000007 ORGANIZATION INDEXED 000008 ACCESS MODE IS RANDOM 000009 RECORD KEY IS IN-R 000010 TRACK-AREA IS 8 000011 . 000012 DATA DIVISION. 000013 FILE SECTION. 000014 FD IN-F. 000015 01 IN-R PIC X(80). 000016 END PROGRAM C1313.
C1313.cob 10: JMN1313I-S A TRACK-AREA clause can only be specified for an indexed organization file of random access mode.
JMN1314I-S
Example
[C1314.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1314. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN SYS000 000007 ACCESS MODE IS SEQUENTIAL 000008 TRACK-LIMIT IS 1 000009 . 000010 DATA DIVISION. 000011 FILE SECTION. 000012 FD IN-F. 000013 01 IN-R PIC X(80). 000014 END PROGRAM C1314.
C1314.cob 8: JMN1314I-S The TRACK-LIMIT clause can be specified only for a direct organization file.
JMN1315I-S
Example
[C1315.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1315. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN SYS000-DA-S1-D-NAME 000007 ACCESS MODE IS SEQUENTIAL 000008 ACTUAL KEY IS K1 000009 FILE STATUS IS FSTAT 000010 . 000011 DATA DIVISION. 000012 FILE SECTION. 000013 FD IN-F. 000014 01 IN-R PIC X(80). 000015 WORKING-STORAGE SECTION. 000016 01 FSTAT PIC XX. 000017 01 K1 PIC X(10). 000018 END PROGRAM C1315.
C1315.cob 9: JMN1315I-S A FILE STATUS clause cannot be specified for a direct organization file, a relative organization file, or an indexed organization file.
JMN1317I-S
Example
[C1317.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1317. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN SYS000 000007 CONTROL AREA IS ABC 000008 . 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD IN-F. 000012 01 IN-R PIC X(80). 000013 WORKING-STORAGE SECTION. 000014 01 ABC PIC XX. 000015 END PROGRAM C1317.
C1317.cob 7: JMN1317I-S A CONTROL AREA clause can be specified only for a presentation file.
JMN1318I-S
Example
[C1318.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1318. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN SYS000 000007 NOMINAL KEY IS K1 000008 . 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD IN-F. 000012 01 IN-R PIC X(80). 000013 WORKING-STORAGE SECTION. 000014 01 K1 PIC XX. 000015 END PROGRAM C1318.
C1318.cob 7: JMN1318I-S The NOMINAL KEY clause can be specified only for an indexed organization file.
JMN1319I-S
Example
[C1319.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1319. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT INFILE ASSIGN TO SYS001 000007 RELATIVE KEY IS KEY1. 000008 DATA DIVISION. 000009 FILE SECTION. 000010 FD INFILE. 000011 01 INREC. 000012 02 KEY1 PIC 9(4). 000013 02 BDDAT PIC X(80). 000014 END PROGRAM C1319.
C1319.cob 7: JMN1319I-S The RELATIVE KEY clause can be specified only for a relative file.
JMN1320I-S
Example
[C1320.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1320. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT INFILE ASSIGN TO SYS001 000007 ORGANIZATION IS RELATIVE 000008 ACCESS MODE IS DYNAMIC. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD INFILE. 000012 01 INREC. 000013 02 KEY1 PIC X(80). 000014 END PROGRAM C1320.
C1320.cob 6: JMN1320I-S A RELATIVE KEY clause must be specified for a relative file of random or dynamic access mode.
JMN1321I-S
Example
[C1321.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1321. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN SYS000-DA-S1-I-NAME 000007 ACCESS MODE IS RANDOM 000008 RECORD KEY IS IN-R 000009 TRACK-AREA IS 32 000010 . 000011 DATA DIVISION. 000012 FILE SECTION. 000013 FD IN-F. 000014 01 IN-R PIC X(80). 000015 END PROGRAM C1321.
C1321.cob 6: JMN1321I-S A NOMINAL KEY clause must be specified for an indexed organization file of random access mode.
JMN1322I-S
Example
[C1322.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1322. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT INFILE ASSIGN TO SYS001 000007 ORGANIZATION IS SEQUENTIAL 000008 RECORD KEY IS KEY1. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD INFILE. 000012 01 INREC. 000013 02 KEY1 PIC X(80). 000014 END PROGRAM C1322.
C1322.cob 8: JMN1322I-S The RECORD KEY clause can be specified only for an indexed file.
JMN1323I-S
Example
[C1323.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1323. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT INFILE ASSIGN TO DISK 000007 ORGANIZATION IS INDEXED. 000008 DATA DIVISION. 000009 FILE SECTION. 000010 FD INFILE. 000011 01 INREC. 000012 02 KEY1 PIC X(80). 000013 END PROGRAM C1323.
C1323.cob 6: JMN1323I-S A RECORD KEY clause must be specified for an indexed file.
JMN1324I-S
Example
[C1324.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1324. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN SYS001 000007 ACTUAL KEY IS FKEY1 000008 . 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD IN-F. 000012 01 INFILED. 000013 02 FKEY1 PIC 9(4). 000014 02 IN-R PIC X(80). 000015 END PROGRAM C1324.
C1324.cob 7: JMN1324I-S The ACTUAL KEY clause can be specified only for a direct organization file.
JMN1325I-S
Example
[C1325.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1325. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN D-SYS001 000007 ACCESS MODE IS RANDOM 000008 TRACK-LIMIT IS 100 000009 . 000010 DATA DIVISION. 000011 FILE SECTION. 000012 FD IN-F. 000013 01 IN-R PIC X(80). 000014 END PROGRAM C1325.
C1325.cob 6: JMN1325I-S An ACTUAL KEY clause must be specified for a direct file of random access mode.
JMN1326I-S
Example
[C1326.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1326. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN SYS000 000007 RECORD KEY IS FNO 000008 ALTERNATE RECORD KEY IS FGPNO 000009 . 000010 DATA DIVISION. 000011 FILE SECTION. 000012 FD IN-F. 000013 01 IN-R. 000014 02 FNO PIC 9(4). 000015 02 FGP PIC 9(4). 000016 02 FNAME PIC X(30). 000017 END PROGRAM C1326.
C1326.cob 8: JMN1326I-S The ALTERNATE RECORD KEY clause can be specified only for an indexed file.
JMN1327I-S
Example
[C1327.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1327. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN I-SYS000 000007 RECORD KEY IS FNO WITH DUPLICATES 000008 ORGANIZATION IS SEQUENTIAL 000009 WITH DUPLICATES 000010 . 000011 DATA DIVISION. 000012 FILE SECTION. 000013 FD IN-F. 000014 01 IN-R. 000015 02 FNO PIC 9(4). 000016 02 FNAME PIC X(30). 000017 END PROGRAM C1327.
C1327.cob 9: JMN1327I-S A DUPLICATES phrase in a RECORD KEY clause can be specified only for an indexed file.
JMN1329I-S
Example
[C1329.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1329. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 PIC X IS GLOBAL. 000006 01 PIC 9 IS EXTERNAL. 000007 01 FILLER PIC X IS GLOBAL. 000008 01 FILLER PIC 9 IS EXTERNAL. 000009 END PROGRAM C1329.
C1329.cob 5: JMN1329I-S An EXTERNAL clause or a GLOBAL clause cannot be specified for a filler item. The EXTERNAL clause or GLOBAL clause is ignored.
C1329.cob 6: JMN1329I-S An EXTERNAL clause or a GLOBAL clause cannot be specified for a filler item. The EXTERNAL clause or GLOBAL clause is ignored.
C1329.cob 7: JMN1329I-S An EXTERNAL clause or a GLOBAL clause cannot be specified for a filler item. The EXTERNAL clause or GLOBAL clause is ignored.
C1329.cob 8: JMN1329I-S An EXTERNAL clause or a GLOBAL clause cannot be specified for a filler item. The EXTERNAL clause or GLOBAL clause is ignored.
JMN1338I-I
Example
[C1338.cob] 000001 @OPTIONS CONF(74),LANGLVL(85) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C1338. 000004 ENVIRONMENT DIVISION. 000005 CONFIGURATION SECTION. 000006 SPECIAL-NAMES. 000007 CURRENCY SIGN IS "a". 000008 END PROGRAM C1338.
C1338.cob 7: JMN1338I-I (CONF)For the LANGLVL(74) option, lower-case 'a' through 'z' can be specified in the CURRENCY SIGN clause as a currency symbol. For the LANGLVL(68) option, lower-case 'a' through 'z' or special-character '/' or '=' can be specified in the CURRENCY SIGN clause as a currency symbol.
JMN1339I-I
Example
[C1339.cob] 000001 @OPTIONS CONF(68),LANGLVL(85) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C1339. 000004 ENVIRONMENT DIVISION. 000005 CONFIGURATION SECTION. 000006 DATA DIVISION. 000007 WORKING-STORAGE SECTION. 000008 01 DATA-1 PIC 9/9. 000009 END PROGRAM C1339.
C1339.cob 8: JMN1339I-I (CONF)For the LANGLVL(68) option, the editing character '/' is ignored.
JMN1340I-I
Example
[C1340.cob] 000001 @OPTIONS CONF(74,V4),LANGLVL(85) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C1340. 000004 ENVIRONMENT DIVISION. 000005 INPUT-OUTPUT SECTION. 000006 FILE-CONTROL. 000007 SELECT SORT-F ASSIGN TO SFILE. 000008 SELECT OUT-F ASSIGN TO OUTFILE. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD OUT-F. 000012 01 OUT-R PIC X(160). 000013 SD SORT-F. 000014 01 SORT-R. 000015 02 DATA-1 PIC X(80). 000016 02 KEY1 PIC 9. 000017 PROCEDURE DIVISION. 000018 SORT SORT-F ASCENDING KEY KEY1 000019 INPUT PROCEDURE A 000020 GIVING OUT-F. 000021 A. 000022 DISPLAY SORT-STATUS 000023 END PROGRAM C1340.
C1340.cob 22: JMN1340I-I (CONF)Special register SORT-STATUS is specified in the PROCEDURE DIVISION.
JMN1342I-I
Example
[C1342.cob] 000001 @OPTIONS CONF(74,V4),LANGLVL(85) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. 1342. 000004 END PROGRAM 1342.
C1342.cob 3: JMN1342I-I (CONF)The PROGRAM-ID paragraph is not specified, or an invalid program-name is specified. A 'NOPRGMID' program-name is assumed.
JMN1343I-I
Example
[C1343.cob] 000001 @OPTIONS CONF(74,V10),LANGLVL(85) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C1343. 000004 ENVIRONMENT DIVISION. 000005 CONFIGURATION SECTION. 000006 OBJECT-COMPUTER. OBJ1 000007 PROGRAM COLLATING SEQUENCE IS HUGO1. 000008 SPECIAL-NAMES. 000009 ALPHABET HUGO1 IS LOW-VALUE ALSO HIGH-VALUE. 000010 DATA DIVISION. 000011 WORKING-STORAGE SECTION. 000012 01 DATA-1 PIC 9(4). 000013 PROCEDURE DIVISION. 000014 IF DATA-1 = HIGH-VALUE THEN 000015 DISPLAY "HIGH-VALUE!" 000016 END-IF. 000017 END PROGRAM C1343.
C1343.cob 14: JMN1343I-I (CONF)An alphabet-name having a CONSTANT phrase with ALSO is specified in a PROGRAM COLLATING SEQUENCE clause and a figurative constant HIGH-VALUE or LOW-VALUE is referenced.
JMN1353I-S
Example
[C1353.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1353. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SOURCE-COMPUTER. 000006 S-COMP WITH DEBUG MODE. 000007 END PROGRAM C1353.
C1353.cob 6: JMN1353I-S The syntax of the WITH DEBUGGING MODE clause is invalid.
JMN1354I-W
Example
[C1354.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1354. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT MSGFILE ASSIGN TO I-INFILE 000007 ACCESS MODE IS RANDOM 000008 RECORD KEY IS INFNUM 000009 NOMINAL KEY IS WINF 000010 TRACK-AREA IS 9 000011 . 000012 DATA DIVISION. 000013 FILE SECTION. 000014 FD MSGFILE. 000015 01 INFDAT. 000016 02 INFNUM PIC S9(8) BINARY. 000017 02 INFMSG PIC X(50). 000018 WORKING-STORAGE SECTION. 000019 01 WINF PIC S9(8) BINARY. 000020 END PROGRAM C1354.
C1354.cob 10: JMN1354I-W The integer of the TRACK-AREA clause must be a multiple of 8. The integer is truncated to a multiple of 8.
JMN1355I-S
Example
[C1355.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1355. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 88 WK1 VALUE 0. 000006 01 WORK1 PIC 9. 000007 END PROGRAM C1355.
C1355.cob 5: JMN1355I-S A level 88 item must be specified after an item with level 01 to 49 or 77. The level 88 item is ignored.
JMN1356I-W
Parameter explanation
@1@ : invalid word
Example
[C1356.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1356 1122. 000003 END PROGRAM C1356.
C1356.cob 2: JMN1356I-W The invalid word '1122' is specified in the IDENTIFICATION DIVISION. The invalid word is ignored, and the compiler skips to the next paragraph or DIVISION.
JMN1357I-S
Example
[C1357.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1357. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 A1 PIC X. 000006 66 RENAMES A1. 000007 END PROGRAM C1357.
C1357.cob 6: JMN1357I-S The data-name must be specified immediately after level-number 66.
JMN1358I-W
Example
[C1358.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1358. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 A1 PIC X. 000006 01 B1 GLOBAL REDEFINES A1. 000007 END PROGRAM C1358.
C1358.cob 6: JMN1358I-W The REDEFINES clause must be the first clause in the data description entry. The REDEFINES clause is assumed to be valid.
JMN1359I-S
Parameter explanation
@1@ : invalid word
Example
[C1359.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1359. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 CURRENCY SIGN IS "A". 000007 END PROGRAM C1359.
C1359.cob 6: JMN1359I-S '"A"' cannot be specified as the currency symbol.
Explanation
The following characters must not be specified in literal-1 of the CURRENCY SIGN phrase:
Numeric characters: 0 to 9
Uppercase alphabetic characters: A B C D E G N P R S V X Z Lowercase alphabetic characters: a to z Space character
Special characters: * + - , . ; ( ) / = “
JMN1360I-S
Parameter explanation
@1@ : alphabet-name
Example
[C1360.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1360. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 ALPHABET ALP1 IS 1 THROUGH -1. 000007 END PROGRAM C1360.
C1360.cob 6: JMN1360I-S An unsigned integer, nonnumeric literal, or figurative constant must be specified in the THROUGH or ALSO phrase of an ALPHABET clause. The alphabet name 'ALP1' is ignored.
JMN1373I-S
Example
[C1373.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1373. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN SYS000. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 SD IN-F RECORDING MODE IS U. 000010 01 IN-R PIC X(80). 000011 END PROGRAM C1373.
C1373.cob 9: JMN1373I-S The record format 'U' cannot be specified for a sort-merge file.
JMN1376I-S
Parameter explanation
@1@ : level-number
@2@ : Invalid word
Example
[C1376.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1376. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 123 PIC 9. 000006 END PROGRAM C1376.
C1376.cob 5: JMN1376I-S An invalid word '123' is specified immediately after level number '01'. It is assumed that this data description has no name.
Explanation
Please follow the rule of the user-defined word about the data-name.
JMN1377I-S
Example
[C1377.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1377. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 WORK1. 000006 02 NAMEINF PIC 1(8). 000007 02 NAMELG PIC S9(4) BINARY. 000008 02 NAMESP PIC X(30). 000009 66 NAME-FIX RENAMES NAMEINF THRU NAMELG. 000010 02 WORK2 PIC 9. 000011 END PROGRAM C1377.
C1377.cob 10: JMN1377I-S A level item of 02 to 49 cannot be specified immediately after a 66 level item. A level item of 01 is assumed.
JMN1388I-W
Example
[C1388.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1388. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 SWITCH-0 IS ON STATUS IS SW1. 000007 END PROGRAM C1388.
C1388.cob 6: JMN1388I-W The mnemonic-name is missing after 'IS' in the FUNCTION-NAME clause. 'IS' is ignored.
JMN1390I-S
Example
[C1390.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1390. 000003 DATA DIVISION. 000004 BASED-STORAGE SECTION. 000005 01 BS-TBL. 000006 02 DATA-1 PIC X(5) BASED ON P1. 000007 END PROGRAM C1390.
C1390.cob 6: JMN1390I-S The BASED ON clause can be specified only for a level 01 or 77 item in the BASED-STORAGE SECTION.
JMN1391I-S
Example
[C1391.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1391. 000003 DATA DIVISION. 000004 BASED-STORAGE SECTION. 000005 01 BS-TBL. 000006 02 DATA-1 PIC X(5). 000007 02 DATA-2 PIC X(3). 000008 01 RE-TBL REDEFINES BS-TBL BASED ON P1. 000009 02 REDATA-1 PIC X(4). 000010 02 REDATA-2 PIC X(4). 000011 END PROGRAM C1391.
C1391.cob 8: JMN1391I-S The REDEFINES clause and the BASED ON clause cannot be specified for the same data item. The BASED ON clause is ignored.
JMN1393I-S
Example
[C1393.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1393. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 SYMBOLIC CONSTANT 000007 VALUES IS 10. 000008 END PROGRAM C1393.
C1393.cob 6: JMN1393I-S The syntax of the SYMBOLIC CONSTANT clause is invalid.
Explanation
Please follow the rule of the user-defined word about the symbolic-constant.
JMN1394I-S
Example
[C1394.cob] 000001 @OPTIONS NOSD 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C1394. 000004 ENVIRONMENT DIVISION. 000005 CONFIGURATION SECTION. 000006 SPECIAL-NAMES. 000007 SYMBOLIC CONSTANT 000008 CON1 IS CON2 000009 . 000010 END PROGRAM C1394.
C1394.cob 8: JMN1394I-S The literal in the SYMBOLIC CONSTANT clause must be a numeric literal, a nonnumeric literal, a national literal, a Boolean literal, or a hexadecimal nonnumeric literal.
JMN1395I-S
Parameter explanation
@1@ : name of symbolic constant
Example
[C1395.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1395. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 SYMBOLIC CONSTANT 000007 CON1 IS 1 000008 CON2 IS 2 000009 CON1 IS 3. 000010 DATA DIVISION. 000011 WORKING-STORAGE SECTION. 000012 01 DATA-1 PIC 9 VALUE CON1. 000013 END PROGRAM C1395.
C1395.cob 12: JMN1395I-S The symbolic constant 'CON1' is not unique.
JMN1396I-S
Parameter explanation
@1@ : name of symbolic constant
@2@ : Clause for which symbolic constant can be specified
Example
[C1396.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1396. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 SYMBOLIC CONSTANT 000007 CON1 IS "MAX". 000008 DATA DIVISION. 000009 WORKING-STORAGE SECTION. 000010 01 WK-TBL. 000011 02 ITEM1 PIC X OCCURS CON1. 000012 END PROGRAM C1396.
C1396.cob 11: JMN1396I-S The symbolic constant 'CON1' cannot be specified in the 'OCCURS' clause.
JMN1397I-S
Example
[C1397.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1397. 000003 DATA DIVISION. 000004 BASED-STORAGE SECTION. 000005 01 WK-TBL. 000006 02 ITEM1 IS GLOBAL. 000007 03 ITEM2 PIC 9. 000008 END PROGRAM C1397.
C1397.cob 6: JMN1397I-S The GLOBAL clause can be specified only for a level 01 item in the BASED-STORAGE SECTION, FILE SECTION, WORKING-STORAGE SECTION, CONSTANT SECTION, or LINKAGE SECTION.
JMN1401I-S
Parameter explanation
@1@ : Maximum number of digits allowed in the PICTURE character-string.
Example
[C1401.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1401. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC S9(19). 000007 01 B PIC *(19). 000008 01 C PIC 9(10)P(9). 000009 END PROGRAM C1401.
C1401.cob 6: JMN1401I-S The PICTURE character-string must be 1 through 18 digit positions. PICTURE 9 is assumed.
C1401.cob 7: JMN1401I-S The PICTURE character-string must be 1 through 18 digit positions. PICTURE 9 is assumed.
C1401.cob 8: JMN1401I-S The PICTURE character-string must be 1 through 18 digit positions. PICTURE 9 is assumed.
JMN1402I-S
Example
[C1402.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1402. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC SS9. 000007 01 B PIC V9V. 000008 01 C PIC 9..9. 000009 PROCEDURE DIVISION. 000010 STOP RUN.
C1402.cob 6: JMN1402I-S The symbols S, V, '.', CR, and DB can appear only once in the PICTURE character-string. PICTURE 9 is assumed.
C1402.cob 7: JMN1402I-S The symbols S, V, '.', CR, and DB can appear only once in the PICTURE character-string. PICTURE 9 is assumed.
C1402.cob 8: JMN1402I-S The symbols S, V, '.', CR, and DB can appear only once in the PICTURE character-string. PICTURE 9 is assumed.
JMN1404I-S
Example
[C1404.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1404. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC 9S. 000007 01 B PIC 0S9. 000008 01 C PIC VS9. 000009 01 D PIC PS9. 000010 PROCEDURE DIVISION. 000011 STOP RUN.
C1404.cob 6: JMN1404I-S The symbol 'S' must appear as the leftmost character in the PICTURE character-string. PICTURE 9 is assumed.
C1404.cob 7: JMN1404I-S The symbol 'S' must appear as the leftmost character in the PICTURE character-string. PICTURE 9 is assumed.
C1404.cob 8: JMN1404I-S The symbol 'S' must appear as the leftmost character in the PICTURE character-string. PICTURE 9 is assumed.
C1404.cob 9: JMN1404I-S The symbol 'S' must appear as the leftmost character in the PICTURE character-string. PICTURE 9 is assumed.
JMN1405I-S
Example
[C1405.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1405. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC 9PB. 000007 01 B PIC BP9. 000008 01 C PIC PV9. 000009 01 D PIC P9V. 000010 01 E PIC ++P9. 000011 01 F PIC P9P. 000012 PROCEDURE DIVISION. 000013 STOP RUN.
C1405.cob 6: JMN1405I-S 'P' is specified at an invalid position in the PICTURE character-string. PICTURE 9 is assumed.
C1405.cob 7: JMN1405I-S 'P' is specified at an invalid position in the PICTURE character-string. PICTURE 9 is assumed.
C1405.cob 8: JMN1405I-S 'P' is specified at an invalid position in the PICTURE character-string. PICTURE 9 is assumed.
C1405.cob 9: JMN1405I-S 'P' is specified at an invalid position in the PICTURE character-string. PICTURE 9 is assumed.
C1405.cob 10: JMN1405I-S 'P' is specified at an invalid position in the PICTURE character-string. PICTURE 9 is assumed.
C1405.cob 11: JMN1405I-S 'P' is specified at an invalid position in the PICTURE character-string. PICTURE 9 is assumed.
Explanation
A "P" may appear in the leftmost or rightmost digit position of a picture clause.
JMN1411I-S
Example
[C1411.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1411. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC ++Z. 000007 01 B PIC \\Z. 000008 01 C PIC *--. 000009 01 D PIC *Z. 000010 01 E PIC ++--. 000011 01 F PIC --\\. 000012 01 G PIC \\++. 000013 PROCEDURE DIVISION. 000014 STOP RUN.
C1411.cob 6: JMN1411I-S The symbols '+', '-', '*', 'Z', and the currency symbol, when used as floating replacement characters, are mutually exclusive in a PICTURE character-string. PICTURE 9 is assumed.
C1411.cob 7: JMN1411I-S The symbols '+', '-', '*', 'Z', and the currency symbol, when used as floating replacement characters, are mutually exclusive in a PICTURE character-string. PICTURE 9 is assumed.
C1411.cob 8: JMN1411I-S The symbols '+', '-', '*', 'Z', and the currency symbol, when used as floating replacement characters, are mutually exclusive in a PICTURE character-string. PICTURE 9 is assumed.
C1411.cob 9: JMN1411I-S The symbols '+', '-', '*', 'Z', and the currency symbol, when used as floating replacement characters, are mutually exclusive in a PICTURE character-string. PICTURE 9 is assumed.
C1411.cob 10: JMN1411I-S The symbols '+', '-', '*', 'Z', and the currency symbol, when used as floating replacement characters, are mutually exclusive in a PICTURE character-string. PICTURE 9 is assumed.
C1411.cob 11: JMN1411I-S The symbols '+', '-', '*', 'Z', and the currency symbol, when used as floating replacement characters, are mutually exclusive in a PICTURE character-string. PICTURE 9 is assumed.
C1411.cob 12: JMN1411I-S The symbols '+', '-', '*', 'Z', and the currency symbol, when used as floating replacement characters, are mutually exclusive in a PICTURE character-string. PICTURE 9 is assumed.
JMN1412I-S
Example
[C1412.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1412. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC 9Z. 000007 01 B PIC 9++. 000008 01 C PIC 9\\. 000009 PROCEDURE DIVISION. 000010 STOP RUN.
C1412.cob 6: JMN1412I-S A floating insertion character or a zero suppression character cannot be preceded by a '9' in the PICTURE character-string. PICTURE 9 is assumed.
C1412.cob 7: JMN1412I-S A floating insertion character or a zero suppression character cannot be preceded by a '9' in the PICTURE character-string. PICTURE 9 is assumed.
C1412.cob 8: JMN1412I-S A floating insertion character or a zero suppression character cannot be preceded by a '9' in the PICTURE character-string. PICTURE 9 is assumed.
JMN1413I-S
Example
[C1413.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1413. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC *.*9. 000007 01 B PIC +V+9. 000008 01 C PIC .\\9. 000009 PROCEDURE DIVISION. 000010 STOP RUN.
C1413.cob 6: JMN1413I-S Only one kind of character can be used to specify digit positions to the right of the decimal point in a PICTURE character-string. PICTURE 9 is assumed.
C1413.cob 7: JMN1413I-S Only one kind of character can be used to specify digit positions to the right of the decimal point in a PICTURE character-string. PICTURE 9 is assumed.
C1413.cob 8: JMN1413I-S Only one kind of character can be used to specify digit positions to the right of the decimal point in a PICTURE character-string. PICTURE 9 is assumed.
JMN1414I-S
Example
[C1414.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1414. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC +9CR. 000007 01 B PIC --DB. 000008 PROCEDURE DIVISION. 000009 STOP RUN.
C1414.cob 6: JMN1414I-S The symbols '+', '-', 'CR', and 'DB' are mutually exclusive in a PICTURE character-string. PICTURE 9 is assumed.
C1414.cob 7: JMN1414I-S The symbols '+', '-', 'CR', and 'DB' are mutually exclusive in a PICTURE character-string. PICTURE 9 is assumed.
JMN1416I-S
Example
[C1416.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1416. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC 9V.9. 000007 01 B PIC 9.V9. 000008 01 C PIC .P9. 000009 PROCEDURE DIVISION. 000010 STOP RUN.
C1416.cob 6: JMN1416I-S A decimal point cannot be specified with a 'V' or 'P' in a PICTURE character-string. PICTURE 9 is assumed.
C1416.cob 7: JMN1416I-S A decimal point cannot be specified with a 'V' or 'P' in a PICTURE character-string. PICTURE 9 is assumed.
C1416.cob 8: JMN1416I-S A decimal point cannot be specified with a 'V' or 'P' in a PICTURE character-string. PICTURE 9 is assumed.
JMN1418I-S
Example
[C1418.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1418. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC /(150)9(15). 000007 PROCEDURE DIVISION. 000008 STOP RUN.
C1418.cob 6: JMN1418I-S The length of a numeric edited item must not exceed 160 bytes. PICTURE 9 is assumed.
JMN1421I-S
Example
[C1421.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1421. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC 9\. 000007 01 B PIC \+9. 000008 01 C PIC B\9. 000009 01 D PIC V\9. 000010 01 E PIC 9+P. 000011 01 F PIC 9+B. 000012 01 G PIC ++9+. 000013 01 H PIC \\9\. 000014 01 I PIC +9+. 000015 PROCEDURE DIVISION. 000016 STOP RUN.
C1421.cob 6: JMN1421I-S A fixed insertion character '+', '-' or currency symbol is specified at an invalid position in the PICTURE character-string. PICTURE 9 is assumed.
C1421.cob 7: JMN1421I-S A fixed insertion character '+', '-' or currency symbol is specified at an invalid position in the PICTURE character-string. PICTURE 9 is assumed.
C1421.cob 8: JMN1421I-S A fixed insertion character '+', '-' or currency symbol is specified at an invalid position in the PICTURE character-string. PICTURE 9 is assumed.
C1421.cob 9: JMN1421I-S A fixed insertion character '+', '-' or currency symbol is specified at an invalid position in the PICTURE character-string. PICTURE 9 is assumed.
C1421.cob 10: JMN1421I-S A fixed insertion character '+', '-' or currency symbol is specified at an invalid position in the PICTURE character-string. PICTURE 9 is assumed.
C1421.cob 11: JMN1421I-S A fixed insertion character '+', '-' or currency symbol is specified at an invalid position in the PICTURE character-string. PICTURE 9 is assumed.
C1421.cob 12: JMN1421I-S A fixed insertion character '+', '-' or currency symbol is specified at an invalid position in the PICTURE character-string. PICTURE 9 is assumed.
C1421.cob 13: JMN1421I-S A fixed insertion character '+', '-' or currency symbol is specified at an invalid position in the PICTURE character-string. PICTURE 9 is assumed.
C1421.cob 14: JMN1421I-S A fixed insertion character '+', '-' or currency symbol is specified at an invalid position in the PICTURE character-string. PICTURE 9 is assumed.
JMN1423I-S
Example
[C1423.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1423. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC +9.9(20)E+99. 000007 PROCEDURE DIVISION. 000008 STOP RUN.
C1423.cob 6: JMN1423I-S The number of digits in the mantissa must be from 1 to 16 when specifying the PICTURE character-string for an external floating-point item. PICTURE +9.E+99 is assumed.
JMN1424I-W
Example
[C1424.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1424. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC 9.9E+99. 000007 01 B PIC +9.9E99. 000008 PROCEDURE DIVISION. 000009 STOP RUN.
C1424.cob 6: JMN1424I-W A sign must be specified for both the mantissa and exponent in the PICTURE character-string for an external floating-point item. A plus sign '+' is assumed.
C1424.cob 7: JMN1424I-W A sign must be specified for both the mantissa and exponent in the PICTURE character-string for an external floating-point item. A plus sign '+' is assumed.
JMN1425I-S
Example
[C1425.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1425. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC +9.9EE+99. 000007 PROCEDURE DIVISION. 000008 STOP RUN.
C1425.cob 6: JMN1425I-S Only one 'E' can be specified in a PICTURE character-string. PICTURE +9.E+99 is assumed.
JMN1426I-W
Example
[C1426.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1426. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC +9.9E+9. 000007 PROCEDURE DIVISION. 000008 STOP RUN.
C1426.cob 6: JMN1426I-W 2 digit positions must be specified for the exponent in a PICTURE character-string of an external floating-point item. 2 digits are assumed.
JMN1427I-W
Example
[C1427.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1427. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC +99E+99. 000007 PROCEDURE DIVISION. 000008 STOP RUN.
C1427.cob 6: JMN1427I-W A 'V' or a decimal point must be specified for the mantissa in a PICTURE character-string of an external floating-point item. A 'V' is assumed after the last digit of the mantissa.
JMN1428I-S
Example
[C1428.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1428. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC 9.9+E+99. 000007 01 B PIC +9.9E+ZZ. 000008 PROCEDURE DIVISION. 000009 STOP RUN.
C1428.cob 6: JMN1428I-S The PICTURE character-string of the external floating-point item is invalid. PICTURE +9.E+99 is assumed.
C1428.cob 7: JMN1428I-S The PICTURE character-string of the external floating-point item is invalid. PICTURE +9.E+99 is assumed.
JMN1434I-S
Example
[C1434.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1434. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC S9.9. 000007 01 B PIC S9,999. 000008 01 C PIC S***. 000009 01 D PIC S\9. 000010 01 E PIC A9,9. 000011 01 F PIC N9. 000012 01 G PIC NB/N. 000013 01 H PIC 1B1. 000014 01 I PIC S9V9E+99. 000015 PROCEDURE DIVISION. 000016 STOP RUN.
C1434.cob 6: JMN1434I-S An invalid combination is specified in the PICTURE character-string. PICTURE 9 is assumed.
C1434.cob 7: JMN1434I-S An invalid combination is specified in the PICTURE character-string. PICTURE 9 is assumed.
C1434.cob 8: JMN1434I-S An invalid combination is specified in the PICTURE character-string. PICTURE 9 is assumed.
C1434.cob 9: JMN1434I-S An invalid combination is specified in the PICTURE character-string. PICTURE 9 is assumed.
C1434.cob 10: JMN1434I-S An invalid combination is specified in the PICTURE character-string. PICTURE 9 is assumed.
C1434.cob 11: JMN1434I-S An invalid combination is specified in the PICTURE character-string. PICTURE 9 is assumed.
C1434.cob 12: JMN1434I-S An invalid combination is specified in the PICTURE character-string. PICTURE 9 is assumed.
C1434.cob 13: JMN1434I-S An invalid combination is specified in the PICTURE character-string. PICTURE 9 is assumed.
C1434.cob 14: JMN1434I-S An invalid combination is specified in the PICTURE character-string. PICTURE 9 is assumed.
JMN1436I-S
Example
[C1436.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1436. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC B(12345678901)A. 000007 PROCEDURE DIVISION. 000008 STOP RUN.
C1436.cob 6: JMN1436I-S The number defining the number of occurrences of a character in a PICTURE character-string must not exceed 10 digits in length. The first 10 digits are used.
JMN1437I-S
Example
[C1437.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1437. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC N(2000000000). 000007 PROCEDURE DIVISION. 000008 STOP RUN.
C1437.cob 6: JMN1437I-S National items and national edited items must not exceed 1073741823 characters in length. 1073741823 characters is assumed.
JMN1438I-S
Example
[C1438.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1438. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC A(2000000000)X(1000000000). 000007 PROCEDURE DIVISION. 000008 STOP RUN.
C1438.cob 6: JMN1438I-S Elementary items must not exceed 2147483647 bytes in length. 2147483647 bytes is assumed.
JMN1439I-W
Example
[C1439.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1439. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC .++. 000007 01 B PIC V--. 000008 PROCEDURE DIVISION. 000009 STOP RUN.
C1439.cob 6: JMN1439I-W When all of the characters indicating numeric digit positions are floating insertion characters, at least one of them must be specified to the left of the decimal point in the PICTURE character-string of the numeric edited item.
C1439.cob 7: JMN1439I-W When all of the characters indicating numeric digit positions are floating insertion characters, at least one of them must be specified to the left of the decimal point in the PICTURE character-string of the numeric edited item.
JMN1450I-I
Example
[C1450.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1450. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 OBJECT-COMPUTER. OBJ1 000006 SEGMENT-LIMIT. 000007 END PROGRAM C1450.
C1450.cob 6: JMN1450I-I The SEGMENT-LIMIT clause and the segment-number in the section header are assumed to be a comment.
JMN1464I-S
Example
[C1464.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1464. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 EXEC AQL BEGIN DECLARE SECTION END-EXEC. 000006 01 HNO PIC S9(4) BINARY. 000007 01 HCTG PIC X(2). 000008 01 HNAME PIC X(50). 000009 END PROGRAM C1464.
C1464.cob 9: JMN1464I-S An END DECLARE SECTION statement must be specified at the end of the AQL VARIABLE DECLARE SECTION. An END DECLARE SECTION statement is assumed at the end of the section.
JMN1465I-S
Example
[C1465.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1465. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 EXEC AQL START AQL END-EXEC. 000006 END PROGRAM C1465.
C1465.cob 5: JMN1465I-S Only the following AQL statements can be specified for the WORKING-STORAGE SECTION and the LINKAGE SECTION: BEGIN DECLARE SECTION, END DECLARE SECTION, INCLUDE AQLCA.
JMN1466I-S
Example
[C1466.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1466. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 EXEC AQL BEGIN DECLARE SECTION END-EXEC. 000006 01 HNO PIC S9(4) BINARY. 000007 01 HCTG PIC X(2). 000008 01 HNAME PIC X(50). 000009 EXEC AQL BEGIN DECLARE SECTION END-EXEC. 000010 END PROGRAM C1466.
C1466.cob 9: JMN1466I-S The BEGIN DECLARE SECTION statement is duplicated in the section.
JMN1472I-S
Parameter explanation
@1@ : SQL,AQL
Example
[C1472.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1472. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 EXEC SQL BEGIN DECLARE SECTION END-EXEC. 000006 EXEC SQL END DECLARE SECTION END-EXEC. 000007 EXEC AQL BEGIN DECLARE SECTION END-EXEC. 000008 EXEC AQL END DECLARE SECTION END-EXEC.
C1472.cob 7: JMN1472I-S A SQL statement and an AQL statement must not be written in a separately compiled program. The AQL statement is ignored.
C1472.cob 8: JMN1472I-S A SQL statement and an AQL statement must not be written in a separately compiled program. The AQL statement is ignored.
JMN1475I-S
Example
[C1475.cob] 000001 @OPTIONS SRF(FIX,FIX) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C1475. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 あああああ 000007 PIC X. 000008 END PROGRAM C1475.
C1475.cob 6: JMN1475I-S A character not in the national character set is used in a national user-defined word. The user-defined word is ignored.
Explanation
The delimitation of the character-code of the national language user-defined word exceeds the end column position of one line of COBOL source program. The end column position of one line (maximum length) in each reference format is as follows.
Fixed format : 72 columns(The maximum length is 80 bytes. )
Variable format: 251 columns(The maximum length is 251 bytes. )
Free format : 251 columns(The maximum length is 251 bytes. )
JMN1476I-S
Example
[C1476.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1476. 000003 PROCEDURE DIVISION. 000004 ENTRY "C1476C1476C1476C1476C1476C1476C1476C1476C1476C1476C1476C1476C1476". 000005 END PROGRAM C1476.
C1476.cob 4: JMN1476I-S The program-name exceeds 30 characters. The first 30 characters are assumed to be program-name.
Explanation
The maximum length of the following literals is 60 bytes.
Program-name literal
literal-1 of ENTRY statement
JMN1477I-I
Parameter explanation
@1@ : Clause or function-name treated as comment
Example
[C1477.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1477. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN INFILE 000007 ORGANIZATION IS INDEXED 000008 RECORD KEY IS K1 PASSWORD IS P1. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD IN-F. 000012 01 IN-R PIC X(80). 000013 WORKING-STORAGE SECTION. 000014 01 K1 PIC X(4). 000015 01 P1 PIC X(4). 000016 END PROGRAM C1477.
C1477.cob 8: JMN1477I-I In this system, 'PASSWORD' is assumed to be a comment.
JMN1478I-W
Parameter explanation
@1@ : Clause treated as comment
Example
[C1478.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1478. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN TO INFILE 000007 TRACK-AREA IS 8. 000008 DATA DIVISION. 000009 FILE SECTION. 000010 FD IN-F. 000011 01 IN-R PIC X(80). 000012 END PROGRAM C1478.
C1478.cob 7: JMN1478I-W In this system, 'TRACK-AREA' is assumed to be a comment.
JMN1479I-S
Example
[C1479.cob] 000001 @OPTIONS 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C1479. 000004 ENVIRONMENT DIVISION. 000005 DATA DIVISION. 000006 PROCEDURE DIVISION. 000007 DISPLAY "AAAAAAAAAABBBBBBBBBBCCCCCCCCCCDDDDDDDDDDEEEEEEEEEE" 000008 & "FFFFFFFFFFGGGGGGGGGGHHHHHHHHHHIIIIIIIIIIJJJJJJJJJJ" 000009 & "KKKKKKKKKKLLLLLLLLLLMMMMMMMMMMNNNNNNNNNNOOOOOOOOOO" 000010 & "PPPPPPPPPPQQQQQQQQQQRRRRRRRRRRSSSSSSSSSSTTTTTTTTTT".
C1479.cob 10: JMN1479I-S The concatenation expression is too long. A literal is created using the first parts of the expression so that it does not exceed the maximum length.
Explanation
The maximum length of the literal concatenated by the concatenation expression is 160 bytes as well as other literals.
JMN1480I-S
Example
[C1480.cob] 000001 @OPTIONS 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C1480. 000004 ENVIRONMENT DIVISION. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 FFFFFFFFFF PIC X(10) VALUE IS "FFFFFFFFFF". 000008 PROCEDURE DIVISION. 000009 DISPLAY "AAAAAAAAAABBBBBBBBBBCCCCCCCCCCDDDDDDDDDDEEEEEEEEEE" 000010 & FFFFFFFFFF.
C1480.cob 10: JMN1480I-S A nonnumeric literal, national literal or figurative constant must be specified after '&'. A combination of literals in a concatenation expression is invalid. '&' is ignored.
JMN1481I-E
Parameter explanation
@1@ : Word with a function specific to the MSP or XSP system
Example
[C1481.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1481. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT MSGFILE ASSIGN TO I-INFILE 000007 ACCESS MODE IS RANDOM 000008 RECORD KEY IS INFNUM 000009 NOMINAL KEY IS WINF 000010 TRACK-AREA IS 256 CHARACTERS 000011 . 000012 DATA DIVISION. 000013 FILE SECTION. 000014 FD MSGFILE. 000015 01 INFDAT. 000016 02 INFNUM PIC S9(8) BINARY. 000017 02 INFMSG PIC X(50). 000018 WORKING-STORAGE SECTION. 000019 01 WINF PIC S9(8) BINARY. 000020 END PROGRAM C1481.
C1481.cob 6: JMN1481I-E 'indexed organization file' is a function specific to the MSP or XSP system.
C1481.cob 9: JMN1481I-E 'NOMINAL KEY' is a function specific to the MSP or XSP system.
JMN1482I-S
Example
[C1482.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1482. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 EXEC SQL BEGIN DECLARE SECTION END-EXEC. 000006 01 SQLSTATE PIC X(5). 000007 01 AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA. 000008 02 BBBBBBBBBBBBBBBBBBBBBBBBBBBBBB. 000009 03 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCC. 000010 04 DDDDDDDDDDDDDDDDDDDDDDDDDDDDDD. 000011 05 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEE. 000012 06 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF. 000013 07 GGGGGGGGGGGGGGGGGGGGGGGGGGGGGG. 000014 08 HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH. 000015 09 IIIIIIIIIIIIIIIIIIIIIIIIIIIIII PIC X(5). 000016 EXEC SQL END DECLARE SECTION END-EXEC. 000017 PROCEDURE DIVISION. 000018 EXEC SQL 000019 DECLARE CUR1 CURSOR FOR 000020 SELECT S1.TABLE 000021 END-EXEC. 000022 EXEC SQL 000023 FETCH CUR1 INTO 000024 :AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA. 000025- BBBBBBBBBBBBBBBBBBBBBBBBBBBBBB. 000026- CCCCCCCCCCCCCCCCCCCCCCCCCCCCCC. 000027- DDDDDDDDDDDDDDDDDDDDDDDDDDDDDD. 000028- EEEEEEEEEEEEEEEEEEEEEEEEEEEEEE. 000029- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF. 000030- GGGGGGGGGGGGGGGGGGGGGGGGGGGGGG. 000031- HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH. 000032- IIIIIIIIIIIIIIIIIIIIIIIIIIIIII 000033 END-EXEC.
C1482.cob 23: JMN1482I-S The length of the host identifier qualification in an alphanumeric character exceeds in embedded 250 characters. The first 250 characters are accepted.
JMN1486I-I
Example
[C1486.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1486. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 ITEM1 PIC X(4) VALUE "ABC ". 000006 END PROGRAM C1486.
C1486.cob 5: JMN1486I-I A tab is included in a literal. The tab is accepted as code.
Explanation
The compiler doesn't replace the tab in the literal at two or more spaces. The tab is treated as a code in one byte.
JMN1487I-S
Example
[C1487.cob] @OPTIONS SRF(FREE) IDENTIFICATION DIVISION. PROGRAM-ID. C1487. ENVIRONMENT DIVISION. DATA DIVISION. PROCEDURE DIVISION. DISPLAY "123456789ABCDEF"- 123456789ABCDEF". END PROGRAM C1487.
C1487.cob 7: JMN1487I-S When a literal is continued across lines, the first nonblank character of the continuation line must be a quotation mark, and the continued line must be terminated by a quotation mark followed by a hyphen.
JMN1488I-S
Example
[C1488.cob] @OPTIONS SRF(FREE) IDENTIFICATION DIVISION. PROGRAM-ID. C1488. ENVIRONMENT DIVISION. DATA DIVISION. PROCEDURE DIVISION. DISPLAY "MESSAGE "- ""- "DISPLAY". END PROGRAM C1488.
C1488.cob 7: JMN1488I-S When a literal is continued across lines, at least one character position in the content of the literal must be specified on the continued line and on each continuation line.
JMN1489I-S
Example
[C1489.cob] @OPTIONS SRF(FREE) IDENTIFICATION DIVISION. PROGRAM-ID. C1489. ENVIRONMENT DIVISION. DATA DIVISION. PROCEDURE DIVISION. DISPLAY "MESSAGE DISPLAY . END PROGRAM C1489.
C1489.cob 7: JMN1489I-S The ending quotation mark of the literal is missing. The characters to end of the program-text area are assumed to be the literal.
JMN1490I-S
Example
[P1490.cob] 000001 @OPTIONS ENCODE(UTF8) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. P1490. 000004 ENVIRONMENT DIVISION. 000005 DATA DIVISION. 000006 PROCEDURE DIVISION. 000007 DISPLAY NC"A" & NX"3044" 000008 . 000009 END PROGRAM P1490.
P1490.cob 7: When the compilation option ENCODE(UTF8,UTF16) or ENCODE(UTF8,UTF32) is specified, then in the concatenation expression, national hexadecimal, a nonnumeric literal cannot be defined. The concatenation expression will be disabled.
JMN1500I-S
Example
[C1500.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1500. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN INFILE. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD IN-F REPORT RPT-F. 000010 REPORT SECTION. 000011 RD RPT-F. 000012 01 RPT1 PIC X(10) TYPE REPORT. 000013 END PROGRAM C1500.
C1500.cob 12: JMN1500I-S In the TYPE clause, HEADING or FOOTING must be specified immediately after REPORT, PAGE, or CONTROL.
JMN1501I-S
Example
[C1501.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1501. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN INFILE. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD IN-F REPORT RPT-F. 000010 REPORT SECTION. 000011 RD RPT-F. 000012 01 HEAD01 TYPE IS RH. 000013 01 FOOT01 TYPE IS RF COLUMN NUMBER IS 0. 000014 END PROGRAM C1501.
C1501.cob 13: JMN1501I-S 0 cannot be specified as the integer in the COLUMN NUMBER clause. 1 is assumed.
JMN1502I-S
Example
[C1502.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1502. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN INFILE. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD IN-F REPORT RPT-F. 000010 REPORT SECTION. 000011 RD RPT-F. 000012 01 HEAD01 TYPE IS RH. 000013 01 FOOT01 TYPE IS RF COLUMN NUMBER IS 32768. 000014 END PROGRAM C1502.
C1502.cob 13: JMN1502I-S The integer in the COLUMN NUMBER clause must not exceed 32767. 32767 is assumed.
JMN1503I-S
Example
[C1503.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1503. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN INFILE. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD IN-F REPORT RPT-F. 000010 WORKING-STORAGE SECTION. 000011 01 A1 PIC X. 000012 01 A2 PIC X. 000013 01 A PIC 9. 000014 REPORT SECTION. 000015 RD RPT-F CONTROL IS A1 A2 A. 000016 01 HEAD01 TYPE IS RH. 000017 01 CONH01 TYPE IS CONTROL HEADING A1. 000018 01 CONF01 TYPE IS CONTROL FOOTING A2. 000019 02 DATA-1 PIC X(10) SUM A RESET. 000020 01 FOOT01 TYPE IS RF. 000021 END PROGRAM C1503.
C1503.cob 19: JMN1503I-S Data-name or FINAL must be specified for RESET in the SUM clause. RESET is ignored.
JMN1504I-S
Example
[C1504.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1504. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN INFILE. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD IN-F REPORT RPT-F. 000010 WORKING-STORAGE SECTION. 000011 01 A1 PIC X. 000012 01 A2 PIC X. 000013 01 A PIC 9. 000014 REPORT SECTION. 000015 RD RPT-F CONTROL IS A1 A2 A. 000016 01 HEAD01 TYPE IS RH. 000017 01 CONH01 TYPE IS CONTROL HEADING A1. 000018 01 CONF01 TYPE IS CONTROL FOOTING A2. 000019 02 DATA-1 PIC X(10) SUM A UPON. 000020 01 FOOT01 TYPE IS RF. 000021 END PROGRAM C1504.
C1504.cob 19: JMN1504I-S A data-name must be specified for UPON in the SUM clause. UPON is ignored.
JMN1505I-S
Example
[C1505.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1505. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN INFILE. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD IN-F REPORT RPT-F. 000010 WORKING-STORAGE SECTION. 000011 01 A1 PIC X. 000012 01 A2 PIC X. 000013 01 A PIC 9. 000014 REPORT SECTION. 000015 RD RPT-F CONTROL IS A1 A2 A. 000016 01 HEAD01 TYPE IS RH. 000017 01 CONH01 TYPE IS CONTROL HEADING A1. 000018 02 DATA-1 PIC X SOURCE IS PAGE-COUNTER OF. 000019 01 CONF01 TYPE IS CONTROL FOOTING A2. 000020 01 FOOT01 TYPE IS RF. 000021 END PROGRAM C1505.
C1505.cob 18: JMN1505I-S A report-name must be specified immediately after the connective word OF or IN of PAGE-COUNTER or LINE-COUNTER in a SOURCE clause. OF or IN is ignored.
JMN1506I-W
Example
[C1506.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1506. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN INFILE. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD IN-F REPORT RPT-F. 000010 WORKING-STORAGE SECTION. 000011 01 A1 PIC X. 000012 01 A2 PIC X. 000013 01 A PIC 9. 000014 REPORT SECTION. 000015 RD RPT-F CODE "ABC" CONTROL IS A1 A2 A. 000016 01 HEAD01 TYPE IS RH. 000017 01 CONH01 TYPE IS CONTROL HEADING A1. 000018 01 CONF01 TYPE IS CONTROL FOOTING A2. 000019 01 FOOT01 TYPE IS RF. 000020 END PROGRAM C1506.
C1506.cob 15: JMN1506I-W The nonnumeric literal in the CODE clause must be 2 characters. If the nonnumeric literal is 1 character, then the second byte is assumed to be blank. Otherwise, the first 2 characters are accepted.
JMN1507I-S
Example
[C1507.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1507. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN INFILE. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD IN-F REPORT RPT-F. 000010 WORKING-STORAGE SECTION. 000011 01 A1 PIC X. 000012 01 A2 PIC X. 000013 01 A PIC 9. 000014 REPORT SECTION. 000015 RD RPT-F PAGE LIMIT 1000 CONTROL IS A1 A2 A. 000016 01 HEAD01 TYPE IS RH. 000017 01 CONH01 TYPE IS CONTROL HEADING A1. 000018 01 CONF01 TYPE IS CONTROL FOOTING A2. 000019 01 FOOT01 TYPE IS RF. 000020 END PROGRAM C1507.
C1507.cob 15: JMN1507I-S The integer of the PAGE LIMIT clause must not exceed 999. 999 is assumed.
JMN1508I-S
Example
[C1508.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1508. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN INFILE. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD IN-F REPORT RPT-F. 000010 REPORT SECTION. 000011 RD RPT-F PAGE LIMIT 0. 000012 01 HEAD01 TYPE IS RH. 000013 01 FOOT01 TYPE IS RF. 000014 END PROGRAM C1508.
C1508.cob 11: JMN1508I-S 0 cannot be specified as an integer in the PAGE LIMIT clause. 999 is assumed.
JMN1509I-S
Example
[C1509.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1509. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN INFILE. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD IN-F REPORT RPT-F. 000010 REPORT SECTION. 000011 RD RPT-F PAGE LIMIT "A". 000012 01 HEAD01 TYPE IS RH. 000013 01 FOOT01 TYPE IS RF. 000014 END PROGRAM C1509.
C1509.cob 11: JMN1509I-S The syntax of the PAGE clause is invalid.
JMN1510I-S
Example
[C1510.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1510. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN INFILE. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD IN-F REPORT RPT-F. 000010 REPORT SECTION. 000011 RD RPT-F PAGE LIMIT 10 HEADING. 000012 01 HEAD01 TYPE IS RH. 000013 01 FOOT01 TYPE IS RF. 000014 END PROGRAM C1510.
C1510.cob 11: JMN1510I-S In the PAGE clause, an integer must be specified immediately after HEADING, FIRST DETAIL, LAST DETAIL, or FOOTING.
JMN1511I-S
Example
[C1511.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1511. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN INFILE. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD IN-F REPORT RPT-F. 000010 REPORT SECTION. 000011 RD RPT-F PAGE LIMIT 10 FIRST. 000012 01 HEAD01 TYPE IS RH. 000013 01 FOOT01 TYPE IS RF. 000014 END PROGRAM C1511.
C1511.cob 11: JMN1511I-S In the PAGE clause, DETAIL must be specified immediately after FIRST or LAST. The PAGE clause description after FIRST or LAST is ignored.
JMN1512I-S
Example
[C1512.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1512. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN INFILE. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD IN-F REPORT RPT-F. 000010 REPORT SECTION. 000011 RD RPT-F PAGE LIMIT 10 HEADING 1 000012 FIRST DETAIL 5 000013 LAST DETAIL 3 000014 FOOTING 10. 000015 01 HEAD01 TYPE IS RH. 000016 01 FOOT01 TYPE IS RF. 000017 END PROGRAM C1512.
C1512.cob 11: JMN1512I-S The integers in the PAGE clause must be in following order: HEADING, FIRST DETAIL, LAST DETAIL, FOOTING, PAGE LIMIT. Only the integer specified in PAGE LIMIT is assumed to be valid.
JMN1513I-S
Parameter explanation
@1@ : HEADING, FIRST DETAIL, LAST DETAIL, FOOTING
Example
[C1513.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1513. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN INFILE. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD IN-F REPORT RPT-F. 000010 REPORT SECTION. 000011 RD RPT-F PAGE LIMIT 10 HEADING 1000 000012 FOOTING 0. 000013 01 HEAD01 TYPE IS RH. 000014 01 FOOT01 TYPE IS RF. 000015 END PROGRAM C1513.
C1513.cob 11: JMN1513I-S The integer in the HEADING phrase must not exceed 999, and must not be 0.
C1513.cob 12: JMN1513I-S The integer in the FOOTING phrase must not exceed 999, and must not be 0.
JMN1514I-S
Parameter explanation
@1@ : HEADING, FIRST DETAIL, LAST DETAIL, FOOTING
Example
[C1514.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1514. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN INFILE. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD IN-F REPORT RPT-F. 000010 REPORT SECTION. 000011 RD RPT-F PAGE LIMIT 10 HEADING 1 000012 HEADING 5. 000013 01 HEAD01 TYPE IS RH. 000014 01 FOOT01 TYPE IS RF. 000015 END PROGRAM C1514.
C1514.cob 12: JMN1514I-S 'HEADING' is already specified in the PAGE clause.
JMN1515I-S
Example
[C1515.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1515. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN INFILE. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD IN-F REPORT RPT-F. 000010 REPORT SECTION. 000011 RD RPT-F PAGE LIMIT 10. 000012 01 HEAD01 TYPE IS RH LINE NUMBER PLUS "AB". 000013 01 FOOT01 TYPE IS RF. 000014 END PROGRAM C1515.
C1515.cob 12: JMN1515I-S The syntax of the LINE NUMBER clause is invalid.
JMN1516I-S
Parameter explanation
@1@ : LINE NUMBER, NEXT GROUP
Example
[C1516.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1516. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN INFILE. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD IN-F REPORT RPT-F. 000010 REPORT SECTION. 000011 RD RPT-F PAGE LIMIT 10. 000012 01 HEAD01 TYPE IS RH LINE NUMBER 1000 000013 NEXT GROUP 1000. 000014 01 FOOT01 TYPE IS RF. 000015 END PROGRAM C1516.
C1516.cob 12: JMN1516I-S The integer in the LINE NUMBER clause must not exceed 999. 999 is assumed.
C1516.cob 13: JMN1516I-S The integer in the NEXT GROUP clause must not exceed 999. 999 is assumed.
JMN1517I-S
Example
[C1517.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1517. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN INFILE. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD IN-F REPORT RPT-F. 000010 REPORT SECTION. 000011 RD RPT-F PAGE LIMIT 10. 000012 01 HEAD01 TYPE IS RH LINE NUMBER 1 ON. 000013 01 FOOT01 TYPE IS RF. 000014 END PROGRAM C1517.
C1517.cob 12: JMN1517I-S ON NEXT PAGE is invalid in the LINE NUMBER clause. ON NEXT PAGE is ignored.
JMN1518I-S
Example
[C1518.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1518. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN INFILE. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD IN-F REPORT RPT-F. 000010 REPORT SECTION. 000011 RD RPT-F PAGE LIMIT 10. 000012 01 HEAD01 TYPE IS RH LINE NUMBER 1 000013 NEXT GROUP 0. 000014 01 FOOT01 TYPE IS RF. 000015 END PROGRAM C1518.
C1518.cob 13: JMN1518I-S The integer 0 cannot be specified in the NEXT GROUP clause.
JMN1519I-S
Example
[C1519.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1519. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN INFILE. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD IN-F REPORT RPT-F. 000010 REPORT SECTION. 000011 RD RPT-F PAGE LIMIT 10. 000012 01 HEAD01 TYPE IS RH LINE NUMBER 1 000013 NEXT GROUP IS NEXT GROUP. 000014 01 FOOT01 TYPE IS RF. 000015 END PROGRAM C1519.
C1519.cob 13: JMN1519I-S The NEXT GROUP clause is already specified.
JMN1520I-S
Example
[C1520.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1520. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN INFILE. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD IN-F REPORT RPT-F. 000010 REPORT SECTION. 000011 RD RPT-F PAGE LIMIT 10. 000012 01 HEAD01 TYPE IS RH USAGE PACKED-DECIMAL. 000013 01 FOOT01 TYPE IS RF. 000014 END PROGRAM C1520.
C1520.cob 12: JMN1520I-S DISPLAY must be specified in the USAGE clause of the report group description entry. DISPLAY is assumed.
JMN1521I-S
JMN1522I-S
Parameter explanation
@1@ : TYPE, NEXT GROUP
Example
[C1522.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1522. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN INFILE. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD IN-F REPORT RPT-F. 000010 REPORT SECTION. 000011 RD RPT-F PAGE 15 HEADING 2 FIRST DETAIL 5 LAST DETAIL 8 FOOTING 10. 000012 01 TYPE RH. 000013 02 TYPE RH 000014 LINE 2 000015 COLUMN 3 000016 PIC X(15) 000017 VALUE "*COBOL SAMPLE*". 000018 END PROGRAM C1522.
C1522.cob 13: JMN1522I-S The TYPE clause can be specified only for a report group description entry of level-number 01.
JMN1523I-S
Example
[C1523.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1523. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN INFILE. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD IN-F REPORT RPT-F. 000010 REPORT SECTION. 000011 RD RPT-F PAGE 15 HEADING 2 FIRST DETAIL 5 LAST DETAIL 8 FOOTING 10. 000012 01 TYPE RH. 000013 02 LINE 2 000014 COLUMN 3 000015 PIC S9(4) SIGN IS LEADING 000016 VALUE 10. 000017 END PROGRAM C1523.
C1523.cob 13: JMN1523I-S SEPARATE CHARACTER must be specified in the SIGN clause.
JMN1524I-S
Example
[C1524.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1524. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN INFILE. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD IN-F REPORT RPT-F. 000010 REPORT SECTION. 000011 RD RPT-F PAGE 15 HEADING 2 FIRST DETAIL 5 LAST DETAIL 8 FOOTING 10. 000012 01 TYPE RH. 000013 02 LINE 2 000014 COLUMN 3 000015 PIC S9(4) 000016 VALUE 10 000017 BLANK WHEN ZERO. 000018 END PROGRAM C1524.
C1524.cob 13: JMN1524I-S The BLANK WHEN ZERO clause cannot be specified in a report group description entry with a VALUE clause.
JMN1525I-S
Example
[C1525.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1525. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN INFILE. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD IN-F REPORT RPT-F. 000010 WORKING-STORAGE SECTION. 000011 01 A1 PIC X. 000012 01 A2 PIC X. 000013 01 A PIC 9. 000014 REPORT SECTION. 000015 RD RPT-F CONTROL IS A1 A2 A. 000016 01 HEAD01 TYPE IS RH. 000017 01 CONH01 TYPE IS CONTROL HEADING A1. 000018 01 CONF01 TYPE IS CONTROL FOOTING A2. 000019 02 DATA-1 PIC X(10) SUM A VALUE 1. 000020 01 FOOT01 TYPE IS RF. 000021 END PROGRAM C1525.
C1525.cob 19: JMN1525I-S Only one of the clauses SUM, SOURCE, or VALUE can be specified in a report group description entry. The first clause in the entry is used.
JMN1526I-S
Example
[C1526.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1526. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN INFILE. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD IN-F REPORT RPT-F. 000010 REPORT SECTION. 000011 RD RPT-F PAGE 15 HEADING 2 FIRST DETAIL 5 LAST DETAIL 8 FOOTING 10. 000012 01 TYPE RH. 000013 02 LINE 2 000014 COLUMN 3 000015 PIC X(13) VALUE "COBOL SAMPLE" 000016 PRINTING POSITION IS 1. 000017 END PROGRAM C1526.
C1526.cob 16: JMN1526I-S Only one of the clauses COLUMN NUMBER or PRINTING POSITION can be specified in a report group description entry. The first clause in the entry is used.
C1526.cob 16: JMN1526I-S Only one of the clauses COLUMN NUMBER or PRINTING POSITION can be specified in a report group description entry. The first clause in the entry is used.
JMN1527I-S
Example
[C1527.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1527. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 DATA DIVISION. 000007 FILE SECTION. 000008 REPORT SECTION. 000009 RD. 000010 01 HEAD01 TYPE IS RH. 000011 01 FOOT01 TYPE IS RF. 000012 END PROGRAM C1527.
C1527.cob 9: JMN1527I-S The report-name is missing from the report description entry.
JMN1528I-S
Example
[C1528.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1528. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN INFILE. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD IN-F REPORT RPT-F. 000010 WORKING-STORAGE SECTION. 000011 REPORT SECTION. 000012 RD RPT-F EXTERNAL. 000013 01 HEAD01 TYPE IS RH. 000014 01 FOOT01 TYPE IS RF. 000015 END PROGRAM C1528.
C1528.cob 12: JMN1528I-S An EXTERNAL clause cannot be specified in a report description entry.
JMN1529I-S
Example
[C1529.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1529. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN INFILE. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD IN-F REPORT RPT-F. 000010 WORKING-STORAGE SECTION. 000011 REPORT SECTION. 000012 RD RPT-F. 000013 01 FILLER TYPE IS RH. 000014 01 FOOT01 TYPE IS RF. 000015 END PROGRAM C1529.
C1529.cob 13: JMN1529I-S FILLER cannot be specified in a report group description entry.
JMN1530I-S
Example
[C1530.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1530. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN INFILE. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD IN-F REPORT RPT-F. 000010 WORKING-STORAGE SECTION. 000011 REPORT SECTION. 000012 RD RPT-F. 000013 01 HEAD01 TYPE IS RH. 000014 78 DATA-1 PIC 9(4) VALUE 1. 000015 01 FOOT01 TYPE IS RF. 000016 END PROGRAM C1530.
C1530.cob 14: JMN1530I-S Level-number 66, 77, 78, and 88 cannot be specified in a report group description entry.
JMN1531I-S
Example
[C1531.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1531. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN INFILE. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD IN-F REPORT RPT-F. 000010 WORKING-STORAGE SECTION. 000011 REPORT SECTION. 000012 RD RPT-F. 000013 01 HEAD01 TYPE IS RH. 000014 02 LINE NUMBER IS PLUS 1. 000015 03 PIC 9(4) COLUMN NUMBER IS 1 VALUE 1. 000016 04 PIC X(5) COLUMN NUMBER IS 8 VALUE "A". 000017 01 FOOT01 TYPE IS RF. 000018 END PROGRAM C1531.
C1531.cob 16: JMN1531I-S The level-number of the report group description entry must be specified in the range of 3 levels. The correct level is assumed.
JMN1532I-S
Example
[C1532.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1532. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN INFILE. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD IN-F REPORT RPT-F LINAGE IS 1 LINES. 000010 REPORT SECTION. 000011 RD RPT-F. 000012 01 RPT1 TYPE IS RH. 000013 END PROGRAM C1532.
C1532.cob 9: JMN1532I-S The LINAGE clause cannot be specified in a file description entry with a REPORT clause.
JMN1533I-S
Example
[C1533.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1533. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN INFILE. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD IN-F REPORT RPT-F. 000010 WORKING-STORAGE SECTION. 000011 REPORT SECTION. 000012 RD RPT-F GLOBAL. 000013 01 HEAD01 TYPE IS RH. 000014 01 FOOT01 TYPE IS RF. 000015 END PROGRAM C1533.
C1533.cob 12: JMN1533I-S The GLOBAL clause cannot be specified in a report description entry.
JMN1534I-S
Example
[C1534.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1534. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN DISK 000007 ORGANIZATION SEQUENTIAL 000008 PADDING CHARACTER IS "AB". 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD IN-F. 000012 01 IN-R PIC X(80). 000013 END PROGRAM C1534.
C1534.cob 8: JMN1534I-S In the PADDING CHARACTER clause, the nonnumeric literal must be 1 character in length. A 1 character length is assumed.
JMN1535I-S
Parameter explanation
@1@ : PADDING, RECORD DELIMITER
Example
[C1535.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1535. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT RLFILE ASSIGN TO SYS006 000007 ORGANIZATION IS RELATIVE 000008 PADDING CHARACTER IS WPC. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD RLFILE. 000012 01 RLREC. 000013 02 PIC 9(4). 000014 02 PIC X(66). 000015 WORKING-STORAGE SECTION. 000016 01 WPC PIC X(1). 000017 PROCEDURE DIVISION. 000018 END PROGRAM C1535.
C1535.cob 8: JMN1535I-S The PADDING clause can be specified only for a sequential file.
JMN1538I-I
Parameter explanation
@1@ : MEMORY SIZE, RERUN, MULTPLE FILE TAPE, DATA RECODE, LABEL RECORD, VALUE OF
@2@ : ANSI85
Example
[C1538.cob] 000001 @OPTIONS CONF(OBS),LANGLVL(85) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C1538. 000004 ENVIRONMENT DIVISION. 000005 CONFIGURATION SECTION. 000006 OBJECT-COMPUTER. OBJ01 000007 MEMORY SIZE 256 WORDS. 000008 DATA DIVISION. 000009 PROCEDURE DIVISION. 000010 END PROGRAM C1538.
C1538.cob 7: JMN1538I-I (OBS)The 'MEMORY SIZE' clause is an obsolete element in ANSI85 COBOL.
JMN1539I-I
Parameter explanation
@1@ : AUTHOR, INSTALLATION, DATE-WRITTEN, DATE-COMPILED, SECURITY
@2@ : ANSI85
Example
[C1539.cob] 000001 @OPTIONS CONF(OBS),LANGLVL(85) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C1539. 000004 AUTHOR. COMP. 000005 ENVIRONMENT DIVISION. 000006 DATA DIVISION. 000007 PROCEDURE DIVISION. 000008 END PROGRAM C1539.
C1539.cob 4: JMN1539I-I (OBS)The AUTHOR paragraph is an obsolete element in ANSI85 COBOL.
JMN1540I-S
Example
[C1540.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1540. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN TO INFILE 000007 ORGANIZATION IS SEQUENTIAL 000008 PASSWORD IS PSWD1. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD IN-F. 000012 01 IN-R PIC X(80). 000013 WORKING-STORAGE SECTION. 000014 01 PSWD1 PIC X(8) VALUE "COMP1234". 000015 END PROGRAM C1540.
C1540.cob 8: JMN1540I-S The PASSWORD clause can be specified only for a sequential file (organization AS or VS), a relative file, or an indexed file.
JMN1544I-S
Example
[C1544.cob] 000001 PROGRAM-ID. C1544. 000002 ENVIRONMENT DIVISION. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 EXEC SQL BEGIN DECLARE SECTION END-EXEC. 000006 01 SQLSTATE PIC X(5). 000007 01 SQLCODE PIC 9(9). 000008 PROCEDURE DIVISION. 000009 STOP RUN.
C1544.cob 8: JMN1544I-S The END DECLARE SECTION is missing. An END DECLARE SECTION is assumed.
JMN1545I-S
Example
[C1545.cob] 000002 PROGRAM-ID. C1545. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 EXEC SQL START SQL END-EXEC. 000007 PROCEDURE DIVISION. 000008 STOP RUN.
[Solaris][Linux]
C1545.cob 6: JMN1545I-S Only a BEGIN DECLARE SECTION and an END DECLARE SECTION can be specified in the WORKING-STORAGE SECTION or the LINKAGE SECTION.
[Linux64]
C1545.cob 6: JMN1545I-S Only a BEGIN DECLARE SECTION and an END DECLARE SECTION can be specified in the WORKING-STORAGE SECTION, the LOCAL-STORAGE SECTION or the LINKAGE SECTION.
JMN1547I-I
Parameter explanation
@1@ : SEGMENTATION
@2@ : ANSI85
Example
[C1547.cob] 000001 @OPTIONS CONF(OBS),LANGLVL(85) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C1547. 000004 ENVIRONMENT DIVISION. 000005 CONFIGURATION SECTION. 000006 OBJECT-COMPUTER. OBJ1 000007 SEGMENT-LIMIT IS 1 000008 . 000009 END PROGRAM C1547.
C1547.cob 7: JMN1547I-I (OBS)segmentation is an obsolete feature in ANSI85 COBOL.
JMN1553I-S
Parameter explanation
@1@ : 256
Example
[C1553.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1553. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN TO INFILE. 000007 I-O-CONTROL. 000008 MULTIPLE FILE TAPE IN-F POSITION 257. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD IN-F. 000012 01 IN-R PIC X(80). 000013 END PROGRAM C1553.
C1553.cob 8: JMN1553I-S The integer in the POSITION phrase of the MULTIPLE FILE TAPE clause must not exceed 256. 256 is assumed.
JMN1555I-S
Parameter explanation
@1@ : SQLDA
Example
[C1555.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1555. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 EXEC SQL 000006 INCLUDE SQLDA HAVING 5 COLUMNS 000007 END-EXEC 000008 END PROGRAM C1555.
C1555.cob 5: JMN1555I-S END-EXEC of the INCLUDE SQLDA statement must end with a period.
JMN1556I-S
Parameter explanation
@1@ : SQLDA
Example
[C1556.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1556. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 EXEC SQL BEGIN DECLARE SECTION END-EXEC. 000006 EXEC SQL 000007 INCLUDE SQLDA HAVING 5 COLUMNS 000008 END-EXEC. 000009 EXEC SQL END DECLARE SECTION END-EXEC. 000010 PROCEDURE DIVISION. 000011 END PROGRAM C1556.
C1556.cob 6: JMN1556I-S The INCLUDE SQLDA statement cannot be specified in the EMBEDDED SQL DECLARE SECTION.
JMN1557I-S
Example
[C1557.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1557. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN INFILE 000007 ORGANIZATION IS INDEXED 000008 PASSWORD IS P1 000009 RECORD KEY IS IN-NO 000010 . 000011 DATA DIVISION. 000012 FILE SECTION. 000013 FD IN-F. 000014 01 IN-R. 000015 02 IN-NO PIC 9(4). 000016 02 IN-NAME PIC X(80). 000017 WORKING-STORAGE SECTION. 000018 01 P1 PIC X(6) VALUE "CMP123". 000019 END PROGRAM C1557.
C1557.cob 8: JMN1557I-S The PASSWORD clause must be specified in the RECORD KEY or ALTERNATE RECORD KEY clause.
JMN1558I-S
Example
[C1558.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1558. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 EXEC SQL BEGIN DECLARE SECTION END-EXEC. 000006 EXEC SQL 000007 INCLUDE SQLDA HAVING 0 COLUMNS 000008 END-EXEC. 000009 EXEC SQL END DECLARE SECTION END-EXEC. 000010 PROCEDURE DIVISION. 000011 END PROGRAM C1558.
C1558.cob 7: JMN1558I-S The integer in the HAVING phrase must be between 1 and 33554431.
JMN1559I-S
Example
[C1559.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1559. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 EXEC SQL INCLUDE SQLDA END-EXEC. 000006 END PROGRAM C1559.
C1559.cob 5: JMN1559I-S The syntax of the INCLUDE SQLDA statement is invalid.
JMN1560I-S
Example
[C1560.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1560. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 EXEC SQL 000006 INCLUDE SQLDA AS "ABC" HAVING 1 COLUMNS 000007 END-EXEC. 000008 END PROGRAM C1560.
C1560.cob 6: JMN1560I-S The SQLDA structure name in the INCLUDE SQLDA statement is invalid.
JMN1561I-S
Parameter explanation
@1@ : POSITIONING UNIT
Example
[C1561.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1561. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 POSITIONING UNIT IS 12 . 000007 DATA DIVISION. 000008 END PROGRAM C1561.
C1561.cob 6: JMN1561I-S The syntax of the POSITIONING UNIT clause is invalid.
JMN1562I-S
Example
[C1562.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1562. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 POSITIONING UNIT PUN-A IS 24.01 CPI. 000007 DATA DIVISION. 000008 END PROGRAM C1562.
C1562.cob 6: JMN1562I-S The literal of the POSITIONING UNIT clause must be an unsigned numeric literal with a value of 0.01 through 24.00. The number of decimal digits cannot exceed 2.
JMN1563I-S
Example
[C1563.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1563. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 POSITIONING UNIT PUN-A IS 12 CPI. 000007 DATA DIVISION. 000008 WORKING-STORAGE SECTION. 000009 01 REC1 PIC X(10) PRINTING POSITION IS 20 BY "BMP". 000010 PROCEDURE DIVISION. 000011 END PROGRAM C1563.
C1563.cob 9: JMN1563I-S The positioning-unit-name must be specified for the BY phrase in the PRINTING POSITION clause.
JMN1566I-S
Example
[C1566.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1566. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 PRINTING MODE PM1 IS FOR MOCS 000007 PRINTING MODE PM2 IS FOR SOCS 000008 . 000009 DATA DIVISION. 000010 WORKING-STORAGE SECTION. 000011 01 WN001 PIC N(80) CHARACTER TYPE IS PM1 OR 000012 PRINTING POSITION IS 10. 000013 END PROGRAM C1566.
C1566.cob 11: JMN1566I-S A printing-mode-name must be specified immediately after the OR phrase in the CHARACTER TYPE clause.
JMN1567I-S
Example
[C1567.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1567. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 PRINTING MODE PM1 IS FOR MOCS FONT MINCHOU 000007 PRINTING MODE PM2 IS FOR MOCS FONT MINCHOU-HANKAKU. 000008 DATA DIVISION. 000009 WORKING-STORAGE SECTION. 000010 01 W001 PIC N(30) CHARACTER TYPE IS PM1 PM2 000011 DEPENDING ON 1. 000012 END PROGRAM C1567.
C1567.cob 10: JMN1567I-S A data-name must be specified for the DEPENDING ON phrase in the CHARACTER TYPE clause.
JMN1568I-S
Example
[C1568.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1568. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 PRINTING MODE PM1 IS FOR MOCS FONT MINCHOU 000007 PRINTING MODE PM2 IS FOR MOCS FONT MINCHOU-HANKAKU. 000008 DATA DIVISION. 000009 WORKING-STORAGE SECTION. 000010 01 W001 PIC N(30) CHARACTER TYPE IS PM1 PM2. 000011 END PROGRAM C1568.
C1568.cob 10: JMN1568I-S When two or more printing-mode-names are specified in a CHARACTER TYPE clause, a DEPENDING ON phrase must be specified.
JMN1569I-S
Parameter explanation
@1@ : PRINTING MODE
@2@ : FOR, SIZE, PITCH, FONT, ANGLE, FORM
Example
[C1569.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1569. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 PRINTING MODE PM1 IS FOR NATIONAL 000007 PRINTING MODE PM2 IS IN FONT. 000008 DATA DIVISION. 000009 WORKING-STORAGE SECTION. 000010 END PROGRAM C1569.
C1569.cob 6: JMN1569I-S The FOR phrase in the PRINTING MODE clause is invalid.
C1569.cob 7: JMN1569I-S The FONT phrase in the PRINTING MODE clause is invalid.
JMN1570I-S
Parameter explanation
@1@ : PRINTING MODE
@2@ : SIZE, PITCH, FONT, ANGLE, FORM
Example
[C1570.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1570. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 PRINTING MODE PM1 IS FOR MOCS IN SIZE 12 POINT 000007 WITH FONT MINCHOU 000008 SIZE 15 POINT. 000009 END PROGRAM C1570.
C1570.cob 8: JMN1570I-S The SIZE phrase is already specified in the PRINTING MODE clause.
JMN1571I-S
Example
[C1571.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1571. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 PRINTING MODE PM1 IS FOR MOCS IN SIZE 2 POINT. 000007 END PROGRAM C1571.
C1571.cob 6: JMN1571I-S The literal in the SIZE phrase must be an unsigned numeric literal with a value of 3 through 300. The number of decimal digits must not exceed 1.
JMN1572I-S
Example
[C1572.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1572. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 PRINTING MODE PM1 IS FOR MOCS AT PITCH 25.00 CPI. 000007 END PROGRAM C1572.
C1572.cob 6: JMN1572I-S The literal in the PITCH phrase must be an unsigned numeric literal with a value of 0.01 through 24.00. The number of digit digits must not exceed 2.
JMN1573I-S
Example
[C1573.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1573. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 PRINTING MODE PM1 IS FOR MOCS AT ANGLE 45 DEGREES. 000007 END PROGRAM C1573.
C1573.cob 6: JMN1573I-S The integer in the ANGLE phrase must be 0 or 90.
JMN1574I-S
Parameter explanation
@1@ : FONT, FORM
Example
[C1574.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1574. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 PRINTING MODE PM1 IS FOR MOCS WITH FONT KYOUKASHOTAI. 000007 END PROGRAM C1574.
C1574.cob 6: JMN1574I-S The function-name of the FONT phrase is invalid.
JMN1576I-S
Parameter explanation
@1@ : name,clause,statement
Example
[C1576.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1576. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 DATA-1 PIC N VALUE NH"あ". 000006 END PROGRAM C1576.
C1576.cob 5: JMN1576I-S NH cannot be used in this system.
JMN1578I-S
Example
[C1578.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1578. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT AFILE ASSIGN TO PRINTER 000007 ORGANIZATION IS LINE SEQUENTIAL. 000008 DATA DIVISION. 000009 FILE SECTION. 000010 FD AFILE. 000011 01 REC-A PIC X(10). 000012 END PROGRAM C1578.
C1578.cob 6: JMN1578I-S PRINTER in the ASSIGN clause can be specified only in a sequential file other than a line sequential file.
JMN1579I-S
Example
[C1579.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1579. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT AFILE ASSIGN TO DISK 000007 ORGANIZATION IS SEQUENTIAL 000008 LOCK MODE IS MANUAL WITH LOCK ON MULTIPLE RECORDS. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD AFILE. 000012 01 A-REC PIC X(10). 000013 END PROGRAM C1579.
C1579.cob 8: JMN1579I-S MANUAL in the LOCK MODE clause can be specified only in a relative or indexed file.
JMN1580I-S
Example
[C1580.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1580. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 DD PIC X(4). 000007 SCREEN SECTION. 000008 01 PIC X(8) FROM DD. 000009 END PROGRAM C1580.
C1580.cob 8: JMN1580I-S Each level 01 item must have a data-name.
JMN1581I-S
Example
[C1581.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1581. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 DD PIC X(2). 000007 SCREEN SECTION. 000008 01 A PIC X(2) FROM DD BACKGROUND-COLOR IS 8. 000009 END PROGRAM C1581.
C1581.cob 8: JMN1581I-S The integer in the BACKGROUND-COLOR or FOREGROUND-COLOR clause must be a value from 0 through 7.
JMN1582I-S
Example
[C1582.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1582. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 AA PIC X(2). 000007 SCREEN SECTION. 000008 01 A PIC X(8) FROM AA USAGE IS INDEX. 000009 END PROGRAM C1582.
C1582.cob 8: JMN1582I-S DISPLAY must be specified in the USAGE clause of the screen description entry. DISPLAY is assumed.
JMN1583I-W
Example
[C1583.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1583. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 AA PIC X(2). 000007 SCREEN SECTION. 000008 01 A PIC X(8) TO AA 000009 FULL 000010 JUSTIFIED. 000011 END PROGRAM C1583.
C1583.cob 8: JMN1583I-W The JUSTIFIED clause cannot be specified in a screen description entry with a FULL clause. The JUSTIFIED clause is ignored.
JMN1584I-S
Parameter explanation
@1@ : PICTURE,VALUE
@2@ : VALUE,AUTO,FULL,REQUIRED,SECURE,BLANK WHEN ZERO,USAGE
Example
[C1584.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1584. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 AA PIC X(2). 000007 SCREEN SECTION. 000008 01 A PIC X(2) FROM AA VALUE "AAA". 000009 PROCEDURE DIVISION.
C1584.cob 8: JMN1584I-S The 'PICTURE' clause and the 'VALUE' clause cannot both be specified in the same screen description entry. The 'VALUE' clause is ignored.
JMN1586I-S
Parameter explanation
@1@ : FROM, TO, USING
@2@ : FROM, TO, USING
Example
[C1586.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1586. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 AA PIC X(2). 000007 01 BB PIC X(2). 000008 SCREEN SECTION. 000009 01 A1 PIC X(8) FROM AA USING BB. 000010 END PROGRAM C1586.
C1586.cob 9: JMN1586I-S The 'FROM' phrase and the 'USING' phrase cannot both be specified in the same PICTURE clause.
JMN1588I-S
Example
[C1588.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1588. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 SCREEN SECTION. 000007 01 A BELL VALUE 5. 000008 END PROGRAM C1588.
C1588.cob 7: JMN1588I-S Only a nonnumeric literal or a national literal can be specified in the VALUE clause of a screen description entry.
JMN1589I-S
Example
[C1589.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1589. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 BB PIC X(2). 000007 SCREEN SECTION. 000008 01 A BELL. 000009 66 B PIC X(8) FROM BB. 000010 END PROGRAM C1589.
C1589.cob 9: JMN1589I-S Each screen description entry must start with a level number of 01 through 49, or 78.
JMN1591I-S
Example
[C1591.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1591. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT AFILE ASSIGN TO R-DD1 000007 ACCESS MODE IS RANDOM 000008 RELATIVE KEY IS RK1 000009 LOCK MODE IS EXCLUSIVE. 000010 DATA DIVISION. 000011 FILE SECTION. 000012 FD AFILE. 000013 01 AREC PIC X(8). 000014 WORKING-STORAGE SECTION. 000015 01 RK1 PIC 9(8) BINARY. 000016 END PROGRAM C1591.
C1591.cob 9: JMN1591I-S The LOCK MODE clause can only be specified in a file that is sequential, relative, or indexed.
JMN1592I-S
Example
[C1592.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1592. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 AA PIC X(2). 000007 SCREEN SECTION. 000008 01 BBB AUTO FROM AA BELL. 000009 END PROGRAM C1592.
C1592.cob 8: JMN1592I-S In the SCREEN SECTION, the PICTURE clause must be specified in the item which has a FROM, TO or USING phrase.
JMN1593I-S
Parameter explanation
@1@ : LINE NUMBER, COLUMN NUMBER
@2@ : identifier or integer literal
Example
[C1593.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1593. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 ZZZ PIC X(8). 000007 SCREEN SECTION. 000008 01 AAA PIC X(80) LINE FROM ZZZ. 000009 END PROGRAM C1593.
C1593.cob 8: JMN1593I-S 'identifier or integer literal' must be specified in a 'LINE NUMBER' clause.
JMN1594I-S
Parameter explanation
@1@ : PICTURE
@2@ : FROM, TO, USING
@3@ : identifier, identifier or literal
Example
[C1594.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1594. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 ZZZ PIC X(8). 000007 SCREEN SECTION. 000008 01 AAA PIC X(80) FROM TO ZZZ. 000009 END PROGRAM C1594.
C1594.cob 8: JMN1594I-S An 'identifier or literal' must be specified in a 'PICTURE' clause with a 'FROM' phrase.
JMN1596I-S
Example
[C1596.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1596. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT AFILE ASSIGN TO DISK 000007 ORGANIZATION IS SEQUENTIAL 000008 FORMAT IS FM1. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD AFILE. 000012 01 AREC PIC X(80). 000013 WORKING-STORAGE SECTION. 000014 01 FM1 PIC X(8). 000015 END PROGRAM C1596.
C1596.cob 6: JMN1596I-S DISK or PRINTER in an ASSIGN clause cannot be specified in a print file with a FORMAT clause.
JMN1597I-W
Parameter explanation
@1@ : SUBSCHEMA-NAME
Example
[C1597.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1597. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SUBSCHEMA-NAME. "SUBS". 000006 DATA DIVISION. 000007 WORKING-STORAGE SECTION. 000008 END PROGRAM C1597.
C1597.cob 5: JMN1597I-W 'SUBSCHEMA-NAME' is a proper function to the MSP or XSP system.
JMN1599I-S
Parameter explanation
@1@ : TABLE LINE
Example
[C1599.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1599. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 SCREEN SECTION. 000006 01 HYO. 000007 02 HYO1 BELL 000008 TABLE LINE. 000009 PROCEDURE DIVISION. 000010 DISPLAY HYO. 000011 END PROGRAM C1599.
C1599.cob 8: JMN1599I-S The TABLE LINE clause can only be specified for a level 01 item in the SCREEN SECTION.
JMN1600I-S
Parameter explanation
@1@ : SCREEN SECTION | The internal program that contains an INITIAL clause.
Example
[P1600.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P1600 IS RECURSIVE. 000003 DATA DIVISION. 000004 SCREEN SECTION. 000005 IDENTIFICATION DIVISION. 000006 END PROGRAM P1600.
P1600.cob 4 JMN1600I-S SCREEN SECTION cannot be specified for a PROGRAM DEFINITION that contains the RECURSIVE attribute.
JMN1604I-W
Example
[C1604.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1604. 000003 DATE-COMPILED. "1998 000004- "2007" 000005 END PROGRAM C1604.
C1604.cob 4: JMN1604I-W A comment-entry cannot be connected using a hyphen in an indicator area. The hyphen is ignored.
JMN1608I-S
Example
[C1608.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1608. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 WKPTR POINTER. 000006 01 WKARA PIC X(10). 000007 PROCEDURE DIVISION. 000008 MOVE FUNCTION ADRR(WKARA) TO WKPTR 000009 . 000010 END PROGRAM C1608.
C1608.cob 8: JMN1608I-S The function-name of the function is invalid or missing.
JMN1615I-I
Example
[A.cob] 000001 01 DATA-1 PIC X(10). [C1615.cob] 000001 @OPTIONS CONF(V10) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C1615. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 COPY A REPLACING == 10 == BY == 5 ==. 000007 END PROGRAM C1615.
A.cob 1: JMN1615I-I (CONF)Character string following the left parenthesis in the library text is replaced.
JMN1661I-S
JMN1662I-S
JMN1664I-S
JMN1665I-S
JMN1668I-W
Explanation
In the specified descriptor, data is not defined.
JMN1670I-S
Example
[C1670.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1670. 000003 PROCEDURE DIVISION. 000004 DISPLAY NX"835483938376838Z" 000005 . 000006 END PROGRAM C1670.
C1670.cob 4: JMN1670I-S National hexadecimal literals must consist of hexadecimal characters (0 through 9, a through f). The national literal is assumed to be a space.
JMN1671I-S
Explanation
The following are the most likely causes of this error message:
The descriptor contains an error.
The error occurred during an I/O because the descriptor contained an error. Please check the descriptor and restore it if necessary.
Explanation
The following are the most likely causes:
Descriptor is not working.
Due to a damaged descriptor, an error occurred during an input or an output. Open the descriptor using PowerFORM, examine it, and recreate it, if necessary.
JMN1672I-S
Example
[C1672.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1672. 000003 PROCEDURE DIVISION. 000004 DISPLAY NC"日本語定数A" 000005 . 000006 END PROGRAM C1672.
C1672.cob 4: JMN1672I-S A national literal contains characters that cannot be converted to a national character. The national literal is assumed to be a space.
Explanation
Any national character belonging to a computer character set can be used as national nonnumeric literal. However, when the operation mode is Unicode, any character belonging to a computer character set can be used.
JMN1674I-S
Explanation
The descriptor of the form whose compiler is newer than the descriptor that was able to be treated was read. It is necessary to match to version level of the compiler using the descriptor or to make the compiler latest version level.
JMN1675I-S
Parameter explanation
@1@ : reserved word, environment division, section-name
@2@ : nested-program, method prototype definition, definition-name
Example
[C1675.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1675. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 I-O-CONTROL. 000006 END CLASS C1675.
C1675.cob 4: JMN1675I-S The INPUT-OUTPUT SECTION cannot be specified in a class definition. It is ignored, and the compiler skips to the next valid clause, paragraph, section or division.
C1675.cob 5: JMN1675I-S The INPUT-OUTPUT SECTION cannot be specified in a class definition. It is ignored, and the compiler skips to the next valid clause, paragraph, section or division.
JMN1676I-S
Parameter explanation
[Solaris][Linux]
@1@ : TYPE | TYPEDEF | GLOBAL
@2@ : BASED-STORAGE SECTION,FILE SECTION,WORKING-STORAGE SECTION, CONSTANT SECTION and LINKAGE SECTION | PROGRAM DEFINITION
[Linux64]
@1@ : TYPE | TYPEDEF | GLOBAL
@2@ : BASED-STORAGE SECTION,FILE SECTION,WORKING-STORAGE SECTION,LOCAL-STORAGE SECTION, CONSTANT SECTION and LINKAGE SECTION | PROGRAM DEFINITION
Example
[C1676.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1676. 000003 ENVIRONMENT DIVISION. 000004 OBJECT. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 A1 GLOBAL PIC X. 000008 PROCEDURE DIVISION. 000009 END OBJECT. 000010 END CLASS C1676.
C1676.cob 7: JMN1676I-S A PROGRAM DEFINITION can only be specified in a GLOBAL clause. It is ignored, and the compiler skips to the next valid clause, paragraph, section or division.
JMN1677I-S
Parameter explanation
@1@ : ENVIRONMENT DIVISION,DATA DIVISION,PROCEDURE DIVISION
@2@ : class definition
Example
[C1677.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1677. 000003 DATA DIVISION. 000004 END CLASS C1677.
C1677.cob 3: JMN1677I-S DATA DIVISION cannot be specified in a class definition. It is ignored, and the compiler skips to the next paragraph or division.
JMN1678I-S
Parameter explanation
@1@ : clause name
Example
[C1678.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1678. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 ERR-REC PROPERTY NO GET PIC 9. 000006 PROCEDURE DIVISION. 000007 END PROGRAM C1678.
C1678.cob 5: JMN1678I-S The PROPERTY clause can only be specified in the WORKING-STORAGE SECTION of the FACTORY or OBJECT definition. It is ignored, and the compiler skips to the next valid clause, paragraph, section or division.
JMN1681I-S
Parameter explanation
@1@ : TYPEDEF，EXTERNAL
@2@ : SQL declaration paragraph, factory definition,static definition or object definition
Example
[C1681.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1681. 000003 OBJECT. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 PRM PIC X(4) EXTERNAL. 000007 END OBJECT. 000008 END CLASS C1681.
C1681.cob 6: JMN1681I-S The EXTERNAL clause cannot be specified in a factory definition,static definition or object definition. It is ignored, and the compiler skips to the next valid clause, paragraph, section, or division.
JMN1683I-S
Example
[C1683.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1683. 000003 ENVIRONMENT DIVISION. 000004 IDENTIFICATION DIVISION. 000005 OBJECT. 000006 DATA DIVISION. 000007 WORKING-STORAGE SECTION. 000008 01 AAA2 PROPERTY GET PIC 9. 000009 END OBJECT. 000010 END CLASS C1683.
C1683.cob 8: JMN1683I-S The GET or SET phrase of the PROPERTY clause must be specified with 'NO'. It is ignored, and the compiler skips to the next valid clause, paragraph, section, or division.
JMN1684I-S
Example
[C1684.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1684. 000003 ENVIRONMENT DIVISION. 000004 IDENTIFICATION DIVISION. 000005 OBJECT. 000006 DATA DIVISION. 000007 WORKING-STORAGE SECTION. 000008 01 AAA PROPERTY NO AAA PIC 9. 000009 END OBJECT. 000010 END CLASS C1684.
C1684.cob 8: JMN1684I-S The 'NO' of the PROPERTY clause must be specified with a GET or SET phrase. It is ignored, and the compiler skips to the next valid clause, paragraph, section, or division.
JMN1685I-S
Example
[C1685.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1685. 000003 ENVIRONMENT DIVISION. 000004 IDENTIFICATION DIVISION. 000005 OBJECT. 000006 DATA DIVISION. 000007 WORKING-STORAGE SECTION. 000008 01 PROPERTY NO SET PIC 9. 000009 END OBJECT. 000010 END CLASS C1685.
C1685.cob 8: JMN1685I-S The PROPERTY clause cannot be specified for a filler item. The PROPERTY clause is ignored.
JMN1686I-S
Parameter explanation
@1@ : clause name
@2@ : program definition
Example
[C1686.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1686. 000003 OBJECT. 000004 PROCEDURE DIVISION. 000005 METHOD-ID. M1686. 000006 PROCEDURE DIVISION. 000007 DISPLAY "Hello COBOL!!" 000008 PERFORM A1 000009 . 000010 A1 SECTION 1686. 000011 DISPLAY "Error Program". 000012 END METHOD M1686. 000013 END OBJECT. 000014 END CLASS C1686.
C1686.cob 10: JMN1686I-S A PROGRAM DEFINITION can only be specified in a segment-number of section header.
JMN1687I-S
Parameter explanation
@1@ : LINKAGE SECTION
@2@ : factory definition,static definition or object definition
Example
[C1687.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1687. 000003 FACTORY. 000004 DATA DIVISION. 000005 LINKAGE SECTION. 000006 END FACTORY. 000007 END CLASS C1687.
C1687.cob 5: JMN1687I-S A LINKAGE SECTION cannot be specified in a factory definition,static definition or object definition. It is ignored, and the compiler skips to the next paragraph, section or division.
JMN1688I-S
Example
[C1688.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1688. 000003 OBJECT. 000004 ENVIRONMENT DIVISION. 000005 INPUT-OUTPUT SECTION. 000006 FILE-CONTROL. 000007 SELECT IN-FILE 000008 ASSIGN TO INFILE 000009 MULTIPLE REEL 000010 ORGANIZATION LINE SEQUENTIAL 000011 . 000012 DATA DIVISION. 000013 FILE SECTION. 000014 FD IN-FILE. 000015 01 IN-REC. 000016 02 I-CODE PIC X. 000017 END OBJECT. 000018 END CLASS C1688.
C1688.cob 8: JMN1688I-S MULTIPLE REEL and UNIT phrases can only be specified in the PROGRAM definition.
JMN1689I-S
Parameter explanation
@1@ : Word of a function that is specific to MSP or XSP system
Example
[C1689.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1689. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SUBSCHEMA-NAME. "CHKICSBN". 000006 END CLASS C1689.
C1689.cob 5: JMN1689I-S 'SUBSCHEMA-NAME' is a proper function to the MSP or XSP system.
JMN1690I-S
Parameter explanation
@1@ : DCSQL
@2@ : PROGRAM DEFINITION
Example
[C1690.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1690. 000003 ENVIRONMENT DIVISION. 000004 FACTORY. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 EXEC DCSQL BEGIN DECLARE SECTION END-EXEC. 000008 01 SQLSTATE PIC X(5). 000009 EXEC DCSQL END DECLARE SECTION END-EXEC. 000010 PROCEDURE DIVISION. 000011 END FACTORY. 000012 END CLASS C1690.
C1690.cob 7: JMN1690I-S PROGRAM DEFINITION can only be specified in relational database module(DCSQL). It is ignored, and the compiler skips to the next END-EXEC, section or division.
C1690.cob 9: JMN1690I-S PROGRAM DEFINITION can only be specified in relational database module(DCSQL). It is ignored, and the compiler skips to the next END-EXEC, section or division.
JMN1692I-S
Parameter explanation
@1@ : SQL function
Example
[C1692.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1692. 000003 FACTORY. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 EXEC SQL BEGIN DECLARE SECTION END-EXEC. 000007 01 HOSTVAR PIC X(100). 000008 EXEC SQL END DECLARE SECTION END-EXEC. 000009 END FACTORY. 000010 END CLASS C1692.
C1692.cob 6: JMN1692I-S Relational database module(SQL) can only be specified in the PROGRAM definition, OBJECT definition or OBJECT METHOD definition. It is ignored, and the compiler skips to the next END-EXEC, section or division.
C1692.cob 8: JMN1692I-S Relational database module(SQL) can only be specified in the PROGRAM definition, OBJECT definition or OBJECT METHOD definition. It is ignored, and the compiler skips to the next END-EXEC, section or division.
JMN1693I-S
Parameter explanation
@1@ : TYPEDEF
Example
[C1693.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1693. 000003 OBJECT. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 DATA01. 000007 02 DATA02 TYPEDEF PIC X(100). 000008 END OBJECT. 000009 END CLASS C1693.
C1693.cob 7: JMN1693I-S The TYPEDEF clause can only be specified in a level-number '01' item. It is ignored, and the compiler skips to the next valid clause, paragraph, section or division.
JMN1694I-S
Example
[C1694.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1694. 000003 OBJECT. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 DATA01. 000007 78 VALUE 10. 000008 END OBJECT. 000009 END CLASS C1694.
C1694.cob 7: JMN1694I-S The named-constant name must be specified after level-number '78'. This entry is ignored, and the compiler skips to the next division, paragraph, level indicator or level-number.
Explanation
A named-constant is a name named to the literal. A FILLER is not permitted.
JMN1695I-S
Example
[C1695.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1695. 000003 OBJECT. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 78 DATA011 PIC X(10). 000007 END OBJECT. 000008 END CLASS C1695.
C1695.cob 6: JMN1695I-S The named-constant description entry can only specify a VALUE clause. This entry is ignored, and the compiler skips to the next division, paragraph, level indicator or level-number.
JMN1696I-S
Parameter explanation
@1@ : method prototype definition
Example
[C1696.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1696. 000003 OBJECT. 000004 PROCEDURE DIVISION. 000005 METHOD-ID. M1696 PROTOTYPE. 000006 DATA DIVISION. 000007 LINKAGE SECTION. 000008 78 DATA011 VALUE 10. 000009 END METHOD M1696. 000010 END OBJECT. 000011 END CLASS C1696.
C1696.cob 8: JMN1696I-S Level-number '78' cannot be specified in a method prototype definition. This entry is ignored, and the compiler skips to the next division, paragraph, level indicator or level-number.
JMN1697I-S
Example
[C1697.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1697. 000003 OBJECT. 000004 PROCEDURE DIVISION. 000005 METHOD-ID. M1697. 000006 DATA DIVISION. 000007 WORKING-STORAGE SECTION. 000008 01 DATA011 PIC X ANY LENGTH. 000009 END METHOD M1697. 000010 END OBJECT. 000011 END CLASS C1697.
C1697.cob 8: JMN1697I-S The ANY LENGTH clause can only be specified in level-number '01' of the METHOD definition LINKAGE SECTION. It is ignored, and the compiler skips to the next valid clause, paragraph, section or division.
JMN1698I-S
Example
[C1698.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1698. 000003 OBJECT. 000004 PROCEDURE DIVISION. 000005 METHOD-ID. M1698. 000006 DATA DIVISION. 000007 LINKAGE SECTION. 000008 01 DATA011 PIC 9 ANY LENGTH. 000009 END METHOD M1698. 000010 END OBJECT. 000011 END CLASS C1698.
C1698.cob 8: JMN1698I-S The character in the PICTURE clause must be specified as one character for 'X' or 'N'. The ANY LENGTH clause is ignored.
JMN1699I-S
Parameter explanation
@1@ : TYPEDEF
Example
[C1699.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1699. 000003 ENVIRONMENT DIVISION. 000004 IDENTIFICATION DIVISION. 000005 OBJECT. 000006 PROCEDURE DIVISION. 000007 METHOD-ID. M1699. 000008 DATA DIVISION. 000009 WORKING-STORAGE SECTION. 000010 01 TYPEDEF. 000011 END METHOD M1699. 000012 END OBJECT. 000013 END CLASS C1699.
C1699.cob 10: JMN1699I-S The TYPEDEF clause cannot be specified for a filler item. The TYPEDEF clause is ignored.
JMN1701I-S
Parameter explanation
@1@ : END CLASS header, END FACTORY header, END OBJECT header, END METHOD header
Example
[C1701.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1701. 000003 END CLASS C1701
C1701.cob 3: JMN1701I-S The period is missing in END CLASS header, or an invalid word is used.
JMN1703I-S
Parameter explanation
@1@ : END CLASS header, END METHOD header
@2@ : class-name, method-name
Example
[C1703.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1703. 000003 END CLASS.
C1703.cob 3: JMN1703I-S The class-name is missing from the END CLASS header.
JMN1704I-S
@2@ : CLASS,
Example
[C1704.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1704 INHERITS C1704. 000003 END CLASS C1704.
C1704.cob 2: JMN1704I-S The class cannot inherit from itself.
Explanation
You are not allowed to specify the class that you are defining, in the INHERITS clause of that definition.
JMN1705I-S
Parameter explanation
@1@ : CLASS
Example
[C1705.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1705 INHERITS. 000003 ENVIRONMENT DIVISION. 000004 END CLASS C1705.
C1705.cob 2: JMN1705I-S The inherited class is missing. The INHERITS clause is ignored.
JMN1706I-S
Parameter explanation
@1@ : INHERITS clause, OVERRIDE, PROPERTY
Example
[XXXXX.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. XXXXX. 000003 END CLASS XXXXX. [C1706.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1706 INHERITS XXXXX INHERITS XXXXX. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS XXXXX. 000007 END CLASS C1706.
C1706.cob 2: JMN1706I-S INHERITS clause is already specified. INHERITS clause is ignored.
JMN1707I-S
Parameter explanation
@1@ : class-name,method-name,delegate-name,enum-name,interface-name
@2@ : END CLASS header,END METHOD header,END DELEGATE header,END ENUM header,END INTERFACE header
@3@ : class, method, delegate, enum, interface
Example
[C1707.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1707. 000003 END CLASS CLS1.
C1707.cob 3: JMN1707I-S The class 'CLS1' specified by the END CLASS header is missing. The END CLASS header assumed to refer to the last non-terminated class.
JMN1708I-S
Parameter explanation
@1@ : class-name,method-name
Example
[C1708.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. 1708. 000003 OBJECT. 000004 PROCEDURE DIVISION. 000005 METHOD-ID. 1000. 000006 END METHOD 1000. 000007 END CLASS 1708.
C1708.cob 2: JMN1708I-S An invalid character-string is specified in the PROGRAM-ID, or the PROGRAM-ID is missing. The class-name from the next paragraph or division is used.
C1708.cob 5: JMN1708I-S An invalid character-string is specified in the PROGRAM-ID, or the PROGRAM-ID is missing. The method-name from the next paragraph or division is used.
Explanation
Please follow the rule of the user-defined word about the class-name, or the method-name.
JMN1710I-I
Parameter explanation
@1@ : CLASS-ID paragraph, METHOD-ID paragraph
@2@ : class-name, method-name
@3@ : NOCLASID, NOMETDID
Example
[C1710.cob] 000001 @OPTIONS CONF(V4) 000002 IDENTIFICATION DIVISION. 000003 CLASS-ID. 1710. 000004 OBJECT. 000005 PROCEDURE DIVISION. 000006 METHOD-ID. 2000. 000007 END METHOD 2000. 000008 END OBJECT. 000009 END CLASS 1710.
C1710.cob 3: JMN1710I-I (CONF)A CLASS-ID paragraph is not specified, or an invalid class-name is specified. A 'NOCLASID' class-name is specified.
C1710.cob 6: JMN1710I-I (CONF)A METHOD-ID paragraph is not specified, or an invalid method-name is specified. A 'NOMETDID' method-name is specified.
JMN1715I-S
Parameter explanation
@1@ : OVERRIDE, PROTOTYPE
Example
[M1715.cob] 000001 IDENTIFICATION DIVISION. 000002 METHOD-ID. M1715 PROTOTYPE. 000003 PROCEDURE DIVISION. 000004 END METHOD M1715.
M1715.cob 2: JMN1715I-S The PROTOTYPE phrase cannot be specified for SEPARATED METHOD. The PROTOTYPE phrase is ignored.
JMN1716I-S
Example
[C1.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1. 000003 END CLASS C1. [C1716.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1716 INHERITS C1. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS C1. 000007 IDENTIFICATION DIVISION. 000008 OBJECT. 000009 PROCEDURE DIVISION. 000010 IDENTIFICATION DIVISION. 000011 METHOD-ID. M1716 OF C1. 000012 PROCEDURE DIVISION. 000013 END METHOD M1716. 000014 END OBJECT. 000015 END CLASS C1716.
C1716.cob 11: JMN1716I-S A class-name can only be specified for a SEPARATED METHOD. The class-name is ignored.
Explanation
The class name that defines the method prototype is specified for the OF phrase in the METHOD-ID paragraph.
Only the separated method is effective to this code.
JMN1717I-S
Example
[C1717.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1717. 000003 ENVIRONMENT DIVISION. 000004 IDENTIFICATION DIVISION. 000005 OBJECT. 000006 PROCEDURE DIVISION. 000007 IDENTIFICATION DIVISION. 000008 METHOD-ID. GET M1717. 000009 PROCEDURE DIVISION. 000010 END METHOD. 000011 END OBJECT. 000012 END CLASS C1717.
C1717.cob 8: JMN1717I-S The syntax of the PROPERTY phrase is invalid. The PROPERTY phrase is ignored.
JMN1718I-S
Example
[C1718.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1718. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 PROPERTY "PR1". 000007 END CLASS C1718.
C1718.cob 6: JMN1718I-S The syntax of the property-specifier is invalid.
JMN1724I-S
Parameter explanation
@1@ : paragraph-name
Example
[C1724.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1724. 000003 AUTHOR. YYYYY. 000004 ENVIRONMENT DIVISION. 000005 END CLASS C1724.
C1724.cob 3: JMN1724I-S A AUTHOR paragraph can only be specified in the PROGRAM definition. It is ignored until the next paragraph or division.
Explanation
The following paragraphs can be specified only after the PROGRAM-ID paragraph.
AUTHOR paragraph
INSTALLATION paragraph
DATE-WRITTEN paragraph
DATE-COMPILED paragraph
SECURITY paragraph
The COBOL compiler allows these paragraphs to be specified in any sequence. These paragraphs are obsolete language elements and are treated as comment lines.
JMN1725I-S
Parameter explanation
@1@ : class-name
Example
[C1725.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1725. 000003 ENVIRONMENT DIVISION.
C1725.cob 3: JMN1725I-S CLASS 'C1725' must end with an end class header. An end class header is assumed.
JMN1726I-S
Parameter explanation
@1@ : END FACTORY header,END OBJECT header,END METHOD header
Example
[C1726.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1726. 000003 ENVIRONMENT DIVISION. 000004 IDENTIFICATION DIVISION. 000005 OBJECT. 000006 PROCEDURE DIVISION. 000007 END CLASS C1726.
C1726.cob 7: JMN1726I-S The END OBJECT header is missing. An END OBJECT header is assumed.
JMN1735I-S
Parameter explanation
@1@ : definition-name
Example
[C1735.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1735. 000003 ENVIRONMENT DIVISION. 000004 IDENTIFICATION DIVISION. 000005 OBJECT. 000006 PROCEDURE DIVISION. 000007 END OBJECT. 000008 FACTORY. 000009 PROCEDURE DIVISION. 000010 END FACTORY. 000011 END CLASS C1735.
C1735.cob 8: JMN1735I-S The position of the factory definition is invalid. The factory definition is ignored, and the compiler skips to the next element.
JMN1736I-S
Parameter explanation
@1@ : invalid word
Example
[C1736.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1736. 000003 ENVIRONMENT DIVISION. 000004 OBJECT. 000005 PROCEDURE DIVISION. 000006 END OBJECT. 000007 XXXX. 000008 END CLASS C1736.
C1736.cob 7: JMN1736I-S The invalid word 'XXXX' was found. The invalid word is ignored and the compiler skips to the next element.
JMN1738I-S
Parameter explanation
@1@ : factory definition, object definition
Example
[C1738.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1738. 000003 ENVIRONMENT DIVISION. 000004 IDENTIFICATION DIVISION. 000005 FACTORY. 000006 PROCEDURE DIVISION. 000007 END FACTORY. 000008 FACTORY. 000009 PROCEDURE DIVISION. 000010 END FACTORY. 000011 END CLASS C1738.
C1738.cob 8: JMN1738I-S The factory definition is already specified. The compiler skips to the next element.
JMN1739I-W
Parameter explanation
@1@ : TYPEDEF
Example
[C1739.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1739. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 WK1 PIC X IS TYPEDEF. 000006 END PROGRAM C1739.
C1739.cob 5: JMN1739I-W The TYPEDEF clause must be the first clause in the data description entry. The TYPEDEF clause is assumed to be valid.
JMN1741I-S
Example
[P1741.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P1741. 000003 PROCEDURE DIVISION. 000004 END CLASS P1741.
P1741.cob 4: JMN1741I-S No corresponding end header is specified. The end header is ignored.
Explanation
The definition of the end header is not suitable for the IDENTIFICATION DIVISION.
JMN1742I-S
Example
[M1742.cob] 000001 IDENTIFICATION DIVISION. 000002 METHOD-ID. M1742. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS XXXXX. 000007 END METHOD M1724.
M1742.cob 2: JMN1742I-S The separated method must be the specified class-name for the prototype method defined class. The compiler skips to the next element.
Explanation
In the separated method, the class name that defines the method prototype is specified for the OF phrase in the METHOD-ID paragraph.
JMN1744I-S
Example
[C1744.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1744. 000003 ENVIRONMENT DIVISION. 000004 IDENTIFICATION DIVISION. 000005 OBJECT. 000006 PROCEDURE DIVISION. 000007 IDENTIFICATION DIVISION. 000008 METHOD-ID. GET PROPERTY M1744. 000009 PROCEDURE DIVISION. 000010 END METHOD M1744. 000011 END OBJECT. 000012 END CLASS C1744.
C1744.cob 10: JMN1744I-S The end method header for a method defined with GET or SET in the METHOD-ID paragraph must omit the method-name.
JMN1745I-S
Example
[C1745.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1745. 000003 ENVIRONMENT DIVISION. 000004 IDENTIFICATION DIVISION. 000005 OBJECT. 000006 PROCEDURE DIVISION. 000007 IDENTIFICATION DIVISION. 000008 METHOD-ID. M1745. 000009 PROCEDURE DIVISION. 000010 END METHOD M1745. 000011 END OBJECT. 000012 END OBJECT. 000013 END CLASS C1745.
C1745.cob 12: JMN1745I-S No corresponding end header is specified. The compiler skips to the next element.
JMN1746I-S
Example
[C1746.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. "C1746". 000003 ENVIRONMENT DIVISION. 000004 IDENTIFICATION DIVISION. 000005 OBJECT. 000006 PROCEDURE DIVISION. 000007 IDENTIFICATION DIVISION. 000008 METHOD-ID. "M1746". 000009 PROCEDURE DIVISION. 000010 END METHOD "M1746". 000011 END OBJECT. 000012 END CLASS "C1746".
C1746.cob 2: JMN1746I-S A literal cannot be specified for a class-name, method-name, delegate-name, ENUM-name, or interface-name.
C1746.cob 8: JMN1746I-S A literal cannot be specified for a class-name, method-name, delegate-name, ENUM-name, or interface-name.
C1746.cob 10: JMN1746I-S A literal cannot be specified for a class-name, method-name, delegate-name, ENUM-name, or interface-name.
C1746.cob 12: JMN1746I-S A literal cannot be specified for a class-name, method-name, delegate-name, ENUM-name, or interface-name.
JMN1748I-S
Parameter explanation
@1@ : class-name
Explanation
The following are the most likely causes of this error message:
There is no reading right in the repository file of the class that contains the method prototype.
JMN1749I-S
Parameter explanation
@1@ : class-name
Explanation
The following are the most likely causes of this error message:
The repository file of the class that contains the method prototype is broken for some reasons. Please compile again, and make the repository file.
JMN1750I-S
Parameter explanation
@1@ : class-name
Explanation
It is doesn't exist the repository file described in the REPOSITORY paragraph or wrong to be name or there is no reading right. Please take the correspondence after confirming the following settings that specify the referred repository file. The number shows the order of retrieving the directory of the destination of the input when the following specification overlaps.
Directory specified by the -R option.
Directory specified by the COB_REPIN environment variable.
Directory specified by the -dr option.
Current directory.
JMN1751I-S
Parameter explanation
@1@ : class-name
Explanation
The following are the most likely causes of this error message:
The repository file is broken for some reasons. Please compile again, and make the repository file.
JMN1752I-S
Parameter explanation
@1@ : class-name
Explanation
The method prototype is not defined in the class specified for the OF phrase of the METHOD-ID paragraph.
JMN1753I-S
Parameter explanation
@1@ : CLASS,INTERFACE
@2@ : class-name, interface-name
Example
[BASE.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. BASE. 000003 END CLASS BASE. [C1753.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1753 INHERITS XX. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS BASE. 000007 END CLASS C1753.
C1753.cob 2: JMN1753I-S The inherited class 'XX' is not specified in the REPOSITORY paragraph, or the class-data cannot be restored. The INHERITS clause is ignored.
JMN1754I-S
Parameter explanation
@1@ : class-name
Example
[C1754.cob] 000001 IDENTIFICATION DIVISION. 000002 METHOD-ID. C1754 OF FACTORY OF XX. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS BASE. 000007 END METHOD C1754.
C1754.cob 5: JMN1754I-S The PROTOTYPE METHOD defined in CLASS 'XX' is not specified in the REPOSITORY paragraph. The compiler skips to the next element.
JMN1755I-S
Parameter explanation
@1@ : method-name
Example
[C1755A.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1755A. 000003 FACTORY. 000004 PROCEDURE DIVISION. 000005 METHOD-ID. M1. 000006 END METHOD M1. 000007 END FACTORY. 000008 END CLASS C1755A. 000009** [C1755B.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1755B. 000003 OBJECT. 000004 PROCEDURE DIVISION. 000005 METHOD-ID. M1. 000006 END METHOD M1. 000007 END OBJECT. 000008 END CLASS C1755B. 000009** [C1755C.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1755C INHERITS C1755A C1755B. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS C1755A 000007 CLASS C1755B. 000008 END CLASS C1755C.
C1755C.cob 2: JMN1755I-S METHOD 'M1' is multi-defined. METHOD 'M1' is ignored.
Explanation
A class can inherit from one or more classes. In this case, the inheriting class will have all the methods defined for the inherited classes. These include the methods inherited by the inherited class.
JMN1756I-S
Parameter explanation
@1@ : method-name
Example
[C1756A.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1756A. 000003 FACTORY. 000004 PROCEDURE DIVISION. 000005 METHOD-ID. M1. 000006 END METHOD M1. 000007 END FACTORY. 000008 END CLASS C1756A. 000009** [C1756B.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1756B. 000003 FACTORY. 000004 PROCEDURE DIVISION. 000005 METHOD-ID. M1. 000006 DATA DIVISION. 000007 LINKAGE SECTION. 000008 01 P1 PIC X(4). 000009 PROCEDURE DIVISION USING P1. 000010 END METHOD M1. 000011 END FACTORY. 000012 END CLASS C1756B. 000013** [C1756C.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1756C INHERITS C1756A C1756B. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS C1756A 000007 CLASS C1756B. 000008 END CLASS C1756C.
C1756C.cob 2: JMN1756I-S Inherited same name METHOD 'M1' must have the same interface.
JMN1757I-S
Parameter explanation
@1@ : class
@2@ : type-name
Example
[BASE.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. BASE. 000003 END CLASS BASE. [C1757.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1757. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS BASE 000007 CLASS BASE. 000008 END CLASS C1757.
C1757.cob 7: JMN1757I-S The class 'BASE' is already specified in the REPOSITORY paragraph.
JMN1758I-S
Example
[C1758.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1758. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS A AS "*A". 000007 END CLASS C1758.
C1758.cob 6: JMN1758I-S The syntax of the special CLASS is invalid.
Explanation
A special class that can declare in the repository paragraph is the following.
"*COM" (or "*OLE")
"*COM-ARRAY" (or "*OLE-ARRAY")
"*COM-EXCEPTION" (or "*OLE-EXCEPTION")
"*COB-BINDTABLE"
"*COM: COM server name: COM class name"
JMN1759I-S
Parameter explanation
@1@ : class
Example
[C1759.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1759. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS "A". 000007 END CLASS C1759.
C1759.cob 6: JMN1759I-S The syntax of the class-specifier is invalid.
JMN1760I-S
Parameter explanation
@1@ : object reference item
@2@ : class-name
Example
[C1760.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1760 INHERITS FJBASE. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS FJBASE 000007 . 000008 OBJECT. 000009 DATA DIVISION. 000010 WORKING-STORAGE SECTION. 000011 01 OBJR USAGE OBJECT REFERENCE FJBASE. 000012 PROCEDURE DIVISION. 000013* 000014 METHOD-ID. M1760 PROTOTYPE. 000015 END METHOD M1760. 000016* 000017 END OBJECT. 000018 END CLASS C1760. 000019/ [M1760.cob] 000001 IDENTIFICATION DIVISION. 000002 METHOD-ID. M1760 OF C1760. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS C1760 000007 . 000008 END METHOD M1760.
M1760.cob 2: JMN1760I-S The CLASS 'FJBASE' referenced by object reference data item OBJR is not specified in the REPOSITORY paragraph. It is assumed to be a universal object reference data item.
JMN1761I-S
Example
[C1761.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1761. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS C1761. 000007 END CLASS C1761.
C1761.cob 6: JMN1761I-S The definition name of the source that is currently being compiled cannot be specified in the REPOSITORY paragraph.
JMN1762I-S
Parameter explanation
@1@ : class
Example
[C1762.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1762 INHERITS BASE. 000003 END CLASS C1762.
C1762.cob 2: JMN1762I-S The inherited class must be specified in the REPOSITORY paragraph. The INHERITS clause is ignored.
JMN1763I-S
Example
[M1.cob] 000001 METHOD-ID. M1 OF FACTORY OF C1763. 000002 END METHOD M1. [C1763.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1763. 000003 FACTORY. 000004 PROCEDURE DIVISION. 000005 METHOD-ID. M1 PROTOTYPE. 000006 END METHOD M1. 000007 END FACTORY. 000008 END CLASS C1763.
M1.cob 1: JMN1763I-S The PROTOTYPE METHOD defined in the CLASS must be specified in the REPOSITORY paragraph. The compiler skips to the next element.
JMN1764I-S
Parameter explanation
@1@ : class-name
Example
[C1764.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1764 INHERITS BASE. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS BASE AS "*OLE". 000007 END CLASS C1764.
C1764.cob 2: JMN1764I-S Special CLASS BASE cannot be inherited. CLASS 'BASE' is ignored.
JMN1765I-S
Parameter explanation
@1@ : class-name
Example
[C1765.cob] 000001 IDENTIFICATION DIVISION. 000002 METHOD-ID. C1765 OF FACTORY OF XX. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS XX AS "*OLE". 000007 END METHOD C1765.
C1765.cob 2: JMN1765I-S Special CLASS 'XX' cannot be defined in a PROTOTYPE METHOD. CLASS 'XX' is ignored.
JMN1766I-U
JMN1767I-S
Parameter explanation
@1@ : class-name
Example
[C1767.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1767 INHERITS FJBASE. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS FJBASE 000007 . 000008 OBJECT. 000009 DATA DIVISION. 000010 WORKING-STORAGE SECTION. 000011 01 OBJR USAGE OBJECT REFERENCE FJBASE. 000012 PROCEDURE DIVISION. 000013* 000014 METHOD-ID. M1767 PROTOTYPE. 000015 END METHOD M1767. 000016* 000017 END OBJECT. 000018 END CLASS C1767. 000019/ [M1767.cob] 000001 IDENTIFICATION DIVISION. 000002 METHOD-ID. M1767 OF C1767. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS C1767 000007 CLASS FJBASE AS "*COM" 000008 . 000009 PROCEDURE DIVISION. 000010 END METHOD M1767.
M1767.cob 5: JMN1767I-S The CLASS 'FJBASE' specified in the REPOSITORY paragraph must have the same specifier when defined in the PROTOTYPE METHOD. CLASS 'FJBASE' is ignored.
JMN1768I-S
Parameter explanation
@1@ : class-name
Explanation
Please recompile the class that defined the method prototype.
JMN1769I-S
Parameter explanation
@1@ : class-name
Explanation
The following 2 points are the most likely causes of this error message:
It is generated with the compiler at a version level that is newer than the compiler the specified repository file's using it. Please recompile by the compiler using the repository file that becomes an object or update the version level of the compiler at a new version level.
The specified repository file might be generated with the compiler of a different system. Please recompile by the compiler of the same system as compiler under use, and make the repository file again.
JMN1770I-W
Parameter explanation
@1@ : method-name
Example
[C1770.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1770. 000003 OBJECT. 000004 PROCEDURE DIVISION. 000005 METHOD-ID. _M. 000006 END METHOD _M. 000007 END OBJECT. 000008 END CLASS C1770.
C1770.cob 5: JMN1770I-W Method names starting with '_' are reserved for the COBOL system. To use such method names, the OVERRIDE phrase must be specified. It is accepted as written.
Explanation
Method names starting with '_' are reserved for the COBOL system. Please avoid using as much as possible about such a method.
JMN1771I-S
Parameter explanation
@1@ : _ (Underscore)
Example
[C1771.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1771. 000003 OBJECT. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 DATA-1 PIC X(4). 000007 PROCEDURE DIVISION. 000008 METHOD-ID. SET PROPERTY _DATA. 000009 DATA DIVISION. 000010 LINKAGE SECTION. 000011 01 P1 PIC X(4). 000012 PROCEDURE DIVISION USING P1. 000013 MOVE P1 TO DATA-1. 000014 END METHOD. 000015 END OBJECT. 000016 END CLASS C1771.
C1771.cob 8: JMN1771I-S The first character of the property name cannot be a '_'. The PROPERTY phrase is ignored.
JMN1772I-S
Parameter explanation
@1@ : _ (Underscore)
Example
[C1772.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1772. 000003 OBJECT. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 _DATA PIC X(4) PROPERTY. 000007 PROCEDURE DIVISION. 000008 END OBJECT. 000009 END CLASS C1772.
C1772.cob 6: JMN1772I-S The PROPERTY clause cannot be specified if the data name begins with a '_'. The PROPERTY clause is ignored.
JMN1773I-S
Parameter explanation
@1@ : class-name
@2@ : underscore
Example
[C1773S.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1773S. 000003 OBJECT. 000004 PROCEDURE DIVISION. 000005 METHOD-ID. _M. 000006 END METHOD _M. 000007 END OBJECT. 000008 END CLASS C1773S. [C1773.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1773 INHERITS C1773S. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS C1773S. *> C1773S is a class compiled by V40L10. 000007 END CLASS C1773.
C1773.cob 2: JMN1773I-S The parent CLASS 'C1773S' contains a method name starting with '_'. The parent CLASS 'C1773S' should be recompiled. It is accepted as written.
Explanation
When the method that begins with underscore is included in the class that was created with V40L10, recompile is required while using the class.
JMN1774I-S
Example
[C1774.cob] 000001 PROGRAM-ID. C1774. 000002 PROCEDURE DIVISION. 000003** 000004 PROGRAM-ID. B AS "EX-NAME". 000005 END PROGRAM B. 000006 END PROGRAM C1774.
C1774.cob 4: JMN1774I-S The AS phrase cannot be specified in internal programs. The compiler skips to the next paragraph or division.
JMN1775I-S
Example
[C1775.cob] 000001 PROGRAM-ID. C1775 AS X"414243". 000002 PROCEDURE DIVISION. 000003 END PROGRAM C1775.
C1775.cob 1: JMN1775I-S A nonnumeric literal or a national literal must be specified after an AS phrase. The compiler skips to the next paragraph or division.
JMN1776I-S
Example
[C1776.cob] 000001 PROGRAM-ID. C1776. 000002 ENVIRONMENT DIVISION. 000003 CONFIGURATION SECTION. 000004 REPOSITORY. 000005 CLASS X AS X"4142". 000006 END PROGRAM C1776.
C1776.cob 5: JMN1776I-S A nonnumeric literal or a national literal must be specified after an AS phrase. The compiler skips to the next valid clause, paragraph, section or division.
JMN1778I-S
Parameter explanation
@1@ : class-name
Example
[C1.cob] 000001 @OPTIONS CREATE(REP) 000002 CLASS-ID. C1. 000003 OBJECT. 000004 PROCEDURE DIVISION. 000005 METHOD-ID. M1 PROTOTYPE. 000006 END METHOD M1. 000007 END OBJECT. 000008 END CLASS C1. [M1.cob] 000001 METHOD-ID. M1 OF C1. 000002 ENVIRONMENT DIVISION. 000003 CONFIGURATION SECTION. 000004 REPOSITORY. 000005 CLASS C1. 000006 END METHOD M1.
M1.cob 5: JMN1778I-S The repository file for CLASS 'C1' was created with the 'CREATE(REP)' compiler option. It cannot be used for a CLASS defining a PROTOTYPE METHOD. The compiler skips to the next element.
Explanation
The repository file, created by specifying the compiler option CREATE(REP), is called a temporary repository. It is a temporary file used until the regular repository is created. It can be used only to implement a cross reference class.
JMN1780I-S
JMN1781I-S
Explanation
The type library file name specified with the compiler option file doesn't exist or the mistake is found in the name or the PATH.
JMN1782I-S
Explanation
The specification of the type library for the COM server name is not set to the compiler option file.
JMN1783I-S
Explanation
Information on the type library is not included in the type library file specified with the compiler option file. Or, a file not suitable is specified for a type library file.
JMN1784I-S
Explanation
In the type library file, information on the class that specifies it doesn't exist.
JMN1785I-S
JMN1786I-S
Parameter explanation
@1@ : class-name
Example
[C1786S.cob] 000001 @OPTIONS RCS(SJIS) 000002 IDENTIFICATION DIVISION. 000003 CLASS-ID. C1786S. 000004 END CLASS C1786S. 000005**
[C1786.cob] 000001 @OPTIONS RCS(UTF16) 000002 IDENTIFICATION DIVISION. 000003 CLASS-ID. C1786 INHERITS C1786S. 000004 ENVIRONMENT DIVISION. 000005 CONFIGURATION SECTION. 000006 REPOSITORY. 000007 CLASS C1786S. 000008 END CLASS C1786.
[Solaris][Linux]
C1786.cob 7: JMN1786I-S The repository file for CLASS 'C1786S' must be the same runtime code-set (compiler option RCS) as the current compilation source definition. The compilation continues.
[Linux64]
c1786.cob 7: JMN1786I-S The compile option ENCODE and RCS of CLASS 'C1786S' must match a current valid source definition compile option. The compilation will continue after this message.
JMN1788I-S
Parameter explanation
@1@ : CLASS, ALPHABET
Example
[C1788.cob] 000001 @OPTIONS RCS(UTF16) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C1788. 000004 ENVIRONMENT DIVISION. 000005 CONFIGURATION SECTION. 000006 SPECIAL-NAMES. 000007 CLASS KANA IS "あ". 000008 END PROGRAM C1788.
C1788.cob 7: JMN1788I-S The nonnumeric literal in the CLASS clause cannot contain national characters. It is assumed to be a space.
JMN1790I-S
Example
[C1790.cob] 000001 @OPTIONS THREAD(MULTI),NOSHREXT 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C1790. 000004** 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 A PIC X EXTERNAL DEF. 000008** 000009 PROCEDURE DIVISION. 000010 CONTINUE. 000011 END PROGRAM C1790.
C1790.cob 7: JMN1790I-S 'DEFINITION' and 'REFERENCE' cannot specify the EXTERNAL clause when compiler option 'THREAD(MULTI)' and 'NOSHREXT' are being used. 'DEFINITION' or 'REFERENCE' is ignored.
JMN1802I-S
Parameter explanation
@1@ : BINARY-CHAR
@2@ : UNSIGNED
Example
[C1802.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1802. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 A USAGE BINARY-CHAR. 000006 END PROGRAM C1802.
C1802.cob 5: JMN1802I-S A UNSIGNED must be specified in the BINARY-CHAR phrase.
JMN1805I-S
Parameter explanation
@1@ : section name of data division
@2@ : definition name
Example
[C1805.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1805. 000003 OBJECT. 000004 PROCEDURE DIVISION. 000005 METHOD-ID. C1805M PROTOTYPE. 000006 DATA DIVISION. 000007 WORKING-STORAGE SECTION. 000008 END METHOD C1805M. 000009 END OBJECT. 000010 END CLASS C1805.
C1805.cob 7: JMN1805I-S A LINKAGE SECTION can only be specified in a method prototype definition. It is ignored until the next valid paragraph, section or division.
JMN1813I-S
Example
[C1813.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1813. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 A PIC 9(4) VALUE H"". 000006 END PROGRAM C1813.
C1813.cob 5: JMN1813I-S The length of a hexadecimal numeric literal cannot be zero. Assumed to be a zero.
JMN1814I-W
Example
[C1814.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1814. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 A PIC 9(4) VALUE H"FFF". 000006 END PROGRAM C1814.
C1814.cob 5: JMN1814I-W Hexadecimal numeric literals must have an even number of characters. A zero is added as the first character.
JMN1845I-W
Parameter explanation
@1@ : SOURCE-COMPUTER paragraph or OBJECT-COMPUTER paragraph,ASSIGN clause
Example
[C1845.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1845. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 OBJECT-COMPUTER. "COMP1". 000006 END PROGRAM C1845.
C1845.cob 5: JMN1845I-W The syntax is invalid. SOURCE-COMPUTER paragraph and OBJECT-COMPUTER paragraph assumed valid.
Explanation
The mistake is found in the syntax (obsolete element) treated as a comment. However, it doesn't influence the operation of the program.
JMN1847I-W
JMN1852I-S
Example
[c1852.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1852. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 ALPHABET ENC1 IS EBCDIC. 000007 DATA DIVISION. 000008 WORKING-STORAGE SECTION. 000009 01 DATA1 PIC X ENCODING ENC1. 000010 END PROGRAM C1852.
c1852.cob 9: JMN1852I-S In the ENCODING clause, the alphabet name for the encoding format was not defined. The ENCODING clause is disabled.
JMN1853I-S
Parameter explanation
@1@ : ALPHANUMERIC | NATIONAL
Example
[c1853.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1853. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 ALPHABET ENC1 IS EBCDIC. 000007 DATA DIVISION. 000008 WORKING-STORAGE SECTION. 000009 01 DATA1 PIC X ENCODING ENC1. 000010 END PROGRAM C1853.
c1853.cob 10: JMN1853I-S In the ENCODING clause, the alphabet name for the NATIONAL specification was already defined. The alphabet name initially defined remains.
JMN1854I-S
Example
[c1854.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1854. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 ALPHABET UTF FOR NATIONAL IS UTF16 000007 ALPHABET UTF FOR NATIONAL IS UTF32. 000008 DATA DIVISION. 000009 WORKING-STORAGE SECTION. 000010 01 DATA1 PIC N ENCODING UTF. 000011 END PROGRAM C1854.
c1854.cob 10: JMN1854I-S The alphabet name defined in the ENCODING clause was defined multiple times. The ENCODING clause is disabled.
JMN1855I-S
Example
[C1855.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1855. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 ALPHABET UTF16 FOR NATIONAL IS UTF16. 000007 DATA DIVISION. 000008 WORKING-STORAGE SECTION. 000009 COPY C1855CP ENCODING UTF16. 000010 END PROGRAM C1855.
[C1855CP.cbl] 000001 01 GRP01. 000002 02 DATA1 PIC N.
C1855.cob 9: JMN1855I-S The ENCODING clause must have a valid screen form descriptor name in the COPY statement. The ENCODING clause is disabled.
JMN1856I-S
Parameter explanation
@1@ : RCS(SJIS) | RCS(UTF16) | ENCODE(SJIS) | ENCODE(UTF8)
@2@ : SJIS | UTF8 | UTF16 | UTF8 UTF16 or UTF32
Example
[C1856.cob] 000001 @OPTIONS RCS(SJIS) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C1856. 000004 ENVIRONMENT DIVISION. 000005 CONFIGURATION SECTION. 000006 SPECIAL-NAMES. 000007 ALPHABET UTF16 FOR NATIONAL IS UTF16. 000008 DATA DIVISION. 000009 WORKING-STORAGE SECTION. 000010 01 DATA1 PIC N ENCODING UTF16. 000011 END PROGRAM C1856.
C1856.cob 10: JMN1856I-S When RCS(SJIS) is enabled, in the ENCODING clause, alphabet name with encoding SJIS must be specified. The ENCODING clause is disabled.
JMN1857I-S
JMN1858I-S
Parameter explanation
@1@ : compiler option name
@2@ : Reserved word that shows statement, phrase, and specification that causes the error.
Example
[C1858.cob] 000001 @OPTIONS RCS(ASCII) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C1858. 000004 ENVIRONMENT DIVISION. 000005 CONFIGURATION SECTION. 000006 SPECIAL-NAMES. 000007 ALPHABET SJS IS SJIS. 000008 DATA DIVISION. 000009 WORKING-STORAGE SECTION. 000010 01 DATA1 PIC X ENCODING SJS. 000011 END PROGRAM C1858.
C1858.cob 10: JMN1858I-S ENCODING cannot be used when compile option RCS(ASCII) are valid.
JMN1859I-S
Parameter explanation
@1@:Reserved word that shows statement, phrase, and specification that caused the error.
JMN1900I-W
Example
[C1900.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1900. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 DATA1. 000006 03 DATA2-1. 000007 04 DATA2-2. 000008 02 DATA2 PIC 9. 000009 END PROGRAM C1900.
C1900.cob 8: JMN1900I-W The level-number hierarchy is invalid.
Explanation
The hierarchy of the level number is composed in ascending order to 01-49.
JMN1903I-S
Example
[C1903.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1903. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN TO INFILE. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD IN-F RECORD 2147483648. 000010 01 IN-R PIC X(80). 000011 END PROGRAM C1903.
C1903.cob 9: JMN1903I-S The integer in the RECORD clause must not exceed 2147483647. 2147483647 is assumed.
JMN1904I-W
JMN1905I-S
Example
[C1905.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1905. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 EXEC SQL BEGIN DECLARE SECTION END-EXEC. 000006 01 SQLSTATE PIC X(5). 000007 EXEC DCSQL END DECLARE SECTION END-EXEC. 000008 END PROGRAM C1905.
C1905.cob 7: JMN1905I-S The 'END DECLARE SECTION' corresponding to the 'BEGIN DECLARE SECTION' is missing. This statement is ignored and the DECLARE SECTION is continued.
