Top
NetCOBOL V11.0 Messages
FUJITSU Software

2.2.4 JMN3000 - JMN3999

3000

3001

3002

3003

3004

3005

3006

3007

3008

3009

3010

3011

3012

3013

3014

3015

3016

3017

3018

3021

3022

3023

3024

3025

3028

3029

3030

3034

3036

3037

3038

3039

3040

3041

3043

3046

3048

3049

3050

3051

3053

3054

3056

3057

3060

3061

3062

3063

3064

3065

3066

3067

3068

3069

3070

3071

3072

3073

3074

3075

3076

3076

3077

3078

3079

3080

3081

3083

3084

3086

3087

3088

3090

3091

3092

3095

3097

3098

3105

3107

3108

3109

3110

3111

3116

3117

3119

3121

3123

3124

3127

3128

3130

3132

3135

3136

3141

3142

3143

3144

3145

3146

3147

3148

3149

3150

3151

3152

3153

3154

3157

3158

3159

3160

3161

3162

3163

3164

3165

3166

3169

3170

3175

3181

3182

3184

3188

3189

3190

3191

3192

3193

3194

3195

3196

3198

3199

3200

3202

3203

3207

3218

3219

3222

3223

3226

3229

3231

3236

3238

3240

3241

3242

3243

3244

3245

3246

3248

3249

3250

3259

3262

3264

3265

3266

3268

3269

3270

3271

3272

3273

3275

3276

3277

3278

3280

3281

3286

3287

3291

3298

3301

3304

3307

3309

3326

3327

3328

3330

3331

3332

3333

3334

3335

3337

3338

3339

3340

3342

3343

3344

3345

3346

3347

3348

3349

3351

3352

3353

3354

3355

3358

3359

3361

3362

3363

3364

3366

3367

3268

3269

3371

3372

3373

3374

3375

3376

3377

3378

3379

3380

3381

3382

3383

3384

3385

3386

3388

3391

3392

3393

3394

3395

3396

3397

3398

3399

3400

3401

3402

3403

3404

3405

3406

3407

3408

3410

3412

3413

3414

3415

3421

3422

3423

3424

3427

3428

3429

3430

3432

3433

3434

3437

3438

3439

3440

3441

3442

3443

3444

3445

3446

3447

3448

3449

3450

3458

3459

3460

3461

3462

3463

3464

3465

3466

3467

3468

3469

3470

3471

3472

3476

3482

3483

3484

3485

3508

3516

3518

3519

3524

3525

3526

3530

3531

3533

3534

3535

3536

3549

3551

3552

3553

3554

3555

3557

3558

3559

3562

3563

3564

3565

3566

3567

3568

3569

3570

JMN3000I-S

The value of the subscript of @2@th dimension for @1@ must be positive. 1 is used for the subscript value.

Parameter explanation

@1@ : Data item associated with the subscript.

@2@ : Number of dimensions of subscripts that are 0 or less.

Example

[C3000.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3000.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01  GR01.
000006     02  TBL01 OCCURS 10 TIMES.
000007       03  TBL02 OCCURS 10 TIMES.
000008         04  AN01 PIC X.
000009 PROCEDURE  DIVISION.
000010     MOVE SPACE TO AN01(1, 0).

C3000.cob 10: JMN3000I-S The value of the subscript of 2th dimension for 'AN01' must be positive. 1 is used for the subscript value.

JMN3001I-S

The value of the subscript of the @2@th dimension for @1@ must not exceed @3@. 1 is used for the subscript value.

Parameter explanation

@1@ : Data item on which subscript is put.

@2@ : Number of dimensions for which wrong subscript is specified.

@3@ : Range of value of correct subscript.

Example

[C3001.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3001.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01  GR01.
000006   02  TBL01 OCCURS 10 TIMES.
000007     03  TBL02 OCCURS 10 TIMES.
000008       04  AN01 PIC X.
000009 PROCEDURE  DIVISION.
000010     MOVE SPACE TO AN01(1, 11).

C3001.cob 10: JMN3001I-S The value of the subscript of the 2th dimension for 'AN01' must not exceed 10. 1 is used for the subscript value.

JMN3002I-S

The number of subscripts for @1@ must be @2@. Extra high-order-end subscripts are ignored.

Parameter explanation

@1@ : Data item on which subscript is put.

@2@ : Number of correct subscripts.

Example

[C3002.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3002.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01  GR01.
000006   02  TBL01 OCCURS 10 TIMES.
000007     03  TBL02 OCCURS 10 TIMES.
000008       04  AN01 PIC X.
000009 PROCEDURE  DIVISION.
000010     MOVE SPACE TO AN01(1, 2, 3).

C3002.cob 10: JMN3002I-S The number of subscripts for 'AN01' must be 2. Extra high-order-end subscripts are ignored.

JMN3003I-S

The number of subscripts for @1@ must be @2@. The value of each higher dimension subscript is replaced with 1.

Parameter explanation

@1@ : Data item associated with the subscript.

@2@ : Number of correct subscripts.

Example

[C3003.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3003.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01  GR01.
000006   02  TBL01 OCCURS 10 TIMES.
000007     03  TBL02 OCCURS 10 TIMES.
000008       04  AN01 PIC X.
000009 PROCEDURE  DIVISION.
000010     MOVE SPACE TO AN01(2).

C3003.cob 10: JMN3003I-S The number of subscripts for 'AN01' must be 2. The value of each higher dimension subscript is replaced with 1.

JMN3004I-W

Index-name @3@ of the @2@th dimension for @1@ must be specified using the INDEXED BY phrase of that table. It is assumed that the index-name is an index for that table.

Parameter explanation

@1@ : Data item on which subscript is put.

@2@ : Number of dimensions which does wrong subscript putting.

@3@ : Wrong index name.

Example

[C3004.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3004.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01  GR01.
000006   02  TBL01 OCCURS 10 TIMES INDEXED BY IX01.
000007     03  TBL02 OCCURS 10 TIMES.
000008       04  AN01 PIC X.
000009 PROCEDURE  DIVISION.
000010     MOVE SPACE TO AN01(1, IX01).
000011 END PROGRAM  C3004.

C3004.cob 10: JMN3004I-W Index-name 'IX01' of the 2th dimension for 'AN01' must be specified using the INDEXED BY phrase of that table. It is assumed that the index-name is an index for that table.

JMN3005I-S

The usage of the reference modified data item @1@ must be 'DISPLAY'. Usage 'DISPLAY' is assumed.

Parameter explanation

@1@ : Reference modified data item.

Example

[C3005.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3005.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01  SBITEM PIC S9(9) BINARY.
000006 PROCEDURE  DIVISION.
000007     MOVE ZERO TO SBITEM(1:2).
000008 END PROGRAM  C3005.

C3005.cob 7: JMN3005I-S The usage of the reference modified data item 'SBITEM' must be 'DISPLAY'. Usage 'DISPLAY' is assumed.

JMN3006I-S

The length of the reference modifier for @1@ must be greater than zero. A length of 1 is assumed.

Parameter explanation

@1@ : Reference modified data item.

Example

[C3006.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3006.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01  SBITEM PIC X(10).
000006 PROCEDURE  DIVISION.
000007     MOVE ZERO TO SBITEM(1:0).
000008 END PROGRAM  C3006.

C3006.cob 7: JMN3006I-S The length of the reference modifier for 'SBITEM' must be greater than zero. A length of 1 is assumed.

JMN3007I-S

The leftmost-character-position of the reference modifier for @1@ must be greater than zero. The leftmost-character-position is assumed to be 1.

Parameter explanation

@1@ : Reference modified data item.

Example

[C3007.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3007.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01  SBITEM PIC X(10).
000006 PROCEDURE  DIVISION.
000007     MOVE ZERO TO SBITEM(0:1).
000008 END PROGRAM  C3007.

C3007.cob 7: JMN3007I-S The leftmost-character-position of the reference modifier for 'SBITEM' must be greater than zero. The leftmost-character-position is assumed to be 1.

JMN3008I-S

The length of the reference modifier for @1@ cannot exceed @2@. A length of 1 is assumed.

Parameter explanation

@1@ : Reference modified data item.

@2@ : Range of correct length.

Example

[C3008.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3008.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01  SBITEM PIC X(10).
000006 PROCEDURE  DIVISION.
000007     MOVE ZERO TO SBITEM(1:11).
000008 END PROGRAM  C3008.

C3008.cob 7: JMN3008I-S The length of the reference modifier for 'SBITEM' cannot exceed 10. A length of 1 is assumed.

JMN3009I-S

The leftmost-character-position of the reference modifier for @1@ cannot exceed @2@. The leftmost-character-position is assumed to be 1.

Parameter explanation

@1@ : Reference modified data item.

@2@ : Range at correct Leftmost-character-position.

Example

[C3009.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3009.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01  SBITEM PIC X(10).
000006 PROCEDURE  DIVISION.
000007     MOVE ZERO TO SBITEM(11:1).
000008 END PROGRAM  C3009.

C3009.cob 7: JMN3009I-S The leftmost-character-position of the reference modifier for 'SBITEM' cannot exceed 10. The leftmost-character-position is assumed to be 1.

JMN3010I-S

The sum of the leftmost-character-position and the length of the reference modifier for @1@ cannot exceed @2@. The leftmost-character-position and the length are both assumed to be 1.

Parameter explanation

@1@ : Reference modified data item.

@2@ : Range of value by which one is subtracted in total of correct leftmost-character-position and length.

Example

[C3010.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3010.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01  SBITEM PIC X(10).
000006 PROCEDURE  DIVISION.
000007     MOVE ZERO TO SBITEM(6:6).
000008 END PROGRAM  C3010.

C3010.cob 7: JMN3010I-S The sum of the leftmost-character-position and the length of the reference modifier for 'SBITEM' cannot exceed 10. The leftmost-character-position and the length are both assumed to be 1.

JMN3011I-S

The value of the divisor is zero, where zero is a numeric literal with a value of 0, a figurative constant 'ZERO', or the result of an operation with no significant digits. A value consisting of all 9's is moved to the receiving item, with the number of digits being determined from the PICTURE clause of the receiving item. When the receiving item is an arithmetic expression, the number of digits is 30.

Example

[C3011.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3011.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01  ED01  PIC  S9(9).
000006 01  ED02  PIC  S9(9).
000007 PROCEDURE  DIVISION.
000008     COMPUTE ED01 = ED02 / 0.
000009 END PROGRAM  C3011.

C3011.cob 8: JMN3011I-S The value of the divisor is zero, where zero is a numeric literal with a value of 0, a figurative constant 'ZERO', or the result of an operation with no significant digits. A value consisting of all 9's is moved to the receiving item, with the number of digits being determined from the PICTURE clause of the receiving item. When the receiving item is an arithmetic expression, the number of digits is 30.

JMN3012I-W

There are no significant digits in the intermediate result of the operation. The result is assumed to be zero.

Example

[C3012.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3012.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01  ED01  PIC  S9(18).
000006 01  ED02  PIC  S9P(15).
000007 01  ED03  PIC  S9P(15).
000008 PROCEDURE  DIVISION.
000009     COMPUTE ED01 = ED02 * ED03.

C3012.cob 9: JMN3012I-W There are no significant digits in the intermediate result of operation. The result is assumed to be zero.

Explanation

In cases like that shown above the compiler can determine that the result will not fit in the available intermediate storage. Intermediate results are limited to 30 digits. Although there are only two significant digits in the calculation ED02 * ED03, the answer still has to be converted to a fixed-point number with the scaling applied before being moved to the result. The scaling would result in the significant digits being shifted 30 positions to the left - so they would be shifted out of the space allocated for the intermediate result, making the intermediate result zero.

Rather than generate code that performs the multiplication, followed by the scaling, that is clearly going to give the answer zero, the compiler generates code that assumes the answer is zero and issues the warning message so you can check if you intended that the answer always be zero.

JMN3013I-W

Computing the zero power of zero occurred, where zero is a numeric literal with value 0, figurative constant 'ZERO', or a result of an operation with no significant digits. The result is assumed to be zero.

Example

[C3013.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3013.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01  ED01  PIC  S9(18).
000006 PROCEDURE  DIVISION.
000007     COMPUTE ED01 = 0 ** 0.
000008 END PROGRAM  C3013.

C3013.cob 7: JMN3013I-W Computing the zero power of zero occurred, where zero is a numeric literal with value 0, figurative constant 'ZERO', or a result of an operation with no significant digits. The result is assumed to be zero.

JMN3014I-I

(CONF) During a move between a nonnumeric operand and a numeric operand, the numeric operand has 'P' to left of the decimal point. The numeric operand was moved, assuming zero at the position of 'P'.

Example

[C3014.cob]
000001 @OPTIONS CONF(68)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.  C3014.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  ED01  PIC  9P.
000007 01  AN01  PIC  X.
000008 PROCEDURE  DIVISION.
000009     MOVE ED01 TO AN01.
000010 END PROGRAM  C3014.

C3014.cob 9: JMN3014I-I (CONF) During a move between a nonnumeric operand and a numeric operand, the numeric operand has 'P' to left of the decimal point. The numeric operand was moved, assuming zero at the position of 'P'.

JMN3015I-I

(CONF) A Boolean item or Boolean literal is moved to an alphanumeric item. An elementary move between two alphanumeric items is assumed.

Example

[C3015.cob]
000001 @OPTIONS CONF(V52)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.  C3015.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  EB01  PIC  1.
000007 01  AN01  PIC  X.
000008 PROCEDURE  DIVISION.
000009     MOVE EB01 TO AN01.
000010 END PROGRAM  C3015.

C3015.cob 9: JMN3015I-I (CONF) A Boolean item or Boolean literal is moved to an alphanumeric item. An elementary move between two alphanumeric items is assumed.

JMN3016I-I

(CONF) The ALL literal is moved to a numeric item or numeric edited item. The literal is repeated, character by character, until its size is equal to the size of the receiving operand.

Example

[C3016.cob]
000001 @OPTIONS CONF(68)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.  C3016.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  ED01  PIC  9(5).
000007 PROCEDURE  DIVISION.
000008     MOVE ALL "123" TO ED01.
000009 END PROGRAM  C3016.

C3016.cob 8: JMN3016I-I (CONF) The ALL literal is moved to a numeric item or numeric edited item. The literal is repeated, character by character, until its size is equal to the size of the receiving operand.

JMN3017I-I

(CONF) The group item including the item with the OCCURS DEPENDING ON clause and its object item is specified in the receiving operand. The maximum length of the receiving item is assumed.

Example

[C3017.cob]
000001 @OPTIONS CONF(74)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.  C3017.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  GR01.
000007     02  ODO01 PIC 9(4) BINARY VALUE 3.
000008     02  TBL01 PIC X(10) OCCURS 10 DEPENDING ON ODO01.
000009 PROCEDURE  DIVISION.
000010     MOVE SPACE TO GR01.
000011 END PROGRAM  C3017.

C3017.cob 10: JMN3017I-I (CONF) The group item including the item with the OCCURS DEPENDING ON clause and its object item is specified in the receiving operand. The maximum length of the receiving item is assumed.

JMN3018I-S

A nonnumeric literal moved to a numeric item can consist only of numeric characters.

Example

[C3018.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3018.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01  ED01  PIC  9(5).
000006 PROCEDURE  DIVISION.
000007     MOVE "1234E" TO ED01.
000008 END PROGRAM  C3018.

C3018.cob 7: JMN3018I-S A nonnumeric literal moved to a numeric item can consist only of numeric characters.

JMN3021I-S

The value of the numeric literal that is moved to the binary item cannot exceed the maximum value that can be held in the receiving item.

Example

[C3021.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3021.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01  BI01  PIC  S9(4)  COMPUTATIONAL.
000006 PROCEDURE  DIVISION.
000007     MOVE  +54321  TO  BI01.
000008 END PROGRAM C3021.

C3021.cob 7: JMN3021I-S The value of the numeric literal that is moved to the binary item cannot exceed the maximum value that can be held in the receiving item.

Explanation

This message is given when you compile the program with NOTRUNC and attempt to move a numeric literal that is outside the range of binary values that can be stored in the target item. In the example above BI01 is stored in 2 bytes, so can store values in the range -32767 to +32767; +54321 is outside this range so cannot be stored in BI01.

The message is not given if you compile with TRUNC (though you will receive a warning message) because you have specified that such moves should truncate the digits to fit the target item. In the above example, BI01 would contain +4321 after the move when the program is compiled with TRUNC.

JMN3022I-W

Non-integer item @1@ cannot be moved to alphanumeric item @2@. After moving the sending operand to an unsigned external decimal item with the same digits as the sending operand, the alphanumeric item redefining that external decimal item is moved to the receiving alphanumeric item.

Parameter explanation

@1@ : Data item on sending side.

@2@ : Data item on receiving side.

Example

[C3022.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3022.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01  ID01  PIC  9V9  PACKED-DECIMAL.
000006 01  AN01  PIC  X(4).
000007 PROCEDURE  DIVISION.
000008     MOVE  ID01  TO  AN01.
000009 END PROGRAM  C3022.

C3022.cob 8: JMN3022I-W Non-integer item 'ID01' cannot be moved to alphanumeric item 'AN01'. After moving the sending operand to an unsigned external decimal item with the same digits as the sending operand, the alphanumeric item redefining that external decimal item is moved to the receiving alphanumeric item.

JMN3023I-S

@1@ cannot be moved to @2@.

Parameter explanation

@1@ : sending element

@2@ : receiving element

Example

[C3023.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3023.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01  AL01  PIC  A.
000006 01  ED01  PIC  9.
000007 PROCEDURE  DIVISION.
000008     MOVE  AL01  TO  ED01.

C3023.cob 8: JMN3023I-S 'AL01' cannot be moved to 'ED01'.

Explanation

This error message is given when an explicit or implicit MOVE is coded with a combination of sending and receiving items that is not allowed. For valid combinations of sending and receiving items see the section "Rules for Moving (Transcribing) Data" in Chapter 6 of the "NetCOBOL Language Reference".

JMN3024I-W

[Solaris][Linux]
The intermediate result cannot contain more than 30 digits. The intermediate result is assumed to have 30 digits.

[Linux64]
The intermediate result cannot contain more than @1@ digits. The intermediate result is assumed to have @1@ digits.

Parameter explanation

@1@ : The maximum number of intermediate result digits.

Example

[Solaris][Linux]

[C3024.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3024.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01  ED01  PIC  S9(16).
000006 01  ED02  PIC  SV9(16).
000007 PROCEDURE  DIVISION.
000008     ADD ED01 TO ED02.

C3024.cob 8: JMN3024I-W The intermediate result cannot contain more than 30 digits. The intermediate result is assumed to have 30 digits.

[Linux64]

[C3024.cob]
000001 @OPTIONS ARITHMETIC(18)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID. C3024.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 ED01 PIC S9(16).
000007 01 ED02 PIC SV9(16).
000008 PROCEDURE DIVISION.
000009         ADD ED01 TO ED02.

C3024.cob 9: JMN3024I-W The intermediate result cannot contain more than 30 digits. The intermediate result is assumed to have 30 digits.

[C3024.cob]
000001 @OPTIONS ARITHMETIC(31)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID. C3024.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 ED01 PIC S9(20).
000007 01 ED02 PIC SV9(20).
000008 PROCEDURE DIVISION.
000009         ADD ED01 TO ED02.

C3024.cob 9: JMN3024I-W The intermediate result cannot contain more than 38 digits. The intermediate result is assumed to have 38 digits.

JMN3025I-S

A Boolean expression cannot be specified in a conditional expression.

Example

[C3025.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3025.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A      PIC 1(8) BIT.
000007 PROCEDURE  DIVISION.
000008 P-START.
000009     IF  ( A ) =  B"00001111"  THEN
000010       STOP RUN.

C3025.cob 9: JMN3025I-S A Boolean expression cannot be specified in a conditional expression.

JMN3028I-S

Identifier @1@ of the CALL statement must be an alphanumeric item or a national item.

Parameter explanation

@1@ : Identifier

Example

[C3028.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3028.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  LIB-NAME PIC S9(8).
000007 PROCEDURE  DIVISION.
000008 P-START.
000009     CALL LIB-NAME.

C3028.cob 9: JMN3028I-S Identifier 'LIB-NAME' of the CALL statement must be an alphanumeric item or a national item.

JMN3029I-S

A procedure-name cannot be specified for the USING phrase in this CALL statement.

Example

[C3029.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3029.
000003 ENVIRONMENT DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 PROCEDURE  DIVISION.
000007 P-START.
000008     CALL "C3029SUB" USING INT-START.
000009 INT-START.
000010     EXIT PROGRAM.
000011 IDENTIFICATION DIVISION.
000012 PROGRAM-ID.  C3029SUB.
000013 ENVIRONMENT  DIVISION.
000014 DATA  DIVISION.
000015 LINKAGE SECTION.
000016 01  RETURN-P     POINTER.
000017 PROCEDURE  DIVISION USING RETURN-P.
000018     DISPLAY "C3029SUB".
000019 END PROGRAM C3029SUB.
000020 END PROGRAM C3029.

C3029.cob 8: JMN3029I-S A procedure-name cannot be specified for the USING phrase in this CALL statement.

JMN3030I-S

Identifier @1@ in the CANCEL statement must be an alphanumeric or a national item.

Parameter explanation

@1@ : Identifier

Example

[C3030.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3030.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  TEST-P   PIC 9(8).
000007 PROCEDURE  DIVISION.
000008 P-START.
000009     CANCEL TEST-P.

C3030.cob 9: JMN3030I-S Identifier 'TEST-P' in the CANCEL statement must be an alphanumeric or a national item.

JMN3034I-S

The content of @1@ in the SET statement cannot be changed by @2@. Specify a correct combination.

Parameter explanation

@1@ : Symbol of the set item.

@2@ : Symbol of the item or integer constant specified for the TO phrase.

Example

[C3034.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3034.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006   01 A PIC S9(8) BINARY.
000007   01 B INDEX.
000008 PROCEDURE DIVISION.
000009   P-START.
000010     SET A TO B.
000011     STOP RUN.

C3034.cob 10: JMN3034I-S The content of 'A' in the SET statement cannot be changed by 'B'. Specify a correct combination.

JMN3036I-S

In the REPLACING phrase of the INITIALIZE statement, @1@ must be in a category that can be moved to an item of category @2@.

Parameter explanation

@1@ : Symbol or constant

@2@ : Key word that shows paragraphs that can be specified by the REPLACING phrase.

Example

[C3036.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3036.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006   01 A PIC X(10).
000007   01 B PIC 99 VALUE 10.
000008 PROCEDURE DIVISION.
000009   P-START.
000010     INITIALIZE A REPLACING ALPHABETIC BY B
000011                            NUMERIC BY B.
000012     STOP RUN.

C3036.cob 10: JMN3036I-S In the REPLACING phrase of the INITIALIZE statement, 'B' must be in a category that can be moved to an item of category ALPHABETIC.

JMN3037I-S

Item @1@ which is defined with an OCCURS clause with DEPENDING cannot be specified in an INITIALIZE statement.

Parameter explanation

@1@ : Item name specified for the receiving side.

Example

[C3037.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3037.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006   01 A.
000007     02 B PIC X OCCURS 1 TO 10 DEPENDING ON C.
000008   01 C PIC 99.
000009 PROCEDURE DIVISION.
000010   P-START.
000011     INITIALIZE A C.
000012     STOP RUN.

C3037.cob 11: JMN3037I-S Item 'A' which is defined with an OCCURS clause with DEPENDING cannot be specified in an INITIALIZE statement.

JMN3038I-S

@1@ in the PERFORM statement must be a numeric item.

Parameter explanation

@1@ : Identifier.

Example

[C3038.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3038.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A       PIC 99.
000007 01  B       PIC XX.
000008 PROCEDURE  DIVISION.
000009     PERFORM VARYING A FROM B BY 1 UNTIL A < 0
000010     COMPUTE A = A - 1
000011     END-PERFORM.
000012     STOP RUN.

C3038.cob 9: JMN3038I-S 'B' in the PERFORM statement must be a numeric item.

JMN3039I-S

@1@ in the PERFORM statement must be an integer item.

Parameter explanation

@1@ : Identifier.

Example

[C3039.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3039.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A       PIC 9V9.
000007 PROCEDURE  DIVISION.
000008     PERFORM L1 A TIMES.
000009 L1.
000010     DISPLAY A.
000011 L2.
000012     STOP RUN.

C3039.cob 8: JMN3039I-S 'A' in the PERFORM statement must be an integer item.

JMN3040I-S

Identifier @1@ in the @2@ statement must be a data item that has an OCCURS clause with an INDEXED BY phrase.

Parameter explanation

@1@ : Identifier.

@2@ : SEARCH/SEARCH ALL

Example

[C3040.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3040.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  TBL.
000007   02  A OCCURS 5 TIMES.
000008     03  B PIC 9.
000009 PROCEDURE  DIVISION.
000010     SEARCH A WHEN B(1) = 0
000011     STOP RUN.

C3040.cob 10: JMN3040I-S Identifier 'A' in the SEARCH statement must be a data item that has an OCCURS clause with an INDEXED BY phrase.

JMN3041I-S

@1@ of the VARYING phrase in the SEARCH statement must be an index-name, indexed data item, or integer item.

Parameter explanation

@1@ : Identifier.

Example

[C3041.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3041.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  TBL.
000007    02  X OCCURS 5 TIMES
000008                INDEXED BY IX1.
000009       03  A        PIC 9.
000010 01  B              PIC 9V9.
000011 PROCEDURE  DIVISION.
000012     SEARCH X VARYING B WHEN A(IX1) = 0
000013     MOVE 1 TO A(IX1).
000014     STOP RUN.

C3041.cob 12: JMN3041I-S 'B' of the VARYING phrase in the SEARCH statement must be an index-name, indexed data item, or integer item.

JMN3043I-S

The two operands connected by the THROUGH phrase in the EVALUATE statement must be of the same class.

Example

[C3043.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3043.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A        PIC 9(2).
000007 01  B        PIC XX.
000008 01  X        PIC 9(2).
000009 PROCEDURE  DIVISION.
000010     EVALUATE X
000011     WHEN A THROUGH B
000012       MOVE 1 TO A.
000013     STOP RUN.

C3043.cob 11: JMN3043I-S The two operands connected by the THROUGH phrase in the EVALUATE statement must be of the same class.

JMN3046I-S

If an arithmetic expression, identifier, or literal is specified in the selection subject of the EVALUATE statement, the selection object must be an arithmetic expression, identifier, literal, or 'ANY'.

Example

[C3046.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3046.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A        PIC 9(2).
000007 PROCEDURE  DIVISION.
000008     EVALUATE A
000009     WHEN 0
000010       MOVE 0 TO A
000011     WHEN TRUE
000012       MOVE 1 TO A
000013     END-EVALUATE.
000014 END PROGRAM  C3046.

C3046.cob 11: JMN3046I-S If an arithmetic expression, identifier, or literal is specified in the selection subject of the EVALUATE statement, the selection object must be an arithmetic expression, identifier, literal, or 'ANY'.

JMN3048I-S

The two operands connected with the THROUGH phrase in the EVALUATE statement cannot be a Boolean or object identifier.

Example

[C3048.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3048.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A        PIC 1(2).
000007 01  B        PIC 1(2).
000008 01  X        PIC 1(2).
000009 PROCEDURE  DIVISION.
000010     EVALUATE X
000011     WHEN A THROUGH B
000012       MOVE B"01" TO A.
000013     STOP RUN.

C3048.cob 11: JMN3048I-S The two operands connected with the THROUGH phrase in the EVALUATE statement cannot be a Boolean or object identifier.

JMN3049I-S

If 'TRUE' or 'FALSE' is specified in the selection subject of the EVALUATE statement, the selection object must be a conditional expression, 'TRUE', 'FALSE', or 'ANY'.

Example

[C3049.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3049.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A        PIC X(2).
000007 PROCEDURE  DIVISION.
000008     EVALUATE TRUE
000009     WHEN     A
000010       MOVE 1 TO A.
000011     STOP RUN.

C3049.cob 9: JMN3049I-S If 'TRUE' or 'FALSE' is specified in the selection subject of the EVALUATE statement, the selection object must be a conditional expression, 'TRUE', 'FALSE', or 'ANY'.

JMN3050I-W

No corresponding items exist in the @1@ statement with CORRESPONDING phrase. The statement is ignored.

Parameter explanation

@1@ : MOVE, ADD, or SUBTRACT

Example

[C3050.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3050.
000003 ENVIRONMENT  DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 DATA  DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01  AA.
000008     02 CC-1      PIC 9(4).
000009     02 CC-2      PIC 9(8).
000010 01  BB.
000011     02 CC-3      PIC 9(4).
000012     02 CC-4      PIC 9(8).
000013 PROCEDURE  DIVISION.
000014 P-START.
000015     ADD CORR AA TO BB.
000016     STOP RUN.

C3050.cob 15: JMN3050I-W No corresponding items exist in the ADD statement with CORRESPONDING phrase. The statement is ignored.

Explanation

If there are no elementary items that correspond between sending and receiving items in a statement that has the CORRESPONDING phrase, then the statement has no meaning.

Note that for elementary items to match, the fully qualified names, below the items specified in the statement, must match. It is not sufficient that the names of the elementary items match if there are intervening group items between the elementary items and the items specified in the statement.

JMN3051I-S

@2@ specified in the @1@ statement with the CORRESPONDING phrase must be a group item.

Parameter explanation

@1@ : MOVE, ADD or SUBTRACT.

@2@ : Identifier.

Example

[C3051.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3051.
000003 ENVIRONMENT  DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 DATA  DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01  AA.
000008     02 CC-1      PIC 9(4).
000009     02 CC-2      PIC 9(8).
000010 01  BB.
000011     02 CC-3      PIC 9(4).
000012     02 CC-4      PIC 9(8).
000013 PROCEDURE  DIVISION.
000014 P-START.
000015     ADD CORR CC-2 TO BB.
000016     STOP RUN.

C3051.cob 15: JMN3051I-S 'CC-2' specified in the ADD statement with the CORRESPONDING phrase must be a group item.

JMN3053I-S

In the ACCEPT statement specifying a mnemonic-name or function-name, identifier @1@ must be a fixed-length group item, alphabetic item, alphanumeric item, external decimal item, internal decimal item, binary item, or external boolean item.

Parameter explanation

@1@ : Identifier.

Example

[C3053.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3053.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  AA     PIC ZZZZ9.
000007 PROCEDURE  DIVISION.
000008 P-START.
000009     ACCEPT AA FROM SYSIN.
000010     STOP RUN.

C3053.cob 9: JMN3053I-S In the ACCEPT statement specifying a mnemonic-name or function-name, identifier 'AA' must be a fixed-length group item, alphabetic item, alphanumeric item, external decimal item, internal decimal item, binary item, or external boolean item.

JMN3054I-S

If a DATE, DAY, DAY-OF-WEEK, or TIME is specified in the FROM phrase of the ACCEPT statement, @1@ must be a fixed length group item, alphanumeric, alphanumeric edited, numeric edited, external decimal, or binary item.

Parameter explanation

@1@ : Identifier.

Example

[C3054.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3054.
000003 ENVIRONMENT  DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT IN-FILE ASSIGN TO DA-S-SYS006.
000007 DATA  DIVISION.
000008 FILE SECTION.
000009 FD   IN-FILE LABEL RECORD STANDARD.
000010 01  REC.
000011     02 REC-NO    PIC 9(4).
000012     02 REC-DATA  PIC X(8).
000013     02 FILLER    PIC X(68).
000014 WORKING-STORAGE  SECTION.
000015 77  AA           PIC 1(8).
000016 PROCEDURE  DIVISION.
000017 P-START.
000018     ACCEPT AA FROM DATE.
000019     STOP RUN.

C3054.cob 18: JMN3054I-S If a DATE, DAY, DAY-OF-WEEK, or TIME is specified in the FROM phrase of the ACCEPT statement, 'AA' must be a fixed length group item, alphanumeric, alphanumeric edited, numeric edited, external decimal, or binary item.

JMN3056I-S

@1@ @2@ cannot be specified to a @4@ phrase in a @3@ statement.

Parameter explanation

@1@ : Organization of file

@2@ : File name

@3@ : SORT or MERGE

@4@ : USING or GIVING

Example

[C3056.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3056.
000003 ENVIRONMENT  DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT FILE-1  ASSIGN TO DA-S-SYS001.
000007     SELECT FILE-2  ASSIGN TO DA-D-SYS002.
000008     SELECT FILE-3  ASSIGN TO DA-I-SYS003
000009            ACCESS MODE IS RANDOM
000010            INDEXED RECORD KEY IS KEY-3-1.
000011 DATA  DIVISION.
000012 FILE SECTION.
000013 SD  FILE-1 LABEL RECORD STANDARD.
000014 01  REC-1.
000015     02 KEY-1     PIC 9(2).
000016     02 KEY-2     PIC 9(2).
000017     02 KEY-3     PIC 9(2).
000018     02 FILLER    PIC X(74).
000019 FD  FILE-2 LABEL RECORD STANDARD.
000020 01  REC-2    PIC X(80).
000021 FD  FILE-3 LABEL RECORD STANDARD.
000022 01  REC-3.
000023     02 KEY-3-1   PIC 9(2).
000024     02 KEY-3-2   PIC X(78).
000025 PROCEDURE  DIVISION.
000026 P-START.
000027     SORT FILE-1 ON ASCENDING KEY KEY-1 KEY-2
000028     USING FILE-2
000029     GIVING FILE-3.
000030     STOP RUN.

C3056.cob 27: JMN3056I-S Indexed file 'FILE-3' cannot be specified to a GIVING phrase in a SORT statement.

Explanation

The file which the message shows is not a type which can be specified for the USING phrase and the GIVING phrase of the SORT statement and the MERGE statement.

Only the file of the following types can be specified:

  • Sequential files on a mass storage unit or floppy disk drive

  • Relative files in sequential access mode

  • Indexed files in sequential access mode

JMN3057I-S

An alphabet-name corresponding to a function-name cannot be specified in the COLLATING SEQUENCE phrase of @1@.

Parameter explanation

@1@ : SORT or MERGE

Example

[C3057.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3057.
000003 ENVIRONMENT  DIVISION.
000004 CONFIGURATION  SECTION.
000005 SPECIAL-NAMES.
000006     ABN-1 IS CODE-3.
000007 INPUT-OUTPUT SECTION.
000008 FILE-CONTROL.
000009     SELECT FILE-1  ASSIGN TO DA-S-SYS001.
000010     SELECT FILE-2  ASSIGN TO DA-S-SYS002.
000011     SELECT FILE-3  ASSIGN TO DA-S-SYS003.
000012 DATA  DIVISION.
000013 FILE SECTION.
000014 SD  FILE-1 LABEL RECORD STANDARD.
000015 01  REC-1.
000016     02 KEY-1     PIC 9(2).
000017     02 KEY-2     PIC 9(2).
000018     02 KEY-3     PIC 9(2).
000019     02 FILLER    PIC X(74).
000020 FD  FILE-2 LABEL RECORD STANDARD.
000021 01  REC-2    PIC X(80).
000022 FD  FILE-3 LABEL RECORD STANDARD.
000023 01  REC-3    PIC X(80).
000024 PROCEDURE  DIVISION.
000025 P-START.
000026     SORT FILE-1 ON ASCENDING KEY KEY-1 KEY-2
000027     COLLATING SEQUENCE ABN-1
000028     USING FILE-2
000029     GIVING FILE-3.
000030     STOP RUN.

C3057.cob 26: JMN3057I-S An alphabet-name corresponding to a function-name cannot be specified in the COLLATING SEQUENCE phrase of SORT.

JMN3060I-S

@1@ defined in the CONSTANT SECTION cannot be specified in a receiving field.

Parameter explanation

@1@ : Name of identifier.

Example

[C3060.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3060.
000003 ENVIRONMENT  DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 DATA  DIVISION.
000006 FILE SECTION.
000007 CONSTANT SECTION.
000008 01   ED-DATA PIC 9(4) VALUE 10.
000009 PROCEDURE  DIVISION.
000010 P-START.
000011     MOVE 20 TO ED-DATA.
000012     STOP RUN.

C3060.cob 11: JMN3060I-S 'ED-DATA' defined in the CONSTANT SECTION cannot be specified in a receiving field.

JMN3061I-S

Special register @1@ cannot be specified in a receiving field.

Parameter explanation

@1@ : Special register name(LINE-COUNTER or LINAGE-COUNTER)

Example

[C3061.cob]
000001 PROGRAM-ID.  C3061.
000002 ENVIRONMENT  DIVISION.
000003 INPUT-OUTPUT SECTION.
000004 FILE-CONTROL.
000005     SELECT RW-FS1 ASSIGN TO
000006     REPFILE.
000007     SELECT PRINT-FILE ASSIGN TO
000008     SYS006.
000009 DATA DIVISION.
000010 FILE SECTION.
000011 FD PRINT-FILE
000012     LINAGE IS 50 LINES.
000013 01  PRINT-REC PIC X(120).
000014 FD  RW-FS1
000015     LABEL RECORDS ARE STANDARD
000016     REPORT IS RW-FS1-REPORT-1.
000017 WORKING-STORAGE SECTION.
000018 01  REPORT-LINE-IMAGE.
000019     02  FILLER  PICTURE X(43).
000020     02  WS-COUNTER PICTURE 9(6) VALUE ZERO.
000021     02  STORE-LINE-COUNTER   PICTURE 9(6).
000022 REPORT SECTION.
000023 RD  RW-FS1-REPORT-1
000024     PAGE LIMIT IS 20 LINES.
000025 01  RW-FS1-GROUP
000026     TYPE IS DETAIL.
000027     03  RW-FS1-ELEM
000028         LINE NUMBER IS PLUS 1
000029         COLUMN NUMBER IS 5
000030         PICTURE X(76)
000031         SOURCE IS REPORT-LINE-IMAGE.
000032 PROCEDURE  DIVISION.
000033     MOVE 100 TO LINE-COUNTER
000034     MOVE  10 TO LINAGE-COUNTER
000035     .
000036 END PROGRAM  C3061.

C3061.cob 33: JMN3061I-S Special register 'LINE-COUNTER' cannot be specified in a receiving field.

C3061.cob 34: JMN3061I-S Special register 'LINAGE-COUNTER' cannot be specified in a receiving field.

JMN3062I-S

Operand @2@ in the @1@ statement must be a numeric item.

Parameter explanation

@1@ : ADD/SUBTRACT/MULTIPLY/DIVIDE

@2@ : Name of the identifier.

Example

[C3062.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3062.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A PIC X(4).
000007 01  B PIC 9(4).
000008 PROCEDURE  DIVISION.
000009 P-START.
000010     ADD A TO B.
000011     SUBTRACT A FROM B.
000012     MULTIPLY A BY B.
000013     DIVIDE A INTO B.
000014     STOP RUN.

C3062.cob 10: JMN3062I-S Operand 'A' in the ADD statement must be a numeric item.

C3062.cob 11: JMN3062I-S Operand 'A' in the SUBTRACT statement must be a numeric item.

C3062.cob 12: JMN3062I-S Operand 'A' in the MULTIPLY statement must be a numeric item.

C3062.cob 13: JMN3062I-S Operand 'A' in the DIVIDE statement must be a numeric item.

JMN3063I-S

Operand @2@ of the GIVING phrase in the @1@ statement must be a numeric or a numeric edited item.

Parameter explanation

@1@ : ADD/SUBTRACT/MULTIPLY/DIVIDE

@2@ : Name of identifier.

Example

[C3063.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3063.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A PIC 9(4).
000007 01  B PIC 9(4).
000008 01  C PIC X(4).
000009 PROCEDURE  DIVISION.
000010 P-START.
000011     ADD A TO B GIVING C.
000012     SUBTRACT A FROM B GIVING C.
000013     MULTIPLY A BY B GIVING C.
000014     DIVIDE A INTO B GIVING C.
000015     STOP RUN.

C3063.cob 11: JMN3063I-S Operand 'C' of the GIVING phrase in the ADD statement must be a numeric or a numeric edited item.

C3063.cob 12: JMN3063I-S Operand 'C' of the GIVING phrase in the SUBTRACT statement must be a numeric or a numeric edited item.

C3063.cob 13: JMN3063I-S Operand 'C' of the GIVING phrase in the MULTIPLY statement must be a numeric or a numeric edited item.

C3063.cob 14: JMN3063I-S Operand 'C' of the GIVING phrase in the DIVIDE statement must be a numeric or a numeric edited item.

JMN3064I-S

Corresponding item @2@ in the @1@ statement with the CORRESPONDING phrase must be an elementary numeric data item.

Parameter explanation

@1@ : ADD/SUBTRACT

@2@ : Name of identifier.

Example

[C3064.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3064.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A.
000007     02 C1 PIC XX.
000008 01  B.
000009     02 C1 PIC 99.
000010 PROCEDURE  DIVISION.
000011 P-START.
000012     ADD CORR A TO B.
000013     SUBTRACT CORR A FROM B.
000014     STOP RUN.

C3064.cob 12: JMN3064I-S Corresponding item 'C1' in the ADD statement with the CORRESPONDING phrase must be an elementary numeric data item.

C3064.cob 13: JMN3064I-S Corresponding item 'C1' in the SUBTRACT statement with the CORRESPONDING phrase must be an elementary numeric data item.

JMN3065I-S

@1@ of the DIVIDE statement with the REMAINDER clause must be a fixed decimal point item or a decimal point literal.

Parameter explanation

@1@ : dividend/divisor

Example

[C3065.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3065.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A COMP-1.
000007 01  B PIC 99.
000008 01  C PIC 9999.
000009 01  D PIC 99.
000010 PROCEDURE  DIVISION.
000011 P-START.
000012     DIVIDE A BY   B GIVING C REMAINDER D.
000013     DIVIDE A INTO B GIVING C REMAINDER D.
000014     STOP RUN.

C3065.cob 12: JMN3065I-S Dividend of the DIVIDE statement with the REMAINDER clause must be a fixed decimal point item or a decimal point literal.

C3065.cob 13: JMN3065I-S Divisor of the DIVIDE statement with the REMAINDER clause must be a fixed decimal point item or a decimal point literal.

JMN3066I-S

Receiving item @1@ of the DIVIDE statement with a remainder must be a fixed decimal point item or a numeric edited item.

Parameter explanation

@1@ : Name of identifier.

Example

[C3066.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3066.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A PIC 9999.
000007 01  B PIC 99.
000008 01  C PIC 9999.
000009 01  D COMP-1.
000010 PROCEDURE  DIVISION.
000011 P-START.
000012     DIVIDE A INTO B GIVING C REMAINDER D.
000013     STOP RUN.

C3066.cob 12: JMN3066I-S Receiving item 'D' of the DIVIDE statement with a remainder must be a fixed decimal point item or a numeric edited item.

JMN3067I-S

The literal of the boolean expression must be a boolean literal or ZERO. The literal is assumed to be ZERO.

Example

[C3067.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3067.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A PIC 1111.
000007 PROCEDURE  DIVISION.
000008 P-START.
000009     COMPUTE A = B"1010" AND 1234.
000010     STOP RUN.

C3067.cob 9: JMN3067I-S The literal of the boolean expression must be a boolean literal or ZERO. The literal is assumed to be ZERO.

JMN3068I-S

The length of boolean items and boolean literals (except a boolean literal with 'ALL') must be the same.

Example

[C3068.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3068.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A PIC 1111.
000007 01  B PIC 1111.
000008 01  C PIC 11111.
000009 PROCEDURE  DIVISION.
000010 P-START.
000011     COMPUTE A = B AND C.
000012     COMPUTE A = B"101011" AND B"111".
000013     STOP RUN.

C3068.cob 11: JMN3068I-S The length of boolean items and boolean literals (except a boolean literal with 'ALL') must be the same.

C3068.cob 12: JMN3068I-S The length of boolean items and boolean literals (except a boolean literal with 'ALL') must be the same.

JMN3069I-S

Receiving operand @1@ with the [NOT] ON SIZE ERROR phrase must be a numeric item or a numeric edited item.

Parameter explanation

@1@ : Name of identifier.

Example

[C3069.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3069.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A PIC XXXX.
000007 01  B PIC 9(4).
000008 01  C PIC 9(4).
000009 01  D PIC 9(4).
000010 PROCEDURE  DIVISION.
000011 P-START.
000012     COMPUTE A = B + C     ON SIZE ERROR STOP RUN
000013                       NOT ON SIZE ERROR MOVE B TO D.
000014     STOP RUN.

C3069.cob 12: JMN3069I-S Receiving operand 'A' with the [NOT] ON SIZE ERROR phrase must be a numeric item or a numeric edited item.

JMN3070I-S

The expression to the right of the equals sign in a COMPUTE statement with the [NOT] ON SIZE ERROR phrase must be an arithmetic expression.

Example

[C3070.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3070.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A PIC 9(4).
000007 01  B PIC XXXX.
000008 01  C PIC 9(4).
000009 PROCEDURE  DIVISION.
000010 P-START.
000011     COMPUTE A = B     ON SIZE ERROR STOP RUN
000012                   NOT ON SIZE ERROR MOVE B TO C.
000013     STOP RUN.

C3070.cob 11: JMN3070I-S The expression to the right of the equals sign in a COMPUTE statement with the [NOT] ON SIZE ERROR phrase must be an arithmetic expression.

JMN3071I-S

If the expression to the right of the equals sign in a COMPUTE statement is an arithmetic expression, receiving operand @1@ must be a numeric item or a numeric edited item.

Parameter explanation

@1@ : Name of identifier.

Example

[C3071.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3071.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A PIC 1111.
000007 01  B PIC 9(4).
000008 01  C PIC 9(4).
000009 PROCEDURE  DIVISION.
000010 P-START.
000011     COMPUTE A = B + C.
000012     STOP RUN.

C3071.cob 11: JMN3071I-S If the expression to the right of the equals sign in a COMPUTE statement is an arithmetic expression, receiving operand 'A' must be a numeric item or a numeric edited item.

JMN3072I-S

If the expression to the right of the equals sign in a COMPUTE statement is a boolean expression, receiving operand @1@ must be a boolean item.

Parameter explanation

@1@ : Name of identifier.

Example

[C3072.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3072.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A PIC 9(4).
000007 01  B PIC 1111.
000008 01  C PIC 1111.
000009 PROCEDURE  DIVISION.
000010 P-START.
000011     COMPUTE A = B AND C.
000012     STOP RUN.

C3072.cob 11: JMN3072I-S If the expression to the right of the equals sign in a COMPUTE statement is a boolean expression, receiving operand 'A' must be a boolean item.

JMN3073I-S

The expression to the right of the equals sign in a COMPUTE statement must be an arithmetic expression or a boolean expression.

Example

[C3073.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3073.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A PIC 9(4).
000007 01  B PIC XXXX.
000008 PROCEDURE  DIVISION.
000009 P-START.
000010     COMPUTE A = B.
000011     STOP RUN.

C3073.cob 10: JMN3073I-S The expression to the right of the equals sign in a COMPUTE statement must be an arithmetic expression or a boolean expression.

JMN3074I-S

Receiving operand @1@ of the COMPUTE statement must be a numeric item, a numeric edited item, or a boolean item.

Parameter explanation

@1@ : Name of identifier.

Example

[C3074.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3074.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A PIC XXXX.
000007 PROCEDURE  DIVISION.
000008 P-START.
000009     COMPUTE A = ZERO.
000010     STOP RUN.

C3074.cob 9: JMN3074I-S Receiving operand 'A' of the COMPUTE statement must be a numeric item, a numeric edited item, or a boolean item.

JMN3075I-S

Receiving items of the COMPUTE statement must be numeric items or numeric edited items, or they all must be boolean items.

Example

[C3075.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3075.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A PIC 9999.
000007 01  B PIC 1111.
000008 01  C PIC XXXX.
000009 PROCEDURE  DIVISION.
000010 P-START.
000011     COMPUTE A B = ZERO.
000012     STOP RUN.

C3075.cob 11: JMN3075I-S Receiving items of the COMPUTE statement must be numeric items or numeric edited items, or they all must be boolean items.

JMN3076I-S

The ROUNDED phrase cannot be specified for a COMPUTE statement containing a boolean item.

Example

[C3076.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3076.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A PIC 1111.
000007 01  B PIC 1111.
000008 01  C PIC 1111.
000009 PROCEDURE  DIVISION.
000010 P-START.
000011     COMPUTE A ROUNDED = B AND C.
000012     STOP RUN.

C3076.cob 11: JMN3076I-S The ROUNDED phrase cannot be specified for a COMPUTE statement containing a boolean item.

JMN3077I-S

@1@(@2@) and @3@(@4@) cannot be compared.

Parameter explanation

@1@ : Identifier, special register, or index-name.

@2@ : Data type.

@3@ : Identifier, special register, or index-name.

@4@ : Data type.

Example

[C3077.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3077.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A    PIC S9(3)  PACKED-DECIMAL.
000007 01  B    PIC XX.
000008 PROCEDURE  DIVISION.
000009 P-START.
000010     IF A = B    STOP RUN.

C3077.cob 10: JMN3077I-S 'A'(internal decimal) and 'B'(alphanumeric) cannot be compared.

JMN3078I-S

A comparison between a literal and a literal cannot be done in a relation condition.

Example

[C3078.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3078.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 PROCEDURE  DIVISION.
000006 P-START.
000007     IF 10 = 20  STOP RUN.

C3078.cob 7: JMN3078I-S A comparison between a literal and a literal cannot be done in a relation condition.

JMN3079I-S

The relational operator for a comparison of boolean operands must be 'EQUAL(=)' or 'NOT EQUAL(NOT =)'.

Example

[C3079.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3079.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A    PIC 1(8).
000007 01  B    PIC 1(8)  BIT.
000008 PROCEDURE  DIVISION.
000009 P-START.
000010     IF A > B    STOP RUN.

C3079.cob 10: JMN3079I-S The relational operator for a comparison of boolean operands must be 'EQUAL(=)' or 'NOT EQUAL(NOT =)'.

JMN3080I-S

In comparison between a Boolean operand and a Boolean operand other than an ALL boolean literal, the number of Boolean characters of both operands must be the same.

Example

[C3080.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3080.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A    PIC 1     BIT.
000007 01  B    PIC 1(8)  BIT.
000008 PROCEDURE  DIVISION.
000009 P-START.
000010     IF A = B    STOP RUN.

C3080.cob 10: JMN3080I-S In comparison between a Boolean operand and a Boolean operand other than an ALL boolean literal, the number of Boolean characters of both operands must be the same.

JMN3081I-S

@1@ of the index comparison must be an integer.

Parameter explanation

@1@ : Identifier or figure constant.

Example

[C3081.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3081.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A    PIC S9(4)V9 BINARY.
000007 01  B.
000008     02  C  OCCURS 10 TIMES  INDEXED BY IX.
000009         03  D    PIC XX.
000010 PROCEDURE  DIVISION.
000011 P-START.
000012     IF A = IX   STOP RUN.

C3081.cob 12: JMN3081I-S 'A' of the index comparison must be an integer.

JMN3083I-S

For an @1@ check of a class condition, @2@ must be a group item, alphabetic item, alphanumeric item, alphanumeric edited item, or numeric edited item.

Parameter explanation

@1@ : ALPHABETIC, ALPHABETIC-LOWER or ALPHABETIC-UPPER.

@2@ : Identifier.

Example

[C3083.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3083.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A    PIC 9(4).
000007 PROCEDURE  DIVISION.
000008 P-START.
000009     IF A IS ALPHABETIC    STOP RUN.

C3083.cob 9: JMN3083I-S For an ALPHABETIC check of a class condition, 'A' must be a group item, alphabetic item, alphanumeric item, alphanumeric edited item, or numeric edited item.

JMN3084I-S

For a numeric check of a class condition, @1@ must be an external decimal item, internal decimal item, group item, alphanumeric item, alphanumeric edited item, or numeric edited item.

Parameter explanation

@1@ : Identifier.

Example

[C3084.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3084.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A    PIC A(4).
000007 PROCEDURE  DIVISION.
000008 P-START.
000009     IF A IS NUMERIC    STOP RUN.

C3084.cob 9: JMN3084I-S For a numeric check of a class condition, 'A' must be an external decimal item, internal decimal item, group item, alphanumeric item, alphanumeric edited item, or numeric edited item.

JMN3085I-S

For a boolean check of a class condition, @1@ must be an external boolean item, group item, alphanumeric item, alphanumeric edited item, or numeric edited item.

Parameter explanation

@1@ : Identifier.

Example

[C3085.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3085.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A    PIC 9(4).
000007 PROCEDURE  DIVISION.
000008 P-START.
000009     IF A IS BOOLEAN    STOP RUN.

C3085.cob 9: JMN3085I-S For a boolean check of a class condition, 'A' must be an external boolean item, group item, alphanumeric item, alphanumeric edited item, or numeric edited item.

JMN3086I-S

For a class name check of a class condition, @1@ must be a group item, alphabetic item, alphanumeric item, alphanumeric edited item, or numeric edited item.

Parameter explanation

@1@ : Identifier.

Example

[C3086.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3086.
000003 ENVIRONMENT  DIVISION.
000004 CONFIGURATION SECTION.
000005 SPECIAL-NAMES.
000006     CLASS ABC IS "ABC".
000007 DATA  DIVISION.
000008 WORKING-STORAGE SECTION.
000009 01  A    PIC 9.
000010 PROCEDURE  DIVISION.
000011 P-START.
000012     IF A IS ABC    STOP RUN.

C3086.cob 12: JMN3086I-S For a class name check of a class condition, 'A' must be a group item, alphabetic item, alphanumeric item, alphanumeric edited item, or numeric edited item.

JMN3087I-S

@1@ of the sign condition must be a numeric item.

Parameter explanation

@1@ : Identifier.

Example

[C3087.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3087.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A    PIC X(4).
000007 PROCEDURE  DIVISION.
000008 P-START.
000009     IF A IS POSITIVE    STOP RUN.

C3087.cob 9: JMN3087I-S 'A' of the sign condition must be a numeric item.

JMN3088I-S

The arithmetic expression of the sign condition must contain at least one identifier.

Example

[C3088.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3088.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 PROCEDURE  DIVISION.
000006     IF 10 + 20 IS POSITIVE THEN
000007       DISPLAY "ERROR"
000008     END-IF
000008 END PROGRAM  C3088.

C3088.cob 6: JMN3088I-S The arithmetic expression of the sign condition must contain at least one identifier.

JMN3090I-S

The usage of sending item @1@ in the UNSTRING statement must be 'DISPLAY'.

Parameter explanation

@1@ : Identifier.

Example

[C3090.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3090.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A    PIC 9(10) PACKED-DECIMAL.
000007 01  B    PIC XX.
000008 01  C    PIC X(4).
000009 PROCEDURE  DIVISION.
000010 P-START.
000011     UNSTRING A  DELIMITED BY B  INTO C.
000012     STOP RUN.

C3090.cob 11: JMN3090I-S The usage of sending item 'A' in the UNSTRING statement must be 'DISPLAY'.

JMN3091I-S

An item with a reference modifier cannot be specified for the sending operand of an UNSTRING statement.

Example

[C3091.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3091.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A    PIC X(10).
000007 01  B    PIC XX.
000008 01  C    PIC X(4).
000009 PROCEDURE  DIVISION.
000010 P-START.
000011     UNSTRING A(1:6) DELIMITED BY B INTO C.
000012     STOP RUN.

C3091.cob 11: JMN3091I-S An item with a reference modifier cannot be specified for the sending operand of an UNSTRING statement.

JMN3092I-S

The usage of identifier @2@ of the @1@ phrase in the UNSTRING statement must be 'DISPLAY'.

Parameter explanation

@1@ : DELIMITED, INTO or DELIMITER.

@2@ : Identifier.

Example

[C3092.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3092.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A    PIC X(10).
000007 01  B    PIC 9(3)  PACKED-DECIMAL.
000008 01  C    PIC X(4).
000009 PROCEDURE  DIVISION.
000010 P-START.
000011     UNSTRING A  DELIMITED BY B  INTO C.
000012     STOP RUN.

C3092.cob 11: JMN3092I-S The usage of identifier 'B' of the DELIMITED phrase in the UNSTRING statement must be 'DISPLAY'.

JMN3095I-S

Identifier @1@ of the INTO phrase in the UNSTRING statement cannot be an alphanumeric edited item, numeric edited item, national edited item, or a numeric item having 'P' in its PICTURE character-string.

Parameter explanation

@1@ : Identifier.

Example

[C3095.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3095.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A    PIC X(10).
000007 01  B    PIC XX.
000008 01  C    PIC ZZZ,ZZZ.
000009 PROCEDURE  DIVISION.
000010 P-START.
000011     UNSTRING A  DELIMITED BY B  INTO C.
000012     STOP RUN.

C3095.cob 11: JMN3095I-S Identifier 'C' of the INTO phrase in the UNSTRING statement cannot be an alphanumeric edited item, numeric edited item, national edited item, or a numeric item having 'P' in its PICTURE character-string.

JMN3097I-S

Identifier @2@ of the @1@ phrase of the UNSTRING statement must be an integer item.

Parameter explanation

@1@ : COUNT,POINTER or TALLYING.

@2@ : Identifier.

Example

[C3097.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3097.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A    PIC X(10).
000007 01  B    PIC XX.
000008 01  C    PIC X(4).
000009 01  D    PIC 9(3)V9  BINARY.
000010 PROCEDURE  DIVISION.
000011 P-START.
000012     UNSTRING A  DELIMITED BY B  INTO C  POINTER D.
000013     STOP RUN.

C3097.cob 12: JMN3097I-S Identifier 'D' of the POINTER phrase of the UNSTRING statement must be an integer item.

JMN3098I-S

[Solaris][Linux]
If any operand in a sending item, DELIMITED BY phrase, INTO phrase, or DELIMITER IN phrase in the UNSTRING statement is a national category, all operands must be in the national category.

[Linux64]
If any of the operands in the DELIMITED BY phrase, INTO phrase, or DELIMITER IN phrase is a national type, then, in the UNSTRING statement on the sending side, the type for all must be national type and should have the same
encoding.

Example

[C3098.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3098.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A    PIC N(10).
000007 01  B    PIC XX.
000008 01  C    PIC N(4).
000009 01  D    PIC XX.
000010 PROCEDURE  DIVISION.
000011 P-START.
000012     UNSTRING A  DELIMITED BY B  INTO C  DELIMITER IN D.
000013     STOP RUN.
  • [Solaris][Linux]

    C3098.cob 12: JMN3098I-S If any operand in a sending item, DELIMITED BY phrase, INTO phrase, or DELIMITER IN phrase in the UNSTRING statement is a national category, all operands must be in the national category.

  • [Linux64]

    C3098.cob 12: JMN3098I-S If any of the operands in the DELIMITED BY phrase, INTO phrase, or DELIMITER IN phrase is a national type, then, in the UNSTRING statement on the sending side, the type for all must be national type and should have the same encoding.

JMN3105I-S

Corresponding item @2@ is not unique in the @1@ statement with the CORRESPONDING phrase.

Parameter explanation

@1@ : ADD, SUBTRACT or MOVE.

@2@ : Identifier.

Example

[C3105.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3105.
000003 ENVIRONMENT DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  S.
000007     02 B PIC X(5).
000008     02 C.
000009         03 B PIC X(1).
000010     02 D PIC X(5).
000011 01  R.
000012     02 B PIC X(5).
000013     02 D PIC X(5).
000014 PROCEDURE  DIVISION.
000015 P-START.
000016     MOVE CORRESPONDING  S  TO  R.
000017     STOP RUN.

C3105.cob 16: JMN3105I-S Corresponding item 'B' is not unique in the MOVE statement with the CORRESPONDING phrase.

JMN3107I-S

The usage of operand @2@ of the @1@ phrase in the STRING statement must be 'DISPLAY'.

Parameter explanation

@1@ : DELIMITED or INTO.

@2@ : Identifier.

Example

[C3107.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3107.
000003 DATA  DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01   AN-1 PIC X(6).
000006 01   AN-2 PIC 9(2)  BINARY.
000007 01   AN-3 PIC X(10).
000008 PROCEDURE  DIVISION.
000009 P-START.
000010     STRING AN-1   DELIMITED BY AN-2 INTO AN-3.
000011     STRING AN-1   DELIMITED BY SIZE INTO AN-2.
000012     STOP RUN.

C3107.cob 10: JMN3107I-S The usage of operand 'AN-2' of the DELIMITED phrase in the STRING statement must be 'DISPLAY'.

C3107.cob 11: JMN3107I-S The usage of operand 'AN-2' of the INTO phrase in the STRING statement must be 'DISPLAY'.

JMN3108I-S

An item with a reference modifier cannot be specified as a receiving area item in the STRING statement.

Example

[C3108.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3108.
000003 DATA  DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01   AN-1 PIC X(6).
000006 01   AN-2 PIC X(10).
000007 01   I    PIC 9     BINARY.
000008 PROCEDURE  DIVISION.
000009 P-START.
000010     STRING AN-1   DELIMITED BY "I" INTO AN-2(I : I).
000011     STOP RUN.

C3108.cob 10: JMN3108I-S An item with a reference modifier cannot be specified as a receiving area item in the STRING statement.

JMN3109I-S

Item @2@ of the '@1@' phrase in the STRING statement must be an integer item.

Parameter explanation

@1@ : POINTER

@2@ : Identifier.

Example

[C3109.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3109.
000003 DATA  DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01   AN-1 PIC X(6).
000006 01   AN-2 PIC X(10).
000007 01   PTR  PIC 99V9.
000008 PROCEDURE  DIVISION.
000009 P-START.
000010     STRING AN-1   DELIMITED BY "I" INTO AN-2 POINTER PTR.
000011     STOP RUN.

C3109.cob 10: JMN3109I-S Item 'PTR' of the 'POINTER' phrase in the STRING statement must be an integer item.

JMN3110I-S

The receiving item in the STRING statement cannot be an alphanumeric edited item, a numeric edited item, or a national edited item.

Example

[C3110.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3110.
000003 DATA  DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01   AN-1 PIC X(6)  VALUE "STRING".
000006 01   AN-2 PIC ZZZ9.
000007 PROCEDURE  DIVISION.
000008 P-START.
000009     STRING AN-1   DELIMITED BY "I" INTO  AN-2.
000010     STOP RUN.

C3110.cob 9: JMN3110I-S The receiving item in the STRING statement cannot be an alphanumeric edited item, a numeric edited item, or a national edited item.

JMN3111I-S

[Solaris][Linux]
If any category of the sending item, operand of the DELIMITED BY phrase, or INTO phrase in the STRING statement is national, all of these operands must be national.

[Linux64]
If any of the operands in the DELIMITED BY phrase or the INTO phrase is a national type, then on the sending side in the STRING statement, all operands must be National language and have the same encoding.

Example

[C3111.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.     C3111.
000003 DATA            DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01 AN-1 PIC X(6) VALUE "STRING".
000006 01 AN-2 PIC X(10).
000007 PROCEDURE       DIVISION.
000008 P-START.
000009     STRING AN-1 DELIMITED BY N"あ" INTO AN-2.
000010     STOP RUN.
  • [Solaris][Linux]

    C3111.cob 9: JMN3111I-S If any category of the sending item, operand of the DELIMITED BY phrase, or INTO phrase in the STRING statement is national, all of these operands must be national.

  • [Linux64]

    C3111.cob 9: JMN3111I-S If any of the operands in the DELIMITED BY phrase or the INTO phrase is a national type, then on the sending side in the STRING statement, all operands must be National language and have the same encoding.

JMN3116I-S

@1@ @2@ cannot be specified in the @3@ phrase of the OPEN statement.

Parameter explanation

@1@ : Organization of file.

@2@ : Fine name.

@3@ : 'INPUT', 'OUTPUT', 'I-O' or 'EXTEND'.

Example

[C3116.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3116.
000003 ENVIRONMENT  DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT FILE-1 LINE SEQUENTIAL ASSIGN TO PS-SYS001.
000007 DATA  DIVISION.
000008 FILE SECTION.
000009 FD FILE-1.
000010    01 REC-1 PIC X(80).
000011 PROCEDURE  DIVISION.
000012     OPEN I-O FILE-1.
000013     STOP RUN.

C3116.cob 12: JMN3116I-S Line sequential file 'FILE-1' cannot be specified in the I-O phrase of the OPEN statement.

JMN3117I-S

File @1@ with the LINAGE clause cannot be specified in the EXTEND phrase of the OPEN statement.

Parameter explanation

@1@ : File name.

Example

[C3117.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3117.
000003 ENVIRONMENT  DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT FILE-1 ASSIGN TO S-SYS001.
000007 DATA  DIVISION.
000008 FILE SECTION.
000009 FD FILE-1 LINAGE IS 50 LINES.
000010    01 REC-1 PIC X(80).
000011 PROCEDURE  DIVISION.
000012     OPEN EXTEND FILE-1.
000013     STOP RUN.

C3117.cob 12: JMN3117I-S File 'FILE-1' with the LINAGE clause cannot be specified in the EXTEND phrase of the OPEN statement.

JMN3119I-S

The @1@ phrase can only be specified for a sequential file other than a print file with a FORMAT clause.

Parameter explanation

@1@ : 'REVERSED', 'WITH NO REWIND' or 'FOR REMOVAL'.

Example

[C3119.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3119.
000003 ENVIRONMENT  DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT FILE-1 ASSIGN TO SYS001
000007     ORGANIZATION IS INDEXED
000008     ACCESS MODE IS RANDOM
000009     RECORD KEY IS KEY-REC.
000010 DATA  DIVISION.
000011 FILE SECTION.
000012 FD FILE-1.
000013    01 REC-1.
000014     02 KEY-REC PIC XX.
000015     02 FILLER  PIC X(78).
000016 PROCEDURE  DIVISION.
000017     OPEN INPUT FILE-1 REVERSED.
000018     STOP RUN.

C3119.cob 17: JMN3119I-S The REVERSED phrase can only be specified for a sequential file other than a print file with a FORMAT clause.

JMN3121I-S

A @1@ phrase can only be specified for a sequential file other than a print file with a FORMAT clause. The @1@ phrase is ignored.

Parameter explanation

@1@ : 'REEL' or 'UNIT'

Example

[C3121.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3121.
000003 ENVIRONMENT  DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT FILE-1 ASSIGN TO SYS001
000007     ORGANIZATION IS INDEXED
000008     ACCESS MODE IS RANDOM
000009     RECORD KEY IS KEY-REC.
000010 DATA  DIVISION.
000011 FILE SECTION.
000012 FD FILE-1.
000013    01 REC-1.
000014     02 KEY-REC PIC XX.
000015     02 FILLER  PIC X(78).
000016 PROCEDURE  DIVISION.
000017     CLOSE FILE-1 REEL.
000018     STOP RUN.

C3121.cob 17: JMN3121I-S A REEL phrase can only be specified for a sequential file other then a print file with a FORMAT clause. The REEL phrase is ignored.

JMN3123I-S

In the USING or GIVING phrase of the MERGE statement, a file cannot be specified more than once. File @1@ is ignored.

Parameter explanation

@1@ : File name.

Example

[C3123.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3123.
000003 ENVIRONMENT  DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT FILE-1  ASSIGN TO  DA-S-SYS001.
000007     SELECT FILE-2  ASSIGN TO  DA-S-SYS002.
000008     SELECT FILE-3  ASSIGN TO  DA-S-SYS003.
000009     SELECT FILE-4  ASSIGN TO  DA-S-SYS004.
000010 DATA  DIVISION.
000011 FILE SECTION.
000012 SD  FILE-1.
000013    01 REC-1.
000014     02 KEY-1  PIC XX.
000015     02 FILLER PIC X(78).
000016 FD  FILE-2 LABEL RECORD STANDARD.
000017    01 REC-2 PIC X(80).
000018 FD  FILE-3 LABEL RECORD STANDARD.
000019    01 REC-3 PIC X(80).
000020 FD  FILE-4 LABEL RECORD STANDARD.
000021    01 REC-4 PIC X(80).
000022 PROCEDURE  DIVISION.
000023     MERGE FILE-1 ON ASCENDING KEY KEY-1
000024       USING  FILE-2 FILE-2
000025       GIVING FILE-4.
000026     STOP RUN.

C3123.cob 24: JMN3123I-S In the USING or GIVING phrase of the MERGE statement, a file cannot be specified more than once. File 'FILE-2' is ignored.

JMN3124I-S

A file having a record description entry with a CHARACTER TYPE or PRINTING POSITION clause cannot be specified in the USING or GIVING phrase of the @2@ statement. File name @1@ is ignored.

Parameter explanation

@1@ : File name.

@2@ : 'SORT' or 'MERGE'

Example

[C3124.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID. C3124.
000003 ENVIRONMENT  DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT FILE-1  ASSIGN TO DA-S-SYS001.
000007     SELECT FILE-2  ASSIGN TO DA-S-SYS002.
000008     SELECT FILE-3  ASSIGN TO DA-S-SYS003.
000009 DATA  DIVISION.
000010 FILE SECTION.
000011 SD  FILE-1 LABEL RECORD IS STANDARD.
000012    01 REC-1.
000013     02 KEY-REC PIC XX.
000014     02 FILLER  PIC X(78).
000015 FD  FILE-2 LABEL RECORD IS STANDARD.
000016    01 REC-2 PIC N(40) CHARACTER TYPE IS MODE-2.
000017 FD  FILE-3 LABEL RECORD IS STANDARD.
000018    01 REC-3 PIC X(80).
000019 PROCEDURE  DIVISION.
000020     SORT FILE-1 ON ASCENDING KEY KEY-REC
000021       USING  FILE-2
000022       GIVING FILE-3.
000023     STOP RUN.

C3124.cob 21: JMN3124I-S A file having a record description entry with a CHARACTER TYPE or PRINTING POSITION clause cannot be specified in the USING or GIVING phrase of the SORT statement. File name 'FILE-2' is ignored.

JMN3127I-S

Operand @1@ of the FROM phrase and record-name @2@ cannot occupy the same storage space.

Parameter explanation

@1@ : Identifier of the FROM specification.

@2@ : Record name.

Example

[C3127.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3127.
000003 ENVIRONMENT  DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT FILE-1 ASSIGN TO SYS001.
000007 DATA  DIVISION.
000008 FILE SECTION.
000009   FD FILE-1.
000010    01 REC-1.
000011     02 REC-1-1 PIC XX.
000012     02 REC-1-2 PIC XX.
000013     02 FILLER  PIC X(76).
000014 PROCEDURE  DIVISION.
000015     WRITE REC-1 FROM REC-1-2.
000016     STOP RUN.

C3127.cob 15: JMN3127I-S Operand 'REC-1-2' of the FROM phrase and record-name 'REC-1' cannot occupy the same storage space.

JMN3128I-S

The CONTROL AREA phrase cannot be specified for any file except a communication-file.

Example

[C3128.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID. C3128.
000003 ENVIRONMENT  DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT FILE-1  ASSIGN TO S-SYS001.
000007 DATA  DIVISION.
000008 FILE SECTION.
000009 FD  FILE-1.
000010    01 REC-1 PIC X(80).
000011 WORKING-STORAGE SECTION.
000012    01 CNTL-DATA PIC X(36).
000013 PROCEDURE  DIVISION.
000014     WRITE REC-1 CONTROL AREA IS CNTL-DATA.
000015     STOP RUN.

C3128.cob 14: JMN3128I-S The CONTROL AREA phrase cannot be specified for any file except a communication-file.

JMN3130I-S

An ADVANCING phrase with a mnemonic-name cannot be specified in the WRITE statement for file @1@ with the LINAGE clause. BEFORE ADVANCING 1 is assumed.

Parameter explanation

@1@ : File name.

Example

[C3130.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID. C3130.
000003 ENVIRONMENT  DIVISION.
000004 CONFIGURATION SECTION.
000005 SPECIAL-NAMES.
000006     CHANNEL-01 IS CHN-1.
000007 INPUT-OUTPUT SECTION.
000008 FILE-CONTROL.
000009     SELECT FILE-1  ASSIGN TO S-SYS001.
000010 DATA  DIVISION.
000011 FILE SECTION.
000012 FD FILE-1  LINAGE IS 50 LINES.
000013    01 REC-1 PIC X(121).
000014 PROCEDURE  DIVISION.
000015     WRITE REC-1 AFTER ADVANCING CHN-1.
000016     STOP RUN.

C3130.cob 15: JMN3130I-S An ADVANCING phrase with a mnemonic-name cannot be specified in the WRITE statement for file 'FILE-1' with the LINAGE clause. BEFORE ADVANCING 1 is assumed.

JMN3132I-S

The ADVANCING phrase can only be specified for a sequential file.

Example

[C3132.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID. C3132.
000003 ENVIRONMENT  DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT FILE-1  ASSIGN TO SYS001
000007     ORGANIZATION IS INDEXED
000008     ACCESS MODE IS RANDOM
000009     RECORD KEY IS KEY-REC.
000010 DATA  DIVISION.
000011 FILE SECTION.
000012 FD FILE-1.
000013    01 REC-1.
000014     02 KEY-REC PIC XX.
000015     02 FILLER  PIC X(78).
000016 PROCEDURE  DIVISION.
000017     WRITE REC-1 AFTER ADVANCING 1.
000018     STOP RUN.

C3132.cob 17: JMN3132I-S The ADVANCING phrase can only be specified for a sequential file.

JMN3135I-S

Operand @1@ of the ADVANCING phrase in the WRITE statement must be an integer item. ADVANCING 1 is assumed.

Parameter explanation

@1@ : Identifier.

Example

[C3135.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID. C3135.
000003 ENVIRONMENT  DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT FILE-1  ASSIGN TO S-SYS001.
000007 DATA  DIVISION.
000008 FILE SECTION.
000009 FD FILE-1.
000010    01 REC-1 PIC X(121).
000011 WORKING-STORAGE SECTION.
000012    77 LCD-1 PIC XX.
000013 PROCEDURE  DIVISION.
000014     WRITE REC-1 AFTER ADVANCING LCD-1.
000015     STOP RUN.

C3135.cob 14: JMN3135I-S Operand 'LCD-1' of the ADVANCING phrase in the WRITE statement must be an integer item. ADVANCING 1 is assumed.

JMN3136I-S

The integer of the ADVANCING phrase in the WRITE statement must be 0 through 32767. ADVANCING 1 is assumed.

Example

[C3136.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID. C3136.
000003 ENVIRONMENT  DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT FILE-1  ASSIGN TO S-SYS001.
000007 DATA  DIVISION.
000008 FILE SECTION.
000009 FD  FILE-1.
000010    01 REC-1 PIC X(121).
000011 PROCEDURE  DIVISION.
000012     WRITE REC-1 AFTER ADVANCING 40000.
000013     STOP RUN.

C3136.cob 12: JMN3136I-S The integer of the ADVANCING phrase in the WRITE statement must be 0 through 32767. ADVANCING 1 is assumed.

JMN3141I-S

The @1@ clause cannot be specified for @2@.

Parameter explanation

@1@ : 'AT EOP', 'NOT AT EOP', 'INVALID KEY' or 'NOT INVALID KEY'.

@2@ : Organization of file.

Example

[C3141.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID. C3141.
000003 ENVIRONMENT  DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT FILE-1  ASSIGN TO SYS001
000007     ORGANIZATION IS INDEXED
000008     ACCESS MODE IS RANDOM
000009     RECORD KEY IS KEY-REC.
000010 DATA  DIVISION.
000011 FILE SECTION.
000012 FD FILE-1.
000013    01 REC-1.
000014     02 KEY-REC PIC XX.
000015     02 FILLER  PIC X(78).
000016 WORKING-STORAGE SECTION.
000017    77 DATA-1 PIC XX.
000018 PROCEDURE  DIVISION.
000019     WRITE REC-1 AT EOP GO TO L1.
000020     MOVE "AA" TO DATA-1.
000021   L1. STOP RUN.

C3141.cob 19: JMN3141I-S The AT EOP clause cannot be specified for indexed file.

JMN3142I-S

@1@ @2@ cannot be specified in a REWRITE statement.

Parameter explanation

@1@ : 'Presentation file' or 'Chart file'

@2@ : File name.

Example

[C3142.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID. C3142.
000003 ENVIRONMENT  DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT FILE-1  ASSIGN TO GS-SYS001
000007       SYMBOLIC DESTINATION IS "ACM".
000008 DATA  DIVISION.
000009 FILE SECTION.
000010 FD FILE-1.
000011    01 REC-1 PIC X(121).
000012 PROCEDURE  DIVISION.
000013     REWRITE REC-1.
000014     STOP RUN.

C3142.cob 13: JMN3142I-S Presentation file 'FILE-1' cannot be specified in a REWRITE statement.

JMN3143I-S

The NEXT phrase cannot be specified for random access file @1@.

Parameter explanation

@1@ : File name.

Example

[C3143.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID. C3143.
000003 ENVIRONMENT  DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT FILE-1  ASSIGN TO SYS001
000007     ORGANIZATION IS INDEXED
000008     ACCESS MODE IS RANDOM
000009     RECORD KEY IS KEY-REC.
000010 DATA  DIVISION.
000011 FILE SECTION.
000012 FD FILE-1.
000013    01 REC-1.
000014     02 KEY-REC PIC XX.
000015     02 FILLER  PIC X(78).
000016 PROCEDURE  DIVISION.
000017     READ FILE-1 NEXT.
000018     STOP RUN.

C3143.cob 17: JMN3143I-S The NEXT phrase cannot be specified for random access file 'FILE-1'.

JMN3144I-S

Operand @1@ of the INTO phrase and record area cannot occupy the same storage space.

Parameter explanation

@1@ : Identifier of INTO specification.

Example

[C3144.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID. C3144.
000003 ENVIRONMENT  DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT FILE-1 ASSIGN TO SYS001.
000007 DATA  DIVISION.
000008 FILE SECTION.
000009   FD FILE-1.
000010    01 REC-1.
000011     02  REC-1-S PIC X(80).
000012 PROCEDURE  DIVISION.
000013     READ FILE-1 INTO REC-1-S.
000014     STOP RUN.

C3144.cob 13: JMN3144I-S Operand 'REC-1-S' of the INTO phrase and record area cannot occupy the same storage space.

JMN3145I-S

The KEY phrase of the READ statement can only be specified for an indexed file of random access mode. The KEY phrase is ignored.

Example

[C3145.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID. C3145.
000003 ENVIRONMENT  DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT FILE-1  ASSIGN TO SYS001
000007     ORGANIZATION IS INDEXED
000008     ACCESS MODE IS SEQUENTIAL
000009     RECORD KEY IS KEY-REC.
000010 DATA  DIVISION.
000011 FILE SECTION.
000012 FD  FILE-1.
000013    01 REC-1.
000014     02 KEY-REC PIC XX.
000015     02 FILLER  PIC X(78).
000016 PROCEDURE  DIVISION.
000017     READ FILE-1 KEY IS KEY-REC.
000018     STOP RUN.

C3145.cob 17: JMN3145I-S The KEY phrase of the READ statement can only be specified for an indexed file of random access mode. The KEY phrase is ignored.

JMN3146I-S

Data-item @1@ of the KEY phrase in the READ statement must be specified as a record key or an alternate record key.

Parameter explanation

@1@ : Data name of KEY specification.

Example

[C3146.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID. C3146.
000003 ENVIRONMENT  DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT FILE-1  ASSIGN TO SYS001
000007     ORGANIZATION IS INDEXED
000008     ACCESS MODE IS RANDOM
000009     RECORD KEY IS KEY-REC.
000010 DATA  DIVISION.
000011 FILE SECTION.
000012 FD FILE-1.
000013    01 REC-1.
000014     02 KEY-REC PIC XX.
000015     02 FILLER  PIC X(78).
000016 WORKING-STORAGE SECTION.
000017    77 KEY-DATA PIC XX.
000018 PROCEDURE  DIVISION.
000019     READ FILE-1 KEY IS KEY-DATA.
000020     STOP RUN.

C3146.cob 19: JMN3146I-S Data-item of the KEY phrase in the READ statement must be specified as a record key or an alternate record key.

JMN3147I-S

The @3@ phrase cannot be specified in the READ statement for file @2@ of @1@.

Parameter explanation

@1@ : Access mode.

@2@ : File name.

@3@ : 'AT END', 'NOT AT END', 'INVALID KEY' or 'NOT INVALID KEY'.

Example

[C3147.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID. C3147.
000003 ENVIRONMENT  DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT FILE-1  ASSIGN TO SYS001
000007     ORGANIZATION IS INDEXED
000008     ACCESS MODE IS RANDOM
000009     RECORD KEY IS KEY-REC.
000010 DATA  DIVISION.
000011 FILE SECTION.
000012 FD FILE-1.
000013    01 REC-1.
000014     02 KEY-REC PIC XX.
000015     02 FILLER  PIC X(78).
000016 PROCEDURE  DIVISION.
000017     READ FILE-1 AT END GO TO L1.
000018   L1. STOP RUN.

C3147.cob 17: JMN3147I-S The AT END phrase cannot be specified in the READ statement for file 'FILE-1' of random access.

JMN3148I-S

A GO TO statement without a procedure-name must be referred to by an ALTER statement.

Example

[C3148.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID. C3148.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 PROCEDURE DIVISION.
000006 P-1.
000007     GO TO .
000008*
000009 END PROGRAM C3148.

C3148.cob 7: JMN3148I-S A GO TO statement without a procedure-name must be referred to by an ALTER statement.

JMN3149I-S

Identifier @1@ of the GO TO DEPENDING ON statement must be an integer item.

Parameter explanation

@1@ : Identifier.

Example

[C3149.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID. C3149.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006    77 DP-CTR PIC XX.
000007    77 AA     PIC XX.
000008 PROCEDURE  DIVISION.
000009     GO TO L1 L2 DEPENDING ON DP-CTR.
000010   L1. MOVE "AA" TO AA.
000011       GO TO L3.
000012   L2. MOVE "BB" TO AA.
000013   L3. STOP RUN.

C3149.cob 9: JMN3149I-S Identifier 'DP-CTR' of the GO TO DEPENDING ON statement must be an integer item.

JMN3150I-S

Paragraph @1@ referred to by the ALTER statement must be a sentence consisting of a single GO TO statement without a DEPENDING ON phrase.

Parameter explanation

@1@ : Paragraph name.

Example

[C3150.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID. C3150.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006    77 AA PIC XXX.
000007 PROCEDURE  DIVISION.
000008     ALTER L1 TO L2.
000009 L1. MOVE "AAA" TO AA.
000010     GO TO L3.
000011 L2. MOVE "BBB" TO AA.
000012 L3. STOP RUN.

C3150.cob 8: JMN3150I-S Paragraph 'L1' referred to by the ALTER statement must be a sentence consisting of a single GO TO statement without a DEPENDING ON phrase.

JMN3151I-S

Operand @1@ in the arithmetic expression must be a @2@.

Parameter explanation

@1@ : Identifier or 'literal'

@2@ : 'numeric item' or 'numeric literal'

Example

[C3151.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3151.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A PIC 9999.
000007 01  B PIC 9999.
000008 01  C PIC XXXX.
000009 PROCEDURE  DIVISION.
000010 P-START.
000011     COMPUTE A = B + C.
000012     COMPUTE A = B + B"10101".
000013     STOP RUN.

C3151.cob 11: JMN3151I-S Operand 'C' in the arithmetic expression must be a numeric item.

C3151.cob 12: JMN3151I-S Operand literal in the arithmetic expression must be a numeric literal.

JMN3152I-S

Operand @1@ in the boolean expression must be a @2@.

Parameter explanation

@1@ : Identifier or 'literal'

@2@ : 'boolean item' or 'boolean literal'

Example

[C3152.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3152.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A PIC 1111.
000007 01  B PIC 9999.
000008 PROCEDURE  DIVISION.
000009 P-START.
000010     COMPUTE A = NOT ( NOT B ).
000011     COMPUTE A = NOT ( NOT 12345 ).
000012     STOP RUN.

C3152.cob 10: JMN3152I-S Operand 'B' in boolean expression must be boolean item.

C3152.cob 11: JMN3152I-S Operand literal in the boolean expression must be a boolean literal.

JMN3153I-S

Operand @1@ enclosed with parentheses in the expression must be a numeric item or a boolean item.

Parameter explanation

@1@ : Identifier

Example

[C3153.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3153.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A PIC 9999.
000007 01  B PIC XXXX.
000008 PROCEDURE  DIVISION.
000009 P-START.
000010     COMPUTE A = ( B ).
000011     STOP RUN.

C3153.cob 10: JMN3153I-S Operand 'B' enclosed with parentheses in the expression must be a numeric item or a boolean item.

JMN3154I-S

Data-name @1@ in parentheses for the subscript or reference modifier must be a @2@ which is an integer.

Parameter explanation

@1@ : Identifier or 'literal'

@2@ : 'numeric item' or 'numeric literal'

Example

[C3154.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3154.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A PIC 9999.
000007 01  B.
000008     02 C PIC 9999 OCCURS 10 TIMES.
000009 01  I PIC 999V999.
000010 PROCEDURE  DIVISION.
000011 P-START.
000012     COMPUTE A = C ( I ) + 5.
000013     COMPUTE A = C ( 1.25 ) + 5.
000014     STOP RUN.

C3154.cob 12: JMN3154I-S Data-name 'I' in parentheses for the subscript or reference modifier must be a numeric item which is an integer.

C3154.cob 13: JMN3154I-S Data-name literal in parentheses for the subscript or reference modifier must be a numeric literal which is an integer.

JMN3157I-S

There is no valid data item in the REPLACING phrase of the INITIALIZE statement.

Example

[C3157.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID. C3157.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006   01 A PIC X(10).
000007   01 B PIC 99 VALUE 10.
000008 PROCEDURE  DIVISION.
000009   P-START.
000010     INITIALIZE A REPLACING ALPHABETIC BY B.
000011     STOP RUN.

C3157.cob 10: JMN3157I-S There is no valid data item in the REPLACING phrase of the INITIALIZE statement.

JMN3158I-I

There is no item to be initialized by the INITIALIZE statement.

Example

[C3158.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID. C3158.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006   01 A PIC X(10).
000007 PROCEDURE  DIVISION.
000008   P-START.
000009     INITIALIZE A REPLACING NUMERIC BY 1
000010                            ALPHABETIC BY "A".
000011     STOP RUN.

C3158.cob 9: JMN3158I-I There is no item to be initialized by the INITIALIZE statement.

JMN3159I-S

When a conditional expression of a selection subject is specified in the EVALUATE statement, the selection object must be a conditional expression, TRUE, FALSE, or ANY.

Example

[C3159.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3159.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A        PIC X(2).
000007 01  B        PIC XX.
000008 01  X        PIC X(2).
000009 PROCEDURE  DIVISION.
000010     EVALUATE A = B
000011     WHEN     A
000012       MOVE 1 TO A.
000013     STOP RUN.

C3159.cob 11: JMN3159I-S When a conditional expression of a selection subject is specified in the EVALUATE statement, the selection object must be a conditional expression, TRUE, FALSE, or ANY.

JMN3160I-S

The KEY IS phrase must be specified in the data description entry of @1@ of the SEARCH ALL statement.

Parameter explanation

@1@ : Identifier

Example

[C3160.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3160.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  GRP.
000007    02  TBL OCCURS 10 TIMES INDEXED BY INX.
000008       03  A        PIC X.
000009 01  B        PIC XX.
000010 01  X        PIC X(2).
000011 PROCEDURE  DIVISION.
000012     SEARCH ALL TBL
000013     WHEN   A(INX) = "Z"
000014       MOVE 1 TO B.
000015     STOP RUN.

C3160.cob 12: JMN3160I-S The KEY IS phrase must be specified in the data description entry of 'TBL' of the SEARCH ALL statement.

JMN3161I-S

The data name in the WHEN phrase of the SEARCH ALL statement must be specified in the KEY IS phrase of the data description entry of @1@.

Parameter explanation

@1@ : Identifier

Example

[C3161.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3161.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  GRP1.
000007    02  TBL1 OCCURS 10 TIMES ASCENDING KEY IS K1
000008                             INDEXED BY INX1.
000009       03  K1     PIC X.
000010 01  GRP2.
000011    02  TBL2 OCCURS 10 TIMES ASCENDING KEY IS K2
000012                             INDEXED BY INX2.
000013       03  K2     PIC X.
000014 01  A        PIC XX.
000015 01  B        PIC X(2).
000016 PROCEDURE  DIVISION.
000017     SEARCH ALL TBL1
000018     WHEN  K2(INX1) = "Y"
000019       MOVE 1 TO A.
000020     STOP RUN.

C3161.cob 18: JMN3161I-S The data name in the WHEN phrase of the SEARCH ALL statement must be specified in the KEY IS phrase of the data description entry of 'TBL1'.

JMN3162I-S

The rightmost subscript of the WHEN phrase in the SEARCH ALL statement must be the first index-name related to @2@.

@2@ : Identifier

Example

[C3162.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3162.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  GRP.
000007    02  TBL OCCURS 5 TIMES.
000008       03   TBL-2 OCCURS 5 TIMES ASCENDING KEY IS A
000009                                 INDEXED BY INX1 INX2.
000010          04  A  PIC 9.
000011 PROCEDURE  DIVISION.
000012     SEARCH ALL TBL-2
000013     WHEN A(3, INX2) = 1
000014       STOP RUN.

C3162.cob 13: JMN3162I-S The rightmost subscript of the WHEN phrase in the SEARCH ALL statement must be the first index-name related to 'TBL-2'.

JMN3163I-S

All data-names or condition-names specified in the KEY IS phrase must be specified as data-names or condition-names in the WHEN phrase of the SEARCH ALL statement.

Example

[C3163.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3163.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  GRP.
000007    02   TBL OCCURS 10 TIMES ASCENDING KEY IS A B C
000008                             INDEXED BY INX.
000009       03  A      PIC 9.
000010       03  B      PIC X.
000011       03  C      PIC X.
000012 PROCEDURE  DIVISION.
000013     SEARCH ALL TBL
000014     WHEN C(INX) = "A"
000015     AND  A(INX) = 9
000016       STOP RUN.

C3163.cob 14: JMN3163I-S All data-names or condition-names specified in the KEY IS phrase must be specified as data-names or condition-names in the WHEN phrase of the SEARCH ALL statement.

Explanation

You don't have to specify all the KEY IS items of a table definition in the WHEN phrase of the SEARCH ALL statement, but you cannot omit higher level keys when including lower keys. For example, if the key definition has "KEY IS A B C" then the WHEN phrase can reference: only A; A and B; and A, B and C; but it cannot just have A and C or just B or C.

JMN3164I-S

@1@ @2@ cannot be specified in a DELETE statement.

Parameter explanation

@1@ : Organization of file.

@2@ : File name.

Example

[C3164.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3164.
000003 ENVIRONMENT  DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT FILE-1 ASSIGN TO S-SYS001.
000007 DATA  DIVISION.
000008 FILE SECTION.
000009   FD FILE-1.
000010    01 REC-1 PIC X(80).
000011 PROCEDURE  DIVISION.
000012     DELETE FILE-1.
000013     STOP RUN.

C3164.cob 12: JMN3164I-S Sequential file 'FILE-1' cannot be specified in a DELETE statement.

JMN3165I-S

For sequential access to file @1@, the @2@ phrase cannot be specified in a DELETE statement.

Parameter explanation

@1@ : File name.

@2@ : 'INVALID KEY' or 'NOT INVALID KEY'

Example

[C3165.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3165.
000003 ENVIRONMENT  DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT FILE-1 ASSIGN TO S-SYS001
000007     ORGANIZATION IS INDEXED
000008     ACCESS MODE IS SEQUENTIAL
000009     RECORD KEY IS REC-KEY.
000010 DATA  DIVISION.
000011 FILE SECTION.
000012   FD FILE-1.
000013    01 REC-1.
000014     02 REC-KEY PIC XX.
000015     02 FILLER  PIC XX.
000016 PROCEDURE  DIVISION.
000017     DELETE FILE-1 INVALID KEY GO TO L1.
000018   L1. STOP RUN.

C3165.cob 17: JMN3165I-S For sequential access to file 'FILE-1', the INVALID KEY phrase cannot be specified in a DELETE statement.

JMN3166I-S

@1@ @2@ @3@ cannot be specified in a START statement.

Parameter explanation

@1@ : Access mode.

@2@ : Organization of file.

@3@ : File name.

Example

[C3166.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3166.
000003 ENVIRONMENT  DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT FILE-1 ASSIGN TO SYS001.
000007 DATA  DIVISION.
000008 FILE SECTION.
000009   FD FILE-1.
000010    01 REC-1 PIC X(80).
000011 PROCEDURE  DIVISION.
000012     START FILE-1.
000013     STOP RUN.

C3166.cob 12: JMN3166I-S Sequential access sequential file 'FILE-1' cannot be specified in a START statement.

JMN3169I-S

An item which is not specified in a RELATIVE KEY clause cannot be specified in a KEY phrase of a START statement with a relative file.

Example

[C3169.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3169.
000003 ENVIRONMENT  DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT FILE-1 ASSIGN TO SYS001
000007     ORGANIZATION IS RELATIVE
000008     ACCESS MODE IS SEQUENTIAL
000009     RELATIVE KEY IS REL-KEY.
000010 DATA  DIVISION.
000011 FILE SECTION.
000012   FD FILE-1.
000013    01 REC-1 PIC X(80).
000014 WORKING-STORAGE SECTION.
000015    77 REL-KEY  PIC 99.
000016    77 KEY-DATA PIC XX.
000017 PROCEDURE  DIVISION.
000018     START FILE-1 KEY IS = KEY-DATA.
000019     STOP RUN.

C3169.cob 18: JMN3169I-S An item which is not specified in a RELATIVE KEY clause cannot be specified in a KEY phrase of a START statement with a relative file.

JMN3170I-S

An item which is not specified in a RECORD KEY clause or an ALTERNATE RECORD KEY clause, or an item which is subordinate to it, cannot be specified in a KEY phrase of a START statement with an indexed file.

Example

[C3170.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3170.
000003 ENVIRONMENT  DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT FILE-1 ASSIGN TO SYS001
000007     ORGANIZATION IS INDEXED
000008     ACCESS MODE IS SEQUENTIAL
000009     RECORD KEY IS KEY-REC.
000010 DATA  DIVISION.
000011 FILE SECTION.
000012   FD FILE-1.
000013    01 REC-1.
000014     02 KEY-REC PIC XX.
000015     02 FILLER  PIC X(78).
000016 WORKING-STORAGE SECTION.
000017    77 KEY-DATA PIC XX.
000018 PROCEDURE  DIVISION.
000019     START FILE-1 KEY IS = KEY-DATA.
000020     STOP RUN.

C3170.cob 19: JMN3170I-S An item which is not specified in a RECORD KEY clause or an ALTERNATE RECORD KEY clause, or an item which is subordinate to it, cannot be specified in a KEY phrase of a START statement with an indexed file.

JMN3175I-S

The USAGE of sending item @1@ in the STRING statement must be DISPLAY.

Parameter explanation

@1@ : Identifier

Example

[C3175.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3175.
000003 DATA  DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01   AN-1 PIC 9(2)  BINARY.
000006 01   AN-2 PIC X(6).
000007 01   AN-3 PIC X(10).
000008 PROCEDURE  DIVISION.
000009 P-START.
000010     STRING AN-1   DELIMITED BY AN-2 INTO AN-3.
000011     STOP RUN.

C3175.cob 10: JMN3175I-S The USAGE of sending item 'AN-1' in the STRING statement must be DISPLAY.

JMN3181I-S

A key item cannot be specified in both the left and right parts of a conditional expression in a WHEN phrase or an AND phrase in a SEARCH ALL statement.

Example

[C3181.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3181.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  GRP.
000007    02  TBL  OCCURS 5 TIMES ASCENDING KEY IS A  B
000008                             INDEXED  BY IX.
000009       03  A     PIC 9.
000010       03  B     PIC 9.
000011 PROCEDURE  DIVISION.
000012     SEARCH ALL TBL
000013     WHEN A (IX) = B (IX)
000014      STOP RUN.

C3181.cob 13: JMN3181I-S A key item cannot be specified in both the left and right parts of a conditional expression in a WHEN phrase or an AND phrase in a SEARCH ALL statement.

JMN3182I-W

An ADVANCING PAGE phrase and an END-OF-PAGE phrase cannot both be specified in the same WRITE statement. It is accepted as written: the compiler will generate code for both ADVANCING PAGE and END-OF-PAGE.

Example

[C3182.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID. C3182.
000003 ENVIRONMENT  DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT FILE-1 ASSIGN TO S-SYS001.
000007 DATA  DIVISION.
000008 FILE SECTION.
000009   FD FILE-1 LINAGE IS 50 LINES.
000010    01 REC-1 PIC X(80).
000011 PROCEDURE  DIVISION.
000012     WRITE REC-1 AFTER ADVANCING PAGE AT EOP GO TO L1.
000013   L1. STOP RUN.

C3182.cob 12: JMN3182I-W An ADVANCING PAGE phrase and an END-OF-PAGE phrase cannot both be specified in the same WRITE statement. It is accepted as written: the compiler will generate code for both ADVANCING PAGE and END-OF-PAGE.

JMN3184I-S

A national item or a national edited item with a CHARACTER TYPE phrase or a file which includes an item with a PRINTING POSITION phrase cannot be specified in a REWRITE statement.

Example

[C3184.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID. C3184.
000003 ENVIRONMENT  DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT FILE-1 ASSIGN TO S-SYS001.
000007 DATA  DIVISION.
000008 FILE SECTION.
000009   FD FILE-1.
000010    01 REC-1.
000011     02 REC-1-1 PIC N(5) MODE-1.
000012     02 FILLER  PIC X(70).
000013 PROCEDURE  DIVISION.
000014     REWRITE REC-1.
000015 END PROGRAM C3184.

C3184.cob 14: JMN3184I-S A national item or a national edited item with a CHARACTER TYPE phrase or a file which includes an item with a PRINTING POSITION phrase cannot be specified in a REWRITE statement.

JMN3188I-S

Inspected item @1@ in the INSPECT statement must be an item with a USAGE of DISPLAY.

Parameter explanation

@1@ : Identifier

Example

[C3188.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID. C3188.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006   77 ID1 PIC S9(9) BINARY.
000007   77 CTR PIC 99.
000008 PROCEDURE  DIVISION.
000009     INSPECT ID1 TALLYING CTR FOR CHARACTERS.
000010 END PROGRAM C3188.

C3188.cob 9: JMN3188I-S Inspected item 'ID1' in the INSPECT statement must be an item with a USAGE of DISPLAY.

JMN3189I-S

Tallying item @1@ in the INSPECT statement must be a numeric item.

Parameter explanation

@1@ : Identifier

Example

[C3189.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID. C3189.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006   77 ID1 PIC X(20).
000007   77 CTR PIC XX.
000008 PROCEDURE  DIVISION.
000009     INSPECT ID1 TALLYING CTR FOR CHARACTERS.
000010 END PROGRAM C3189.

C3189.cob 9: JMN3189I-S Tallying item 'CTR' in the INSPECT statement must be a numeric item.

JMN3190I-S

For a CHARACTERS phrase in an INSPECT statement, the length of the replaced character and scope specifying character must be 1. The statement is ignored.

Example

[C3190.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID. C3190.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006   77 ID1 PIC X(20).
000007 PROCEDURE  DIVISION.
000008     INSPECT ID1 REPLACING CHARACTERS BY "01".
000009 END PROGRAM C3190.

C3190.cob 8: JMN3190I-S For a CHARACTERS phrase in an INSPECT statement, the length of the replaced character and scope specifying character must be 1. The statement is ignored.

JMN3191I-S

For a REPLACING phrase in an INSPECT statement, the lengths of the replacing character and replaced character must be equal.

Example

[C3191.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID. C3191.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006   77 ID1 PIC X(20).
000007 PROCEDURE  DIVISION.
000008     INSPECT ID1 REPLACING ALL "0" BY "11".
000009 END PROGRAM C3191.

C3191.cob 8: JMN3191I-S For a REPLACING phrase in an INSPECT statement, the lengths of the replacing character and replaced character must be equal.

JMN3192I-S

For a CONVERTING phrase in an INSPECT statement, if the converted character is a national or a national edited item, the converting character and the converted character cannot exceed 65536 in length. Non-national items cannot exceed 256 in length.

Example

[C3192.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID. C3192.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006   77 ID1      PIC X(400).
000007   77 CV-CHAR1 PIC X(300).
000008   77 CV-CHAR2 PIC X(300).
000009 PROCEDURE  DIVISION.
000010     INSPECT ID1 CONVERTING CV-CHAR1 TO CV-CHAR2.
000011 END PROGRAM C3192.

C3192.cob 10: JMN3192I-S For a CONVERTING phrase in an INSPECT statement, if the converted character is a national or a national edited item, the converting character and the converted character cannot exceed 65536 in length. Non-national items cannot exceed 256 in length.

C3192.cob 10: JMN3192I-S For a CONVERTING phrase in an INSPECT statement, if the converted character is a national or a national edited item, the converting character and the converted character cannot exceed 65536 in length. Non-national items cannot exceed 256 in length.

JMN3193I-S

For a CONVERTING phrase in an INSPECT statement, the lengths of the converting character and the converted character must be equal.

Example

[C3193.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID. C3193.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006   77 ID1      PIC X(20).
000007   77 CV-CHAR1 PIC XX.
000008   77 CV-CHAR2 PIC X.
000009 PROCEDURE  DIVISION.
000010     INSPECT ID1 CONVERTING CV-CHAR1 TO CV-CHAR2.
000011 END PROGRAM C3193.

C3193.cob 10: JMN3193I-S For a CONVERTING phrase in an INSPECT statement, the lengths of the converting character and the converted character must be equal.

JMN3194I-S

In the INSPECT statement, items other than the tallying item and the inspecting item must all be national items or national edited items, or non-national items.

Example

[C3194.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3194.
000003 ENVIRONMENT  DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006   77 ID1      PIC X(20).
000007   77 REP-CHAR PIC N.
000008 PROCEDURE DIVISION.
000009     INSPECT ID1 REPLACING CHARACTERS BY REP-CHAR.
000010 END PROGRAM C3194.

C3194.cob 9: JMN3194I-S In the INSPECT statement, items other than the tallying item and the inspecting item must all be national items or national edited items, or non-national items.

JMN3195I-S

Items other than the item being inspected and the tallying item in INSPECT statement must have a USAGE of DISPLAY.

Example

[C3195.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3195.
000003 ENVIRONMENT  DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006   01 TAL-CHAR PIC S99 BINARY.
000007   77 ID1        PIC X(20).
000008   77 CTR        PIC 99 PACKED-DECIMAL.
000009 PROCEDURE DIVISION.
000010     INSPECT ID1 TALLYING CTR FOR ALL TAL-CHAR.
000011 END PROGRAM C3195.

C3195.cob 10: JMN3195I-S Items other than the item being inspected and the tallying item in INSPECT statement must have a USAGE of DISPLAY.

JMN3196I-S

@1@ @2@ cannot be specified to a USING phrase in a CALL statement.

Parameter explanation

@1@ : Organization of file.

@2@ : File name.

Example

[C3196.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3196.
000003 ENVIRONMENT  DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT FILE001 ASSIGN SYS010-DA-OUTFILE
000007                    ORGANIZATION IS RELATIVE
000008                    ACCESS MODE IS SEQUENTIAL.
000009 DATA         DIVISION.
000010 FILE         SECTION.
000011 FD  FILE001  LABEL RECORD STANDARD.
000012 01  LINE-REC       PIC  X(77).
000013 01  CTL-REC        PIC  X(61).
000014 PROCEDURE DIVISION.
000015     OPEN OUTPUT FILE001.
000016     CALL "EXTPROG" USING BY CONTENT FILE001.
000017     CLOSE FILE001.
000018 END PROGRAM  C3196.

C3196.cob 16: JMN3196I-S Relative file 'FILE001' cannot be specified to a USING phrase in a CALL statement.

JMN3198I-S

@1@ in the SEARCH ALL statement cannot be reference modified.

Parameter explanation

@1@ : Key data item.

Example

[C3198.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3198.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  GR.
000007   02  TBL OCCURS 10 TIMES ASCENDING KEY IS KEY-1
000008                           INDEXED BY INX.
000009     03  KEY-1   PIC X(5).
000010 PROCEDURE  DIVISION.
000011     SEARCH ALL TBL
000012     WHEN KEY-1(INX)(1 : 3) = "AAA"
000013       STOP RUN.

C3198.cob 12: JMN3198I-S 'KEY-1' in the SEARCH ALL statement cannot be reference modified.

JMN3199I-S

In the INSPECT statement, all items being inspected must be of the same encoding scheme, except for the TALLYING item.

Example

[C3199.cob]
000001 @OPTIONS ENCODE(UTF8,UTF16,LE)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C3199.
000004 ENVIRONMENT     DIVISION.
000005 CONFIGURATION   SECTION.
000006   SPECIAL-NAMES.
000007     ALPHABET U16L FOR NATIONAL UTF16LE
000008     ALPHABET U32L FOR NATIONAL UTF32LE
000009     .
000010 DATA            DIVISION.
000011 WORKING-STORAGE SECTION.
000012 77 ID1          PIC N ENCODING U16L.
000013 77 REP-CHAR     PIC N ENCODING U32L.
000014 PROCEDURE       DIVISION.
000015     INSPECT ID1 REPLACING CHARACTERS BY REP-CHAR.
000016 END PROGRAM     C3199.

C3199.cob 15: JMN3199I-S In the INSPECT statement, all items being inspected must be of the same encoding scheme, except for the TALLYING item.

JMN3200I-S

@2@ @3@ with access mode @1@ cannot be specified for a @4@ phrase of an OPEN statement.

Parameter explanation

@1@ : Access mode.

@2@ : Organization of file.

@3@ : File name.

@4@ : 'INPUT', 'OUTPUT', 'I-O' or 'EXTEND'.

Example

[C3200.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3200.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT FILE-1 ASSIGN TO SYS001
000007     ORGANIZATION IS INDEXED
000008     ACCESS MODE IS RANDOM
000009     RECORD KEY IS KEY-REC.
000010 DATA DIVISION.
000011 FILE SECTION.
000012   FD FILE-1.
000013    01 REC-1.
000014     02 KEY-REC PIC XX.
000015     02 FILLER  PIC X(78).
000016 PROCEDURE DIVISION.
000017     OPEN EXTEND FILE-1.
000018     STOP RUN.

C3200.cob 17: JMN3200I-S Indexed file 'FILE-1' with access mode random access cannot be specified for a EXTEND phrase of an OPEN statement.

JMN3202I-S

File @2@ cannot be specified in the @1@ statement more than once. Only the first specification is accepted.

Parameter explanation

@1@ : 'OPEN' or 'CLOSE'.

@2@ : File name.

Example

[C3202.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3202.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT FILE-1 ASSIGN TO SYS001.
000007     SELECT FILE-2 ASSIGN TO SYS002.
000008 DATA DIVISION.
000009 FILE SECTION.
000010   FD FILE-1.
000011    01 REC-1 PIC X(80).
000012   FD FILE-2.
000013    01 REC-2 PIC X(80).
000014 PROCEDURE DIVISION.
000015     OPEN INPUT  FILE-1 FILE-2
000016          OUTPUT FILE-1.
000017     STOP RUN.

C3202.cob 16: JMN3202I-S File 'FILE-1' cannot be specified in the OPEN statement more than once. Only the first specification is accepted.

JMN3203I-I

(CONF) A 'WRITE' statement with an ADVANCING phrase and a WRITE statement with no specification are coded for the same file. 'AFTER ADVANCING 1' is added to the WRITE statement without an ADVANCING phrase.

Example

[C3203.cob]
000001 @OPTIONS CONF(68)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID. C3203.
000004 ENVIRONMENT DIVISION.
000005 INPUT-OUTPUT SECTION.
000006 FILE-CONTROL.
000007     SELECT FILE-1 ASSIGN TO S-SYS001.
000008 DATA DIVISION.
000009 FILE SECTION.
000010   FD FILE-1.
000011    01 REC-1 PIC X(80).
000012 PROCEDURE DIVISION.
000013     WRITE REC-1.
000014     WRITE REC-1 AFTER ADVANCING 1 LINE.
000015     STOP RUN.

C3203.cob 13: JMN3203I-I (CONF) A 'WRITE' statement with an ADVANCING phrase and a WRITE statement with no specification are coded for the same file. 'AFTER ADVANCING 1' is added to the WRITE statement without an ADVANCING phrase.

JMN3207I-I

(CONF) A 'DELIMITED BY' phrase with 'ALL' and a 'DELIMITER IN' phrase are both specified. If there is a string of delimiters in the sending item, one delimiter is moved to the item of 'DELIMITER IN' phrase.

Example

[C3207.cob]
000001 @OPTIONS CONF(68)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.  C3207.
000004 ENVIRONMENT  DIVISION.
000005 DATA  DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01  A    PIC X(10)  VALUE "ABC/*/*DEF".
000008 01  B    PIC X(5).
000009 01  C    PIC X(5).
000010 PROCEDURE  DIVISION.
000011 P-START.
000012     UNSTRING A  DELIMITED BY ALL "/*"
000013                 INTO B  DELIMITER IN C.

C3207.cob 12: JMN3207I-I (CONF) A 'DELIMITED BY' phrase with 'ALL' and a 'DELIMITER IN' phrase are both specified. If there is a string of delimiters in the sending item, one delimiter is moved to the item of 'DELIMITER IN' phrase.

JMN3218I-S

A 'RELATIVE KEY' clause must be specified for relative file @1@.

Parameter explanation

@1@ : File name.

Example

[C3218.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3218.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT FILE-1 ASSIGN TO SYS001
000007     ORGANIZATION IS RELATIVE
000008     ACCESS MODE IS SEQUENTIAL.
000009 DATA DIVISION.
000010 FILE SECTION.
000011 FD FILE-1.
000012    01 REC-1 PIC X(80).
000013 PROCEDURE DIVISION.
000014     OPEN INPUT FILE-1.
000015     START FILE-1.
000016     CLOSE FILE-1.
000017     STOP RUN.

C3218.cob 15: JMN3218I-S A 'RELATIVE KEY' clause must be specified for relative file 'FILE-1'.

JMN3219I-I

(CONF) The order of increment for an identifier in a PERFORM statement is as follows. (1) The present value of the 'BY' phrase is added to the identifier of the VARYING phrase. (2) The identifier of the 'AFTER' phrase is set to the present value of the 'FROM' phrase.

Example

[C3219.cob]
000001 @OPTIONS CONF(74)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.  C3219.
000004 ENVIRONMENT  DIVISION.
000005 DATA  DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01  A     PIC 9(2) BINARY.
000008 01  B     PIC 9(2) BINARY.
000009 01  C     PIC 9(2) BINARY.
000010 01  X     PIC 9(2) BINARY.
000011 01  Y     PIC 9(2) BINARY.
000012 01  Z     PIC 9(2) BINARY.
000013 PROCEDURE  DIVISION.
000014     PERFORM L1 VARYING A FROM B BY C UNTIL A = B
000015                AFTER   X FROM Y BY Z UNTIL X = Y.
000016  L1.
000017     STOP RUN.

C3219.cob 15: JMN3219I-I (CONF) The order of increment for an identifier in a PERFORM statement is as follows. (1) The present value of the 'BY' phrase is added to the identifier of the VARYING phrase. (2) The identifier of the 'AFTER' phrase is set to the present value of the 'FROM' phrase.

JMN3222I-I

(CONF) An alphabetic check is specified. Lowercase alphabetic characters are considered to belong to the alphabetic class.

Example

[C3222.cob]
000001 @OPTIONS  CONF(74)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.  C3222.
000004 ENVIRONMENT  DIVISION.
000005 DATA  DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01  A     PIC AA.
000008 PROCEDURE  DIVISION.
000009     IF A IS ALPHABETIC   DISPLAY "CONF-OK"
000010                   ELSE   DISPLAY "CONF-NG".
000011     STOP RUN.

C3222.cob 9: JMN3222I-I (CONF) An alphabetic check is specified. Lowercase alphabetic characters are considered to belong to the alphabetic class.

JMN3223I-I

(CONF) An item subordinate to a FILLER item satisfies the CORRESPONDING phrase in the @1@ statement. It is assumed to be a corresponding item.

Parameter explanation

@1@ : MOVE, ADD or SUBTRACT

JMN3226I-I

(CONF) Numeric item @1@ with a 'P' on the left of the decimal point is compared with a nonnumeric operand. A numeric item without a 'P' on the left of decimal-point is assumed.

Parameter explanation

@1@ : Identifier.

Example

[C3226.cob]
000001 @OPTIONS CONF(74),LANGLVL(85)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.  C3226.
000004 ENVIRONMENT  DIVISION.
000005 DATA  DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01  A     PIC 999PP.
000008 PROCEDURE  DIVISION.
000009     MOVE  12345  TO  A.
000010     IF  "123" = A  THEN
000011        DISPLAY "CONF-OK"
000012     ELSE
000013        DISPLAY "CONF-NG"
000014     END-IF
000015 END PROGRAM  C3226.

C3226.cob 10: JMN3226I-I (CONF) Numeric item 'A' with a 'P' on the left of the decimal point is compared with a nonnumeric operand. A numeric item without a 'P' on the left of decimal-point is assumed.

JMN3229I-S

Item @1@ including an item with a CHARACTER TYPE phrase or PRINTING POSITION phrase specified in a 'FROM' phrase in a WRITE statement must not have a reference modifier.

Parameter explanation

@1@ : Identifier of FROM specification.

Example

[C3229.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID. C3229.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT FILE-1 ASSIGN TO S-SYS001.
000007 DATA DIVISION.
000008 FILE SECTION.
000009 FD FILE-1.
000010    01 REC-1 PIC X(80).
000011 WORKING-STORAGE SECTION.
000012    01 DATA-1.
000013     02 DATA-1-1 PIC X(10).
000014     02 DATA-1-2 PIC N(10) CHARACTER TYPE IS MODE-1.
000015    77 NN1    PIC 99.
000016    77 NN2    PIC 99.
000017 PROCEDURE DIVISION.
000018     OPEN OUTPUT FILE-1.
000019     WRITE REC-1 FROM DATA-1(NN1:NN2).
000020     CLOSE FILE-1.
000021     STOP RUN.

C3229.cob 19: JMN3229I-S Item 'DATA-1' including an item with a CHARACTER TYPE phrase or PRINTING POSITION phrase specified in a 'FROM' phrase in a WRITE statement must not have a reference modifier.

JMN3231I-S

@1@ (@2@) and @3@ (@4@) cannot be compared.

Parameter explanation

@1@ : Identifier or special register.

@2@ : Data type.

@3@ : Identifier or special register.

@4@ : Data type.

Example

[C3231.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3231.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A    PIC N(10).
000007 01  B    PIC X(20).
000008 PROCEDURE  DIVISION.
000009 P-START.
000010     IF A = B    STOP RUN.

C3231.cob 10: JMN3231I-S 'A' (national) and 'B' (alphanumeric) cannot be compared.

JMN3236I-S

The record length of file @3@ specified in the @2@ phrase of the @1@ statement cannot exceed the maximum record length of the sort-merge file, and cannot be less than the sort-merge file minimum record length.

Parameter explanation

@1@ : 'SORT' or 'MERGE'

@2@ : 'USING' or 'GIVING'

@3@ : File name.

Example

[C3236.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3236.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT US-FILE   ASSIGN TO SYS001-DA-S-SYS001.
000007     SELECT GV-FILE   ASSIGN TO SYS002-DA-S-SYS002.
000008     SELECT SD-FILE   ASSIGN TO SYS003-DA-S-SYS003.
000009 DATA DIVISION.
000010 FILE SECTION.
000011 FD   US-FILE.
000012  01 US-REC1    PIC X(100).
000013 FD   GV-FILE.
000014  01 GV-REC1    PIC X(75).
000015 SD   SD-FILE.
000016  01 SD-REC.
000017     02 SD-KEY1    PIC X(5).
000018     02 FILLER     PIC X(75).
000019 PROCEDURE DIVISION.
000020     SORT SD-FILE ASCENDING KEY SD-KEY1
000021          USING   US-FILE
000022          GIVING  GV-FILE.
000023     STOP RUN.

C3236.cob 20: JMN3236I-S The record length of file 'US-FILE' specified in the USING phrase of the SORT statement cannot exceed the maximum record length of the sort-merge file, and cannot be less than the sort-merge file minimum record length.

JMN3238I-S

Data item @2@ of the KEY phrase in the @1@ statement can be any fixed-length item except internal boolean or external boolean without subscripting.

Parameter explanation

@1@ : SORT or MERGE

@2@ : Identifier

JMN3240I-S

@1@ and @2@ (@3@) cannot be compared.

Parameter explanation

@1@ : 'arithmetic expression', 'numeric literal', 'nonnumeric literal', 'national literal', 'boolean literal' or name of figurative constant.

@2@ : Identifier, special register or index-name.

@3@ : Data type.

Example

[C3240.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3240.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A    PIC S9(3)  PACKED-DECIMAL.
000007 PROCEDURE  DIVISION.
000008 P-START.
000009     IF "AB" = A STOP RUN.

C3240.cob 9: JMN3240I-S Nonnumeric literal and 'A' (internal decimal) cannot be compared.

JMN3241I-S

@1@ (@2@) and @3@ cannot be compared.

Parameter explanation

@1@ : Identifier, special register or index-name.

@2@ : Data type.

@3@ : 'arithmetic expression', 'numeric literal', 'nonnumeric literal', 'national literal', 'boolean literal' or name of figurative constant.

Example

[C3241.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3241.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A    PIC S9(3)  PACKED-DECIMAL.
000007 PROCEDURE  DIVISION.
000008 P-START.
000009     IF A = "AB" STOP RUN.

C3241.cob 9: JMN3241I-S 'A' (internal decimal) and nonnumeric literal cannot be compared.

JMN3242I-S

@1@ and @2@ (@3@) cannot be compared.

Parameter explanation

@1@ : 'Numeric literal', 'Nonnumeric literal', 'National literal', 'ZERO(S,ES)' or 'QUOTE(S)'.

@2@ : Identifier or special register.

@3@ : Data type.

Example

[C3242.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3242.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A    PIC N(10).
000007 PROCEDURE  DIVISION.
000008 P-START.
000009     IF "AB" = A STOP RUN.

C3242.cob 9: JMN3242I-S Nonnumeric literal and 'A' (national) cannot be compared.

JMN3243I-S

@1@ (@2@) and @3@ cannot be compared.

Parameter explanation

@1@ : Identifier or special register.

@2@ : Data type.

@3@ : 'numeric literal', 'nonnumeric literal', 'national literal', 'ZERO(S,ES)' or 'QUOTE(S)'.

Example

[C3243.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3243.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A    PIC N(10).
000007 PROCEDURE  DIVISION.
000008 P-START.
000009     IF A = "AB" STOP RUN.

C3243.cob 9: JMN3243I-S 'A' (national) and nonnumeric literal cannot be compared.

JMN3244I-S

@1@ and @2@ cannot be compared.

Parameter explanation

@1@ : 'Arithmetic expression', 'Nonnumeric literal', 'National literal', 'Boolean literal' or name of figurative constant(excluded ZERO).

@2@ : 'arithmetic expression', 'nonnumeric literal', 'national literal', 'boolean literal' or name of figurative constant(excluded ZERO).

Example

[C3244.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3244.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A    PIC S9(3)  PACKED-DECIMAL.
000007 PROCEDURE  DIVISION.
000008 P-START.
000009     IF A + 10 = "AB"   STOP RUN.

C3244.cob 9: JMN3244I-S Arithmetic expression and nonnumeric literal cannot be compared.

JMN3245I-W

The computation results in zero being raised to the power of a negative integer literal. The value zero comes from a numeric literal with value 0, the figurative constant ZERO, or a computation in which no significant digits will reach the intermediate result. The result is assumed to be zero.

Example

[C3245.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3245.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A  PIC S99.
000007 PROCEDURE  DIVISION.
000008     COMPUTE A = 0 ** -5.
000009 END PROGRAM  C3245.

C3245.cob 8: JMN3245I-W The computation results in zero being raised to the power of a negative integer literal. The value zero comes from a numeric literal with value 0, the figurative constant ZERO, or a computation in which no significant digits will reach the intermediate result. The result is assumed to be zero.

JMN3246I-W

The integer exponent is greater than 9 digits. The exponent is assumed to be the 9 low order digits.

Example

[C3246.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3246.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A  PIC S9(18).
000007 01  B  PIC S9(3).
000008 01  C  PIC S9(12).
000009 PROCEDURE  DIVISION.
000010     COMPUTE A = B ** C.
000011 END PROGRAM  C3246.

C3246.cob 10: JMN3246I-W The integer exponent is greater than 9 digits. The exponent is assumed to be the 9 low order digits.

JMN3248I-S

File @1@ with the RECORD CONTAINS 0 CHARACTERS clause cannot be specified in an OPEN statement with an OUTPUT phrase.

Parameter explanation

@1@ : File name.

Example

[C3248.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3248.
000003 ENVIRONMENT  DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT FILE-1 LINE SEQUENTIAL ASSIGN TO SYS001.
000007 DATA DIVISION.
000008 FILE SECTION.
000009   FD FILE-1 RECORD CONTAINS 0 CHARACTERS.
000010    01 REC-1 PIC X(80).
000011 PROCEDURE DIVISION.
000012     OPEN OUTPUT FILE-1.
000013     STOP RUN.

C3248.cob 12: JMN3248I-S File 'FILE-1' with the RECORD CONTAINS 0 CHARACTERS clause cannot be specified in an OPEN statement with an OUTPUT phrase.

JMN3249I-S

Key item @1@ and the comparison object in the SEARCH ALL statement cannot be boolean items (literal).

Parameter explanation

@1@ : Data name

Example

[C3249.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3249.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01   TBL.
000007   02 X OCCURS 5 TIMES ASCENDING KEY IS A
000008                INDEXED BY IX1.
000009     03 A         PIC 9(2).
000010 01   B        PIC 1(2).
000011 PROCEDURE  DIVISION.
000012     SEARCH ALL X
000013     WHEN A(IX1) = B
000014       CONTINUE
000015     END-SEARCH.
000016 END PROGRAM  C3249.

C3249.cob 13: JMN3249I-S Key item 'A' and the comparison object in the SEARCH ALL statement cannot be boolean items (literal).

JMN3250I-S

An item with a reference modifier cannot be specified in a @1@ statement with a CORRESPONDING phrase.

Parameter explanation

@1@ : MOVE, ADD or SUBTRACT.

Example

[C3250.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3250.
000003 ENVIRONMENT  DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 DATA  DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01  AA.
000008     02 CC-1      PIC X(4).
000009     02 CC-2      PIC X(4).
000010 01  BB.
000011     02 CC-1      PIC X(4).
000012     02 CC-2      PIC X(4).
000013 PROCEDURE  DIVISION.
000014 P-START.
000015     ADD CORR AA(1:4) TO BB.
000016     STOP RUN.

C3250.cob 15: JMN3250I-S An item with a reference modifier cannot be specified in a ADD statement with a CORRESPONDING phrase.

JMN3259I-S

The record length of the sort-merge file specified in the @1@ statement must be less than or equal to the maximum record length of file @3@ specified in the @2@ phrase, and greater than or equal to its minimum record length.

Parameter explanation

@1@ : SORT or MERGE.

@2@ : USING or GIVING.

@3@ : File name.

Example

[C3259.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3259.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT US-FILE   ASSIGN TO SYS001-DA-S-SYS001.
000007     SELECT GV-FILE   ASSIGN TO SYS002-DA-S-SYS002.
000008     SELECT SD-FILE   ASSIGN TO SYS003-DA-S-SYS003.
000009 DATA DIVISION.
000010 FILE SECTION.
000011 FD   US-FILE.
000012  01 US-REC1    PIC X(80).
000013 FD   GV-FILE.
000014  01 GV-REC1    PIC X(75).
000015 SD   SD-FILE.
000016  01 SD-REC.
000017     02 SD-KEY1    PIC X(5).
000018     02 FILLER     PIC X(75).
000019 PROCEDURE DIVISION.
000020     SORT SD-FILE ASCENDING KEY SD-KEY1
000021          USING   US-FILE
000022          GIVING  GV-FILE.
000023     STOP RUN.

C3259.cob 20: JMN3259I-S The record length of the sort-merge file specified in the SORT statement must be less than or equal to the maximum record length of file 'GV-FILE' specified in the GIVING phrase, and greater than or equal to its minimum record length.

JMN3262I-I

(CONF) WRITE statements without ADVANCING phrases are specified for files with LINAGE clauses. 'AFTER ADVANCING 1' is assumed.

Example

[C3262.cob]
000001 @OPTIONS CONF(V10)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID. C3262.
000004 ENVIRONMENT DIVISION.
000005 INPUT-OUTPUT SECTION.
000006 FILE-CONTROL.
000007     SELECT FILE-1  ASSIGN TO S-SYS001.
000008 DATA DIVISION.
000009 FILE SECTION.
000010 FD  FILE-1 LINAGE IS 50 LINES.
000011    01 REC-1 PIC X(80).
000012 PROCEDURE DIVISION.
000013     OPEN OUTPUT FILE-1.
000014     WRITE REC-1.
000015     WRITE REC-1.
000016     CLOSE FILE-1.
000017     STOP RUN.

C3262.cob 14: JMN3262I-I (CONF) WRITE statements without ADVANCING phrases are specified for files with LINAGE clauses. 'AFTER ADVANCING 1' is assumed.

C3262.cob 15: JMN3262I-I (CONF) WRITE statements without ADVANCING phrases are specified for files with LINAGE clauses. 'AFTER ADVANCING 1' is assumed.

JMN3264I-S

When indexed file @2@ is specified in a GIVING phrase of a @1@ statement, data-name @3@ of the KEY phrase must exist in the same character position as the data item of the prime record key of the file.

Parameter explanation

@1@ : 'SORT' or 'MERGE'.

@2@ : File name.

@3@ : Data name.

Example

[C3264.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3264.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT SD-FILE   ASSIGN TO SYS001-DA-S-SYS001.
000007     SELECT US-FILE   ASSIGN TO SYS002-DA-S-SYS002.
000008     SELECT GV-FILE   ASSIGN TO SYS003
000009            ORGANIZATION         IS INDEXED
000010            RECORD           KEY IS RKEY-1
000011            ALTERNATE RECORD KEY IS AKEY-1
000012            ALTERNATE RECORD KEY IS AKEY-2
000013            ALTERNATE RECORD KEY IS AKEY-3
000014            ACCESS    MODE       IS SEQUENTIAL.
000015 DATA DIVISION.
000016 FILE SECTION.
000017 FD   US-FILE.
000018  01 US-REC1    PIC X(80).
000019 FD   GV-FILE.
000020  01 GV-REC1.
000021     02 RKEY-1     PIC XX.
000022     02 AKEY-1     PIC XX.
000023     02 AKEY-2     PIC XX.
000024     02 AKEY-3     PIC XX.
000025     02 FILLER     PIC X(72).
000026 SD   SD-FILE.
000027  01 SD-REC1.
000028     02 SD-KEY1    PIC XX.
000029     02 SD-KEY2    PIC XX.
000030     02 FILLER     PIC X(74).
000031     02 SD-KEY3    PIC XX.
000032 PROCEDURE DIVISION.
000033     SORT SD-FILE ASCENDING KEY SD-KEY3
000034          USING   US-FILE
000035          GIVING  GV-FILE.
000036     STOP RUN.

C3264.cob 33: JMN3264I-S When indexed file 'GV-FILE' is specified in a GIVING phrase of a SORT statement, data-name 'SD-KEY3' of the KEY phrase must exist in the same character position as the data item of the prime record key of the file.

JMN3265I-S

When a national item or a national edited item is specified in the KEY phrase of a @1@ statement, the COLLATING SEQUENCE phrase cannot be specified.

Parameter explanation

@1@ : 'SORT' or 'MERGE'.

Example

[C3265.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3265.
000003 ENVIRONMENT DIVISION.
000004 CONFIGURATION SECTION.
000005 SPECIAL-NAMES.
000006     ALPHABET ABN-1 IS "A" THRU "Z".
000007 INPUT-OUTPUT SECTION.
000008 FILE-CONTROL.
000009     SELECT US-FILE   ASSIGN TO SYS001-DA-S-SYS001.
000010     SELECT GV-FILE   ASSIGN TO SYS002-DA-S-SYS002.
000011     SELECT SD-FILE   ASSIGN TO SYS003-DA-S-SYS003.
000012 DATA DIVISION.
000013 FILE SECTION.
000014 FD   US-FILE.
000015  01 US-REC1    PIC X(80).
000016 FD   GV-FILE.
000017  01 GV-REC1    PIC X(80).
000018 SD   SD-FILE.
000019  01 SD-REC1.
000020     02 SD-KEY1    PIC NN.
000021     02 FILLER     PIC X(76).
000022 PROCEDURE DIVISION.
000023     SORT SD-FILE ASCENDING KEY SD-KEY1
000024          COLLATING SEQUENCE IS ABN-1
000025          USING   US-FILE
000026          GIVING  GV-FILE.
000027     STOP RUN.

C3265.cob 23: JMN3265I-S When a national item or a national edited item is specified in the KEY phrase of a SORT statement, the COLLATING SEQUENCE phrase cannot be specified.

JMN3266I-I

(CONF) A file with a control character is specified in the READ statement. The record including the control character is read.

Example

[C3266.cob]
000001 @OPTIONS CONF(V10),CTLCHR(N)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID. C3266.
000004 ENVIRONMENT DIVISION.
000005 INPUT-OUTPUT SECTION.
000006 FILE-CONTROL.
000007     SELECT F1 ASSIGN S-SYS001.
000008 DATA DIVISION.
000009 FILE SECTION.
000010   FD F1.
000011   01 R1 PIC X(80).
000012 WORKING-STORAGE SECTION.
000013   01 D1 PIC X(80) VALUE ALL "ABCDEFGHIJ".
000014 PROCEDURE DIVISION.
000015     OPEN OUTPUT F1.
000016     MOVE D1 TO R1.
000017     WRITE R1 AFTER ADVANCING 1 LINE.
000018     CLOSE F1.
000019*
000020     OPEN INPUT F1.
000021     READ F1.
000022     DISPLAY R1.
000023     CLOSE F1.
000024     STOP RUN.

C3266.cob 21: JMN3266I-I (CONF) A file with a control character is specified in the READ statement. The record including the control character is read.

JMN3268I-S

The number of subscripts for @1@ of the 'WHEN' phrase in the SEARCH ALL statement must be @2@.

Parameter explanation

@1@ : Identifier.

@2@ : Number of subscripts.

Example

[C3268.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3268.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  GRP.
000007    02  TBL OCCURS 5 TIMES.
000008       03   TBL-2 OCCURS 5 TIMES ASCENDING KEY IS A
000009                                 INDEXED BY INX.
000010          04  A  PIC 9.
000011 PROCEDURE  DIVISION.
000012     SEARCH ALL TBL-2
000013     WHEN A(INX) = 1
000014       STOP RUN.

C3268.cob 13: JMN3268I-S The number of subscripts for 'A' of the 'WHEN' phrase in the SEARCH ALL statement must be 2.

JMN3269I-S

When report-name @1@ is specified in a GENERATE statement, a 'CONTROL' clause must be specified in the report description entry.

Parameter explanation

@1@ : Report name.

Example

[C3269.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3269.
000003 ENVIRONMENT  DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT OU-FILE ASSIGN TO DA-S-SYS006.
000007 DATA  DIVISION.
000008 FILE SECTION.
000009  FD OU-FILE LABEL RECORD STANDARD
000010     REPORT IS RE-1.
000011 WORKING-STORAGE SECTION.
000012 01  REP-LINE PIC X(8).
000013 REPORT SECTION.
000014 RD  RE-1
000015     PAGE LIMITS 66 LINES
000016     HEADING 3
000017     FIRST DETAIL 10
000018     LAST  DETAIL 50.
000019 01  TYPE RH LINE 5.
000020     02 COLUMN 25 PIC X(8)
000021     SOURCE REP-LINE.
000022 01  TYPE PH LINE 7.
000023     02 COLUMN 25 PIC X(8)
000024     VALUE "REPORT-1".
000025 01  TYPE DE LINE PLUS 1.
000026     02 COLUMN 25 PIC X(8)
000027     VALUE "REPORT-2".
000028 PROCEDURE  DIVISION.
000029 P-START.
000030     OPEN OUTPUT OU-FILE.
000031     INITIATE RE-1.
000032     GENERATE RE-1.
000033     TERMINATE RE-1.
000034     CLOSE OU-FILE.
000035     STOP RUN.

C3269.cob 32: JMN3269I-S When report-name 'RE-1' is specified in a GENERATE statement, a 'CONTROL' clause must be specified in the report description entry.

JMN3270I-S

If report-name @1@ is specified in a GENERATE statement, plural detail report groups cannot be specified in the report description entry.

Parameter explanation

@1@ : Report name.

Example

[C3270.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3270.
000003 ENVIRONMENT  DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT LP1FILE ASSIGN TO DA-S-SYS006.
000007 DATA  DIVISION.
000008 FILE SECTION.
000009   FD LP1FILE LABEL RECORD STANDARD
000010     REPORT IS RE-1.
000011 WORKING-STORAGE SECTION.
000012 01  REP-LINE PIC X(80).
000013 REPORT SECTION.
000014  RD RE-1
000015     CONTROL IS FINAL
000016     PAGE LIMITS 66 LINES
000017     HEADING 3
000018     FIRST DETAIL 10
000019     LAST  DETAIL 50.
000020  01 DE-1 TYPE DETAIL LINE PLUS 1.
000021     02 COLUMN 25 PIC X(80)
000022     SOURCE REP-LINE.
000023  01 DE-2 TYPE DETAIL LINE PLUS 1.
000024     02 COLUMN 25 PIC X(80)
000025     VALUE "REPORT-1".
000026 PROCEDURE  DIVISION.
000027 P-START.
000028     OPEN OUTPUT LP1FILE.
000029     INITIATE RE-1.
000030     GENERATE RE-1.
000031     TERMINATE RE-1.
000032     CLOSE LP1FILE.
000033     STOP RUN.

C3270.cob 30: JMN3270I-S If report-name 'RE-1' is specified in a GENERATE statement, plural detail report groups cannot be specified in the report description entry.

JMN3271I-S

Report-name @1@ specified in a GENERATE statement must have one or more body groups in its report description entry.

Parameter explanation

@1@ : Report name.

Example

[C3271.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3271.
000003 ENVIRONMENT  DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT LP1FILE ASSIGN TO DA-S-SYS006.
000007 DATA  DIVISION.
000008 FILE SECTION.
000009  FD LP1FILE LABEL RECORD STANDARD
000010     REPORT IS RE-1.
000011 REPORT SECTION.
000012  RD RE-1
000013     CONTROL IS FINAL
000014     PAGE LIMITS 66 LINES
000015     HEADING 3
000016     FIRST DETAIL 10
000017     LAST  DETAIL 50.
000018   01      TYPE PAGE HEADING LINE 5.
000019     02 COLUMN 25 PIC X(8)
000020        VALUE "HEADER-1".
000021 PROCEDURE  DIVISION.
000022 P-START.
000023     OPEN OUTPUT LP1FILE.
000024     INITIATE RE-1.
000025     GENERATE RE-1.
000026     TERMINATE RE-1.
000027     CLOSE LP1FILE.
000028     STOP RUN.

C3271.cob 25: JMN3271I-S Report-name 'RE-1' specified in a GENERATE statement must have one or more body groups in its report description entry.

JMN3272I-S

Data name @1@ in the GENERATE statement must be the name of a detail report group.

Parameter explanation

@1@ : Data name.

Example

[C3272.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3272.
000003 ENVIRONMENT  DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT LP1FILE ASSIGN TO DA-S-SYS006.
000007 DATA  DIVISION.
000008 FILE SECTION.
000009  FD LP1FILE LABEL RECORD STANDARD
000010     REPORT IS RE-1.
000011 REPORT SECTION.
000012  RD RE-1
000013     CONTROL IS FINAL
000014     PAGE LIMITS 66 LINES
000015     HEADING 3
000016     FIRST DETAIL 10
000017     LAST  DETAIL 50.
000018 01  RH-1 TYPE REPORT HEADING LINE 5.
000019     02  COLUMN 25 PIC X(8)
000020         VALUE "R-HEADER".
000021 PROCEDURE  DIVISION.
000022 P-START.
000023     OPEN OUTPUT LP1FILE.
000024     INITIATE RE-1.
000025     GENERATE RH-1.
000026     TERMINATE RE-1.
000027     CLOSE LP1FILE.
000028     STOP RUN.

C3272.cob 25: JMN3272I-S Data name 'RH-1' in the GENERATE statement must be the name of a detail report group.

JMN3273I-S

Report file @1@ cannot be specified for a statement except for an OPEN OUTPUT, OPEN EXTEND, CLOSE, or USE statement.

Parameter explanation

@1@ : Report file name.

Example

[C3273.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3273.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT FILE-1  ASSIGN TO S-SYS001.
000007     SELECT FILE-2  ASSIGN TO S-SYS002.
000008 DATA DIVISION.
000009 FILE SECTION.
000010 FD  FILE-1
000011     REPORT IS REC-1.
000012 SD  FILE-2.
000013    01 REC-2 PIC X(100).
000014 REPORT SECTION.
000015 RD  REC-1
000016     PAGE LIMIT IS 66 LINES
000017     HEADING 3
000018     FIRST DETAIL 10
000019     LAST  DETAIL 50.
000020    01 LINE NUMBER IS 5  TYPE IS RH.
000021     02 COLUMN NUMBER IS 10 PIC X(14) VALUE "*** HEADER ***".
000022 PROCEDURE  DIVISION.
000023     OPEN INPUT FILE-1.
000024     OPEN I-O   FILE-1.
000025     READ FILE-1.
000026     SORT FILE-2 ASCENDING KEY REC-2 USING FILE-1 GIVING FILE-1.
000027     STOP RUN.

C3273.cob 23: JMN3273I-S Report file 'FILE-1' cannot be specified for a statement except for an OPEN OUTPUT, OPEN EXTEND, CLOSE, or USE statement.

C3273.cob 24: JMN3273I-S Report file 'FILE-1' cannot be specified for a statement except for an OPEN OUTPUT, OPEN EXTEND, CLOSE, or USE statement.

C3273.cob 25: JMN3273I-S Report file 'FILE-1' cannot be specified for a statement except for an OPEN OUTPUT, OPEN EXTEND, CLOSE, or USE statement.

C3273.cob 26: JMN3273I-S Report file 'FILE-1' cannot be specified for a statement except for an OPEN OUTPUT, OPEN EXTEND, CLOSE, or USE statement.

C3273.cob 26: JMN3273I-S Report file 'FILE-1' cannot be specified for a statement except for an OPEN OUTPUT, OPEN EXTEND, CLOSE, or USE statement.

JMN3275I-W

@1@ of the nonnumeric comparison must be an integer. The decimal-point is assumed to be on the rightmost side.

Parameter explanation

@1@ : Identifier or 'Numeric literal'.

Example

[C3275.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3275.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A    PIC X(3).
000007 01  B    PIC 99V9.
000008 PROCEDURE  DIVISION.
000009 P-START.
000010     IF A = B     STOP RUN.

C3275.cob 10: JMN3275I-W 'B' of the nonnumeric comparison must be an integer. The decimal-point is assumed to be on the rightmost side.

JMN3276I-W

The receiving item in the STRING statement cannot be a item with a JUSTIFIED clause. The items is assumed to not have a JUSTIFIED clause.

Example

[C3276.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3276.
000003 DATA  DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01   AN-1 PIC X(6)  VALUE "STRING".
000006 01   AN-2 PIC X(10) JUSTIFIED.
000007 PROCEDURE  DIVISION.
000008 P-START.
000009     STRING AN-1   DELIMITED BY "I" INTO  AN-2.
000010     STOP RUN.

C3276.cob 9: JMN3276I-W The receiving item in the STRING statement cannot be a item with a JUSTIFIED clause. The items is assumed to not have a JUSTIFIED clause.

JMN3277I-S

Identifier @2@ of a @1@ phrase in an UNSTRING statement cannot be an external floating-point item.

Parameter explanation

@1@ : INTO or DELIMITER

@2@ : Identifier

Example

[C3277.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3277.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A    PIC X(10).
000007 01  B    PIC 9(3).
000008 01  C    PIC +9V9E+99.
000009 PROCEDURE  DIVISION.
000010 P-START.
000011     UNSTRING A  DELIMITED BY B  INTO C.
000012 END PROGRAM  C3277.

C3277.cob 11: JMN3277I-S Identifier 'C' of a INTO phrase in an UNSTRING statement cannot be an external floating-point item.

JMN3278I-S

In a SEARCH ALL statement, when either key item @1@ or a comparison object is an integer item with P, another object cannot be an alphabetic, alphanumeric, alphanumeric-edited, numeric-edited, nonnumeric-literal, or a figurative constant other than ZERO.

Parameter explanation

@1@ : Data name

Example

[C3278.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3278.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01   TBL.
000007   02 X OCCURS 5 TIMES ASCENDING KEY IS A
000008                INDEXED BY IX1.
000009     03 A         PIC 9P.
000010 PROCEDURE  DIVISION.
000011     SEARCH ALL X
000012     WHEN A(IX1) = "10"
000013       CONTINUE
000014     END-SEARCH.
000015 END PROGRAM  C3278.

C3278.cob 12: JMN3278I-S In a SEARCH ALL statement, when either key item 'A' or a comparison object is an integer item with P, another object cannot be an alphabetic, alphanumeric, alphanumeric-edited, numeric-edited, nonnumeric-literal, or a figurative constant other than ZERO.

JMN3280I-S

Key item @1@ and the comparison object in the SEARCH statement with ALL cannot exceed 256 bytes in length.

Parameter explanation

@1@ : Data name

JMN3281I-I

(CONF) The numeric literal '-0' is specified as a sending item in a MOVE statement. '+0' is assumed.

Example

[C3281.cob]
000001 @OPTIONS CONF(V52)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.  C3281.
000004 ENVIRONMENT DIVISION.
000005 DATA DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01  A     PIC  S9(4).
000008 PROCEDURE  DIVISION.
000009     MOVE -0 TO A.
000010 END PROGRAM  C3281.

C3281.cob 9: JMN3281I-I (CONF) The numeric literal '-0' is specified as a sending item in a MOVE statement. '+0' is assumed.

JMN3286I-S

@1@ must be defined in the BASED-STORAGE SECTION.

Parameter explanation

@1@ : Identifier.

Example

[C3286.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID. C3286.
000003 ENVIRONMENT     DIVISION.
000004 DATA            DIVISION.
000005  WORKING-STORAGE SECTION.
000006   01  A    PIC X.
000007   01  PTR  USAGE IS POINTER.
000008 PROCEDURE       DIVISION.
000009     MOVE  "A" TO PTR->A.
000010     STOP RUN.

C3286.cob 9: JMN3286I-S 'A' must be defined in the BASED-STORAGE SECTION.

JMN3287I-S

Argument @1@ cannot be specified to @2@.

Parameter explanation

@1@ : Argument of function

@2@ : Function name

Example

[C3287.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3287.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006   01 P  POINTER.
000007   01 FG.
000008     02 B1 PIC 1(4) BIT.
000009     02 B2 PIC 1(4) BIT.
000010 PROCEDURE DIVISION.
000011     MOVE  FUNCTION ADDR (B1)  TO  P
000012     MOVE  FUNCTION ADDR (B2)  TO  P
000013 END PROGRAM C3287.

C3287.cob 11: JMN3287I-S Argument 'B1' cannot be specified to FUNCTION ADDR.

C3287.cob 12: JMN3287I-S Argument 'B2' cannot be specified to FUNCTION ADDR.

JMN3291I-S

If a record containing a RECORD clause with a DEPENDING ON phrase is specified in a WRITE statement, an item containing a CHARACTER TYPE or PRINTING POSITION clause cannot be specified in the FROM phrase.

Example

[C3291.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3291.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT FILE-1 ASSIGN TO S-SYS001.
000007 DATA DIVISION.
000008 FILE SECTION.
000009 FD  FILE-1
000010      RECORD IS VARYING IN SIZE
000011       FROM 80 TO 120 CHARACTERS
000012       DEPENDING ON DEP-1.
000013 01  REC-1 PIC X(120).
000014 WORKING-STORAGE SECTION.
000015 01  A     PIC  N(50) CHARACTER TYPE IS MODE-1.
000016 01  DEP-1 PIC  999.
000017 PROCEDURE  DIVISION.
000018     WRITE REC-1 FROM A.
000019 END PROGRAM  C3291.

C3291.cob 18: JMN3291I-S If a record containing a RECORD clause with a DEPENDING ON phrase is specified in a WRITE statement, an item containing a CHARACTER TYPE or PRINTING POSITION clause cannot be specified in the FROM phrase.

JMN3298I-S

An ADVANCING phrase cannot be specified to a WRITE statement for control record @1@.

Parameter explanation

@1@ : Control record name.

Example

[C3298.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3298.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT FILE-1 ASSIGN TO SYS001
000007     FORMAT IS FMT-001.
000008 DATA DIVISION.
000009 FILE SECTION.
000010 FD FILE-1
000011     CONTROL RECORD IS CNTL-REC.
000012    01 CNTL-REC PIC X(80).
000013 WORKING-STORAGE SECTION.
000014    01 FMT-001 PIC X(8).
000015 PROCEDURE DIVISION.
000016     WRITE CNTL-REC AFTER ADVANCING 1.
000017 END PROGRAM C3298.

C3298.cob 16: JMN3298I-S An ADVANCING phrase cannot be specified to a WRITE statement for control record 'CNTL-REC'.

JMN3301I-S

Data item @1@ specified in the BASED-STORAGE SECTION must be qualified by a pointer expression.

Parameter explanation

@1@ : Identifier.

Example

[C3301.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3301.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 BASED-STORAGE SECTION.
000006   01 A PIC S9(8) BINARY.
000007 PROCEDURE DIVISION.
000008     MOVE 12345 TO A.
000009     STOP RUN.

C3301.cob 8: JMN3301I-S Data item 'A' specified in the BASED-STORAGE SECTION must be qualified by a pointer expression.

JMN3304I-S

Pointer data item @1@ cannot be specified in the @2@ statement.

Parameter explanation

@1@ : Identifier.

@2@ : Statement name.

Example

[C3304.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    C3304.
000003 DATA           DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01  PTR1  USAGE IS POINTER.
000006 PROCEDURE      DIVISION.
000007     INITIALIZE  PTR1.
000008     STOP RUN.

C3304.cob 7: JMN3304I-S Pointer data item 'PTR1' cannot be specified in the INITIALIZE statement.

JMN3307I-S

The relational operator for comparison of pointer data operands must be 'EQUAL(=)' or 'NOT EQUAL(NOT =)'.

Example

[C3307.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3307.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006   01  PTR1  USAGE IS POINTER.
000007   01  PTR2  USAGE IS POINTER.
000008 PROCEDURE      DIVISION.
000009     IF  PTR1 > PTR2  THEN  DISPLAY "NG".
000010 END PROGRAM  C3307.

C3307.cob 9: JMN3307I-S The relational operator for comparison of pointer data operands must be 'EQUAL(=)' or 'NOT EQUAL(NOT =)'.

JMN3309I-S

Data name @1@ defined in the BASED-STORAGE SECTION cannot be specified in the @3@ phrase of the @2@ statement.

Parameter explanation

@1@ : Data name.

@2@ : Statement name(READ or START).

@3@ : Specification.

Example

[C3309.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3309.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT FILE-1 ASSIGN TO SYS001
000007       ORGANIZATION IS INDEXED
000008       RECORD KEY IS KEY-1
000009       ACCESS MODE IS RANDOM.
000010 DATA DIVISION.
000011 BASED-STORAGE SECTION.
000012  01 BSD-1 PIC X BASED ON PTR1.
000013 FILE SECTION.
000014  FD FILE-1.
000015  01 REC-1.
000016    02 KEY-1 PIC X(5).
000017    02       PIC X(75).
000018 WORKING-STORAGE SECTION.
000019  01 PTR1  POINTER.
000020 PROCEDURE  DIVISION.
000021     OPEN INPUT FILE-1.
000022     READ FILE-1 KEY IS BSD-1.
000023     CLOSE FILE-1.
000024 END PROGRAM  C3309.

C3309.cob 22: JMN3309I-S Data name 'BSD-1' defined in the BASED-STORAGE SECTION cannot be specified in the KEY phrase of the READ statement.

JMN3326I-W

@2@ is an unsigned numeric item or a numeric edited item without editing sign control symbols in the @1@ statement. A negative value cannot be moved.

Parameter explanation

@1@ : Statement name.

@2@ : Identifier.

Example

[C3326.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3326.
000003 DATA  DIVISION.
000004 WORKING-STORAGE SECTION.
000005   01  NUM  PIC 99.
000006 PROCEDURE  DIVISION.
000007     MOVE -10 TO NUM.
000008 END PROGRAM C3326.

C3326.cob 7: JMN3326I-W 'NUM' is an unsigned numeric item or a numeric edited item without editing sign control symbols in the MOVE statement. A negative value cannot be moved.

JMN3327I-W

When @2@ is moved to @3@ in the @1@ statement, there are no overlapping digits.

Parameter explanation

@1@ : statement name

@2@ : literal or identifier

@3@ : identifier

Example

[C3327.cob]
000001 IDENTIFICATION DIVISION.
000002  PROGRAM-ID.   C3327.
000003 DATA  DIVISION.
000004  WORKING-STORAGE SECTION.
000005   01  A1  PIC V99.
000006   01  A2  PIC 99.
000007 PROCEDURE  DIVISION.
000008     MOVE  10 TO A1.
000009     MOVE  A1 TO A2.
000010     STOP RUN.

C3327.cob 8: JMN3327I-W When numeric literal is moved to 'A1' in the MOVE statement, there are no overlapping digits.

C3327.cob 9: JMN3327I-W When 'A1' is moved to 'A2' in the MOVE statement, there are no overlapping digits.

Explanation

This message indicates that there are no overlapping positions/digits in the sending and receiving items when moving fixed point numbers. When this is the case none of the digits in the sending item would be moved to any positions in the receiving item.

JMN3328I-W

When a numeric literal is moved to @2@ in the @1@ statement, digit overflow may occur.

Parameter explanation

@1@ : Statement name.

@2@ : Identifier.

Example

[C3328.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    C3328.
000003 DATA  DIVISION.
000004 WORKING-STORAGE SECTION.
000005   01  A1  PIC 99.
000006 PROCEDURE  DIVISION.
000007     MOVE  100 TO A1.
000008 END PROGRAM    C3328.

C3328.cob 7: JMN3328I-W When a numeric literal is moved to 'A1' in the MOVE statement, digit overflow may occur.

JMN3330I-W

When a numeric literal is moved to @2@ in the @1@ statement, the decimal part is truncated.

Parameter explanation

@1@ : Statement name.

@2@ : Identifier.

Example

[C3330.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3330.
000003 DATA  DIVISION.
000004 WORKING-STORAGE SECTION.
000005   01  A1  PIC 99V9.
000006 PROCEDURE  DIVISION.
000007     MOVE  11.23 TO A1.
000008 END PROGRAM C3330.

C3330.cob 7: JMN3330I-W When a numeric literal is moved to 'A1' in the MOVE statement, the decimal part is truncated.

JMN3331I-W

When a numeric literal is moved to numeric item @2@ with scaling position character 'P' in the @1@ statement, the value of the character position corresponding to 'P' of the numeric item is not reflected.

Parameter explanation

@1@ : Statement name.

@2@ : Identifier.

Example

[C3331.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3331.
000003 DATA  DIVISION.
000004 WORKING-STORAGE SECTION.
000005   01  A1  PIC 99PP.
000006 PROCEDURE  DIVISION.
000007     MOVE  1234 TO A1.
000008 END PROGRAM C3331.

C3331.cob 7: JMN3331I-W When a numeric literal is moved to numeric item 'A1' with scaling position character 'P' in the MOVE statement, the value of the character position corresponding to 'P' of the numeric item is not reflected.

JMN3332I-W

When @2@ is moved to @3@ in the @1@ statement, the value of the sending item is not reflected in the receiving item.

Parameter explanation

@1@ : Statement name.

@2@ : Identifier or 'numeric literal'.

@3@ : Identifier.

Example

[C3332.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3332.
000003 DATA  DIVISION.
000004 WORKING-STORAGE SECTION.
000005   01  A1  PIC 99PP.
000006 PROCEDURE  DIVISION.
000007     MOVE  11 TO A1.
000008 END PROGRAM C3332.

C3332.cob 7: JMN3332I-W When numeric literal is moved to 'A1' in the MOVE statement, the value of the sending item is not reflected in the receiving item.

JMN3333I-S

The number of parameters specified in the USING phrase of the CALL statement must be the same as the number of parameters specified in the USING phrase of the PROCEDURE DIVISION.

Example

[C3333.cob]
000001 @OPTIONS CHECK(PRM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID. C3333.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006    01 A PIC X(10).
000007 PROCEDURE DIVISION.
000008     CALL "SUB" USING A.
000009     STOP RUN.
000010 IDENTIFICATION  DIVISION.
000011 PROGRAM-ID. SUB.
000012 DATA DIVISION.
000013 LINKAGE         SECTION.
000014    01 B PIC X(10).
000015    01 C PIC X(10).
000016 PROCEDURE DIVISION
000017     USING B C.
000018     EXIT PROGRAM.
000019 END PROGRAM SUB.
000020 END PROGRAM C3333.

C3333.cob 8: JMN3333I-S The number of parameters specified in the USING phrase of the CALL statement must be the same as the number of parameters specified in the USING phrase of the PROCEDURE DIVISION.

JMN3334I-S

The type of parameter @2@ specified in the USING phrase or the RETURNING phrase of the CALL statement must be the same as the type of parameter @3@ specified in the PROCEDURE DIVISION USING phrase or the RETURNING phrase of program @1@.

Parameter explanation

@1@ : Program name

@2@ : Identifier

@3@ : Identifier

Example

[C3334.cob]
000001 @OPTIONS CHECK(PRM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID. C3334.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006  01 U OBJECT REFERENCE.
000007 PROCEDURE DIVISION.
000008     CALL "C3334S" USING U.
000009     EXIT PROGRAM.
000010*
000011 IDENTIFICATION  DIVISION.
000012 PROGRAM-ID. C3334S.
000013 DATA DIVISION.
000014 LINKAGE         SECTION.
000015  01 L-U BINARY-CHAR UNSIGNED.
000016 PROCEDURE DIVISION
000017     USING L-U.
000018     EXIT PROGRAM.
000019 END PROGRAM C3334S.
000020 END PROGRAM C3334.

C3334.cob 8: JMN3334I-S The type of parameter 'U' specified in the USING phrase or the RETURNING phrase of the CALL statement must be the same as the type of parameter 'L-U' specified in the PROCEDURE DIVISION USING phrase or the RETURNING phrase of program 'C3334S'.

JMN3335I-S

The length of parameter @2@ specified in the USING phrase or RETURNING phrase of the CALL statement must be the same as the length of parameter @3@ specified in the PROCEDURE DIVISION USING phrase or RETURNING phrase of program @1@.

Parameter explanation

@1@ : Program name

@2@ : Identifier

@3@ : Identifier

Example

[C3335.cob]
000001 @OPTIONS CHECK(PRM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID. C3335.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006    01 A PIC X(10).
000007 PROCEDURE DIVISION.
000008     CALL "SUB" USING A.
000009*
000010 IDENTIFICATION  DIVISION.
000011 PROGRAM-ID. SUB.
000012 DATA DIVISION.
000013 LINKAGE         SECTION.
000014    01 B PIC X(05).
000015 PROCEDURE DIVISION
000016     USING B.
000017     EXIT PROGRAM.
000018 END PROGRAM SUB.
000019 END PROGRAM C3335.

C3335.cob 8: JMN3335I-S The length of parameter 'A' specified in the USING phrase or RETURNING phrase of the CALL statement must be the same as the length of parameter 'B' specified in the PROCEDURE DIVISION USING phrase or RETURNING phrase of program 'SUB'.

JMN3337I-I

(CONF) The subscript or reference modifier is evaluated only one time immediately before execution in the UNSTRING statement.

Example

[C3337.cob]
000001 @OPTIONS LANGLVL(85),CONF(74)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID. C3337.
000004 ENVIRONMENT DIVISION.
000005 DATA  DIVISION.
000006 WORKING-STORAGE SECTION.
000007   01  SND     PIC X(10).
000008   01  DLM.
000009     02  DLMB OCCURS 2 PIC X.
000010   01  INTO1   PIC X(10).
000011   01  INTO2   PIC X(10).
000012   01  DLMI1   PIC X(2).
000013   01  DLMI2   PIC X(2).
000014   01  COUNT1  PIC 9(2).
000015   01  COUNT2  PIC 9(2).
000016   01  PTR     PIC 9(2).
000017   01  TALLY1  PIC 9(2).
000018 PROCEDURE  DIVISION.
000019     UNSTRING SND  DELIMITED BY DLMB(TALLY)
000020          INTO INTO1  DELIMITER IN DLMI1 COUNT IN COUNT1
000021               INTO2  DELIMITER IN DLMI2 COUNT IN COUNT2
000022          POINTER  PTR
000023          TALLYING TALLY1.
000024 END PROGRAM C3337.

C3337.cob 19: JMN3337I-I (CONF) The subscript or reference modifier is evaluated only one time immediately before execution in the UNSTRING statement.

JMN3338I-W

A nonnumeric literal that contains a period was moved to a numeric item or a numeric edited item. The characters following the period are ignored in the nonnumeric literal.

Example

[C3338.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID. C3338.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005    01 A PIC 99V9.
000006 PROCEDURE DIVISION.
000007     MOVE "12.3" TO A.
000008     MOVE  12.3  TO A.
000009 END PROGRAM C3338.

C3338.cob 7: JMN3338I-W A nonnumeric literal that contains a period was moved to a numeric item or a numeric edited item. The characters following the period are ignored in the nonnumeric literal.

Explanation

Please correct the nonnumeric literal to the numeric literal.

JMN3339I-I

(OBS) Moving all literals of two or more characters to a numeric item or a numeric edited item is an obsolete feature in @1@ COBOL. It is accepted as written.

Parameter explanation

@1@ : ANSI85

Example

[C3339.cob]
000001 @OPTIONS CONF(OBS)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID. C3339.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006    01 A PIC 999V9.
000007 PROCEDURE DIVISION.
000008     MOVE ALL "123" TO A.
000009 END PROGRAM C3339.

C3339.cob 8: JMN3339I-I (OBS) Moving all literals of two or more characters to a numeric item or a numeric edited item is an obsolete feature in ANSI85 COBOL. It is accepted as written.

JMN3340I-I

(OBS) Comparing all literals of two or more characters with a numeric item or a numeric edited item is an obsolete feature in @1@ COBOL. It is accepted as written.

Parameter explanation

@1@ : ANSI85

JMN3342I-S

SET statement item @1@ of the @2@ phrase must be an index-name, index data item, integer item, pointer data item, NULL, address of special register, or object reference data item.

Parameter explanation

@1@ : Identifier

@2@ : TO, 'UP BY' or 'DOWN BY'

Example

[C3342.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3342.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006   01 A PIC X.
000007   01 B USAGE IS POINTER.
000008 PROCEDURE DIVISION.
000009   P-START.
000010     SET B TO A.
000011 END PROGRAM C3342.

C3342.cob 10: JMN3342I-S SET statement item 'A' of the TO phrase must be an index-name, index data item, integer item, pointer data item, NULL, address of special register, or object reference data item.

JMN3343I-S

SET statement receiving item @1@ must be an index-name, index data item, integer item, pointer data item, address of special register, or object reference data item.

Parameter explanation

@1@ : Item name specified for receipt side

Example

[C3343.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3343.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006   01 A PIC X.
000007   01 B USAGE IS POINTER.
000008 PROCEDURE DIVISION.
000009   P-START.
000010     SET A TO B.
000011 END PROGRAM C3343.

C3343.cob 10: JMN3343I-S SET statement receiving item 'A' must be an index-name, index data item, integer item, pointer data item, address of special register, or object reference data item.

JMN3344I-S

Data-name @1@ of the pointer qualifier must be a pointer data item.

Parameter explanation

@1@ : Data name

Example

[C3344.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3344.
000003 DATA  DIVISION.
000004 BASED-STORAGE SECTION.
000005 01   AAA   PIC X(10).
000006 WORKING-STORAGE SECTION.
000007 01   PT    PIC S9(9) BINARY.
000008 PROCEDURE  DIVISION.
000009     DISPLAY PT->AAA.
000010 END PROGRAM  C3344.

C3344.cob 9: JMN3344I-S Data-name 'PT' of the pointer qualifier must be a pointer data item.

JMN3345I-S

The special register for the presentation file cannot be created using data-name @1@ in the BASED-STORAGE SECTION.

Parameter explanation

@1@ : Data name

Example

[C3345.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3345.
000003 DATA  DIVISION.
000004 BASED-STORAGE SECTION.
000005   01.
000006     02 FILLER  PIC X(5).
000007     02 A       PIC X(1).
000008 PROCEDURE  DIVISION.
000009     DISPLAY EDIT-COLOR OF A.
000010 END PROGRAM  C3345.

C3345.cob 9: JMN3345I-S The special register for the presentation file cannot be created using data-name 'A' in the BASED-STORAGE SECTION.

JMN3346I-S

@1@ being tested by KANJI or DBCS class condition must be a national item or a national-edited item.

Parameter explanation

@1@ : Identifier

Example

[C3346.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3346.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A    PIC X(4).
000007 PROCEDURE  DIVISION.
000008 P-START.
000009     IF A IS KANJI
000010       DISPLAY A.
000011     IF A IS DBCS
000012       DISPLAY A.
000013 END PROGRAM  C3346.

C3346.cob 9: JMN3346I-S 'A' being tested by KANJI or DBCS class condition must be a national item or a national-edited item.

C3346.cob 11: JMN3346I-S 'A' being tested by KANJI or DBCS class condition must be a national item or a national-edited item.

JMN3347I-S

Data-name @1@ is qualified by an implicit pointer over 7 times, or qualified recursively.

Parameter explanation

@1@ : Data name

Example

[C3347.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3347.
000003 DATA DIVISION.
000004 BASED-STORAGE SECTION.
000005 01 PT2 POINTER BASED ON PTR.
000006 01 PT3 POINTER BASED ON PT2.
000007 01 PT4 POINTER BASED ON PT3.
000008 01 PT5 POINTER BASED ON PT4.
000009 01 PT6 POINTER BASED ON PT5.
000010 01 PT7 POINTER BASED ON PT6.
000011 01 PT8 POINTER BASED ON PT7.
000012 01 GRR PIC X(10)  BASED ON PT8.
000013 WORKING-STORAGE SECTION.
000014 01 PTR POINTER.
000015 01 GR  PIC X(10).
000016 PROCEDURE  DIVISION.
000017     DISPLAY GRR.
000018 END PROGRAM  C3347.

C3347.cob 17: JMN3347I-S Data-name 'GRR' is qualified by an implicit pointer over 7 times, or qualified recursively.

JMN3348I-S

When a mnemonic-name corresponds to function-name @1@, @2@ must be an unsigned integer item or an unsigned integer.

Parameter explanation

@1@ : ARGUMENT-NUMBER

@2@ : Data name or literal

Example

[C3348.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3348.
000003 ENVIRONMENT DIVISION.
000004 CONFIGURATION SECTION.
000005  SPECIAL-NAMES.
000006     ARGUMENT-NUMBER IS A-N.
000007 DATA DIVISION.
000008 WORKING-STORAGE SECTION.
000009 01 AG1   PIC S9(8) BINARY.
000010 PROCEDURE  DIVISION.
000011     ACCEPT  AG1 FROM A-N.
000012 END PROGRAM  C3348.

C3348.cob 11: JMN3348I-S When a mnemonic-name corresponds to function-name ARGUMENT-NUMBER, 'AG1' must be an unsigned integer item or an unsigned integer.

JMN3349I-S

When a mnemonic-name corresponds to function-name @1@, @2@ must be a fixed length group item, an alphanumeric elementary item, or a nonnumeric literal.

Parameter explanation

@1@ : ARGUMENT-VALUE, ENVIRONMENT-VALUE or ENVIRONMENT-NAME

@2@ : Data name or literal

Example

[C3349.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3349.
000003 ENVIRONMENT DIVISION.
000004 CONFIGURATION SECTION.
000005  SPECIAL-NAMES.
000006     ARGUMENT-VALUE  IS A-V.
000007 DATA DIVISION.
000008 WORKING-STORAGE SECTION.
000009 01 AV1   PIC S9(8) BINARY.
000010 PROCEDURE  DIVISION.
000011     ACCEPT  AV1 FROM A-V.
000012 END PROGRAM  C3349.

C3349.cob 11: JMN3349I-S When a mnemonic-name corresponds to function-name ARGUMENT-VALUE, 'AV1' must be a fixed length group item, an alphanumeric elementary item, or a nonnumeric literal.

JMN3351I-S

The argument of @1@ must be a type integer.

Parameter explanation

@1@ : Function name

Example

[C3351.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3351.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A    PIC S9(2)V9(2).
000007 01  B    PIC X(1).
000008 PROCEDURE  DIVISION.
000009 P-START.
000010     MOVE FUNCTION CHAR(A) TO B.
000011 END PROGRAM  C3351.

C3351.cob 10: JMN3351I-S The argument of FUNCTION CHAR must be a type integer.

JMN3352I-S

Argument @1@ of @2@ must be a type alphabetic or an alpha-numeric.

Parameter explanation

@1@ : Argument of function

@2@ : Function name

Example

[C3352.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3352.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A    PIC 9(8).
000007 01  B    PIC X(8).
000008 PROCEDURE  DIVISION.
000009 P-START.
000010     MOVE FUNCTION LOWER-CASE (A) TO B.
000011 END PROGRAM  C3352.

C3352.cob 10: JMN3352I-S Argument 'A' of FUNCTION LOWER-CASE must be a type alphabetic or an alpha-numeric.

JMN3353I-S

Argument @1@ of @2@ must be a type numeric.

Parameter explanation

@1@ : Argument of function

@2@ : Function name

Example

[C3353.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3353.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A    COMP-2.
000007 01  B    PIC X(8).
000008 PROCEDURE  DIVISION.
000009     COMPUTE A = FUNCTION SIN (B).
000010 END PROGRAM  C3353.

C3353.cob 9: JMN3353I-S Argument 'B' of FUNCTION SIN must be a type numeric.

JMN3354I-S

@1@ must be an unsigned integer item.

Parameter explanation

@1@ : Data name

Example

[C3354.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3354.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01 LN    PIC S9(2) BINARY.
000006 SCREEN          SECTION.
000007 01 A.
000008    02 B   VALUE "TEST-1".
000009 PROCEDURE  DIVISION.
000010     DISPLAY A
000011        AT LINE NUMBER LN.
000012 END PROGRAM  C3354.

C3354.cob 10: JMN3354I-S 'LN' must be an unsigned integer item.

JMN3355I-S

@1@, which is a BY VALUE parameter of the CALL statement, must be one of: a binary item with a usage of COMP-5, BINARY-CHAR, BINARY-SHORT, or BINARY-LONG and is 4 bytes or less; or a 1 byte item; or a numeric literal that has 9 digits or less.

Parameter explanation

@1@ : Data name

Example

[C3355.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3355.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01 PGMNAME   PIC X(10).
000006 01 ITEM      PIC S9(9) BINARY.
000007 PROCEDURE  DIVISION.
000008     CALL PGMNAME USING BY VALUE ITEM.
000009 END PROGRAM  C3355.

C3355.cob 8: JMN3355I-S 'ITEM', which is a BY VALUE parameter of the CALL statement, must be one of: a binary item with a usage of COMP-5, BINARY-CHAR, BINARY-SHORT, or BINARY-LONG and is 4 bytes or less; or a 1 byte item; or a numeric literal that has 9 digits or less.

JMN3358I-S

The file that is specified in the UNLOCK statement must be a sequential file, a relative file, or an indexed file.

Example

[C3358.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3358.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006      SELECT F1 ASSIGN TO GS-SYS009
000007         SYMBOLIC DESTINATION IS "PRT".
000008 DATA DIVISION.
000009 FILE SECTION.
000010 FD F1.
000011    01 REC1.
000012       02 KY1   PIC X(2).
000013       02       PIC X(78).
000014 PROCEDURE  DIVISION.
000015     UNLOCK F1.
000016 END PROGRAM  C3358.

C3358.cob 15: JMN3358I-S The file that is specified in the UNLOCK statement must be a sequential file, a relative file, or an indexed file.

JMN3359I-S

All arguments of @1@ must be of the same type.

Parameter explanation

@1@ : Function name

Example

[C3359.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3359.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A    PIC S9(4)V9(4) BINARY.
000007 01  B    PIC S9(8) PACKED-DECIMAL.
000008 01  C    PIC X(8).
000009 01  D    PIC S9(8)V9(8) BINARY.
000010 PROCEDURE  DIVISION.
000011 P-START.
000012     COMPUTE D = FUNCTION MAX (A , B , C).
000013 END PROGRAM  C3359.

C3359.cob 12: JMN3359I-S All arguments of FUNCTION MAX must be of the same type.

JMN3361I-S

The numeric parts of the argument of @1@ cannot exceed 18 digits.

Parameter explanation

@1@ : Function name

Example

[C3361.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3361.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A    PIC S9(18) BINARY.
000007 PROCEDURE  DIVISION.
000008 P-START.
000009     COMPUTE A = FUNCTION NUMVAL
000010             (" 1234567890.123456789").
000011 END PROGRAM  C3361.

C3361.cob 9: JMN3361I-S The numeric parts of the argument of FUNCTION NUMVAL cannot exceed 18 digits.

JMN3362I-S

The argument of @1@ must be greater than or equal to 0.

Parameter explanation

@1@ : Function name

Example

[C3362.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3362.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A    PIC S9(9)V9(9) BINARY.
000007 PROCEDURE  DIVISION.
000008     COMPUTE A = FUNCTION SQRT( -2 ).
000009 END PROGRAM  C3362.

C3362.cob 8: JMN3362I-S The argument of FUNCTION SQRT must be greater than or equal to 0.

JMN3363I-S

The first argument of the FUNCTION PRESENT-VALUE must be greater than -1.

Example

[C3363.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3363.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A   PIC S9(18) BINARY.
000007 01  B   PIC S9(8) BINARY VALUE +4.
000008 01  C   PIC S9(8) BINARY VALUE +12.
000009 01  D   PIC S9(8) BINARY VALUE +24.
000010 PROCEDURE  DIVISION.
000011     COMPUTE A = FUNCTION PRESENT-VALUE (-2 B C D).
000012 END PROGRAM  C3363.

C3363.cob 11: JMN3363I-S The first argument of the FUNCTION PRESENT-VALUE must be greater than -1.

JMN3364I-S

The numeric function cannot be reference modified. An alphanumeric function is assumed.

Example

[C3364.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3364.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A    PIC S9(18) BINARY VALUE +35983.
000007 01  B    PIC S9(8) BINARY VALUE +4.
000008 01  C    PIC S9(4) BINARY.
000009 PROCEDURE  DIVISION.
000010     MOVE FUNCTION REM(A B)(3:2) TO C.
000011 END PROGRAM  C3364.

C3364.cob 10: JMN3364I-S The numeric function cannot be reference modified. An alphanumeric function is assumed.

JMN3366I-S

An integer function and a numeric function cannot be specified in the @1@ statement.

Parameter explanation

@1@ : DISPLAY, INITIALIZE, INSPECT or SET

Example

[C3366.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3366.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A    PIC S9(8) BINARY.
000007 PROCEDURE  DIVISION.
000008     DISPLAY FUNCTION INTEGER( A ).
000009 END PROGRAM  C3366.

C3366.cob 8: JMN3366I-S An integer function and a numeric function cannot be specified in the DISPLAY statement.

JMN3367I-S

@1@ in the PERFORM statement must be an integer or an integer item.

Parameter explanation

@1@ : Function name

Example

[C3367.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3367.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A    PIC S9(8) BINARY.
000007 PROCEDURE  DIVISION.
000008     PERFORM FUNCTION INTEGER( A ) TIMES
000009         COMPUTE A = A - 1
000010     END-PERFORM
000011 END PROGRAM  C3367.

C3367.cob 8: JMN3367I-S FUNCTION INTEGER in the PERFORM statement must be an integer or an integer item.

JMN3368I-S

An integer function and a numeric function cannot be specified in a FROM clause in a @1@ statement.

Parameter explanation

@1@ : WRITE, REWRITE or RELEASE

Example

[C3368.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3368.
000003 ENVIRONMENT  DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006      SELECT FILE-1 ASSIGN TO SYS001.
000007 DATA  DIVISION.
000008 FILE  SECTION.
000009 FD FILE-1.
000010  01 WRTREC.
000011   02 WRT-1   PIC S9(8) BINARY.
000012   02 WRT-2   PIC X(72).
000013 WORKING-STORAGE SECTION.
000014 01 A    PIC X(4).
000015 PROCEDURE  DIVISION.
000016 P-START.
000017     OPEN OUTPUT FILE-1.
000018     WRITE WRTREC FROM FUNCTION LENGTH(A).
000019     CLOSE FILE-1.
000020 END PROGRAM  C3368.

C3368.cob 18: JMN3368I-S An integer function and a numeric function cannot be specified in a FROM clause in a WRITE statement.

JMN3369I-S

An integer function and a numeric function cannot be specified in the DELIMITED phrase of a @1@ statement.

Parameter explanation

@1@ : STRING or UNSTRING

JMN3371I-S

An integer function and a numeric function cannot be specified in an INSPECT statement.

Example

[C3371.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3371.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  CHARS  PIC X(1) VALUE "4".
000007 01  I      PIC 9(2).
000008 PROCEDURE  DIVISION.
000009 P-START.
000010     INSPECT FUNCTION INTEGER-OF-DAY(5)
000011                      TALLYING I FOR ALL CHARS.
000012 END PROGRAM  C3371.

C3371.cob 10: JMN3371I-S An integer function and a numeric function cannot be specified in an INSPECT statement.

JMN3372I-S

An integer function and a numeric function cannot be specified in the @1@ statement.

Parameter explanation

@1@ : MOVE, INITIALIZE, STRING or UNSTRING

Example

[C3372.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3372.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  RCV    PIC 9(5).
000007 01  DATA-A PIC X(20) VALUE "ABC".
000008 PROCEDURE  DIVISION.
000009     MOVE  FUNCTION LENGTH(DATA-A)  TO  RCV   *> ERROR
000010     COMPUTE  RCV  =  FUNCTION LENGTH(DATA-A) *> OK
000011 END PROGRAM  C3372.

C3372.cob 9: JMN3372I-S An integer function and a numeric function cannot be specified in the MOVE statement.

Explanation

An integer function and a numeric function can be specified only in the arithmetic expression.

Please use the COMPUTE statement when you set from the value of an integer function or a numeric function to variable.

JMN3373I-S

Indexed file @2@ with ACCESS MODE IS RANDOM specified and WITH DUPLICATES specified to prime key cannot be specified in a @1@ statement.

Parameter explanation

@1@ : REWRITE or DELETE

@2@ : File name

Example

[C3373.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3373.
000003 ENVIRONMENT  DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT F1 ASSIGN TO SYS006
000007        ORGANIZATION IS INDEXED
000008        ACCESS MODE IS RANDOM
000009        RECORD KEY IS AAA WITH DUPLICATES.
000010 DATA  DIVISION.
000011 FILE SECTION.
000012 FD   F1.
000013 01   REC-1.
000014   02  AAA    PIC X(4).
000015   02  FILLER PIC X(76).
000016 PROCEDURE  DIVISION.
000017 P-START.
000018     OPEN I-O F1.
000019     REWRITE  REC-1.
000020 END PROGRAM  C3373.

C3373.cob 19: JMN3373I-S Indexed file 'F1' with ACCESS MODE IS RANDOM specified and WITH DUPLICATES specified to prime key cannot be specified in a REWRITE statement.

JMN3374I-S

The argument format of @1@ is invalid.

Parameter explanation

@1@ : FUNCTION NUMVAL or FUNCTION NUMVAL-C

Example

[C3374.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3374.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  RCV    PIC S9(8)V9(8) BINARY.
000007 PROCEDURE  DIVISION.
000008 P-START.
000009     COMPUTE RCV = FUNCTION NUMVAL-C(" + \ 12345.35 %%").
000010 END PROGRAM  C3374.

C3374.cob 9: JMN3374I-S The argument format of FUNCTION NUMVAL-C is invalid.

JMN3375I-S

The argument of FUNCTION CHAR exceeds the maximum number of characters.

Example

[C3375.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3375.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  RCV    PIC X(1).
000007 PROCEDURE  DIVISION.
000008 P-START.
000009     MOVE FUNCTION CHAR(+300) TO RCV.
000010 END PROGRAM  C3375.

C3375.cob 9: JMN3375I-S The argument of FUNCTION CHAR exceeds the maximum number of characters.

JMN3376I-S

The argument value of @1@ must be between -1 and +1.

Parameter explanation

@1@ : FUNCTION ACOS or FUNCTION ASIN

Example

[C3376.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3376.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  RCV    PIC S9V99.
000007 PROCEDURE  DIVISION.
000008 P-START.
000009     COMPUTE RCV = FUNCTION ACOS(+2).
000010 END PROGRAM  C3376.

C3376.cob 9: JMN3376I-S The argument value of FUNCTION ACOS must be between -1 and +1.

JMN3377I-S

The first argument value of @1@ must be greater than or equal to 0.

Parameter explanation

@1@ : FUNCTION ANNUITY

Example

[C3377.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3377.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  RCV    PIC S9(5)V9(5) BINARY.
000007 01  A      PIC S9(2) BINARY VALUE +3.
000008 PROCEDURE  DIVISION.
000009     COMPUTE RCV = FUNCTION ANNUITY(-1 , A).
000010 END PROGRAM  C3377.

C3377.cob 9: JMN3377I-S The first argument value of FUNCTION ANNUITY must be greater than or equal to 0.

JMN3378I-S

The second argument value of @1@ must be an integer greater than 0.

Parameter explanation

@1@ : FUNCTION ANNUITY

Example

[C3378.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3378.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  RCV    PIC S9(5)V9(5) BINARY.
000007 01  A      PIC S9(2) BINARY VALUE +1.
000008 PROCEDURE  DIVISION.
000009 P-START.
000010     COMPUTE RCV = FUNCTION ANNUITY(A -1).
000011 END PROGRAM  C3378.

C3378.cob 10: JMN3378I-S The second argument value of FUNCTION ANNUITY must be an integer greater than 0.

JMN3379I-S

The second argument value of @1@ must not equal 0.

Parameter explanation

@1@ : FUNCTION REM or FUNCTION MOD

Example

[C3379.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3379.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  RCV    PIC S9(5)V9(5) BINARY.
000007 01  A      PIC S9(2) BINARY VALUE +1.
000008 PROCEDURE  DIVISION.
000009 P-START.
000010     COMPUTE RCV = FUNCTION REM(A 0).
000011 END PROGRAM  C3379.

C3379.cob 10: JMN3379I-S The second argument value of FUNCTION REM must not equal 0.

JMN3380I-S

The argument value of @1@ must be greater than 0.

Parameter explanation

@1@ : FUNCTION LOG or FUNCTION LOG10

Example

[C3380.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3380.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  RCV    PIC S9(5)V9(5) BINARY.
000007 PROCEDURE  DIVISION.
000008 P-START.
000009     COMPUTE RCV = FUNCTION LOG(-1.5).
000010 END PROGRAM  C3380.

C3380.cob 9: JMN3380I-S The argument value of FUNCTION LOG must be greater than 0.

JMN3381I-S

The argument of @1@ must be a type alphabetic or a type alphanumeric, and must be one character.

Parameter explanation

@1@ : FUNCTION ORD

Example

[C3381.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3381.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A      PIC X(2).
000007 01  RCV    PIC S9(2) BINARY.
000008 PROCEDURE  DIVISION.
000009 P-START.
000010     COMPUTE RCV = FUNCTION ORD(A).
000011 END PROGRAM  C3381.

C3381.cob 10: JMN3381I-S The argument of FUNCTION ORD must be a type alphabetic or a type alphanumeric, and must be one character.

JMN3382I-S

The types of argument in @1@ must be alphabetic, alphanumeric or numeric.

Parameter explanation

@1@ : FUNCTION MAX, FUNCTION MIN, FUNCTION ORD-MAX, FUNCTION ORD-MIN

Example

[C3382.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3382.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A      PIC 1(8) BIT.
000007 01  B      PIC 9(1).
000008 01  RCV    PIC 9(1).
000009 PROCEDURE  DIVISION.
000010 P-START.
000011     COMPUTE RCV = FUNCTION MAX(A B).
000012 END PROGRAM  C3382.

C3382.cob 11: JMN3382I-S The types of argument in FUNCTION MAX must be alphabetic, alphanumeric or numeric.

JMN3383I-S

The argument of @1@ must be a nonnumeric literal or an alphanumeric item.

Parameter explanation

@1@ : FUNCTION NUMVAL, FUNCTION NUMVAL-C

Example

[C3383.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3383.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A    PIC A(10).
000007 01  B    PIC S9(8) BINARY.
000008 PROCEDURE  DIVISION.
000009     COMPUTE B = FUNCTION NUMVAL(A)
000010 END PROGRAM  C3383.

C3383.cob 9: JMN3383I-S The argument of FUNCTION NUMVAL must be a nonnumeric literal or an alphanumeric item.

JMN3384I-W

The argument of @1@ must be a nonnumeric literal or an alphanumeric item. An alphanumeric item is assumed.

Parameter explanation

@1@ : FUNCTION NUMVAL, FUNCTION NUMVAL-C

Example

[C3384.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3384.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  TB.
000007   02   T1   PIC X(3).
000008   02   T2   PIC S9(5).
000009 01  B    PIC S9(8) BINARY.
000010 PROCEDURE  DIVISION.
000011     COMPUTE B = FUNCTION NUMVAL(TB).
000012 END PROGRAM  C3384.

C3384.cob 11: JMN3384I-W The argument of FUNCTION NUMVAL must be a nonnumeric literal or an alphanumeric item. An alphanumeric item is assumed.

JMN3385I-S

@1@ in the PERFORM statement must be a numeric literal or a numeric item.

Parameter explanation

@1@ : Function name

Example

[C3385.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3385.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A    PIC S9(8) BINARY.
000007 01  I    PIC S9(2)V9(2) BINARY.
000008 PROCEDURE  DIVISION.
000009     PERFORM VARYING I FROM FUNCTION RANDOM BY 0.1
000011                                  UNTIL I > 5
000012         COMPUTE A = A - 1
000013     END-PERFORM
000014 END PROGRAM C3385.

C3385.cob 9: JMN3385I-S FUNCTION RANDOM in the PERFORM statement must be a numeric literal or a numeric item.

JMN3386I-S

The argument of @1@ must be a fixed decimal point item or a decimal point literal.

Parameter explanation

@1@ : FUNCTION INTEGER, FUNCTION INTEGER-PART, FUNCTION REM

Example

[C3386.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3386.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  A    COMP-2  VALUE +3.5.
000007 01  RCV  PIC S9(4) BINARY.
000008 PROCEDURE  DIVISION.
000009     COMPUTE RCV = FUNCTION INTEGER( A ).
000010 END PROGRAM  C3386.

C3386.cob 9: JMN3386I-S The argument of FUNCTION INTEGER must be a fixed decimal point item or a decimal point literal.

JMN3388I-S

The WITH phrase cannot be specified in a PROCEDURE DIVISION of a contained program or a CALL statement for a contained program.

Example

[C3388.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3388.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01 A     PIC S9(8) BINARY.
000006 01 B     PIC S9(4) BINARY.
000007 01 C     PIC X(1).
000008 PROCEDURE  DIVISION.
000009     CALL "SUBPROG"  USING A B C.
000010     EXIT PROGRAM.
000011 IDENTIFICATION DIVISION.
000012 PROGRAM-ID.  SUBPROG.
000013 DATA DIVISION.
000014 LINKAGE         SECTION.
000015 01 A1    PIC S9(8) BINARY.
000016 01 B1    PIC S9(4) BINARY.
000017 01 C1    PIC X(1).
000018 PROCEDURE  DIVISION WITH PASCAL LINKAGE
000019     USING A1 B1 C1.
000020     DISPLAY A1 B1 C1.
000021 END PROGRAM SUBPROG.
000022 END PROGRAM C3388.

C3388.cob 19: JMN3388I-S The WITH phrase cannot be specified in a PROCEDURE DIVISION of a contained program or a CALL statement for a contained program.

JMN3391I-W

In this system, PASCAL LINKAGE or STDCALL LINKAGE cannot be used. C linkage is assumed.

JMN3392I-S

In the @1@ statement, @2@ of the PROMPT phrase must be a one character alphabetic item, alphanumeric item, national item, nonnumeric literal, or national character literal.

Parameter explanation

@1@ : ACCEPT or DISPLAY

@2@ : Data name

Example

[C3392.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3392.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01 A     PIC X(8).
000006 01 B     PIC X(2).
000007 PROCEDURE  DIVISION.
000008     ACCEPT A WITH PROMPT B.
000009 END PROGRAM  C3392.

C3392.cob 8: JMN3392I-S In the ACCEPT statement, 'B' of the PROMPT phrase must be a one character alphabetic item, alphanumeric item, national item, nonnumeric literal, or national character literal.

JMN3393I-S

@2@ of the AT phrase must be a numeric item with USAGE IS DISPLAY, or a numeric literal of 4 or 6 digits.

@2@ : Identifier

Example

[C3393.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3393.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01 A     PIC X(8).
000006 01 B     PIC S9(5).
000007 PROCEDURE  DIVISION.
000008     DISPLAY A AT 01001.
000009     ACCEPT  A AT B.
000010 END PROGRAM  C3393.

C3393.cob 8: JMN3393I-S Numeric literal of the AT phrase must be a numeric item with USAGE IS DISPLAY, or a numeric literal of 4 or 6 digits.

C3393.cob 9: JMN3393I-S 'B' of the AT phrase must be a numeric item with USAGE IS DISPLAY, or a numeric literal of 4 or 6 digits.

JMN3394I-S

The item length of @2@ cannot be variable in the @1@ statement.

Parameter explanation

@1@ : DISPLAY

@2@ : Identifier

Example

[C3394.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3394.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01 A     PIC X(8).
000006 01 L     PIC S9(4) BINARY.
000007 PROCEDURE  DIVISION.
000008     DISPLAY FUNCTION MAX( "A" )(1 : L) UPON CRT.
000009 END PROGRAM  C3394.

C3394.cob 8: JMN3394I-S The item length of FUNCTION MAX cannot be variable in the DISPLAY statement.

JMN3395I-S

The PREVIOUS phrase of the READ statement can only be specified for an indexed file or a relative file of dynamic access mode.

Example

[C3395.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3395.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006      SELECT FILE-1 ASSIGN TO SYS001
000007      ORGANIZATION IS INDEXED
000008      ACCESS MODE IS SEQUENTIAL
000009      RECORD KEY IS KEY-REC.
000010 DATA DIVISION.
000011 FILE SECTION.
000012 FD  FILE-1.
000013 01  REC-1.
000014   02  KEY-REC PIC XX.
000015   02  FILLER  PIC X(78).
000016 PROCEDURE  DIVISION.
000017     READ FILE-1 PREVIOUS.
000018 END PROGRAM  C3395.

C3395.cob 17: JMN3395I-S The PREVIOUS phrase of the READ statement can only be specified for an indexed file or a relative file of dynamic access mode.

JMN3396I-S

@1@ being tested by the @2@ class condition must be an alphabetic, alphanumeric, alphanumeric-edited, numeric-edited, national or national-edited item.

Parameter explanation

@1@ : Identifier

@2@ : Inspection type of class condition(JAPANESE, UNICODE1, BMP)

Example

[C3396.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3396.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 DATA DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01  A     PIC S9(4) BINARY.
000008 PROCEDURE DIVISION.
000009      IF  A  IS  JAPANESE   THEN
000010        DISPLAY A
000011      END-IF.
000012 END PROGRAM  C3396.

C3396.cob 9: JMN3396I-S 'A' being tested by the JAPANESE class condition must be an alphabetic, alphanumeric, alphanumeric-edited, numeric-edited, national or national-edited item.

JMN3397I-S

Argument @1@ of FUNCTION CAST-ALPHANUMERIC must be a national item or a national-edited item.

Parameter explanation

@1@ : Function argument

Example

[C3397.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3397.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 DATA DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01  A     PIC X(4).
000008 01  B     PIC X(4).
000009 PROCEDURE DIVISION.
000010      MOVE FUNCTION CAST-ALPHANUMERIC( A ) TO B.
000011      STOP RUN.

C3397.cob 10: JMN3397I-S Argument 'A' of FUNCTION CAST-ALPHANUMERIC must be a national item or a national-edited item.

JMN3398I-S

Argument @1@ of FUNCTION NATIONAL must be an alphabetic, alphanumeric, alphanumeric-edited, numeric-edited or external decimal item.

Parameter explanation

@1@ : Function argument

Example

[C3398.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3398.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 DATA DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01  A     PIC S9(4) BINARY.
000008 01  B     PIC N(4).
000009 PROCEDURE DIVISION.
000010      MOVE FUNCTION NATIONAL( A ) TO B.
000011      STOP RUN.

C3398.cob 10: JMN3398I-S Argument 'A' of FUNCTION NATIONAL must be an alphabetic, alphanumeric, alphanumeric-edited, numeric-edited or external decimal item.

JMN3399I-S

@1@ of the DISPLAY statement must be defined in the WORKING-STORAGE SECTION.

Parameter explanation

@1@ : Identifier

Example

[C3399.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3399.
000003 DATA DIVISION.
000004 BASED-STORAGE SECTION.
000005 01  REC-1 BASED ON PT.
000006   02  KEY-REC PIC XX.
000007   02  FILLER  PIC X(78).
000008 WORKING-STORAGE SECTION.
000009 01  PT POINTER.
000010 PROCEDURE  DIVISION.
000011     DISPLAY REC-1 UPON CRT.
000012 END PROGRAM  C3399.

C3399.cob 11: JMN3399I-S 'REC-1' of the DISPLAY statement must be defined in the WORKING-STORAGE SECTION.

JMN3400I-S

@1@ of the ACCEPT statement must be defined in the WORKING-STORAGE SECTION.

Parameter explanation

@1@ : Identifier

Example

[C3400.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3400.
000003 DATA DIVISION.
000004 BASED-STORAGE SECTION.
000005 01  REC-1 BASED ON PT.
000006   02  KEY-REC PIC XX.
000007   02  FILLER  PIC X(78).
000008 WORKING-STORAGE SECTION.
000009 01  PT POINTER.
000010 PROCEDURE  DIVISION.
000011     ACCEPT  REC-1 FROM CRT.
000012 END PROGRAM  C3400.

C3400.cob 11: JMN3400I-S 'REC-1' of the ACCEPT statement must be defined in the WORKING-STORAGE SECTION.

JMN3401I-S

@2@ of the @1@ statement cannot be specified as a group item.

Parameter explanation

@1@ : DISPLAY or ACCEPT

@2@ : BELL or BLANK LINE

Example

[C3401.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3401.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01  GRP.
000006   02  A-ITEM   PIC S9(4).
000007   02  B-ITEM   PIC X(8).
000008 PROCEDURE  DIVISION.
000009     ACCEPT  GRP  WITH BELL.
000010     DISPLAY GRP  WITH BELL BLANK LINE.
000011 END PROGRAM  C3401.

C3401.cob 9: JMN3401I-S BELL of the ACCEPT statement cannot be specified as a group item.

C3401.cob 10: JMN3401I-S BELL of the DISPLAY statement cannot be specified as a group item.

C3401.cob 10: JMN3401I-S BLANK LINE of the DISPLAY statement cannot be specified as a group item.

JMN3402I-S

If @2@ in the @1@ statement is a numeric item or a numeric edited item, the SIZE phrase cannot be specified.

Parameter explanation

@1@ : DISPLAY or ACCEPT

@2@ : Identifier

Example

[C3402.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3402.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01 A     PIC 99.99.
000006 01 B     PIC S9(5).
000007 PROCEDURE  DIVISION.
000008     DISPLAY A WITH SIZE 2.
000009     ACCEPT  B WITH SIZE 2.
000010 END PROGRAM  C3402.

C3402.cob 8: JMN3402I-S If 'A' in the DISPLAY statement is a numeric item or a numeric edited item, the SIZE phrase cannot be specified.

C3402.cob 9: JMN3402I-S If 'B' in the ACCEPT statement is a numeric item or a numeric edited item, the SIZE phrase cannot be specified.

JMN3403I-S

If @2@ in the @1@ statement is specified with the JUSTIFIED clause, the SIZE phrase cannot be specified.

Parameter explanation

@1@ : DISPLAY or ACCEPT

@2@ : Identifier

Example

[C3403.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3403.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01 A     PIC X(5) JUSTIFIED.
000006 PROCEDURE  DIVISION.
000007     DISPLAY A WITH SIZE 2.
000008     ACCEPT  A WITH SIZE 2.
000009 END PROGRAM  C3403.

C3403.cob 7: JMN3403I-S If 'A' in the DISPLAY statement is specified with the JUSTIFIED clause, the SIZE phrase cannot be specified.

C3403.cob 8: JMN3403I-S If 'A' in the ACCEPT statement is specified with the JUSTIFIED clause, the SIZE phrase cannot be specified.

JMN3404I-S

If a numeric literal is specified in the @1@ statement, the SIZE phrase cannot be specified.

Parameter explanation

@1@ : DISPLAY

Example

[C3404.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3404.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 PROCEDURE  DIVISION.
000006     DISPLAY 12345 WITH SIZE 2.
000007 END PROGRAM  C3404.

C3404.cob 6: JMN3404I-S If a numeric literal is specified in the DISPLAY statement, the SIZE phrase cannot be specified.

JMN3405I-S

When compile option KANA(JIS8) is specified, @1@ being tested by the JAPANESE class condition must be a national or a national-edited item.

Parameter explanation

@1@ : Identifier

Example

[C3405.cob]
000001 @OPTIONS KANA(JIS8)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.  C3405.
000004 ENVIRONMENT DIVISION.
000005 INPUT-OUTPUT SECTION.
000006 DATA DIVISION.
000007 WORKING-STORAGE SECTION.
000008 01  A     PIC X(4).
000009 PROCEDURE DIVISION.
000010      IF  A  IS  JAPANESE   THEN
000011        DISPLAY A
000012      END-IF.
000013 END PROGRAM  C3405.

C3405.cob 10: JMN3405I-S When compile option KANA(JIS8) is specified, 'A' being tested by the JAPANESE class condition must be a national or national-edited item.

JMN3406I-S

When compile option KANA(JIS8) is specified, group item @1@ cannot be specified in an argument of FUNCTION NATIONAL.

Parameter explanation

@1@ : Identifier

Example

[C3406.cob]
000001 @OPTIONS KANA(JIS8)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.  C3406.
000004 ENVIRONMENT DIVISION.
000005 INPUT-OUTPUT SECTION.
000006 DATA DIVISION.
000007 WORKING-STORAGE SECTION.
000008 01  A.
000009   02  A1  PIC S9(8) BINARY.
000010   02  A2  PIC X(4).
000011 01  B     PIC N(4).
000012 PROCEDURE DIVISION.
000013      MOVE FUNCTION NATIONAL( A ) TO B.
000014 END PROGRAM  C3406.

C3406.cob 13: JMN3406I-S When compile option KANA(JIS8) is specified, group item 'A' cannot be specified in an argument of FUNCTION NATIONAL.

JMN3407I-S

@2@ must be an alphanumeric item, a national item, an alphanumeric literal, or a national literal when untyped object reference identifier @1@ is specified in an INVOKE statement.

Parameter explanation

@1@ : Identifier

@2@ : Identifier or 'literal'

Example

[C3407.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3407.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 DATA DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01  OBJA  USAGE IS OBJECT REFERENCE.
000008 01  A     PIC S9(8) COMP-5.
000009 01  B     PIC X(5).
000010 PROCEDURE DIVISION.
000011      INVOKE OBJA  A  RETURNING B.
000012 END PROGRAM  C3407.

C3407.cob 11: JMN3407I-S 'A' must be an alphanumeric item, a national item, an alphanumeric literal, or a national literal when untyped object reference identifier 'OBJA' is specified in an INVOKE statement.

JMN3408I-S

Method @2@ cannot be invoked by @1@.

Parameter explanation

@1@ : Identifier

@2@ : Method name

Example

[C3408.cob]
000001 IDENTIFICATION DIVISION.
000002 CLASS-ID.  C3408.
000003 ENVIRONMENT DIVISION.
000004 CONFIGURATION SECTION.
000005 OBJECT.
000006 PROCEDURE DIVISION.
000007*
000008 METHOD-ID. FM1.
000009 DATA DIVISION.
000010 WORKING-STORAGE SECTION.
000011 PROCEDURE DIVISION.
000012      INVOKE C3408 "FM1".
000013      EXIT METHOD.
000014 END METHOD FM1.
000015*
000016 END OBJECT.
000017 END CLASS C3408.

C3408.cob 12: JMN3408I-S Method 'FM1' cannot be invoked by 'C3408'.

Explanation

When the factory method is called, it is necessary to specify the factory object. When the object method is called, it is necessary to specify the object instance.

JMN3410I-S

The BY CONTENT phrase cannot be specified in the INVOKE statement when an untyped object reference identifier, special class object reference identifier, or special class class-name @1@ is specified in the INVOKE statement.

Parameter explanation

@1@ : Identifier

Example

[C3410.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3410.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 DATA DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01  OBJA  USAGE IS OBJECT REFERENCE.
000008 01  A     PIC S9(4) BINARY.
000009 PROCEDURE DIVISION.
000010      INVOKE OBJA "M1" USING BY CONTENT A.
000011 END PROGRAM  C3410.

C3410.cob 10: JMN3410I-S The BY CONTENT phrase cannot be specified in the INVOKE statement when an untyped object reference identifier, special class object reference identifier, or special class class-name 'OBJA' is specified in the INVOKE statement.

JMN3412I-S

@1@ must conform to @2@.

Parameter explanation

@1@ : sending identifier

@2@ : receiving identifier

Example

[JMN3412I-A.cob]
000001 CLASS-ID. JMN3412I-A.
000002 OBJECT.
000003 PROCEDURE DIVISION.
000004*
000005 END OBJECT.
000006 END CLASS JMN3412I-A.
[JMN3412I-S.cob]
000001 CLASS-ID. JMN3412I-S.
000002 ENVIRONMENT DIVISION.
000003 CONFIGURATION SECTION.
000004   REPOSITORY.
000005      CLASS  JMN3412I-A.
000006 OBJECT.
000007 PROCEDURE DIVISION.
000008*
000009 METHOD-ID. JMN3412-M1.
000010 DATA DIVISION.
000011 WORKING-STORAGE SECTION.
000012  01  OBJA   OBJECT REFERENCE JMN3412I-A.
000013 LINKAGE SECTION.
000014 PROCEDURE DIVISION.
000015     SET OBJA TO SELF.
000016 END METHOD JMN3412-M1.
000017*
000018 END OBJECT.
000019 END CLASS JMN3412I-S.

JMN3412I-S.cob 15: JMN3412I-S Predefined object identifier SELF must conform to 'OBJA'.

Explanation

This message is given when the source and target object reference identifiers are not a permitted combination for explicit or implicit SET statements. The conformance rules for SET statements are provided in Chapter 11 of the "NetCOBOL Language Reference".

JMN3413I-S

The relational operator for the comparison of object reference identifiers must be EQUAL(=) or NOT EQUAL(NOT =).

Example

[C3413.cob]
000001 IDENTIFICATION DIVISION.
000002 CLASS-ID.  C3413.
000003 ENVIRONMENT DIVISION.
000004 CONFIGURATION SECTION.
000005 OBJECT.
000006 PROCEDURE DIVISION.
000007*
000008 METHOD-ID. FM1.
000009 DATA DIVISION.
000010 WORKING-STORAGE SECTION.
000011 01  OBJA   USAGE IS OBJECT REFERENCE C3413.
000012 PROCEDURE DIVISION.
000013      IF  OBJA  >  NULL  THEN
000014        EXIT METHOD.
000015 END METHOD FM1.
000016*
000017 END OBJECT.
000018 END CLASS C3413.

C3413.cob 13: JMN3413I-S The relational operator for the comparison of object reference identifiers must be EQUAL(=) or NOT EQUAL(NOT =).

JMN3414I-S

A 'RETURNING' phrase must be specified for a CALL statement which calls @1@. There is a RETURNING phrase in the PROCEDURE DIVISION of program @1@.

Parameter explanation

@1@ : Program name

Example

[C3414.cob]
000001 @OPTIONS CHECK(PRM)
000002 PROGRAM-ID.     C3414.
000003 DATA            DIVISION.
000004 WORKING-STORAGE SECTION.
000005 PROCEDURE       DIVISION.
000006     CALL "C3414S".
000007     EXIT PROGRAM.
000008*
000009 PROGRAM-ID.     C3414S.
000010 DATA DIVISION.
000011 LINKAGE         SECTION.
000012    01 R PIC X(4).
000013 PROCEDURE DIVISION
000014     RETURNING R.
000015     EXIT PROGRAM.
000016 END PROGRAM     C3414S.
000017 END PROGRAM     C3414.

C3414.cob 6: JMN3414I-S A 'RETURNING' phrase must be specified for a CALL statement which calls 'C3414S'. There is a RETURNING phrase in the PROCEDURE DIVISION of program 'C3414S'.

JMN3415I-S

A 'RETURNING' phrase is not specified in the PROCEDURE DIVISION for method @1@.

Parameter explanation

@1@ : Method name

Example

[C3415.cob]
000001 IDENTIFICATION DIVISION.
000002 CLASS-ID.  C3415.
000003 ENVIRONMENT DIVISION.
000004 CONFIGURATION SECTION.
000005 REPOSITORY.
000006 OBJECT.
000007 DATA DIVISION.
000008 WORKING-STORAGE SECTION.
000009  01  OBJ3415   OBJECT REFERENCE C3415.
000010 PROCEDURE DIVISION.
000011*
000012 METHOD-ID. FM-1.
000013 DATA DIVISION.
000014 WORKING-STORAGE SECTION.
000015 01 A OBJECT REFERENCE C3415.
000016 PROCEDURE DIVISION.
000017     INVOKE OBJ3415 "FM-2" RETURNING A.
000018 END METHOD FM-1.
000019*
000020 METHOD-ID. FM-2.
000021 DATA DIVISION.
000022 WORKING-STORAGE SECTION.
000023 LINKAGE SECTION.
000024 PROCEDURE DIVISION.
000025 END METHOD FM-2.
000026*
000027 END OBJECT.
000028 END CLASS C3415.

C3415.cob 17: JMN3415I-S A 'RETURNING' phrase is not specified in the PROCEDURE DIVISION for method 'FM-2'.

JMN3421I-S

In-line invocation method @1@ does not have a RETURNING phrase. Figurative constant zero is assumed.

Parameter explanation

@1@ : Method name

Example

[C3421-C.cob]
000001 CLASS-ID. C3421-C.
000002 ENVIRONMENT DIVISION.
000003 CONFIGURATION SECTION.
000004 REPOSITORY.
000005 OBJECT.
000006 DATA DIVISION.
000007 WORKING-STORAGE SECTION.
000008 PROCEDURE DIVISION.
000009*
000010 METHOD-ID. C3421-M.
000011 DATA DIVISION.
000012 WORKING-STORAGE SECTION.
000013 LINKAGE SECTION.
000014 PROCEDURE DIVISION.
000015 END METHOD C3421-M.
000016*
000017 METHOD-ID. C3421-M2.
000018 DATA DIVISION.
000019 WORKING-STORAGE SECTION.
000020  01  WORK1    PIC X(50).
000021 LINKAGE SECTION.
000022 PROCEDURE DIVISION.
000023     MOVE SELF::"C3421-M"  TO  WORK1.
000024 END METHOD C3421-M2.
000025*
000026 END OBJECT.
000027 END CLASS C3421-C.

C3421-C.cob 23: JMN3421I-S In-line invocation method 'C3421-M' does not have a RETURNING phrase. Figurative constant zero is assumed.

JMN3422I-S

@1@ cannot be reference modified.

Parameter explanation

@1@ : "Object property"

Example

[C3422.cob]
000001 CLASS-ID. C3422.
000002 ENVIRONMENT DIVISION.
000003 CONFIGURATION SECTION.
000004 REPOSITORY.
000005  OBJECT.
000006  DATA DIVISION.
000007  WORKING-STORAGE SECTION.
000008  01 PROP-DATA PIC 9(10) PROPERTY.
000009  01 OBJ3422   OBJECT REFERENCE C3422.
000010  PROCEDURE DIVISION.
000011    METHOD-ID. C3422-M.
000012    DATA DIVISION.
000013    WORKING-STORAGE SECTION.
000014    01 X04 PIC X(4) VALUE "ABCD".
000015    LINKAGE SECTION.
000016    PROCEDURE DIVISION.
000017      MOVE PROP-DATA OF OBJ3422 (1:4) TO  X04.  *> JMN3422I-S
000018    END METHOD C3422-M.
000019  END OBJECT.
000020 END CLASS C3422.

C3422.cob 17: JMN3422I-S Object property cannot be reference modified.

JMN3423I-S

The property accessor (GET method) is not defined.

Example

[C3423.cob]
000001 CLASS-ID. C3423.
000002 OBJECT.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01 PROPDAT PIC S9(9) COMP-5 PROPERTY WITH NO GET.
000006 PROCEDURE DIVISION.
000007 END OBJECT.
000008 END CLASS C3423.
[P3423.cob]
000001 PROGRAM-ID. P3423.
000002 ENVIRONMENT DIVISION.
000003 CONFIGURATION SECTION.
000004   REPOSITORY.
000005      CLASS C3423.
000006 DATA DIVISION.
000007 WORKING-STORAGE SECTION.
000008 01 WDATA       PIC S9(9) COMP-5.
000009 01 OBJC3423     OBJECT REFERENCE C3423.
000010 PROCEDURE DIVISION.
000011      MOVE PROPDAT OF OBJC3423  TO  WDATA.
000012 END PROGRAM P3423.

P3423.cob 11: JMN3423I-S The property accessor (GET method) is not defined.

Explanation

This message is issued when an attempt is made to use a property as the source item in a statement when the property has no GET_ method defined.

JMN3424I-S

The property accessor (SET method) is not defined.

Example

[C3424.cob]
000001 CLASS-ID. C3424.
000002 OBJECT.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01 PROPDAT PIC S9(9) COMP-5 PROPERTY WITH NO SET.
000006 PROCEDURE DIVISION.
000007 END OBJECT.
000008 END CLASS C3424.
[P3424.cob]
000001 PROGRAM-ID. P3424.
000002 ENVIRONMENT DIVISION.
000003 CONFIGURATION SECTION.
000004   REPOSITORY.
000005      CLASS C3424.
000006 DATA DIVISION.
000007 WORKING-STORAGE SECTION.
000008 01 WDATA       PIC S9(9) COMP-5.
000009 01 OBJC3424     OBJECT REFERENCE C3424.
000010 PROCEDURE DIVISION.
000011      MOVE WDATA  TO  PROPDAT OF OBJC3424.
000012 END PROGRAM P3424.

P3424.cob 11: JMN3424I-S The property accessor (SET method) is not defined.

Explanation

This message is issued when an attempt is made to use a property as the target item in a statement when the property has no SET_ method defined.

JMN3427I-S

An @1@ cannot be specified as a receiving field except in a MOVE or SET statement.

Parameter explanation

@1@ : "Object property"

JMN3428I-S

An object identifier cannot be specified in a @1@ statement.

Parameter explanation

@1@ : DISPLAY

Example

[C3428.cob]
000001 IDENTIFICATION DIVISION.
000002 CLASS-ID.  C3428.
000003 ENVIRONMENT DIVISION.
000004 CONFIGURATION SECTION.
000005 REPOSITORY.
000006 OBJECT.
000007 PROCEDURE DIVISION.
000008 METHOD-ID. FM1.
000009 DATA DIVISION.
000010 WORKING-STORAGE SECTION.
000011  01 OBJA   OBJECT REFERENCE C3428.
000012 PROCEDURE DIVISION.
000013      DISPLAY OBJA.
000014      EXIT METHOD.
000015 END METHOD FM1.
000016 END OBJECT.
000017 END CLASS C3428.

C3428.cob 13: JMN3428I-S An object identifier cannot be specified in a DISPLAY statement.

JMN3429I-S

Group item @1@ that includes an object reference cannot be specified.

Parameter explanation

@1@ : Group item name

Example

[C3429.cob]
000001 PROGRAM-ID. C3429.
000002 DATA DIVISION.
000003 WORKING-STORAGE SECTION.
000004 01 OR-GROUP.
000005   02 OBJREF OBJECT REFERENCE OCCURS 10.
000006 LINKAGE SECTION.
000007 PROCEDURE DIVISION.
000008     MOVE LOW-VALUE TO OR-GROUP
000009 END PROGRAM C3429.

C3429.cob 8: JMN3429I-S Group item 'OR-GROUP' that includes an object reference cannot be specified.

JMN3430I-S

The parameter number specified in the USING phrase of the INVOKE statement or in-line invocation must be the same parameter number specified in the USING phrase of the PROCEDURE DIVISION.

JMN3432I-S

BY REFERENCE phrase items, RETURNING phrase items in an INVOKE statement, and argument items of in-line invocation cannot be reference modified.

Example

[C3432.cob]
000001 CLASS-ID. C3432.
000002 ENVIRONMENT DIVISION.
000003 CONFIGURATION SECTION.
000004 REPOSITORY.
000005  OBJECT.
000006  DATA DIVISION.
000007  WORKING-STORAGE SECTION.
000008  PROCEDURE DIVISION.
000009    METHOD-ID. C3432-M.
000010    DATA DIVISION.
000011    WORKING-STORAGE SECTION.
000012    01 WK1     PIC X(20).
000013    LINKAGE SECTION.
000014    01 RTN     PIC X(20).
000015    PROCEDURE DIVISION  USING RTN.
000016        INVOKE SELF "C3432-M"  USING WK1(1:18).
000017    END METHOD C3432-M.
000018  END OBJECT.
000019 END CLASS C3432.

C3432.cob 16: JMN3432I-S BY REFERENCE phrase items, RETURNING phrase items in an INVOKE statement, and argument items of in-line invocation cannot be reference modified.

JMN3433I-S

Moving all literals of two or more characters to a numeric item or a numeric edited item is an obsolete feature in @1@ COBOL.

Parameter explanation

@1@ : ANSI85

Example

[C3433.cob]
000001 CLASS-ID. C3433.
000002 ENVIRONMENT DIVISION.
000003 CONFIGURATION SECTION.
000004 REPOSITORY.
000005*
000006  OBJECT.
000007  DATA DIVISION.
000008  WORKING-STORAGE SECTION.
000009  PROCEDURE DIVISION.
000010    METHOD-ID. C3433-M.
000011    DATA DIVISION.
000012    WORKING-STORAGE SECTION.
000013    01 D908 PIC 9(8).
000014    LINKAGE SECTION.
000015    PROCEDURE DIVISION.
000016      MOVE  ALL '40'  TO  D908.
000017    END METHOD C3433-M.
000018  END OBJECT.
000019 END CLASS C3433.

C3433.cob 16: JMN3433I-S Moving all literals of two or more characters to a numeric item or a numeric edited item is an obsolete feature in ANSI85 COBOL.

JMN3434I-S

Comparing all literals of two or more characters with a numeric item or a numeric edited item is an obsolete feature in @1@ COBOL.

Parameter explanation

@1@ : ANSI85

Example

[C3434.cob]
000001 CLASS-ID. C3434.
000002 ENVIRONMENT DIVISION.
000003 CONFIGURATION SECTION.
000004  OBJECT.
000005  DATA DIVISION.
000006  WORKING-STORAGE SECTION.
000007  PROCEDURE DIVISION.
000008    METHOD-ID. C3434-M.
000009    DATA DIVISION.
000010    WORKING-STORAGE SECTION.
000011    01 D908 PIC 9(8) VALUE 40404040.
000012    LINKAGE SECTION.
000013    PROCEDURE DIVISION.
000014      IF  ALL '40' =  D908
000015        DISPLAY "SAME"
000016      END-IF
000017    END METHOD C3434-M.
000018  END OBJECT.
000019 END CLASS C3434.

C3434.cob 14: JMN3434I-S Comparing all literals of two or more characters with a numeric item or a numeric edited item is an obsolete feature in ANSI85 COBOL.

JMN3437I-S

An in-line method invocation, or object property that returns object reference data, cannot be specified in a conditional expression.

Example

[C3437.cob]
000001 CLASS-ID. C3437.
000002 ENVIRONMENT DIVISION.
000003 CONFIGURATION SECTION.
000004 REPOSITORY.
000005 OBJECT.
000006 DATA DIVISION.
000007 WORKING-STORAGE SECTION.
000008 01 OBJ1   OBJECT REFERENCE C3437  PROPERTY.
000009 PROCEDURE DIVISION.
000010*
000011 METHOD-ID. METHODI.
000012 DATA DIVISION.
000013 LINKAGE SECTION.
000014  01 OBJ2   OBJECT REFERENCE C3437.
000015 PROCEDURE DIVISION RETURNING OBJ2.
000016     IF  SELF::"METHODI" = NULL  THEN
000017       EVALUATE OBJ1 OF SELF
000018       WHEN NULL
000019         DISPLAY "NULL"
000020       WHEN OTHER
000021         DISPLAY "OHTER"
000022       END-EVALUATE
000023     END-IF.
000024 END METHOD METHODI.
000025*
000026 END OBJECT.
000027 END CLASS C3437.

C3437.cob 16: JMN3437I-S An in-line method invocation, or object property that returns object reference data, cannot be specified in a conditional expression.

C3437.cob 18: JMN3437I-S An in-line method invocation, or object property that returns object reference data, cannot be specified in a conditional expression.

JMN3438I-W

The XREF listing will not be output because severity code S errors have been encountered.

Example

[C3438.cob]
000001 @OPTIONS XREF
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.  C3438.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 A    PIC X(3).
000007 01 B    PIC N(3).
000008 PROCEDURE  DIVISION.
000009     MOVE  A  TO  B.
000010 END PROGRAM C3438.

JMN3439I-S

Internal boolean item @1@ must be defined so that it starts on a byte boundary.

Parameter explanation

@1@ : data name

Example

[C3439.cob]
000001 IDENTIFICATION DIVISION.
000002 CLASS-ID.  C3439.
000003 ENVIRONMENT DIVISION.
000004 CONFIGURATION SECTION.
000005 REPOSITORY.
000006 IDENTIFICATION DIVISION.
000007 OBJECT.
000008 DATA DIVISION.
000009 PROCEDURE DIVISION.
000010 IDENTIFICATION DIVISION.
000011 METHOD-ID. C3439-1.
000012 DATA DIVISION.
000013 WORKING-STORAGE SECTION.
000014   01 A.
000015     02 A1 PIC  1(3) BIT.
000016     02 A2 PIC  1(5) BIT.
000017 PROCEDURE DIVISION.
000018     INVOKE SELF "C3439-2" USING A2.
000019 END METHOD C3439-1.
000020 IDENTIFICATION DIVISION.
000021 METHOD-ID. C3439-2.
000022 DATA DIVISION.
000023 LINKAGE SECTION.
000024   01 B PIC  1(5) BIT.
000025 PROCEDURE DIVISION USING B.
000026 END METHOD C3439-2.
000027 END OBJECT.
000028 END CLASS C3439.

C3439.cob 18: JMN3439I-S Internal boolean item 'A2' must be defined so that it starts on a byte boundary.

Explanation

If you use an internal boolean item as a BY REFERENCE parameter, it must have an address that can be passed in the call or method invocation. Addresses only contain byte offsets, not bit offsets, so an internal boolean item used as a BY REFERENCE parameter must be aligned to a byte boundary. If it is not, this error will be issued.

JMN3440I-S

When an ANY LENGTH clause is specified to a formal parameter, the USING parameter of the INVOKE statement or the argument of the in-line method invocation corresponding to its formal parameter must be a parameter for which the BY REFERENCE phrase is specified or a nonnumeric literal or national character literal except for ALL literal.

Example

[JMN3440I-S.cob]
000001 CLASS-ID. C3440.
000002 FACTORY.
000003 PROCEDURE DIVISION.
000004*
000005 METHOD-ID. M3440-M1.
000006 DATA DIVISION.
000007 WORKING-STORAGE SECTION.
000008 LINKAGE SECTION.
000009 01 FPRM  PIC X  ANY LENGTH.
000010 PROCEDURE DIVISION USING FPRM.
000011     DISPLAY FPRM.
000012 END METHOD M3440-M1.
000013*
000014 METHOD-ID. M3440-M2.
000015 DATA DIVISION.
000016 WORKING-STORAGE SECTION.
000017 01 PRM PIC X(2).
000018 LINKAGE SECTION.
000019 PROCEDURE DIVISION.
000020     INVOKE SELF "M3440-M1"
000021      USING BY CONTENT PRM.
000022 END METHOD M3440-M2.
000023*
000024 END FACTORY.
000025 END CLASS C3440.
000025 END CLASS JMN3440I-S.

C3440.cob 20: JMN3440I-S When an ANY LENGTH clause is specified to a formal parameter, the USING parameter of the INVOKE statement or the argument of the in-line method invocation corresponding to its formal parameter must be a parameter for which the BY REFERENCE phrase is specified or a nonnumeric literal or national character literal except for ALL literal.

JMN3441I-S

Data-item @1@ with an ANY LENGTH clause cannot be specified in a USING or a RETURNING phrase of a @2@ statement.

Parameter explanation

@1@ : Data name

@2@ : INVOKE or CALL

Example

[C3441.cob]
000001 CLASS-ID. C3441.
000002 FACTORY.
000003 PROCEDURE DIVISION.
000004*
000005 METHOD-ID. M3441-M1.
000006 DATA DIVISION.
000007 WORKING-STORAGE SECTION.
000008 LINKAGE SECTION.
000009 01 PRM  PIC X  ANY LENGTH.
000010 PROCEDURE DIVISION USING PRM.
000011     CALL "PROGA"  USING PRM.
000012 END METHOD M3441-M1.
000013*
000014 END FACTORY.
000015 END CLASS C3441.

C3441.cob 11: JMN3441I-S Data-item 'PRM' with an ANY LENGTH clause cannot be specified in a USING or a RETURNING phrase of a CALL statement.

JMN3442I-S

Data-item @1@ with an ANY LENGTH clause cannot be specified in a RETURNING phrase of a @2@ statement.

Parameter explanation

@1@ : Data name

@2@ : INVOKE

Example

[C3442.cob]
000001 CLASS-ID. C3442.
000002 OBJECT.
000003 PROCEDURE DIVISION.
000004*
000005 METHOD-ID. M3442-M1.
000006 DATA DIVISION.
000007 WORKING-STORAGE SECTION.
000008 LINKAGE SECTION.
000009 01 PRM  PIC X  ANY LENGTH.
000010 01 RET  PIC X  ANY LENGTH.
000011 PROCEDURE DIVISION USING PRM RETURNING RET.
000012     INVOKE SELF "M3442-M1"  USING PRM RETURNING RET.
000013 END METHOD M3442-M1.
000014*
000015 END OBJECT.
000016 END CLASS C3442.

C3442.cob 12: JMN3442I-S Data-item 'RET' with an ANY LENGTH clause cannot be specified in a RETURNING phrase of a INVOKE statement.

JMN3443I-S

Data-item @1@ with an ANY LENGTH clause cannot be specified in an argument of @2@.

Parameter explanation

@1@ : Data name

@2@ : Function name

Example

[C3443.cob]
000001 CLASS-ID. C3443.
000002 FACTORY.
000003 PROCEDURE DIVISION.
000004*
000005 METHOD-ID. M3443.
000006 DATA DIVISION.
000007 WORKING-STORAGE SECTION.
000008 01 WRCV      PIC X(25).
000009 LINKAGE SECTION.
000010 01 WDATA-AN  PIC X  ANY LENGTH.
000011 PROCEDURE DIVISION USING WDATA-AN.
000012     MOVE FUNCTION REVERSE(WDATA-AN) TO WRCV.
000013 END METHOD M3443.
000014*
000015 END FACTORY.
000016 END CLASS C3443.

C3443.cob 12: JMN3443I-S Data-item 'WDATA-AN' with an ANY LENGTH clause cannot be specified in an argument of FUNCTION REVERSE.

JMN3444I-S

Data-item @1@ with an ANY LENGTH clause cannot be specified in an INITIALIZE statement.

Parameter explanation

@1@ : Data name

Example

[C3444.cob]
000001 CLASS-ID. C3444.
000002 FACTORY.
000003 PROCEDURE DIVISION.
000004*
000005 METHOD-ID. M3444.
000006 DATA DIVISION.
000007 WORKING-STORAGE SECTION.
000008 LINKAGE SECTION.
000009 01 WDATA-AN  PIC X  ANY LENGTH.
000010 PROCEDURE DIVISION USING WDATA-AN.
000011     INITIALIZE WDATA-AN.
000012 END METHOD M3444.
000013*
000014 END FACTORY.
000015 END CLASS C3444.

C3444.cob 11: JMN3444I-S Data-item 'WDATA-AN' with an ANY LENGTH clause cannot be specified in an INITIALIZE statement.

JMN3445I-S

Indirect reference class '@1@' must be specified in a repository paragraph.

Parameter explanation

@1@ : Class name

Example

[A.cob]
000001 CLASS-ID. A.
000002 END CLASS A.
[B.cob]
000001 CLASS-ID. B INHERITS A.
000002 ENVIRONMENT DIVISION.
000003 CONFIGURATION SECTION.
000004 REPOSITORY.
000005     CLASS A.
000006 END CLASS B.
[X.cob]
000001 CLASS-ID. X.
000002 ENVIRONMENT DIVISION.
000003 CONFIGURATION SECTION.
000004 REPOSITORY.
000005     CLASS B.
000006 FACTORY.
000007 PROCEDURE DIVISION.
000008*
000009 METHOD-ID. MX.
000010 DATA DIVISION.
000011 LINKAGE SECTION.
000012 01 OBJB OBJECT REFERENCE B.
000013 PROCEDURE DIVISION RETURNING OBJB.
000014 END METHOD MX.
000015*
000016 END FACTORY.
000017 END CLASS X.
[C3445.cob]
000001 PROGRAM-ID. C3445.
000002 ENVIRONMENT DIVISION.
000003 CONFIGURATION SECTION.
000004 REPOSITORY.
000005     CLASS A
000006     CLASS X.
000007 DATA DIVISION.
000008 WORKING-STORAGE SECTION.
000009 01 OBJA OBJECT REFERENCE A.
000010 LINKAGE SECTION.
000011 PROCEDURE DIVISION.
000012     INVOKE X "MX" RETURNING OBJA
000013 END PROGRAM C3445.

C3445.cob 12: JMN3445I-S Indirect reference class 'B' must be specified in a repository paragraph.

JMN3446I-S

Data-item @1@ with an ANY LENGTH clause cannot be specified in a BY CONTENT phrase of an INVOKE statement.

Parameter explanation

@1@ : Data name

Example

[C3446.cob]
000001 CLASS-ID. C3446.
000002 FACTORY.
000003 PROCEDURE DIVISION.
000004*
000005 METHOD-ID. M3446.
000006 DATA DIVISION.
000007 WORKING-STORAGE SECTION.
000008 LINKAGE SECTION.
000009 01 PRM  PIC X  ANY LENGTH.
000010 PROCEDURE DIVISION USING PRM.
000011     INVOKE SELF "M3446"  USING BY CONTENT PRM.
000012 END METHOD M3446.
000013*
000014 END FACTORY.
000015 END CLASS C3446.

C3446.cob 11: JMN3446I-S Data-item 'PRM' with an ANY LENGTH clause cannot be specified in a BY CONTENT phrase of an INVOKE statement.

JMN3447I-S

Method @1@ for which the ANY LENGTH clause is specified for an item of the RETURNING phrase in the PROCEDURE DIVISION header cannot be invoked by an in-line invocation.

Parameter explanation

@1@ : Method name

Example

[C3447.cob]
000001 CLASS-ID. C3447.
000002 FACTORY.
000003 PROCEDURE DIVISION.
000004*
000005 METHOD-ID. M3447.
000006 DATA DIVISION.
000007 WORKING-STORAGE SECTION.
000008 01 X10  PIC X(10).
000009 LINKAGE SECTION.
000010 01 RET  PIC X  ANY LENGTH.
000011 PROCEDURE DIVISION RETURNING RET.
000012     MOVE  SELF :: "M3447"  TO  X10
000013 END METHOD M3447.
000014*
000015 END FACTORY.
000016 END CLASS C3447.

C3447.cob 12: JMN3447I-S Method 'M3447' for which the ANY LENGTH clause is specified for an item of the RETURNING phrase in the PROCEDURE DIVISION header cannot be invoked by an in-line invocation.

JMN3448I-W

@1@ in the RAISING phrase of the @2@ statement must be an object reference identifier. It must refer to a class name that is specified in the RAISING phrase of the PROCEDURE DIVISION header.

Parameter explanation

@1@ : Identifier

@2@ : EXIT METHOD or EXIT PROGRAM

Explanation

This message is given if either:

  • The item specified in the RAISING phrase of either the EXIT METHOD or EXIT PROGRAM statements is not an object reference, or;

  • The object identifier specified in that RAISING phrase does not reference the class specified in the RAISING phrase of the PROCEDURE DIVISION header.

JMN3449I-S

An EXIT METHOD statement with a RAISING phrase cannot be specified in a _FINALIZE method.

Example

[C3449.cob]
000001 IDENTIFICATION DIVISION.
000002 CLASS-ID. C3449 INHERITS FJBASE.
000003 ENVIRONMENT DIVISION.
000004 CONFIGURATION SECTION.
000005 REPOSITORY.
000006     CLASS FJBASE.
000007*
000008 OBJECT.
000009 PROCEDURE DIVISION.
000010 METHOD-ID. _FINALIZE OVERRIDE.
000011 PROCEDURE DIVISION.
000012     EXIT METHOD RAISING C3449.
000013 END METHOD _FINALIZE.
000014 END OBJECT.
000015 END CLASS C3449.

C3449.cob 12: JMN3449I-S An EXIT METHOD statement with a RAISING phrase cannot be specified in a _FINALIZE method.

JMN3450I-W

The result of the MOVE is undefined because the area of sending item @1@ and the area of receiving item @2@ overlap.

Parameter explanation

@1@ : sending item

@2@ : receiving item

Example

[C3450.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3450.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01 GRP.
000006   02  A-GRP.
000007      03 A-AREA  PIC X(4).
000008      03 FILLER  PIC X(1).
000009   02  B-GRP REDEFINES A-GRP.
000010      03 FILLER  PIC X(1).
000011      03 B-AREA  PIC X(4).
000012 PROCEDURE  DIVISION.
000013     MOVE A-AREA TO B-AREA.
000014 END PROGRAM  C3450.

C3450.cob 13: JMN3450I-W The result of the MOVE is undefined because the area of sending item 'A-AREA' and the area of receiving item 'B-AREA' overlap.

Explanation

This message is given to warn you that the sending and receiving areas overlap in an implicit or explicit MOVE statement. The results of the move are not defined as they depend on the architecture of the machine - what size chunks of data are moved from the sending to the receiving item.

JMN3458I-S

Data-name @1@ of the CONTROL phrase cannot be an alphanumeric item in the @2@ statement.

Parameter explanation

@1@ : Data name

@2@ : ACCEPT or DISPLAY

Example

[C3458.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3458.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01 CTRL-DATA  PIC N(20).
000006 01 SCRN-DATA  PIC N(16).
000007 SCREEN          SECTION.
000008 01  ITITLE1 CONTROL CTRL-DATA.
000009   02  LINE NUMBER IS 3  COLUMN NUMBER IS 23.
000010 PROCEDURE  DIVISION.
000011     DISPLAY  ITITLE1.
000012     DISPLAY  SCRN-DATA WITH CONTROL CTRL-DATA.
000013     EXIT PROGRAM.
000014 END PROGRAM C3458.

C3458.cob 11: JMN3458I-S Data-name 'CTRL-DATA' of the CONTROL phrase cannot be an alphanumeric item in the DISPLAY statement.

C3458.cob 12: JMN3458I-S Data-name 'CTRL-DATA' of the CONTROL phrase cannot be an alphanumeric item in the DISPLAY statement.

JMN3459I-S

[Solaris][Linux]
Argument @1@ of FUNCTION UCS2-OF must be an alphabetic, alphanumeric, or alphanumeric-edited item.

[Linux64]
If the @1@ argument of FUNCTION UCS2-OF is either an alphabetic, alphanumeric or alphanumeric-edited item, then the encoding format must be UTF8.

Parameter explanation

@1@ : Argument of function

Example

[C3459.cob]
000001 @OPTIONS RCS(UTF16)
000002 PROGRAM-ID.  C3459.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 N20  PIC N(20).
000007 01 INTD PIC S9(9).
000008 PROCEDURE  DIVISION.
000009     MOVE FUNCTION UCS2-OF (INTD) TO N20
000010 END PROGRAM  C3459.
  • [Solaris][Linux]

    C3459.cob 9: JMN3459I-S Argument 'INTD' of FUNCTION UCS2-OF must be an alphabetic, alphanumeric, or alphanumeric-edited item.

  • [Linux64]

    C3459.cob 9: JMN3459I-S If the 'INTD' argument of FUNCTION UCS2-OF is either an alphabetic, alphanumeric or alphanumeric-edited item, then the encoding format must be UTF8.

JMN3460I-S

[Solaris][Linux]
Argument @1@ of FUNCTION UTF8-OF must be a national item or a national-edited item.

[Linux64]
If the '@1@' argument of FUNCTION UTF8-OF is either a national item or a national-edited item, then the encoding format must be UTF16.

Parameter explanation

@1@ : Argument of function

Example

[C3460.cob]
000001 @OPTIONS RCS(UTF16)
000002 PROGRAM-ID.  C3460.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 X20  PIC X(20).
000007 01 NGRP.
000008   02 N10 PIC N(10).
000009 PROCEDURE  DIVISION.
000010     MOVE FUNCTION UTF8-OF (NGRP) TO X20
000011 END PROGRAM  C3460.
  • [Solaris][Linux]

    C3460.cob 10: JMN3460I-S Argument 'NGRP' of FUNCTION UTF8-OF must be a national item or a national-edited item.

  • [Linux64]

    C3460.cob 10: JMN3460I-S If the 'NGRP' argument of FUNCTION UTF8-OF is either a national item or a national-edited item, then the encoding format must be UTF16.

JMN3461I-S

Argument @1@ of FUNCTION STORED-CHAR-LENGTH must be an alphabetic, alphanumeric, alphanumeric-edited, national or national-edited item.

Parameter explanation

@1@ : Argument of function

Example

[C3461.cob]
000001 PROGRAM-ID.  C3461.
000002 ENVIRONMENT DIVISION.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01 LEN PIC 9(3).
000006 01 GRP.
000007   02 X10 PIC X(10).
000008   02 X20 PIC X(20).
000009 01 NUM01 PIC S9(4).
000010 PROCEDURE  DIVISION.
000011     COMPUTE LEN = FUNCTION STORED-CHAR-LENGTH (GRP)
000012     COMPUTE LEN = FUNCTION STORED-CHAR-LENGTH (NUM01)
000013 END PROGRAM  C3461.

C3461.cob 11: JMN3461I-S Argument 'GRP' of FUNCTION STORED-CHAR-LENGTH must be an alphabetic, alphanumeric, alphanumeric-edited, national or national-edited item.

C3461.cob 12: JMN3461I-S Argument 'NUM01' of FUNCTION STORED-CHAR-LENGTH must be an alphabetic, alphanumeric, alphanumeric-edited, national or national-edited item.

JMN3462I-W

[Solaris][Linux]
When compile option RCS(UTF16) is specified, national items contained within group item @1@ will be compared with their bytes reversed.

[Linux64]
If compile option RCS(UTF16) or ENCODE is specified, then the size is not compared as a national language when the national part of the group item @1@ includes a national item.

Parameter explanation

@1@ : Identifier(group item)

Example

[C3462.cob]
000001 @OPTIONS RCS(UTF16)
000002 PROGRAM-ID.     C3462.
000003 ENVIRONMENT     DIVISION.
000004 DATA            DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 X20          PIC X(20).
000007 01 NGRP.
000008   02 N10        PIC N(10).
000009 PROCEDURE       DIVISION.
000010     IF X20 > NGRP THEN
000011         DISPLAY "X20 BIGGER"
000012     ELSE
000013         DISPLAY "X20 SMALLER"
000014     END-IF
000015 END PROGRAM     C3462.
  • [Solaris][Linux]

    C3462.cob 10: JMN3462I-W When compile option RCS(UTF16) is specified, national items contained within group item 'NGRP' will be compared with their bytes reversed.

  • [Linux64]

    C3462.cob 10: JMN3462I-W If compile option RCS(UTF16) or ENCODE is specified, then the size is not compared as a national language when the national part of the group item 'NGRP' includes a national item.

JMN3463I-S

When receiving item @2@ is a strongly-typed group item, sending item @1@ must be a strongly-typed group item of the same type as @2@.

Parameter explanation

@1@ : Identifier

@2@ : Identifier

Example

[C3463.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3463.
000003 ENVIRONMENT DIVISION.
000004 CONFIGURATION SECTION.
000005 DATA DIVISION.
000006 WORKING-STORAGE SECTION.
000007  01  TYPE-A  TYPEDEF  STRONG.
000008    02  A1   PIC S9(4) COMP-5.
000009    02  A2   PIC X(50).
000010  01  TYPE-B  TYPEDEF  STRONG.
000011    02  B1   PIC X(25).
000012  01  DATA-A  TYPE  TYPE-A.
000013  01  DATA-B  TYPE  TYPE-B.
000014 PROCEDURE DIVISION.
000015      MOVE  DATA-A  TO  DATA-B.
000016      EXIT PROGRAM.
000017 END PROGRAM C3463.

C3463.cob 15: JMN3463I-S When receiving item 'DATA-B' is a strongly-typed group item, sending item 'DATA-A' must be a strongly-typed group item of the same type as 'DATA-B'.

JMN3464I-S

If either data item is a strongly-typed group item, both data items must be of the same type.

Example

[C3464.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3464.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01 STG    TYPEDEF STRONG.
000006    02   A     PIC X(40).
000007    02   B     PIC N(20).
000008 01 ABC   TYPE STG.
000009 01 DEF   PIC X(80).
000010 PROCEDURE  DIVISION.
000011     IF ABC = DEF THEN
000012       DISPLAY "OK"
000013     END-IF.
000014 END PROGRAM  C3464.

C3464.cob 11: JMN3464I-S If either data item is a strongly-typed group item, both data items must be of the same type.

JMN3465I-S

If @2@ of an INTO phrase in a @1@ statement is a strongly-typed group item, @3@ must have one record description.

Parameter explanation

@1@ : READ or RETURN

@2@ : Identifier

@3@ : File name

Example

[C3465.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3465.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT A-FILE ASSIGN TO SYS001.
000007 DATA DIVISION.
000008 FILE SECTION.
000009 FD A-FILE.
000010  01 RECA1   PIC X(80).
000011  01 RECA2   PIC X(100).
000012 WORKING-STORAGE SECTION.
000013 01 STG    TYPEDEF STRONG.
000014    02   A     PIC X(40).
000015    02   B     PIC N(20).
000016 01 INTOA TYPE STG.
000017 PROCEDURE  DIVISION.
000018     OPEN INPUT A-FILE.
000019     READ A-FILE INTO INTOA.
000020 END PROGRAM  C3465.

C3465.cob 19: JMN3465I-S If 'INTOA' of an INTO phrase in a READ statement is a strongly-typed group item, 'A-FILE' must have one record description.

JMN3466I-S

When a strongly-typed group item specified in a USING or RETURNING phrase of an INVOKE statement, or specified in an argument of an in-line method invocation, the group item must be level number 01.

Example

[C3466.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3466.
000003 ENVIRONMENT DIVISION.
000004 CONFIGURATION SECTION.
000005 DATA DIVISION.
000006 WORKING-STORAGE SECTION.
000007  01  OBJU  OBJECT REFERENCE.
000008  01  TYPE-A  TYPEDEF  STRONG.
000009    02  GP.
000010      03  A1   PIC S9(4) COMP-5.
000011      03  A2   PIC X(50).
000012  01  DATA-A  TYPE  TYPE-A.
000013 PROCEDURE DIVISION.
000014      INVOKE OBJU "M1" USING  GP OF DATA-A.
000015      EXIT PROGRAM.
000016 END PROGRAM C3466.

C3466.cob 14: JMN3466I-S When a strongly-typed group item specified in a USING or RETURNING phrase of an INVOKE statement, or specified in an argument of an in-line method invocation, the group item must be level number 01.

JMN3467I-S

A strongly-typed group item @1@ is specified in a place where it cannot be specified.

Parameter explanation

@1@ : Strongly-typed group item

Example

[C3467.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3467.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01 STG    TYPEDEF STRONG.
000006    02   A     PIC X(40).
000007    02   B     PIC N(20).
000008 01 ABC   TYPE STG.
000009 01 DEF   PIC X(80).
000010 PROCEDURE  DIVISION.
000011     ACCEPT  ABC.
000012 END PROGRAM  C3467.

C3467.cob 11: JMN3467I-S A strongly-typed group item 'ABC' is specified in a place where it cannot be specified.

JMN3468I-S

Strongly-typed items, or elementary items that are subordinate to strongly-typed group items (other than those of alphanumeric or national categories), cannot be reference modified.

Example

[C3468.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3468.
000003 ENVIRONMENT DIVISION.
000004 CONFIGURATION SECTION.
000005 DATA DIVISION.
000006 WORKING-STORAGE SECTION.
000007  01  TYPE-A  TYPEDEF  STRONG.
000008    02  GP.
000009      03  A1   PIC XX/XX/XX.
000010      03  A2   PIC X(50).
000011  01  DATA-A  TYPE  TYPE-A.
000012  01  DATA-B   PIC X(5).
000013 PROCEDURE DIVISION.
000014      MOVE  A1(1:5)  TO  DATA-B.
000015      EXIT PROGRAM.
000016 END PROGRAM C3468.

C3468.cob 14: JMN3468I-S Strongly-typed items, or elementary items that are subordinate to strongly-typed group items (other than those of alphanumeric or national categories), cannot be reference modified.

JMN3469I-S

An in-line method invocation, or an object property whose returning item is a strongly-typed group item containing object reference data, cannot be specified in a conditional expression.

Example

[C3469.cob]
000001 CLASS-ID. C3469.
000002 ENVIRONMENT DIVISION.
000003 CONFIGURATION SECTION.
000004 OBJECT.
000005 DATA DIVISION.
000006 WORKING-STORAGE  SECTION.
000007 PROCEDURE DIVISION.
000008*
000009 METHOD-ID.  OM1.
000010 DATA DIVISION.
000011 WORKING-STORAGE SECTION.
000012  01 A TYPEDEF STRONG.
000013    02  D OBJECT REFERENCE C3469.
000014  01 WABC TYPE A.
000015 LINKAGE SECTION.
000016 PROCEDURE DIVISION.
000017     IF  SELF::"OM2" = WABC  THEN
000018       EXIT METHOD.
000019 END METHOD OM1.
000020*
000021 METHOD-ID.  OM2.
000022 DATA DIVISION.
000023 WORKING-STORAGE SECTION.
000024 LINKAGE SECTION.
000025  01 A TYPEDEF STRONG.
000026    02  D OBJECT REFERENCE C3469.
000027  01 ABC TYPE A.
000028 PROCEDURE DIVISION  RETURNING ABC.
000029 END METHOD OM2.
000030*
000031 END OBJECT.
000032 END CLASS C3469.

C3469.cob 17: JMN3469I-S An in-line method invocation, or an object property whose returning item is a strongly-typed group item containing object reference data, cannot be specified in a conditional expression.

JMN3470I-W

[Solaris][Linux]
When compile option RCS(UTF16) is specified, group item @1@ which contains a national item may be called incorrectly.

[Linux64]
If compile option RCS(UTF16) or ENCODE is specified, then it cannot be called correctly if the group item @1@, which includes the national item, is specified as a calling name.

Parameter explanation

@1@ : Identifier(group item)

Example

[C3470.cob]
000001 @OPTIONS RCS(UTF16)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C3470.
000004 ENVIRONMENT     DIVISION.
000005 CONFIGURATION   SECTION.
000006 DATA            DIVISION.
000007 WORKING-STORAGE SECTION.
000008 01 NMIXGR.
000009   02 X04        PIC X(4).
000010   02 N10        PIC N(10).
000011 PROCEDURE       DIVISION.
000012     CALL NMIXGR.
000013     EXIT PROGRAM.
000014 END PROGRAM     C3470.
  • [Solaris][Linux]

    C3470.cob 12: JMN3470I-W When compile option RCS(UTF16) is specified, group item 'NMIXGR' which contains a national item may be called incorrectly.

  • [Linux64]

    C3470.cob 12: JMN3470I-W If compile option RCS(UTF16) or ENCODE is specified, then it cannot be called correctly if the group item 'NMIXGR', which includes the national item, is specified as a calling name.

JMN3471I-W

[Solaris][Linux]
When compile option RCS(UTF16) is specified, national items contained within group item @1@ will be compared with their bytes reversed.

[Linux64]
If compile option RCS(UTF16) or ENCODE is specified, then the size is not compared as a national language when the national part of the group item @1@ includes a national item.

Parameter explanation

@1@ : Identifier(group item)

Example

[C3471.cob]
000001 @OPTIONS RCS(UTF16)
000002 PROGRAM-ID.     C3471.
000003 ENVIRONMENT     DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SMFILE ASSIGN SM1F.
000007     SELECT USFILE ASSIGN SEQ1F.
000008     SELECT GVFILE ASSIGN SEQ2F.
000009 DATA            DIVISION.
000010 FILE            SECTION.
000011   SD SMFILE.
000012   01 R1.
000013     02 KEY-1     PIC X(4).
000014     02 KEY-2.
000015       03 KEY-1-1 PIC X(2).
000016       03 KEY-1-2 PIC N(1).
000017     02 R1-1      PIC X(72).
000018   FD USFILE.
000019   01 USR01       PIC X(80).
000020   FD GVFILE.
000021   01 GIV01       PIC X(80).
000022 WORKING-STORAGE SECTION.
000023 PROCEDURE       DIVISION.
000024     SORT SMFILE ON ASCENDING KEY KEY-2
000025          USING  USFILE
000026          GIVING GVFILE
000027 END PROGRAM C3471.
  • [Solaris][Linux]

    C3471.cob 24: JMN3471I-W When compile option RCS(UTF16) is specified, national items contained within group item 'KEY-2' will be compared with their bytes reversed.

  • [Linux64]

    C3471.cob 24: JMN3471I-W If compile option RCS(UTF16) or ENCODE is specified, then the size is not compared as a national language when the national part of the group item 'KEY-2' includes a national item.

JMN3472I-W

[Solaris][Linux]
When compile option RCS(UTF16) is specified, group item @1@ which contains a national item is displayed incorrectly.

[Linux64]
If compile option RCS(UTF16) or ENCODE is specified, then in the group item @1@, which includes the national items, the national language part is not displayed as national language in the DISPLAY statement.

Parameter explanation

@1@ : Identifier(group item)

Example

[C3472.cob]
000001 @OPTIONS RCS(UTF16)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C3472.
000004 ENVIRONMENT     DIVISION.
000005 CONFIGURATION   SECTION.
000006 DATA            DIVISION.
000007 WORKING-STORAGE SECTION.
000008 01 NMIXGR.
000009   02 X04        PIC X(4).
000010   02 N10        PIC N(10).
000011 PROCEDURE       DIVISION.
000012     DISPLAY NMIXGR.
000013     EXIT PROGRAM.
000014 END PROGRAM     C3472.
  • [Solaris][Linux]

    C3472.cob 12: JMN3472I-W When compile option RCS(UTF16) is specified, group item 'NMIXGR' which contains a national item is displayed incorrectly.

  • [Linux64]

    C3472.cob 12: JMN3472I-W If compile option RCS(UTF16) or ENCODE is specified, then in the group item 'NMIXGR', which includes the national items, the national language part is not displayed as national language in the DISPLAY statement.

JMN3476I-S

An EXIT statement with a SECTION phrase can only be specified in a section.

Example

[C3476.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3476.
000003 ENVIRONMENT DIVISION.
000004 CONFIGURATION SECTION.
000005 DATA DIVISION.
000006 WORKING-STORAGE SECTION.
000007 PROCEDURE DIVISION.
000008      EXIT SECTION      *> JMN3476I-S
000009      .
000010 A SECTION.
000011      EXIT SECTION      *> OK
000012      .
000013 END PROGRAM C3476.

C3476.cob 8: JMN3476I-S An EXIT statement with a SECTION phrase can only be specified in a section.

JMN3482I-S

@1@ defined in the LINKAGE SECTION must be specified in a USING phrase or a RETURNING phrase of the PROCEDURE DIVISION, or in a USING phrase of an ENTRY statement.

Parameter explanation

@1@ : Identifier

Example

[C3482.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    C3482.
000003 DATA           DIVISION.
000004 WORKING-STORAGE SECTION.
000005 LINKAGE SECTION.
000006 01 WX3482      PIC X(10).
000007 PROCEDURE      DIVISION.
000008     MOVE "ERROR3482" TO WX3482  *> JMN3482I-S
000009 END PROGRAM    C3482.

C3482.cob 8: JMN3482I-S 'WX3482' defined in the LINKAGE SECTION must be specified in a USING phrase or a RETURNING phrase of the PROCEDURE DIVISION, or in a USING phrase of an ENTRY statement.

Explanation

Define the data item used as work data in WORKING-STORAGE SECTION.

JMN3483I-S

For the main program, the parameter specified for the USING phrase of the PROCEDURE DIVISION header should be only one group item which does not exceed 102 bytes, and the first subordinate elementary item must be a 2 byte binary item.

Example

[C3483.cob]
000001 @OPTIONS MAIN
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    C3483.
000004 ENVIRONMENT    DIVISION.
000005 DATA           DIVISION.
000006 LINKAGE         SECTION.
000007 01 WPRM1.
000008   02 WPRM1L    PIC 9(4).
000009   02 WPRM1X    PIC 9(4).
000010 01 WPRM2.
000011   02 WPRM1L    PIC 9(4).
000012   02 WPRM1X    PIC 9(4).
000013 PROCEDURE      DIVISION
000014                   USING WPRM1 WPRM2.
000015     MOVE ZERO TO WPRM2
000016 END PROGRAM    C3483.

C3483.cob 14: JMN3483I-S For the main program, the parameter specified for the USING phrase of the PROCEDURE DIVISION header should be only one group item which does not exceed 102 bytes, and the first subordinate elementary item must be a 2 byte binary item.

C3483.cob 15: JMN3483I-S For the main program, the parameter specified for the USING phrase of the PROCEDURE DIVISION header should be only one group item which does not exceed 102 bytes, and the first subordinate elementary item must be a 2 byte binary item.

Explanation

In the LINKAGE section of the main program, only one data item for receiving the parameter in the global server system format can be defined.

When the format of the data item in the LINKAGE section is wrong, this diagnostic message is output.

Refer to the "NetCOBOL User's Guide" for details of the global server system format parameters.

If it is a data item not used for this purpose, you should correct to define it in the WORKING-STORAGE section.

JMN3484I-S

@1@ of BY VALUE in the CALL statement must be one of: a binary item with USAGE COMPUTATIONAL-5 with a length not exceeding 8 bytes; a one byte item; or a numeric literal of 18 digits or fewer.

Parameter explanation

@1@ : Data name

Example

[C3484.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3484.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01 ITEM    PIC X(2).
000006 PROCEDURE  DIVISION.
000007     CALL "ABC" USING BY VALUE ITEM.
000008 END PROGRAM  C3484.

C3484.cob 7: JMN3484I-S 'ITEM' of BY VALUE in the CALL statement must be one of: a binary item with USAGE COMPUTATIONAL-5 with a length not exceeding 8 bytes; a one byte item; or a numeric literal of 18 digits or fewer.

JMN3485I-S

The group item @1@ that only contains elementary items that are single precision floating-point items cannot be specified in the RETURNING phrase of the @2@ statement.

Parameter explanation

@1@ : Group item name

@2@ : Statement name

Example

[C3485.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3485.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01 G-ITEM.
000006   02 ELEM1    COMP-2.
000007   02 ELEM2    COMP-2.
000008 PROCEDURE  DIVISION.
000009     CALL "ABC" RETURNING G-ITEM.
000010 END PROGRAM  C3485.

C3485.cob 9: JMN3485I-S The group item 'G-ITEM' that only contains elementary items that are single precision floating-point items cannot be specified in the RETURNING phrase of the CALL statement.

JMN3508I-S

A 'RETURNING' phrase cannot be specified for a CALL statement which calls @1@. There is no RETURNING phrase in the PROCEDURE DIVISION of program @1@.

Parameter explanation

@1@ : Program name

Example

[C3508.cob]
000001 @OPTIONS CHECK(PRM)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID. C3508.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 R PIC S9(09) COMP-5.
000007 PROCEDURE       DIVISION.
000008     CALL "C3508S" RETURNING R.
000009     EXIT PROGRAM.
000010 IDENTIFICATION  DIVISION.
000011 PROGRAM-ID. C3508S.
000012 DATA DIVISION.
000013 LINKAGE         SECTION.
000014 PROCEDURE       DIVISION.
000015     EXIT PROGRAM.
000016 END PROGRAM C3508S.
000017 END PROGRAM C3508.

C3508.cob 8: JMN3508I-S A 'RETURNING' phrase cannot be specified for a CALL statement which calls 'C3508S'. There is no RETURNING phrase in the PROCEDURE DIVISION of program 'C3508S'.

JMN3516I-S

If the runtime code set is unicode, group item @1@ that contains a national item and other items cannot be specified in a WRITE statement with a line sequential file.

Parameter explanation

@1@ : Identifier(group item)

Example

[C3516I-S.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3516I-S.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT A-FILE ASSIGN TO SYS001
000007      ORGANIZATION IS LINE SEQUENTIAL.
000008 DATA DIVISION.
000009 FILE SECTION.
000010 FD A-FILE.
000011  01  A-RECORD.
000012    02  X24  PIC X(24).
000013 WORKING-STORAGE SECTION.
000014  01  XNMIXGR.
000015    02  X04  PIC X(24).
000016    02  N10  PIC N(10).
000017 PROCEDURE DIVISION.
000018      WRITE A-RECORD FROM XNMIXGR
000019      EXIT PROGRAM.
000020 END PROGRAM C3516I-S.

C3516I-S.cob 18: JMN3516I-S If the runtime code set is unicode, group item 'XNMIXGR' that contains national item and other items cannot be specified in a WRITE statement with a line sequential file.

JMN3518I-W

If the runtime code set is unicode, group item @1@ that contains a national item may not be called correctly.

Parameter explanation

@1@ : Identifier(group item)

Example

[C3518.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3518.
000003 ENVIRONMENT DIVISION.
000004 CONFIGURATION SECTION.
000005 DATA DIVISION.
000006 WORKING-STORAGE SECTION.
000007  01  NMIXGR.
000008    02  X04  PIC X(4).
000009    02  N10  PIC N(10).
000010 PROCEDURE DIVISION.
000011      CALL NMIXGR
000012      EXIT PROGRAM.
000013 END PROGRAM C3518.

C3518.cob 11 : JMN3518I-W If runtime code set is unicode, group item @1@ that contains a national item may not be called correctly.

JMN3519I-W

If the runtime code set is unicode, group item @1@ that contains a national item is not displayed correctly.

Parameter explanation

@1@ : Identifier(group item)

Explanation

When the group item is specified for the DISPLAY statement, the group item is processed as one alphanumeric character item. Therefore, when a Japanese item is included in the group item, the code of UTF-16 is processed as UTF-8. Therefore, data is not correctly displayed.

JMN3524I-S

The numeric literal of the sending item exceeds the range of @2@. Its numeric literal cannot be moved to @1@.

Parameter explanation

@1@ : Identifier

@2@ : USAGE type of BINARY-xxx

Example

[C3524I-S.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3524I-S.
000003 ENVIRONMENT DIVISION.
000004 CONFIGURATION SECTION.
000005 DATA DIVISION.
000006 WORKING-STORAGE SECTION.
000007  01  DATA-1   USAGE BINARY-LONG SIGNED.
000008 PROCEDURE DIVISION.
000009      MOVE 123456789012345  TO  DATA-1.
000010      EXIT PROGRAM.
000011 END PROGRAM C3524I-S.

C3524I-S.cob 9: JMN3524I-S The numeric literal of the sending item exceeds the range of USAGE BINARY-LONG SIGNED. Its numeric literal cannot be moved to 'DATA-1'.

Explanation

The range respectively of the value which can be stored in BINARY-CHAR/SHORT/LONG/DOUBLE data item has been decided. Refer to "USAGE clause" in the "NetCOBOL Language Reference" for details.

JMN3525I-S

The type of argument-1 of @1@ must be an alphabetic, alphanumeric or national, and it must not be a group item.

Parameter explanation

@1@ : Function name(FUNCTION UNICODE-OF/ACP-OF)

Example

[C3525I-S.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3525I-S.
000003 ENVIRONMENT DIVISION.
000004 CONFIGURATION SECTION.
000005 DATA DIVISION.
000006 WORKING-STORAGE SECTION.
000007  01  DATA-1   PIC S9(9) COMP-5.
000008  01  DATA-2   PIC N(10).
000009 PROCEDURE DIVISION.
000010      MOVE FUNCTION UNICODE-OF ( DATA-1 )  TO  DATA-2.
000011      EXIT PROGRAM.
000012 END PROGRAM C3525I-S.

C3525I-S.cob 10: JMN3525I-S The type of argument-1 of FUNCTION UNICODE-OF must be an alphabetic, alphanumeric or national, and it must not be a group item.

JMN3526I-S

The argument-2 of @1@ must be of an alphanumeric category.

Parameter explanation

@1@ : Function name(FUNCTION UNICODE-OF/ACP-OF)

Example

[C3526I-S.cob]
000001 @OPTIONS RCS(UTF16)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID. C3526I-S.
000004 ENVIRONMENT DIVISION.
000005 CONFIGURATION SECTION.
000006 DATA DIVISION.
000007 WORKING-STORAGE SECTION.
000008  01  DATA-1   PIC X(10).
000009  01  DATA-2   PIC X(10).
000010  01  DATA-3   PIC 9(5).
000011 PROCEDURE DIVISION.
000012      MOVE FUNCTION UNICODE-OF ( DATA-1 DATA-3 )  TO  DATA-2.
000013      EXIT PROGRAM.
000014 END PROGRAM C3526I-S.

C3526I-S.cob 12: JMN3526I-S The argument-2 of FUNCTION UNICODE-OF must be of an alphanumeric category.

JMN3530I-W

When the runtime codeset is Unicode, national items contained within group item @1@ will be compared with their bytes reversed.

Parameter explanation

@1@ : Identifier(group item)

Example

[C3530.cob]
000001 PROGRAM-ID.  C3530.
000002 ENVIRONMENT DIVISION.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01 X20   PIC X(20).
000006 01 NGRP.
000007   02 N10 PIC N(10).
000008 PROCEDURE  DIVISION.
000009     IF X20 > NGRP THEN
000010        DISPLAY "X20 BIGGER"
000011     ELSE
000012        DISPLAY "X20 SMALLER"
000013     END-IF
000014 END PROGRAM  C3530.

C3532.cob 9: JMN3530I-W When the runtime codeset is Unicode, national items contained within group item 'NGRP' will be compared with their bytes reversed.

Explanation

National items store data in UTF-16 little-endian format (see Introduction to Unicode and Related Terminology). If a national item is used in a comparison the system converts the data from little-endian to big-endian format. However, if a group item containing a national item is used in a comparison, it is categorized as alphanumeric and no little-endian/big-endian conversion is performed. This message is issued to warn you that the comparison may not work as you expect.

JMN3531I-W

When the runtime codeset is Unicode, national items contained within group item @1@ will be compared with their bytes reversed.

Parameter explanation

@1@ : Identifier(group item)

Example

[C3531.cob]
000001 PROGRAM-ID. C3531.
000002 ENVIRONMENT DIVISION.
000003 INPUT-OUTPUT SECTION.
000004 FILE-CONTROL.
000005     SELECT SMFILE ASSIGN SM1F.
000006     SELECT USFILE ASSIGN SEQ1F.
000007     SELECT GVFILE ASSIGN SEQ2F.
000008 DATA DIVISION.
000009 FILE SECTION.
000010   SD SMFILE.
000011   01 R1.
000012     02 KEY-1 PIC X(4).
000013     02 KEY-2.
000014       03 KEY-1-1 PIC X(2).
000015       03 KEY-1-2 PIC N(1).
000016     02 R1-1  PIC X(72).
000017   FD USFILE.
000018   01 USR01 PIC X(80).
000019   FD GVFILE.
000020   01 GIV01 PIC X(80).
000021 WORKING-STORAGE SECTION.
000022 PROCEDURE DIVISION.
000023     SORT   SMFILE   ON ASCENDING KEY KEY-2
000024            USING    USFILE
000025            GIVING   GVFILE
000026 END PROGRAM C3531.

C3532.cob 23: JMN3531I-W When the runtime codeset is Unicode, national items contained within group item 'KEY-2' will be compared with their bytes reversed.

Explanation

National items store data in UTF-16 little-endian format (see Introduction to Unicode and Related Terminology). If a national item is used in a comparison the system converts the data from little-endian to big-endian format. However, if a group item containing a national item is used in a comparison, it is categorized as alphanumeric and no little-endian/big-endian conversion is performed. This message is issued to warn you that the comparison may not work as you expect.

JMN3533I-S

Argument-1 of FUNCTION DISPLAY-OF must be of the national class.

Example

[C3533.cob]
000001 @OPTIONS RCS(UTF16)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.  C3533.
000004 ENVIRONMENT  DIVISION.
000005 DATA  DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01  A    PIC  X(8).
000008 01  B    PIC  X(8).
000009 PROCEDURE  DIVISION.
000010 P-START.
000011     MOVE  FUNCTION DISPLAY-OF ( A )  TO  B.
000012 END PROGRAM C3533.

C3533.cob 11: JMN3533I-S Argument-1 of FUNCTION DISPLAY-OF must be of the national class.

JMN3534I-S

[Solaris][Linux]
Argument-2 of FUNCTION DISPLAY-OF must be of an alphabetic or alphanumeric class, and must be one character position in length.

[Linux64]
In the FUNCTION DISPLAY-OF argument-2, if the character type is alphanumeric or alphabetic and the length is 1, the encoding format must be the same as the selected compile option for ENCODE.

Example

[C3534.cob]
000001 @OPTIONS
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.  C3534.
000004 ENVIRONMENT  DIVISION.
000005 DATA  DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01  A    PIC  N(8).
000008 01  B    PIC  X(8).
000009 PROCEDURE  DIVISION.
000010 P-START.
000011     MOVE  FUNCTION DISPLAY-OF ( A  N"A" )  TO  B.
000012     STOP RUN.
000013 END PROGRAM C3534.
  • [Solaris][Linux]

    C3534.cob 11 : JMN3534I-S Argument-2 of FUNCTION DISPLAY-OF must be of an alphabetic or alphanumeric class, and must be one character position in length.

  • [Linux64]

    C3534.cob 11: JMN3534I-S In the FUNCTION DISPLAY-OF argument-2, if the character type is alphanumeric or alphabetic and the length is 1, the encoding format must be the same as the selected compile option for ENCODE.

JMN3535I-S

Argument-1 of FUNCTION NATIONAL-OF must be of the alphabetic or alphanumeric class.

Example

[C3535I-S.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3535.
000003 ENVIRONMENT DIVISION.
000004 CONFIGURATION SECTION.
000005 DATA DIVISION.
000006 WORKING-STORAGE SECTION.
000007  01  DATA-1   PIC 9(10).
000008  01  DATA-2   PIC N(10).
000009 PROCEDURE DIVISION.
000010      MOVE FUNCTION NATIONAL-OF ( DATA-1 )  TO  DATA-2.
000011      EXIT PROGRAM.
000012 END PROGRAM C3535.

C3535.cob (10) : JMN3535I-S Argument-1 of FUNCTION NATIONAL-OF must be of the alphabetic or alphanumeric class.

JMN3536I-S

[Solaris][Linux]
Argument-2 of FUNCTION NATIONAL-OF must be of the national category and one character in length.

[Linux64]
If the FUNCTION NATIONAL-OF argument-2 is a national language item type and the length is 1 character, the encoding format must be same as the selected compile option for ENCODE.

Example

[C3536.cob]
000001 @OPTIONS RCS(UTF16)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.  C3536.
000004 ENVIRONMENT  DIVISION.
000005 DATA  DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01  A    PIC  X(8).
000008 01  B    PIC  N(8).
000009 PROCEDURE  DIVISION.
000010 P-START.
000011     MOVE  FUNCTION NATIONAL-OF ( A  N"##" )  TO  B.
000012 END PROGRAM C3536.
  • [Solaris][Linux]

    C3536.cob 11: JMN3536I-S Argument-2 of FUNCTION NATIONAL-OF must be of the national category and one character in length.

  • [Linux64]

    C3536.cob 11: JMN3536I-S If the FUNCTION NATIONAL-OF argument-2 is a national language item type and the length is 1 character, the encoding format must be same as the selected compile option for ENCODE.

JMN3549I-S

The type of argument-1 of @1@ must be an alphabetic, alphanumeric or national.

Parameter explanation

@1@ : FUNCTION JEF-OF or FUNCTION SJIS-OF

Example

[C3549.cob]
000001 @OPTIONS MODE(OS4)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID. C3549.
000004 ENVIRONMENT      DIVISION.
000005 CONFIGURATION    SECTION.
000006 DATA DIVISION.
000007 WORKING-STORAGE SECTION.
000008  01  ARG-1     USAGE BINARY-DOUBLE.
000009  01  DATA-1    PIC X(50).
000010 LINKAGE SECTION.
000011 PROCEDURE DIVISION.
000012      MOVE  FUNCTION JEF-OF (ARG-1) TO DATA-1.
000013      .
000014 END PROGRAM C3549.

C3549.cob 12: JMN3549I-S The type of argument-1 of FUNCTION JEF-OF must be an alphabetic, alphanumeric or national.

JMN3551I-S

Non-USAGE DISPLAY item, numeric edited item, alphanumeric edited item, national edited item, external boolean item, external floating-point item, numeric item that symbol 'P' exists in picture clause, and group item including either the above-mentioned cannot be specified in @2@ of @1@ statement with CSV-FORMAT or TSV-FORMAT. @3@ is ignored.

Parameter explanation

@1@ : STRING/UNSTRING

@2@ : sending item/INTO phrase item

@3@ : data name (sending item or INTO phrase item)

Example

[C3551.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3551.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01  DATA1   PIC  X(10).
000006 01  DATA2.
000007  02   DATA21   PIC X(5).
000008  02   DATA22   PIC  S9(9) COMP-5.
000009 01  DATA3   PIC  N(15).
000010 01  RCV     PIC  X(50).
000011 PROCEDURE  DIVISION.
000012     STRING DATA1 DATA2 DATA3 INTO RCV
000013            BY TSV-FORMAT
000014     END-STRING.
000015     .
000016 END PROGRAM C3551.

C3551.cob 12: JMN3551I-S Non-USAGE DISPLAY item, numeric edited item, alphanumeric edited item, national edited item, external boolean item, external floating-point item, numeric item that symbol 'P' exists in picture clause, and group item including either the above-mentioned cannot be specified in sending item of STRING statement with CSV-FORMAT or TSV-FORMAT. 'DATA2' is ignored.

JMN3552I-S

@4@ that is item with a @3@ clause or the group item including it cannot be specified in @2@ of @1@ statement with CSV-FORMAT or TSV-FORMAT. @4@ is ignored.

Parameter explanation

@1@ : STRING/UNSTRING

@2@ : sending item/INTO phrase

@3@ : clause name

@4@ : data name (sending item or INTO phrase)

Example

[C3552.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3552.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01  DATA1   PIC  X(10).
000006 01  DATA2.
000007  02   DATA21   PIC X(5).
000008  02   DATA21R  REDEFINES DATA21  PIC 9(5).
000009  02   DATA22   PIC N(5).
000010 01  DATA3   PIC  N(15).
000011 01  RCV     PIC  X(50).
000012 PROCEDURE  DIVISION.
000013     STRING DATA1 DATA2 DATA3 INTO RCV
000014            BY TSV-FORMAT
000015     END-STRING.
000016     .
000017 END PROGRAM C3552.

C3552.cob 13: JMN3552I-S 'DATA2' that is item with a REDEFINES clause or the group item including it cannot be specified in sending item of STRING statement with CSV-FORMAT or TSV-FORMAT. 'DATA2' is ignored.

JMN3553I-S

@3@ that is item of @2@ of @1@ statement with CSV-FORMAT or TSV-FORMAT should be an alphanumeric item without JUSTIFIED and ANY LENGTH clause.

Parameter explanation

@1@ : STRING/UNSTRING

@2@ : sending item/INTO phrase

@3@ : data name (sending item or INTO phrase)

Example

[C3553.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3553.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01  DATA1    PIC S9(4).
000006 01  DATA2    PIC X(15).
000007 01  DATA3    PIC X(20).
000008 01  RCV      PIC N(50).
000009 PROCEDURE  DIVISION.
000010     STRING DATA1 DATA2 DATA3  INTO RCV
000011            BY TSV-FORMAT
000012     END-STRING.
000013     .
000014 END PROGRAM C3553.

C3553.cob 10: JMN3553I-S 'RCV' that is item of INTO phrase of STRING statement with CSV-FORMAT or TSV-FORMAT should be an alphanumeric item without JUSTIFIED and ANY LENGTH clause.

JMN3554I-S

@3@ that is item of POINTER phrase of @1@ statement with CSV-FORMAT or TSV-FORMAT should be an integer item that is without the symbols 'P' in PICTURE clause, and the value in which 1 is added to length of @2@ should be a range of the value of its item.

Parameter explanation

@1@ : STRING/UNSTRING

@2@ : data name (sending item or INTO phrase)

@3@ : data name (POINTER phrase)

Example

[C3554.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3554.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01  DATA1    PIC S9(4).
000006 01  DATA2    PIC X(15).
000007 01  DATA3    PIC X(20).
000008 01  RCV      PIC X(500).
000009 01  DATAP    PIC S9(2).
000010 PROCEDURE  DIVISION.
000011     STRING DATA1 DATA2 DATA3  INTO RCV
000012            BY TSV-FORMAT
000013            WITH POINTER DATAP
000014     END-STRING.
000015     .
000016 END PROGRAM C3554.

C3554.cob 13: JMN3554I-S 'DATAP' that is item of POINTER phrase of STRING statement with CSV-FORMAT or TSV-FORMAT should be an integer item that is without the symbols 'P' in PICTURE clause, and the value in which 1 is added to length of 'RCV' should be a range of the value of its item.

JMN3555I-S

@2@ cannot be specified in @1@ statement with CSV-FORMAT or TSV-FORMAT.

Parameter explanation

@1@ : STRING/UNSTRING

@2@ : intrinsic function, inline method invocation, etc

Example

[C3555.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3555.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01  DATA1    PIC S9(4).
000006 01  DATA2    PIC X(15).
000007 01  DATA3    PIC X(20).
000008 01  RCV      PIC X(500).
000009 01  DATAP    PIC S9(2).
000010 PROCEDURE  DIVISION.
000011     STRING DATA1 FUNCTION UPPER-CASE(DATA2)  INTO RCV
000012            BY TSV-FORMAT
000013     END-STRING.
000014     .
000015 END PROGRAM C3555.

C3555.cob 11: JMN3555I-S FUNCTION UPPER-CASE cannot be specified in STRING statement with CSV-FORMAT or TSV-FORMAT.

JMN3557I-S

A numeric item exceeding 18 digits exists in the USING or RETURNING phrase of the @1@'@2@'. The numeric item cannot be used in 18-digit mode.

Parameter explanation

@1@ : in-line method invocation | object property.

@2@ : The method name or property name.

Example

[C3557.cob]
000001 @OPTIONS ARITHMETIC(31)
000002 CLASS-ID. C3557.
000003 OBJECT.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 PROPDAT PIC S9(31) COMP-5 PROPERTY.
000007 PROCEDURE DIVISION.
000008 END OBJECT.
000009 END CLASS C3557.
[P3557.cob]
000001 @OPTIONS ARITHMETIC(18)
000002 PROGRAM-ID. P3557.
000003 ENVIRONMENT DIVISION.
000004 CONFIGURATION SECTION.
000005 REPOSITORY.
000006        CLASS  C3557.
000007 DATA DIVISION.
000008 WORKING-STORAGE SECTION.
000009 01 WDATA PIC S9(9) COMP-5.
000010 01 OBJC3557 OBJECT REFERENCE C3557.
000011 PROCEDURE DIVISION.
000012         MOVE WDATA TO PROPDAT OF OBJC3557.

P3557.cob 12: JMN3557I-S A numeric item exceeding 18 digits exists in the USING or RETURNING phrase of the object property 'PROPDAT'. The numeric item cannot be used in 18-digit mode.

JMN3558I-I

The number of digits in the arithmetic expression intermediate result exceeds the maximum allowed in 18-digit mode.

Example

[C3558.cob]
000001 @OPTIONS ARITHMETIC(31,INF)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID. C3558.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 ED01 PIC S9(16).
000007 01 ED02 PIC SV9(16).
000008 PROCEDURE DIVISION.
000009         ADD ED01 TO ED02.

C3558.cob 9: JMN3558I-I The number of digits in the arithmetic expression intermediate result exceeds the maximum allowed in 18-digit mode.

Explanation

This message is output only when compile option ARITHMETIC(31,INF) is specified.

The maximum number of digits allowed for an intermediate result depends on the operation mode. 30 digits are allowed for 18-digit mode, and 38 digits are allowed for 31-digit mode.

This message is output to the arithmetic expression when the number of digits in the intermediate result exceeds the maximum number of digits allowed in 18-digit mode.

JMN3559I-I

The floating point attribute is applied to the intermediate result of the arithmetic expression in 31-digit mode.

Example

[C3559.cob]
000001 @OPTIONS ARITHMETIC(31,INF)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID. C3559.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 ED01 PIC S9(16).
000007 01 FLOAT1 COMP-2.
000008 PROCEDURE DIVISION.
000009         COMPUTE FLOAT1 = ED01 / 2. 

C3559.cob 9: JMN3559I-I The floating point attribute is applied to the intermediate result of the arithmetic expression in 31-digit mode.

Explanation

This message is output only when compile option ARITHMETIC(31,INF) is specified.

The floating point attribute is applied to the intermediate result only in 31-digit mode.

JMN3562I-S

The encoding of the target to be compared and the @1@ key item in the SEARCH ALL statement must be the same.

Parameter explanation

@1@ : Data name.

Example

[C3562.cob]
000001 @OPTIONS ENCODE(UTF8,UTF16,LE)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C3562.
000004 ENVIRONMENT     DIVISION.
000005 CONFIGURATION   SECTION.
000006   SPECIAL-NAMES.
000007     ALPHABET U16L FOR NATIONAL UTF16LE
000008     ALPHABET U32L FOR NATIONAL UTF32LE
000009   .
000010 DATA            DIVISION.
000011 WORKING-STORAGE SECTION.
000012 01 TBL.
000013   02 X OCCURS 5 TIMES ASCENDING KEY IS A
000014                 INDEXED BY IX1.
000015     03 A        PIC N(8) ENCODING U16L.
000016 01 B            PIC N(8) ENCODING U32L.
000017 PROCEDURE       DIVISION.
000018     SEARCH ALL X
000019     WHEN A(IX1) = B
000020       CONTINUE
000021     END-SEARCH.
000022 END PROGRAM     C3562.

C3562.cob 19: JMN3562I-S The encoding of the target to be compared and the 'A' key item in the SEARCH ALL statement must be the same.

JMN3563I-S

Different encoding cannot be given for the comparison of multiple data items.

Example

[C3563.cob]
000001 @OPTIONS ENCODE(UTF8,UTF16,LE)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C3563.
000004 ENVIRONMENT     DIVISION.
000005 CONFIGURATION   SECTION.
000006   SPECIAL-NAMES.
000007     ALPHABET U16L FOR NATIONAL UTF16LE
000008     ALPHABET U32L FOR NATIONAL UTF32LE
000009   .
000010 DATA            DIVISION.
000011 WORKING-STORAGE SECTION.
000012 01 A            PIC N(8) ENCODING U16L.
000013 01 B            PIC N(8) ENCODING U32L.
000014 PROCEDURE       DIVISION.
000015     IF A = B THEN
000016       DISPLAY "OK"
000017     END-IF.
000018 END PROGRAM     C3563.

C3563.cob 15: JMN3563I-S Different encoding cannot be given for the comparison of multiple data items.

JMN3564I-S

Different encoding cannot be given for the move of multiple data items.

Example

[C3564.cob]
000001 @OPTIONS ENCODE(UTF8,UTF16,LE)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C3564.
000004 ENVIRONMENT     DIVISION.
000005 CONFIGURATION   SECTION.
000006   SPECIAL-NAMES.
000007     ALPHABET U16L FOR NATIONAL UTF16LE
000008     ALPHABET U32L FOR NATIONAL UTF32LE
000009   .
000010 DATA            DIVISION.
000011 WORKING-STORAGE SECTION.
000012 01 A            PIC N(8) ENCODING U16L.
000013 01 B            PIC N(8) ENCODING U32L.
000014 PROCEDURE       DIVISION.
000015     MOVE A TO B.
000016 END PROGRAM     C3564.

C3564.cob 15: JMN3564I-S Different encoding cannot be given for the move of multiple data items.

JMN3565I-S

When compilation option RCS(UTF16) or ENCODE is specified, @1@ cannot be specified in a WRITE statement for a print file. @1@ is different from the encoding of the print file.

Parameter explanation

@1@ : Identifier

Example

[C3565.cob]
000001 @OPTIONS ENCODE(UTF8,UTF32)
000002 PROGRAM-ID.     C3565.
000003 ENVIRONMENT     DIVISION.
000004 CONFIGURATION   SECTION.
000005 SPECIAL-NAMES.
000006     ALPHABET UTF16L FOR NATIONAL UTF16LE.
000007 INPUT-OUTPUT    SECTION.
000008 FILE-CONTROL.
000009     SELECT FILE-1 ASSIGN TO S-SYS001.
000010 DATA            DIVISION.
000011 FILE            SECTION.
000012 FD FILE-1
000013     LINAGE IS PAGE-AREA LINE
000014       WITH FOOTING AT FOOT-AREA
000015       LINE AT TOP TOP-AREA
000016       LINE AT BOTTOM BOT-AREA.
000017 01 REC-1        PIC X(100).
000018 WORKING-STORAGE SECTION.
000019 01 GROUP-ITEM-1.
000020   02 PAGE-AREA  PIC 9(4) COMP-3 VALUE 50.
000021   02 FOOT-AREA  PIC 9(4) VALUE 10.
000022   02 TOP-AREA   PIC 9(4) VALUE 5.
000023   02 BOT-AREA   PIC 9(4) VALUE 5.
000024 01 GR.
000025   02 R-1        PIC N(5) ENCODING UTF16L.
000026   02 R-2        PIC X(30).
000027 PROCEDURE       DIVISION.
000028     WRITE REC-1 FROM GR.
000029 END PROGRAM     C3565.

C3565.cob 28: JMN3565I-S When compilation option RCS(UTF16) or ENCODE is specified, 'GR' cannot be specified in a WRITE statement for a print file. 'GR' is different from the encoding of the print file.

JMN3566I-S

The length of the national hexadecimal nonnumeric literal for encoding UTF32 must be a multiple of 8.

Example

[C3566.cob]
000001 @OPTIONS ENCODE(UTF8,UTF32,LE)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C3566.
000004 ENVIRONMENT     DIVISION.
000005 CONFIGURATION   SECTION.
000006   SPECIAL-NAMES.
000007     ALPHABET U32L FOR NATIONAL UTF32LE
000008   .
000009 DATA            DIVISION.
000010 WORKING-STORAGE SECTION.
000011 01 A            PIC N ENCODING U32L.
000012 PROCEDURE       DIVISION.
000013     MOVE NX"0030" TO A.
000014 END PROGRAM     C3566.

C3566.cob 13: JMN3566I-S The length of the national hexadecimal nonnumeric literal for encoding UTF32 must be a multiple of 8.

JMN3567I-W

In the '@1@' group item, which is specified in the argument of @2@, National items having different encoding formats are included. The '@1@' national item is taken as the Encoding's alphanumeric data item.

Parameter explanation

@1@: Identifier

@2@: FUNCTION NATIONAL | FUNCTION NATIONAL-OF

Example

[C3567.cob]
000001 @OPTIONS ENCODE(UTF8,UTF32)
000002 PROGRAM-ID.     C3567.
000003 ENVIRONMENT     DIVISION.
000004 CONFIGURATION   SECTION.
000005   SPECIAL-NAMES.
000006     ALPHABET UTF32B NATIONAL UTF32BE.
000007 DATA            DIVISION.
000008 WORKING-STORAGE SECTION.
000009 01 GRP-DATA.
000010   02 X-DATA-1   PIC X(5) VALUE "UTF-8".
000011   02 N-DATA-2   PIC N(6) ENCODING UTF32B VALUE NC"UTF-32".
000012 01 RCV          PIC N(30).
000013 PROCEDURE       DIVISION.
000014     MOVE FUNCTION NATIONAL(GRP-DATA) TO RCV
000015     DISPLAY RCV
000016 END PROGRAM     C3567.

C3567.cob 14: JMN3567I-W In the 'GRP-DATA' group item, which is specified in the argument of FUNCTION NATIONAL, National items having different encoding formats are included. The 'GRP-DATA' national item is taken as the Encoding's alphanumeric data item.

JMN3568I-S

In the CONVERSION specification MOVE statement, '@1@' cannot be specified in the items that are specified by the @2@ clause.

Parameter explanation

@1@: Data name

@2@: JUSTIFIED | ANY LENGTH

Example

[C3568.cob]
000001 @OPTIONS ENCODE(UTF8,UTF32)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C3568.
000004 DATA            DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 W-X-JUST     PIC X(20) JUSTIFIED VALUE "HELLO".
000007 01 W-N-UTF32    PIC N(10).
000008 PROCEDURE       DIVISION.
000009     MOVE CONVERSION W-X-JUST TO W-N-UTF32.
000010 END PROGRAM     C3568.

C3568.cob 9: JMN3568I-S In the CONVERSION specification MOVE statement, 'W-X-JUST' can not be specified in the items that are specified by the JUSTIFIED clause.

JMN3569I-S

A '@1@' having the same encoding as the receiving side cannot be moved to '@2@'.

Parameter explanation

@1@: Data name

@2@: Data name

Example

[C3569.cob]
000001 @OPTIONS ENCODE(SJIS,SJIS)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C3569.
000004 DATA            DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 N08          PIC N(8).
000007 01 X08          PIC X(8).
000008 PROCEDURE       DIVISION.
000009     MOVE CONVERSION X08 TO N08.
000010 END PROGRAM C3569.

C3569.cob 9: JMN3569I-S A 'X08' having the same encoding as the receiving side cannot be moved to 'N08'.

JMN3570I-S

Move cannot be performed because the area of receiving side item '@2@' and the area of sending side item '@1@' are overlapping.

Parameter explanation

@1@: sending item

@2@: receiving item

Example

[C3570.cob]
000001 @OPTIONS ENCODE(UTF8,UTF32)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C3570.
000004 DATA            DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 GRP.
000007   02 A-GRP.
000008     03 A-AREA   PIC N(4).
000009     03 FILLER   PIC X(1).
000010   02 B-GRP      REDEFINES A-GRP.
000011     03 FILLER   PIC X(1).
000012     03 B-AREA   PIC X(16).
000013 PROCEDURE       DIVISION.
000014     MOVE CONVERSION A-AREA TO B-AREA.
000015 END PROGRAM C3570.

C3570.cob 14: JMN3570I-S Move cannot be performed because the area of receiving side item 'B-AREA' and the area of sending side item 'A-AREA' are overlapping.