Top
NetCOBOL V11.0 Messages
FUJITSU Software

2.2.3 JMN2000 - JMN2999

2000

2001

2002

2003

2004

2005

2006

2007

2008

2009

2010

2011

2012

2013

2015

2016

2019

2020

2022

2024

2025

2026

2031

2034

2035

2036

2037

2038

2039

2040

2041

2042

2043

2044

2045

2047

2048

2049

2050

2051

2065

2066

2067

2076

2077

2079

2080

2081

2082

2083

2084

2085

2097

2098

2099

2100

2101

2102

2103

2104

2105

2106

2107

2108

2109

2111

2112

2113

2116

2117

2118

2119

2120

2121

2122

2123

2124

2126

2127

2128

2131

2132

2134

2135

2136

2138

2143

2144

2145

2149

2158

2159

2163

2164

2165

2166

2167

2173

2174

2175

2176

2177

2178

2181

2182

2183

2188

2189

2190

2191

2192

2193

2194

2195

2196

2197

2200

2201

2202

2205

2206

2207

2210

2212

2213

2214

2215

2216

2218

2219

2221

2222

2223

2224

2225

2226

2227

2228

2229

2231

2232

2233

2234

2235

2236

2239

2244

2245

2249

2251

2252

2269

2270

2271

2370

2273

2274

2276

2277

2288

2292

2300

2312

2316

2317

2319

2320

2329

2331

2332

2333

2334

2335

2336

2337

2338

2341

2343

2350

2354

2357

2358

2359

2365

2366

2372

2374

2375

2384

2385

2393

2394

2395

2396

2397

2398

2399

2400

2401

2402

2403

2404

2405

2406

2407

2408

2409

2410

2411

2412

2413

2414

2415

2416

2417

2418

2420

2421

2422

2423

2424

2425

2426

2427

2428

2429

2430

2431

2432

2433

2434

2435

2436

2437

2438

2439

2440

2441

2442

2443

2444

2445

2446

2447

2449

2450

2451

2452

2457

2458

2459

2460

2461

2462

2463

2464

2465

2466

2467

2468

2469

2470

2471

2472

2473

2474

2475

2476

2477

2478

2480

2481

2482

2483

2484

2485

2486

2487

2488

2489

2491

2493

2494

2495

2496

2497

2498

2499

2500

2501

2502

2503

2504

2505

2506

2507

2508

2509

2510

2511

2512

2513

2514

2515

2516

2517

2518

2519

2520

2521

2522

2523

2524

2525

2526

2527

2528

2529

2530

2532

2534

2535

2536

2538

2539

2540

2541

2543

2545

2547

2548

2549

2550

2551

2552

2553

2554

2555

2556

2557

2558

2560

2561

2562

2564

2565

2566

2567

2568

2569

2570

2571

2574

2575

2576

2580

2583

2584

2585

2586

2587

2588

2589

2591

2592

2593

2596

2597

2598

2599

2600

2601

2602

2603

2604

2605

2606

2607

2608

2609

2610

2611

2613

2615

2616

2617

2633

2634

2639

2640

2641

2642

2643

2644

2645

2650

2651

2654

2656

2657

2658

2659

2660

2662

2663

2665

2666

2669

2670

2671

2672

2673

2682

2686

2689

2691

2692

2693

2694

2695

2696

2697

2698

2699

2700

2701

2704

2705

2706

2707

2710

2717

2718

2726

2727

2728

2729

2730

2731

2732

2735

2736

2737

2738

2741

2742

2744

2745

2747

2748

2749

2750

2753

2756

2757

2759

2761

2762

2764

2766

2767

2768

2769

2770

2772

2773

2774

2775

2794

2798

2800

2801

2802

2803

2809

2815

2818

2819

2821

2822

2823

2826

2827

2829

2831

2832

2834

2835

2836

2837

2838

2839

2840

2847

2851

2853

2862

2863

2864

2866

2867

2868

2870

2871

2873

2874

2875

2877

2878

2879

2880

2881

2882

2883

2884

2885

2886

2888

2889

2890

2892

2893

2895

2896

2897

2898

2899

2901

2902

2903

2906

2907

2908

2909

2911

2912

2916

2920

2921

2922

2923

2924

2925

2926

2927

2928

2930

2931

2932

2933

2934

2935

2936

2937

2938

2939

2940

2941

2942

2943

2944

2945

2946

2947

2948

2949

2950

2951

2952

2953

2954

2955

2957

2958

2959

2960

2961

2962

2963

2964

2965

2966

2970

2971

2985

2986

2988

2993

2994

2996

2999

JMN2000I-S

The report description entry requires a report group description. The report description entry is ignored.

Example

[P2000.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2000.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD REPFILE REPORT REP1.
000011 REPORT          SECTION.
000012 RD REP1.
000013 PROCEDURE      DIVISION.
000014 END PROGRAM    P2000.

P2000.cob 12: JMN2000I-S The report description entry requires a report group description. The report description entry is ignored.

Explanation

It is a cause that there is no report group description entry following report description entry(level indicator of RD) to which this diagnostic message is output.

The report group description entry is a series of data description entry and that first item is a data description entry with level-number 01 and TYPE clause.

JMN2001I-S

The file description entry or sort-merge file description entry requires a record description. The file description entry or sort-merge file description entry is ignored.

Example

[P2001.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2001.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001
000007       ORGANIZATION   IS SEQUENTIAL
000008       FILE STATUS    IS WFS1.
000009 I-O-CONTROL.
000010 DATA           DIVISION.
000011 FILE            SECTION.
000012 FD SQFILE1.
000013 WORKING-STORAGE SECTION.
000014 01 WFS1        PIC X(2).
000015 PROCEDURE      DIVISION.
000016 END PROGRAM    P2001.

P2001.cob 12: JMN2001I-S The file description entry or sort-merge file description entry requires a record description. The file description entry or sort-merge file description entry is ignored.

Explanation

It is a cause that there is no record description entry following file description entry(level indicator of FD) to which this diagnostic message is output.

The record description entry is a series of data description entry to specify the structure of the record.

JMN2002I-S

A record description entry cannot be specified for a file description entry with a REPORT clause. The record description entry is ignored until the next file description entry or sort-merge file description entry.

Example

[P2002.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2002.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD REPFILE REPORT REP1.
000011 01 REPREC       PIC X(80).
000012 REPORT          SECTION.
000013 RD REP1.
000014 01 TYPE DE LINE PLUS 1.
000015   02 COLUMN 1   PIC X(10) VALUE SPACE.
000016 PROCEDURE      DIVISION.
000017 END PROGRAM    P2002.

P2002.cob 10: JMN2002I-S A record description entry cannot be specified for a file description entry with a REPORT clause. The record description entry is ignored until the next file description entry or sort-merge file description entry.

Explanation

Because the record description entry is specified following the file description entry(level indicator FD) of the report file , this diagnostic message is output. The file that specifies the REPORT clause becomes a report file.

JMN2003I-S

The length of redefining item with an EXTERNAL clause cannot exceed the length of the item with an EXTERNAL clause. It is accepted as written.

Example

[P2003.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2003.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 D1 EXTERNAL.
000007   02           PIC X(10).
000008 01 R2 REDEFINES D1.
000009   02           PIC N(10).
000010 PROCEDURE      DIVISION.
000011 END PROGRAM    P2003.

P2003.cob 8: JMN2003I-S The length of redefining item with an EXTERNAL clause cannot exceed the length of the item with an EXTERNAL clause. It is accepted as written.

Explanation

When an external data record is redefined, the length of the redefined item is equal to the length of the redefined item or should be small.

For instance, in the sample program, R2 of the length of the data item is larger than that of D1 though D1 with an external attribute has been redefined with R2. This diagnostic message is output because of this.

JMN2004I-S

When a SYNCHRONIZED clause is specified for an elementary item with a REDEFINES clause or a first elementary item that is a part of a group that contains a REDEFINES clause, the boundary of the redefined item must be adjusted to correct the boundary of the elementary item. The boundary is not adjusted.

Example

[P2004.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2004.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 G1.
000007   02           PIC X(1).
000008   02 E1        PIC X(20).
000009   02 G2 REDEFINES E1.
000010     03 E2      PIC S9(4) BINARY SYNC.
000011     03 E3      PIC S9(4) BINARY SYNC.
000012     03 E4      PIC S9(4) BINARY SYNC.
000013 PROCEDURE      DIVISION.
000014 END PROGRAM    P2004.

P2004.cob 10: JMN2004I-S When a SYNCHRONIZED clause is specified for an elementary item with a REDEFINES clause or a first elementary item that is a part of a group that contains a REDEFINES clause, the boundary of the redefined item must be adjusted to correct the boundary of the elementary item. The boundary is not adjusted.

Explanation

The SYNCHRONIZED clause inserts slack byte or slack bit before of the data item that specifies this clause if necessary, and the boundary is adjusted. However, slack byte or slack bit cannot be inserted for the redefine item(with SYNCHRONIZED clause) that corresponds to the following conditions.

  • An elementary item

  • A first subordinate item of a group item

In the sample program, to correspond to the terms and conditions above, it cannot be done though the insertion of the slack byte is necessary before data item E2.

JMN2005I-S

The file-name for the file description entry or the sort-merge file description entry must be defined at the SELECT clause of the FILE-CONTROL paragraph. A sequential file is assumed.

Example

[P2005.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2005.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 DATA           DIVISION.
000006 FILE            SECTION.
000007 FD SQFILE1.
000008 01 SQF1REC.
000009   02           PIC X(80).
000010 WORKING-STORAGE SECTION.
000011 01 WFS1        PIC X(2).
000012 PROCEDURE      DIVISION.
000013 END PROGRAM    P2005.

P2005.cob 7: JMN2005I-S The file-name for the file description entry or the sort-merge file description entry must be defined at the SELECT clause of the FILE-CONTROL paragraph. A sequential file is assumed.

Explanation

The following descriptions are necessary at each file.

  • A file control entry

  • A file description entry

Because the file control entry corresponding to the file name specified by the file description entry is not described, this diagnostic message is output.

In the sample program, this message is out because the file control entry to file SQFILE1 is not described.

JMN2006I-S

The file-name in the SELECT clause must be a unique file-name in the description entry of FD or SD.

Example

[P2006.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2006.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 WORKING-STORAGE SECTION.
000010 PROCEDURE      DIVISION.
000011 END PROGRAM    P2006.

P2006.cob 6: JMN2006I-S The file-name in the SELECT clause must be a unique file-name in the description entry of FD or SD.

Explanation

The following descriptions are necessary at each file.

  • A file control entry

  • A file description entry

Following is the cause of this diagnostic message.

  • The file description entry corresponding to the file name specified in the file control entry is not defined.

  • The file description entry corresponding to the file name specified in the file control entry is multiple defined.

In the sample program, this message is out because the file description entry to file SQFILE1 is not described.

JMN2007I-S

The file-name in the SELECT clause must not be same as the file-names in other SELECT clauses.

Example

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

P2007.cob 7: JMN2007I-S The file-name in the SELECT clause must not be same as the file-names in other SELECT clauses.

Explanation

A file-name should be unique in the following definition.

  • Program definition

  • Factory definition

  • Object definition

  • Method definition

In the sample program, this message is out because two or more file control entries are specified for the same file-name(SQFILE1).

JMN2008I-W

When the SIGN clause is specified for a group item, at least one signed external decimal item must be specified for subordinating elementary items. The SIGN clause is ignored.

Example

[P2008.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2008.
000003 DATA           DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01 G1  SIGN LEADING.
000006   02 E1        PIC X(10).
000007   02 E2        PIC 9(10).
000008 PROCEDURE      DIVISION.
000009 END PROGRAM    P2008.

P2008.cob 5: JMN2008I-W When the SIGN clause is specified for a group item, at least one signed external decimal item must be specified for subordinating elementary items. The SIGN clause is ignored.

Explanation

The SIGN clause specifies the sign position and representation mode of a numeric data item. But In the following cases, it is ineffectual.

  • A numeric data whose PICTURE character-string does not contains the character "S".

  • The usage of the item is not display.

When this message is out, the SIGN clause is ineffectual. You should delete the SIGN clause.

JMN2009I-S

The '@1@' of the USAGE clause cannot be specified for an item with a PICTURE clause.

Parameter explanation

@1@ : COMPUTATIONAL-1, COMPUTATIONAL-2, INDEX, POINTER, PROCEDURE-POINTER, BINARY-CHAR, BINARY-SHORT, BINARY-LONG or BINARY-DOUBLE

Example

[P2009.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2009.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 E1          PIC S9(9) BINARY-LONG.
000007 PROCEDURE      DIVISION.
000008 END PROGRAM    P2009.

P2009.cob 6: JMN2009I-S The 'BINARY-LONG' of the USAGE clause cannot be specified for an item with a PICTURE clause.

Explanation

The PICTURE clause cannot be specified for the data item whose the usage is below.

  • COMPUTATIONAL-1(COMP-1)

  • COMPUTATIONAL-2(COMP-2)

  • INDEX

  • POINTER

  • PROCEDURE-POINTER

  • BINARY-CHAR

  • BINARY-SHORT

  • BINARY-LONG

  • BINARY-DOUBLE

Please delete the PICTURE clause.

JMN2010I-S

The USAGE clause for items subordinate to the group item must be of same format as the USAGE clause for the group item. The USAGE clause specified for the group item is used.

Example

[P2010.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2010.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 G1 DISPLAY.
000007   02 E1        PIC S9(9).
000008   02 E2        PIC S9(9) BINARY.
000009   02 E3        PIC S9(9).
000010 PROCEDURE      DIVISION.
000011 END PROGRAM    P2010.

P2010.cob 8: JMN2010I-S The USAGE clause for items subordinate to the group item must be of same format as the USAGE clause for the group item. The USAGE clause specified for the group item is used.

Explanation

The USAGE clause can be specified also for the group item. However, it should be the following either of the elementary item subordinate to the group item that specifies the USAGE clause.

  • A elementary item without USAGE clause.

  • A elementary item with a same USAGE clause as the group item.

In the sample program, the USAGE clause of the subordinate item(E2) is differ from that of the group item. this is cause of the diagnostic message output.

JMN2011I-S

A BIT phrase can only be specified for a Boolean item.

Example

[P2011.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2011.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WNUM        PIC S9(9) BIT.
000007 PROCEDURE      DIVISION.
000008 END PROGRAM    P2011.

P2011.cob 6: JMN2011I-S A BIT phrase can only be specified for a Boolean item.

Explanation

BIT(USAGE IS BIT clause) indicates that the data item is a boolean item. If this USAGE clause is specified, their PICTURE character-string of this data description entry must consist of the character "1" only.

JMN2012I-S

BINARY, COMPUTATIONAL, COMPUTATIONAL-3, or PACKED-DECIMAL must be specified for a numeric item.

Example

[P2012.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2012.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WNUM        PIC X(10) BINARY.
000007 PROCEDURE      DIVISION.
000008 END PROGRAM    P2012.

P2012.cob 6: JMN2012I-S BINARY, COMPUTATIONAL, COMPUTATIONAL-3, or PACKED-DECIMAL must be specified for a numeric item.

Explanation

BINARY(USAGE IS BINARY clause) or COMPUTATIONAL(USAGE IS COMPUTATIONAL clause) indicates that the data item is a binary item. COMPUTATIONAL-3(USAGE IS COMPUTATIONAL-3 clause) or PACKED-DECIMAL(USAGE IS PACKED-DECIMAL clause) indicates that the data item is a packed decimal item. If these clause is specified, their PICTURE character-string of the data description entry must consist of the symbol "P", "S", "V" or "9" only.

BINARY and COMPUTATIONAL are synonyms. COMPUTATIONAL-3 and PACKED-DECIMAL are synonyms.

JMN2013I-S

The SIGN clause can be specified for a signed external decimal item or a group item.

Example

[P2013.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2013.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WNUM1       PIC 9(10) DISPLAY SIGN LEADING.
000007 01 WNUM2       PIC 9(10) BINARY  SIGN TRAILING.
000008 PROCEDURE      DIVISION.
000009 END PROGRAM    P2013.

P2013.cob 6: JMN2013I-S The SIGN clause can be specified for a signed external decimal item or a group item.

P2013.cob 7: JMN2013I-S The SIGN clause can be specified for a signed external decimal item or a group item.

JMN2015I-S

The JUSTIFIED clause cannot be specified for a group item.

Example

[P2015.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2015.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGROUP JUST.
000007   02 WE1       PIC X(1).
000008   02 WE2       PIC 9(9) BINARY.
000009 PROCEDURE      DIVISION.
000010 END PROGRAM    P2015.

P2015.cob 6: JMN2015I-S The JUSTIFIED clause cannot be specified for a group item.

JMN2016I-S

The JUSTIFIED clause can only be specified for an alphabetic, alphanumeric, or national item.

Example

[P2016.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2016.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WNUM        PIC S9(10) JUST.
000007 PROCEDURE      DIVISION.
000008 END PROGRAM    P2016.

P2016.cob 6: JMN2016I-S The JUSTIFIED clause can only be specified for an alphabetic, alphanumeric, or national item.

JMN2019I-W

A REDEFINES clause cannot be specified for an item with level number 01 in the file section. The REDEFINES clause is ignored.

Example

[P2019.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2019.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD SQFILE1.
000011 01 SQF1REC.
000012   02           PIC X(80).
000013 01 REDEFINES SQF1REC.
000014   02           PIC N(40).
000015 PROCEDURE      DIVISION.
000016 END PROGRAM    P2019.

P2019.cob 13: JMN2019I-W A REDEFINES clause cannot be specified for an item with level number 01 in the file section. The REDEFINES clause is ignored.

Explanation

When two or more record description entry are written in the file section, their record area is redefined implicitly.

JMN2020I-S

An item redefined by the REDEFINES clause is not defined correctly.

Example

[P2020.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2020.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP.
000007   02 DA1       PIC X(20).
000008   02 .
000009     03 RDA1 REDEFINES DA1
000010                PIC N(10).
000011 PROCEDURE      DIVISION.
000012 END PROGRAM    P2020.

P2020.cob 9: JMN2020I-S An item redefined by the REDEFINES clause is not defined correctly.

Explanation

The name that defined the redefined character position (the data-name specified at the left of the REDEFINES clause) was not found. The data description entry of the data-name specified at the left of the REDEFINES clause must meet the following requirements:

  • It should be a declaration immediately before the data description entry that specifies the REDEFINES. If the item immediately before the data description entry also contains a REDEFINES, any data-name that has already been declared can define the character position of the REDEFINE target.

  • The level number of the data description entry that contains the REDEFINES and the level number of the redefined item should be the same.

  • A data description entry with a smaller level number cannot be placed between the data description entry containing the REDEFINES and the redefined item.

JMN2022I-S

The @1@ clause cannot be specified for an item redefined by the REDEFINES clause. The REDEFINES clause is ignored.

Parameter explanation

@1@ : OCCURS or TYPE.

Example

[C2022.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    C2022.
000003 DATA           DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01 A.
000006   02 A1        OCCURS 10.
000007     03         PIC X(1).
000008   02 A2 REDEFINES A1.
000009     03         PIC N(5).
000010 PROCEDURE      DIVISION.
000011 END PROGRAM C2022.

C2022.cob 8: JMN2022I-S The OCCURS clause cannot be specified for an item redefined by the REDEFINES clause. The REDEFINES clause is ignored.

JMN2024I-S

If an item redefined by a REDEFINES clause is an internal Boolean item without a SYNCHRONIZED clause, the redefining item must also be an internal Boolean item.

Example

[P2024.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2024.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WDA.
000007   02 WELM1     PIC 1(9) BIT.
000008   02 WELM2     PIC 1(7) BIT.
000009   02 WRLEM REDEFINES WELM2
000010                PIC X(3).
000011 PROCEDURE      DIVISION.
000012 END PROGRAM    P2024.

P2024.cob 9: JMN2024I-S If an item redefined by a REDEFINES clause is an internal Boolean item without a SYNCHRONIZED clause, the redefining item must also be an internal Boolean item.

JMN2025I-W

The VALUE clause cannot be specified for a data description entry in a based-storage section. The VALUE clause is ignored.

Example

[P2025.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2025.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 BASED-STORAGE   SECTION.
000006 01 BDA         PIC X(20) VALUE SPACE.
000007 PROCEDURE      DIVISION.
000008 END PROGRAM    P2025.

P2025.cob 6: JMN2025I-W The VALUE clause cannot be specified for a data description entry in a based-storage section. The VALUE clause is ignored.

Explanation

The VALUE clause specifies the initial value of a data item. Unlike the WORKING-STORAGE section, data defined in the BASED-STORAGE section occupies no memory until it is referenced with a pointer data item. The data defined in the BASED-STORAGE section cannot contain the initial value.

JMN2026I-W

The VALUE clause cannot be specified for a data description entry in a FILE SECTION or LINKAGE SECTION. The VALUE clause is ignored.

Example

[P2026.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2026.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD SQFILE1.
000010 01 SQF1REC.
000011   02           PIC X(80) VALUE SPACE.
000012 LINKAGE         SECTION.
000013 01 LK1         PIC X(2) VALUE SPACE.
000014 PROCEDURE      DIVISION USING LK1.
000015 END PROGRAM    P2026.

P2026.cob 11: JMN2026I-W The VALUE clause cannot be specified for a data description entry in a FILE SECTION or LINKAGE SECTION. The VALUE clause is ignored.

P2026.cob 13: JMN2026I-W The VALUE clause cannot be specified for a data description entry in a FILE SECTION or LINKAGE SECTION. The VALUE clause is ignored.

Explanation

The VALUE clause specifies the initial value of a data item. The data description entry in the file section defines the structure of the file's records. The data description entry in the linkage section defines the data structure which is referenced by the calling program and the called program. These items cannot contain initial values.

JMN2031I-S

The VALUE clause cannot be specified for an @1@ item.

Parameter explanation

@1@ : Index data or external floating-point.

Example

[P2031.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2031.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WEXFL       PIC +9.9E+99 VALUE 0.
000007 01 WIDX        INDEX        VALUE 0.
000008 PROCEDURE      DIVISION.
000009 END PROGRAM    P2031.

P2031.cob 6: JMN2031I-S The VALUE clause cannot be specified for an external floating-point item.

P2031.cob 7: JMN2031I-S The VALUE clause cannot be specified for an index data item.

JMN2034I-S

The numeric literal of the VALUE clause specifies a value which is truncated to zero. Figurative constant ZERO is assumed.

Example

[C20341.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C20341.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006 DATA DIVISION.
000007 WORKING-STORAGE SECTION.
000008   01 AREC1     PIC 99  VALUE 12.5.
000009 PROCEDURE DIVISION.
000010 END PROGRAM C20341.

C20341.cob 8: JMN2034I-S The numeric literal of the VALUE clause specifies a value which is truncated to zero. Figurative constant ZERO is assumed.

Explanation

The number of digits of the numeric item is too large to be stored in the numerical value specified by the VALUE clause. The numeric item is truncated to zero. An initial value cannot be correctly set.

The figurative constant ZERO is assumed, but neither the object file nor the executable file are generated.

JMN2035I-W

A signed numeric literal cannot be specified for an unsigned numeric item. The sign of the numeric literal is ignored.

Example

[P2035.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2035.
000003 DATA           DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01 WNUM        PIC 9(3)V99 VALUE -12.34.
000006 PROCEDURE      DIVISION.
000007 END PROGRAM    P2035.

P2035.cob 5: JMN2035I-W A signed numeric literal cannot be specified for an unsigned numeric item. The sign of the numeric literal is ignored.

Explanation

The initial value specified by the VALUE clause for an unsigned integer item must be an unsigned numeric literal.

If a signed numeric literal is specified, the sign becomes invalid and the numeric item is set as an unsigned numeric literal.

JMN2036I-S

A nonnumeric literal, figurative constant, or symbolic character must be specified in the VALUE clause of a group item. The figurative constant 'SPACE' is assumed.

Example

[P2036.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2036.
000003 DATA           DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01 WGRP        VALUE N"{".
000006   02 WELM1     PIC X(2).
000007   02 WELM2     PIC X(2).
000008   02 WELM3     PIC X(2).
000009 PROCEDURE      DIVISION.
000010 END PROGRAM    P2036.

P2036.cob 5: JMN2036I-S A nonnumeric literal, figurative constant, or symbolic character must be specified in the VALUE clause of a group item. The figurative constant 'SPACE' is assumed.

Explanation

The initial value specified by the VALUE clause for a group item must be a nonnumeric literal, a figurative constant or a symbolic-character. Values other than these are invalid.

The figurative constant SPACE is assumed, but neither the object file nor the executable file are generated.

JMN2037I-S

A numeric literal or figurative constant 'ZERO' must be specified in the VALUE clause of an internal floating-point item. The figurative constant 'ZERO' is assumed.

Example

[P2037.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2037.
000003 DATA           DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01 WNUM        COMP-1 VALUE SPACE.
000006 PROCEDURE      DIVISION.
000007 END PROGRAM    P2037.

P2037.cob 5: JMN2037I-S A numeric literal or figurative constant 'ZERO' must be specified in the VALUE clause of an internal floating-point item. The figurative constant 'ZERO' is assumed.

Explanation

The initial value specified by the VALUE clause for an internal floating-point data item must be a numeric literal or a figurative constant ZERO. Values other than these are invalid.

The figurative constant ZERO is assumed, but neither the object file nor the executable file are generated.

JMN2038I-S

Length of the literal in the VALUE clause must not exceed the length of the item. The extra characters at the right end of the literal are truncated.

Example

[P2038.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2038.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WDX         PIC X(2) VALUE "ABC".
000007 PROCEDURE      DIVISION.
000008 END PROGRAM    P2038.

P2038.cob 6: JMN2038I-S Length of the literal in the VALUE clause must not exceed the length of the item. The extra characters at the right end of the literal are truncated.

Explanation

The display or Boolean item is too large to be stored in the constant specified by the VALUE clause.

The literal is truncated on the right and is set to the data item, but neither the object file nor the executable file are generated.

JMN2039I-S

A numeric literal or figurative constant 'ZERO' must be specified in the VALUE clause of a numeric item. Figurative constant 'ZERO' is assumed.

Example

[P2039.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2039.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WDX         PIC 9(2) VALUE "ABC".
000007 PROCEDURE      DIVISION.
000008 END PROGRAM    P2039.

P2039.cob 6: JMN2039I-S A numeric literal or figurative constant 'ZERO' must be specified in the VALUE clause of a numeric item. Figurative constant 'ZERO' is assumed.

Explanation

The initial value specified by the VALUE clause for a numeric item must be a numeric literal or a figurative constant ZERO. Values other than these are invalid.

The figurative constant ZERO is assumed, but neither the object file nor the executable file are generated.

JMN2040I-S

A nonnumeric literal, figurative constant, or symbolic character must be specified in the VALUE clause of an alphabetic item, alphanumeric item, alphanumeric edited item, or numeric edited item. The figurative constant 'SPACE' is assumed.

Example

[P2040.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2040.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WDX         PIC X(2)  VALUE N"".
000007 01 WNE         PIC Z,ZZ9 VALUE 12.
000008 PROCEDURE      DIVISION.
000009 END PROGRAM    P2040.

P2040.cob 6: JMN2040I-S A nonnumeric literal, figurative constant, or symbolic character must be specified in the VALUE clause of an alphabetic item, alphanumeric item, alphanumeric edited item, or numeric edited item. The figurative constant 'SPACE' is assumed.

P2040.cob 7: JMN2040I-S A nonnumeric literal, figurative constant, or symbolic character must be specified in the VALUE clause of an alphabetic item, alphanumeric item, alphanumeric edited item, or numeric edited item. The figurative constant 'SPACE' is assumed.

Explanation

The initial value specified by the VALUE clause for an alphabetic item, an alphanumeric data item, an alphanumeric edited data item or a numeric edited data item must be a nonnumeric literal, a figurative constant or a symbolic-character. Values other than these are invalid.

The figurative constant SPACE is assumed, but neither the object file nor the executable file are generated.

JMN2041I-S

If the VALUE clause is specified for a numeric item following 'P', the value of the character position corresponding with 'P' of the numeric item must be zero. The value of the character position corresponding with 'P' of the numeric item is assumed to be zero.

Example

[P2041.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2041.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WNUM2       PIC 999PP VALUE 1234.
000007 PROCEDURE      DIVISION.
000008 END PROGRAM    P2041.

P2041.cob 6: JMN2041I-S If the VALUE clause is specified for a numeric item following 'P', the value of the character position corresponding with 'P' of the numeric item must be zero. The value of the character position corresponding with 'P' of the numeric item is assumed to be zero.

Explanation

A "P" indicates an assumed decimal scaling position. A "P" may appear in the leftmost or rightmost digit position of a PICTURE clause. If "P" is specified in the leftmost position of a PICTURE clause, the assumed decimal point is assumed to be at the leftmost position of the PICTURE. If "P" is written at the rightmost position of a PICTURE clause, the decimal point is assumed to be at the rightmost position of the PICTURE.

When the decimal point position in the PICTURE character-string is aligned with the decimal point position in the value specified for VALUE clause, the numeric character at the position of character "P" should be "0".

The value is assumed to be zero at the position of "P", but neither the object file nor the executable file are generated.

JMN2042I-S

A boolean literal or figurative constant ZERO must be specified in the VALUE clause of a boolean item. Figurative constant ZERO is assumed.

Example

[P2042.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2042.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WBOOL       PIC 1(1) VALUE 0.
000007 PROCEDURE      DIVISION.
000008 END PROGRAM    P2042.

P2042.cob 6: JMN2042I-S A boolean literal or figurative constant ZERO must be specified in the VALUE clause of a boolean item. Figurative constant ZERO is assumed.

Explanation

The initial value specified by the VALUE clause for a Boolean item must be a Boolean literal or a figurative constant ZERO. Values other than these are invalid.

The figurative constant ZERO is assumed, but neither the object file nor the executable file are generated.

JMN2043I-W

A Boolean literal cannot be specified in the VALUE clause of an alphabetic, alphanumeric, or alphanumeric edited item. Each Boolean character is assumed to be 1 bit, and is stored left-aligned.

Example

[P2043.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2043.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WBOOL       PIC X(1) VALUE B"11110000".
000007 PROCEDURE      DIVISION.
000008 END PROGRAM    P2043.

P2043.cob 6: JMN2043I-W A Boolean literal cannot be specified in the VALUE clause of an alphabetic, alphanumeric, or alphanumeric edited item. Each Boolean character is assumed to be 1 bit, and is stored left-aligned.

Explanation

If a Boolean literal is specified for an initial value of the alphabetic item, alphanumeric data item or alphanumeric edited data item, the Boolean character("0" or "1") is assumed to be 1 bit and is set to the item. The value is stored left justified and padded with spaces.

JMN2044I-S

The length of a Boolean literal in an alphabetic, alphanumeric, or alphanumeric edited item must be a multiple of 8. The Boolean character '0' is added to the right of the specified literal until its length is a multiple of 8.

Example

[P2044.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2044.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WBOOL       PIC X(1) VALUE B"111100".
000007 PROCEDURE      DIVISION.
000008 END PROGRAM    P2044.

P2044.cob 6: JMN2044I-S The length of a Boolean literal in an alphabetic, alphanumeric, or alphanumeric edited item must be a multiple of 8. The Boolean character '0' is added to the right of the specified literal until its length is a multiple of 8.

Explanation

When a Boolean literal is the initial value of an alphabetic, alphanumeric or alphanumeric edited data item, one Boolean character ('0' or '1') is assumed to is assumed to occupy the first bit. Boolean characters must be multiples of eight.

If the number of Boolean characters is not a multiple of eight, Boolean character '0's are inserted to the right of a Boolean literal to make it a multiple of eight. Neither the object file nor the executable file are generated.

JMN2045I-S

National literal or figurative constants SPACE, HIGH-VALUE, or LOW-VALUE must be specified in the VALUE clause of a national item. The figurative constant 'SPACE' is assumed.

Example

[P2045.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2045.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WBOOL       PIC N(1) VALUE "A".
000007 PROCEDURE      DIVISION.
000008 END PROGRAM    P2045.

P2045.cob 6: JMN2045I-S National literal or figurative constants SPACE, HIGH-VALUE, or LOW-VALUE must be specified in the VALUE clause of a national item. The figurative constant 'SPACE' is assumed.

Explanation

The initial value specified by the VALUE clause for a national item must be a national literal, a figurative constant SPACE, HIGH-VALUE or LOW-VALUE. Values other than these are invalid.

The figurative constant SPACE is assumed, but neither the object file nor the executable file are generated.

JMN2047I-W

The @1@ clause and the SYMBOLIC DESTINATION clause with @2@ are specified for a presentation file. The @1@ clause is ignored.

Parameter explanation

@1@ : DESTINATION-1, DESTINATION-2, DESTINATION-3, END KEY, FORMAT, GROUP, MESSAGE CLASS, MESSAGE CODE, MESSAGE MODE, MESSAGE OWNER, PROCESSING CONTROL, PROCESSING MODE, SELECTED FUNCTION, SESSION CONTROL or UNIT CONTROL.

@2@ : DSP, PRT, ACM, APL, CMD or TRM.

Example

[C2047.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C2047.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT AFILE ASSIGN TO GS-DD1
000007                 SYMBOLIC DESTINATION IS "PRT"
000008                 MESSAGE CODE IS W001.
000009 DATA DIVISION.
000010 FILE SECTION.
000011   FD AFILE.
000012   01 A        PIC X(80).
000013 WORKING-STORAGE SECTION.
000014   01 W001     PIC X(4).
000015 PROCEDURE DIVISION.

C2047.cob 11: JMN2047I-W The MESSAGE CODE clause and the SYMBOLIC DESTINATION clause with PRT are specified for a presentation file. The MESSAGE CODE clause is ignored.

Explanation

The clause of the file control entry for the presentation file module is evaluated to determine if it can be specified in combination with the specification of the SYMBOLIC DESTINATION clause. If the clause that cannot be specified, it becomes invalid.

JMN2048I-S

The @1@ clause cannot be specified when a SYMBOLIC DESTINATION clause with @2@ is specified for the presentation file.

Parameter explanation

@1@ : DESTINATION-1, DESTINATION-2, DESTINATION-3, END KEY, MESSAGE CLASS, MESSAGE CODE, MESSAGE MODE, MESSAGE OWNER, PROCESSING CONTROL, SELECTED FUNCTION or SESSION CONTROL.

@2@ : DSP, PRT, ACM, APL, CMD, TRM or WST.

Example

[C2048.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C2048.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006      SELECT AFILE ASSIGN TO GS-DD1
000007                 SYMBOLIC DESTINATION IS "WST"
000008                 MESSAGE CODE IS W001.
000009 DATA DIVISION.
000010 FILE SECTION.
000011   FD AFILE.
000012   01 A        PIC X(80).
000013 WORKING-STORAGE SECTION.
000014   01 W001     PIC X(4).
000015 PROCEDURE DIVISION.

C2048.cob 11: JMN2048I-S The MESSAGE CODE clause cannot be specified when a SYMBOLIC DESTINATION clause with WST is specified for the presentation file.

Explanation

The clause of the file control entry for the presentation file module is evaluated to determine if it can be specified in combination with the specification of the SYMBOLIC DESTINATION clause. If the clause cannot be specified, it becomes invalid. When an invalid clause is specified, neither the object file nor the executable file are generated.

JMN2049I-S

Data-name '@2@' of the @1@ clause is not unique. The @1@ clause is ignored.

Parameter explanation

@1@ : PADDING CHARACTER, NOMINAL KEY, ACTUAL KEY, RELATIVE KEY, SYMBOLIC KEY, FORMAT, GROUP, PADDING CHARACTER, NOMINAL KEY, ACTUAL KEY, RELATIVE KEY, SYMBOLIC KEY, FORMAT, GROUP, DESTNATION-1, DESTINATION-2, DESTINATION-3, SELECTED FUNCTION, UNIT CONTROL, MESSAGE MODE, END KEY, SESSION CONTROL, PROCESSING CONTROL, MESSAGE CLASS, PASSWORD, MESSAGE OWNER, MESSAGE CODE, PROCCESING TIME, MESSAGE SEQUENCE, DESTINATION CONTROL, FORMAT CONTROL, PROCESSING MODE, SYMBOLIC DESTINATION, FILE STATUS, APPLY REORG-CRITERIA, CONTROL AREA, TRACK-AREA, CURSOR or CRT STATUS.

@2@ : User-defined word which causes error.

Example

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

P2049.cob 8: JMN2049I-S Data-name 'WFS1' of the FILE STATUS clause is not unique. The FILE STATUS clause is ignored.

JMN2050I-S

Data-name '@2@' of the @1@ clause is undefined. The @1@ clause is ignored.

Parameter explanation

@1@ : PPADDING CHARACTER, NOMINAL KEY, ACTUAL KEY, RELATIVE KEY, SYMBOLIC KEY, FORMAT, GROUP, PADDING CHARACTER, NOMINAL KEY, ACTUAL KEY, RELATIVE KEY, SYMBOLIC KEY, FORMAT, GROUP, DESTNATION-1, DESTINATION-2, DESTINATION-3, SELECTED FUNCTION, UNIT CONTROL, MESSAGE MODE, END KEY, SESSION CONTROL, PROCESSING CONTROL, MESSAGE CLASS, PASSWORD, MESSAGE OWNER, MESSAGE CODE, PROCCESING TIME, MESSAGE SEQUENCE, DESTINATION CONTROL, FORMAT CONTROL, PROCESSING MODE, SYMBOLIC DESTINATION, FILE STATUS, APPLY REORG-CRITERIA, CONTROL AREA, TRACK-AREA, CURSOR or CRT STATUS.

@2@ : User-defined word which causes error.

Example

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

P2050.cob 8: JMN2050I-S Data-name 'WFS1' of the FILE STATUS clause is undefined. The FILE STATUS clause is ignored.

JMN2051I-S

'@2@' in the @1@ clause must be a data-name. The @1@ clause is ignored.

Parameter explanation

@1@ : PADDING CHARACTER, NOMINAL KEY, ACTUAL KEY, RELATIVE KEY, SYMBOLIC KEY, FORMAT, GROUP, PADDING CHARACTER, NOMINAL KEY, ACTUAL KEY, RELATIVE KEY, SYMBOLIC KEY, FORMAT, GROUP, DESTNATION-1, DESTINATION-2, DESTINATION-3, SELECTED FUNCTION, UNIT CONTROL, MESSAGE MODE, END KEY, SESSION CONTROL, PROCESSING CONTROL, MESSAGE CLASS, PASSWORD, MESSAGE OWNER, MESSAGE CODE, PROCCESING TIME, MESSAGE SEQUENCE, DESTINATION CONTROL, FORMAT CONTROL, PROCESSING MODE, FILE STATUS, APPLY REORG-CRITERIA, CONTROL AREA, TRACK-AREA, CURSOR or CRT STATUS.

@2@ : User-defined word which causes error.

Example

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

P2051.cob 8: JMN2051I-S 'TFS' in the FILE STATUS clause must be a data-name. The FILE STATUS clause is ignored.

JMN2065I-W

OMITTED can only be specified in the LABEL RECORD clause for a sequential file. The LABEL RECORD clause is ignored.

Example

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

P2065.cob 12: JMN2065I-W OMITTED can only be specified in the LABEL RECORD clause for a sequential file. The LABEL RECORD clause is ignored.

Explanation

The LABEL RECORDS clause is obsolete. The COBOL compiler treats the LABEL RECORDS clause as a comment.

JMN2066I-S

A LABEL RECORD clause with a data-name can only be specified for a sequential, direct organization, or relative organization file.

Example

[P2066.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2066.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT RLFILE1 ASSIGN TO SYS001
000007       ORGANIZATION   IS RELATIVE.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD RLFILE1
000011      LABEL RECORD LREC.
000012 01 RLF1REC.
000013   02           PIC X(80).
000014 01 LREC.
000015   02           PIC X(8).
000016 WORKING-STORAGE SECTION.
000017 PROCEDURE      DIVISION.
000018 END PROGRAM    P2066.

P2066.cob 11: JMN2066I-S A LABEL RECORD clause with a data-name can only be specified for a sequential, direct organization, or relative organization file.

Explanation

The LABEL RECORDS clause is obsolete. The COBOL compiler treats the LABEL RECORDS clause as a comment.

JMN2067I-S

'RECORD CONTAINS 0' can only be specified for a sequential file. The RECORD CONTAINS clause is ignored.

Example

[P2067.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2067.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT RLFILE1 ASSIGN TO SYS001
000007       ORGANIZATION   IS RELATIVE.
000008 I-O-CONTROL.
000009 DATA           DIVISION.
000010 FILE            SECTION.
000011 FD RLFILE1
000012      RECORD CONTAINS 0.
000013 01 RLF1REC.
000014   02           PIC X(80).
000015 WORKING-STORAGE SECTION.
000016 PROCEDURE      DIVISION.
000017 END PROGRAM    P2067.

P2067.cob 12: JMN2067I-S 'RECORD CONTAINS 0' can only be specified for a sequential file. The RECORD CONTAINS clause is ignored.

JMN2076I-S

The alphabet-name in the CODE-SET clause is undefined.

Example

[P2076.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2076.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001
000007       ORGANIZATION   IS SEQUENTIAL
000008       FILE STATUS    IS WFS1.
000009 I-O-CONTROL.
000010 DATA           DIVISION.
000011 FILE            SECTION.
000012 FD SQFILE1
000013      CODE-SET CD1.
000014 01 SQF1REC.
000015   02           PIC X(80).
000016 WORKING-STORAGE SECTION.
000017 01 WFS1        PIC X(2).
000018 PROCEDURE      DIVISION.
000019 END PROGRAM    P2076.

P2076.cob 13: JMN2076I-S The alphabet-name in the CODE-SET clause is undefined.

Explanation

The COBOL compiler treats the CODE-SET clause as a comment.

JMN2077I-S

The alphabet-name in the CODE-SET clause must correspond to STANDARD-1, STANDARD-2, NATIVE or function-name.

Example

[P2077.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2077.
000003 ENVIRONMENT    DIVISION.
000004 CONFIGURATION   SECTION.
000005 SPECIAL-NAMES.
000006     ALPHABET CD1 IS "a" THRU "z".
000007 INPUT-OUTPUT    SECTION.
000008 FILE-CONTROL.
000009     SELECT SQFILE1 ASSIGN TO SYS001
000010       ORGANIZATION   IS SEQUENTIAL
000011       FILE STATUS    IS WFS1.
000012 DATA           DIVISION.
000013 FILE            SECTION.
000014 FD SQFILE1
000015      CODE-SET CD1.
000016 01 SQF1REC.
000017   02           PIC X(80).
000018 WORKING-STORAGE SECTION.
000019 01 WFS1        PIC X(2).
000020 PROCEDURE      DIVISION.
000021 END PROGRAM    P2077.

P2077.cob 15: JMN2077I-S The alphabet-name in the CODE-SET clause must correspond to STANDARD-1, STANDARD-2, NATIVE or function-name.

Explanation

The COBOL compiler treats the CODE-SET clause as a comment.

JMN2079I-S

The CODE-SET clause can only be specified for a sequential file.

Example

[P2079.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2079.
000003 ENVIRONMENT    DIVISION.
000004 CONFIGURATION   SECTION.
000005 SPECIAL-NAMES.
000006     ALPHABET CD1 IS STANDARD-1.
000007 INPUT-OUTPUT    SECTION.
000008 FILE-CONTROL.
000009     SELECT IXFILE1 ASSIGN TO CR-SYS001
000010       ORGANIZATION   IS INDEXED
000011       RECORD KEY     IS RKEY.
000012 DATA           DIVISION.
000013 FILE            SECTION.
000014 FD IXFILE1
000015      CODE-SET CD1.
000016 01 IXF1REC.
000017   02 RKEY      PIC X(8).
000018   02           PIC X(80).
000019 WORKING-STORAGE SECTION.
000020 PROCEDURE      DIVISION.
000021 END PROGRAM    P2079.

P2079.cob 15: JMN2079I-S The CODE-SET clause can only be specified for a sequential file.

Explanation

The COBOL compiler treats the CODE-SET clause as a comment.

JMN2080I-S

The format of the CHARACTER TYPE clause for items subordinate to the group item must have the same format as the CHARACTER TYPE clause for the group item. The format of the CHARACTER TYPE clause specified for group item is used.

Example

[P2080.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2080.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 GRP CHARACTER TYPE MODE-1.
000007   02           PIC N(10).
000008   02   CHARACTER TYPE MODE-2.
000009     03         PIC N(10).
000010 PROCEDURE      DIVISION.
000011 END PROGRAM    P2080.

P2080.cob 8: JMN2080I-S The format of the CHARACTER TYPE clause for items subordinate to the group item must have the same format as the CHARACTER TYPE clause for the group item. The format of the CHARACTER TYPE clause specified for group item is used.

Explanation

When CHARACTER TYPE clause with MODE-1, MODE-2, MODE-3 or the mnemonic-name is specified for the group and the group's subordinate items, the specification of the CHARACTER TYPE clause must be the same for the group and all subordinate items.

The CHARACTER TYPE clause of the subordinate item is assumed to be valid, but neither the object file nor the executable file is generated.

JMN2081I-S

The mnemonic-name in the CHARACTER TYPE clause is undefined or multi-defined, or the mnemonic-name is not related to the function-name HSC, F0202, H0202, F0102, or F0201. The mnemonic-name is ignored.

Example

[P2081.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2081.
000003 ENVIRONMENT    DIVISION.
000004 CONFIGURATION   SECTION.
000005 SPECIAL-NAMES.
000006      YX-7P IS PH2.
000007 DATA           DIVISION.
000008 WORKING-STORAGE SECTION.
000009 01 GRP.
000010   02 A1        PIC X(5).
000011   02 N1        PIC N(5)
000012        CHARACTER TYPE MODE-1 BY PH1.
000013   02 A2        PIC X(5).
000014   02 A2        PIC N(5)
000015        CHARACTER TYPE MODE-1 BY PH2.
000016 PROCEDURE      DIVISION.
000017 END PROGRAM    P2081.

P2081.cob 12: JMN2081I-S The mnemonic-name in the CHARACTER TYPE clause is undefined or multi-defined, or the mnemonic-name is not related to the function-name HSC, F0202, H0202, F0102, or F0201. The mnemonic-name is ignored.

P2081.cob 15: JMN2081I-S The mnemonic-name in the CHARACTER TYPE clause is undefined or multi-defined, or the mnemonic-name is not related to the function-name HSC, F0202, H0202, F0102, or F0201. The mnemonic-name is ignored.

Explanation

The mnemonic-name of the CHARACTER TYPE clause must be associated with the function-name in the SPECIAL-NAMES paragraph of the ENVIRONMENT DIVISION. The function-name must be HSC, F0202, H0202, F0102 or F0201.

JMN2082I-S

The mnemonic-name of the CHARACTER TYPE clause with MODE-3 must be related to F0202, F0102, or F0201.

Example

[P2082.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2082.
000003 ENVIRONMENT    DIVISION.
000004 CONFIGURATION   SECTION.
000005 SPECIAL-NAMES.
000006      H0202 IS PH1
000007      F0102 IS PH2.
000008 DATA           DIVISION.
000009 WORKING-STORAGE SECTION.
000010 01 GRP.
000011   02 A1        PIC X(5).
000012   02 N1        PIC N(5)
000013        CHARACTER TYPE MODE-3 BY PH1.
000014   02 A2        PIC X(5).
000015   02 A2        PIC N(5)
000016        CHARACTER TYPE MODE-3 BY PH2.
000017 PROCEDURE      DIVISION.
000018 END PROGRAM    P2082.

P2082.cob 13: JMN2082I-S The mnemonic-name of the CHARACTER TYPE clause with MODE-3 must be related to F0202, F0102, or F0201.

Explanation

The mnemonic-name of the CHARACTER TYPE clause with MODE-3 must be the function-name F0202, F0201 or F0201. The mnemonic-name is associated with the function-name in the SPECIAL-NAMES paragraph of the ENVIRONMENT DIVISION.

JMN2083I-S

The file-name '@2@' in the @1@ clause is undefined or multi-defined.

Parameter explanation

@1@ : SAME, MULTIPLE FILE TAPE or APPLY.

@2@ : User-defined word which causes error.

Example

[P2083.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2083.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001
000007       ORGANIZATION   IS SEQUENTIAL
000008       FILE STATUS    IS WFS1.
000009 I-O-CONTROL.
000010     SAME AREA SQFILE1 SQFILE2.
000011 DATA           DIVISION.
000012 FILE            SECTION.
000013 FD SQFILE1.
000014 01 SQF1REC.
000015   02           PIC X(80).
000016 WORKING-STORAGE SECTION.
000017 01 WFS1        PIC X(2).
000018 PROCEDURE      DIVISION.
000019 END PROGRAM    P2083.

P2083.cob 10: JMN2083I-S The file-name 'SQFILE2' in the SAME clause is undefined or multi-defined.

JMN2084I-S

The name '@2@' of the @1@ clause must be the file-name. That specification is ignored.

Parameter explanation

@1@ : SAME, MULTIPLE FILE TAPE or APPLY

@2@ : User-defined word which causes error.

Example

[P2084.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2084.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001
000007       ORGANIZATION   IS SEQUENTIAL
000008       FILE STATUS    IS WFS1.
000009 I-O-CONTROL.
000010     SAME AREA SQFILE1 SQF1REC.
000011 DATA           DIVISION.
000012 FILE            SECTION.
000013 FD SQFILE1.
000014 01 SQF1REC.
000015   02           PIC X(80).
000016 WORKING-STORAGE SECTION.
000017 01 WFS1        PIC X(2).
000018 PROCEDURE      DIVISION.
000019 END PROGRAM    P2084.

P2084.cob 10: JMN2084I-S The name 'SQF1REC' of the SAME clause must be the file-name. That specification is ignored.

JMN2085I-S

File-name '@2@' must only be specified once in the @1@ clause of that format. The file-name is ignored.

Parameter explanation

@1@ : SAME, MULTIPLE FILE TAPE or APPLY.

@2@ : File name which causes error.

Example

[P2085.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2085.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001
000007       ORGANIZATION   IS SEQUENTIAL
000008       FILE STATUS    IS WFS1.
000009 I-O-CONTROL.
000010     SAME AREA SQFILE1 SQFILE1.
000011 DATA           DIVISION.
000012 FILE            SECTION.
000013 FD SQFILE1.
000014 01 SQF1REC.
000015   02           PIC X(80).
000016 WORKING-STORAGE SECTION.
000017 01 WFS1        PIC X(2).
000018 PROCEDURE      DIVISION.
000019 END PROGRAM    P2085.

P2085.cob 10: JMN2085I-S File-name 'SQFILE1' must only be specified once in the SAME clause of that format. The file-name is ignored.

JMN2097I-W

A signed numeric literal cannot be specified in the VALUE clause of a condition-name related to a conditional variable with an unsigned numeric literal. The unsigned numeric literal is assumed.

Example

[P2097.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2097.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WVAR        PIC 9(2).
000007 88 ZOK         VALUE 10.
000008 88 ZNG         VALUE -10.
000009 PROCEDURE      DIVISION.
000010 END PROGRAM    P2097.

P2097.cob 8: JMN2097I-W A signed numeric literal cannot be specified in the VALUE clause of a condition-name related to a conditional variable with an unsigned numeric literal. The unsigned numeric literal is assumed.

Explanation

If a conditional variable is an unsigned numeric item, the value specified in the VALUE clause of the condition-name data description entry (level-number 88) must be an unsigned numeric literal.

The sign becomes invalid when a signed numeric literal is specified. The unsigned numeric literal is used as the value of the conditional variable.

JMN2098I-S

The Boolean literal or figurative constant 'ZERO' must be specified in the VALUE clause of the condition-name related to the Boolean item. The figurative constant ZERO is assumed.

Example

[P2098.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2098.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WVAR        PIC 1(2).
000007 88 ZOK1        VALUE B"00".
000008 88 ZOK2        VALUE ZERO.
000009 88 ZNG         VALUE 10.
000010 PROCEDURE      DIVISION.
000011 END PROGRAM    P2098.

P2098.cob 9: JMN2098I-S The Boolean literal or figurative constant 'ZERO' must be specified in the VALUE clause of the condition-name related to the Boolean item. The figurative constant ZERO is assumed.

Explanation

If a conditional variable is a Boolean item, the value that can be specified for the VALUE clause of the condition-name data description entry (level-number 88) must be a Boolean literal or a figurative constant ZERO. Values other than these are invalid.

The figurative constant ZERO is assumed, but neither the object file nor the executable file are generated.

JMN2099I-S

In the numeric literal of the VALUE clause, the character position corresponding to the picture character 'P' of the conditional variable must be '0'. The figurative constant ZERO is assumed.

Example

[P2099.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2099.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WVAR        PIC 999PP.
000007 88 ZOK         VALUE 12300.
000008 88 ZNG         VALUE   123.
000009 PROCEDURE      DIVISION.
000010 END PROGRAM    P2099.

P2099.cob 8: JMN2099I-S In the numeric literal of the VALUE clause, the character position corresponding to the picture character 'P' of the conditional variable must be '0'. The figurative constant ZERO is assumed.

Explanation

A "P" indicates an assumed decimal scaling position. A "P" may appear in the leftmost or rightmost digit position of a PICTURE clause. If "P" is specified in the leftmost position of a PICTURE clause, the decimal point is assumed to be at the leftmost position of the PICTURE. If "P" is written at the rightmost position of a PICTURE clause, the decimal point is assumed to be at the rightmost position of the PICTURE.

When the decimal point position in the PICTURE character-string of the conditional variable is aligned with the decimal point position in the value specified for VALUE clause of the condition-name data description entry (level-number 88), the numeric character at the position of character "P" should be "0".

The value is assumed to be zero at the position of "P", but neither the object file nor the executable file are generated.

JMN2100I-W

The length of the literal in the VALUE clause for the condition-name must not exceed the item length of the condition variable. Excess characters at the right end of the specified literal are discarded.

Example

[P2100.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2100.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 D1          PIC X(2).
000007 88 CD1         VALUE "ABC".
000008 PROCEDURE      DIVISION.
000009 END PROGRAM    P2100.

P2100.cob 7: JMN2100I-W The length of the literal in the VALUE clause for the condition-name must not exceed the item length of the condition variable. Excess characters at the right end of the specified literal are discarded.

Explanation

The constant length specified by the VALUE clause of the condition-name description entry (level-number 88) is longer than the item length of the conditional variable. The constant for the length of the conditional variable is considered to be a value of the condition-name, and excess characters are discarded.

JMN2101I-S

Nonnumeric literal, figurative constant or symbolic-character must be specified in VALUE clause of condition-name for conditional variable of alphabetic, alphanumeric, alphanumeric edited, numeric edited, or group item. Figurative constant 'SPACE' assumed.

Example

[P2101.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2101.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 D1          PIC X(10).
000007 88 CD1         VALUE SC1.
000008 PROCEDURE      DIVISION.
000009 END PROGRAM    P2101.

P2101.cob 7: JMN2101I-S Nonnumeric literal, figurative constant or symbolic-character must be specified in VALUE clause of condition-name for conditional variable of alphabetic, alphanumeric, alphanumeric edited, numeric edited, or group item. Figurative constant 'SPACE' assumed.

Explanation

This diagnostic message is output when items specified for the VALUE clause are either national literal or an item name.

JMN2102I-S

The figurative constant ZERO cannot be specified in the VALUE clause of the condition-name for the conditional variable of the alphabetic item. The figurative constant SPACE is assumed.

Example

[P2102.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2102.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 D1          PIC X(10).
000007 88 CD1         VALUE ZERO.
000008 01 D2          PIC A(10).
000009 88 CD2         VALUE ZERO.
000010 PROCEDURE      DIVISION.
000011 END PROGRAM    P2102.

P2102.cob 9: JMN2102I-S The figurative constant ZERO cannot be specified in the VALUE clause of the condition-name for the conditional variable of the alphabetic item. The figurative constant SPACE is assumed.

Explanation

If the conditional variable is an alphabetic item, the figurative constant ZERO must not be specified for the VALUE clause of the condition-name description entry (level-number 88).

The figurative constant ZERO is assumed, but neither the object file nor the executable file is generated.

JMN2103I-S

The numeric literal or figurative constant ZERO must be specified in the VALUE clause of the condition-name for the conditional variable of the numeric item. The figurative constant ZERO is assumed.

Example

[P2103.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2103.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 D1          PIC 9(10).
000007 88 CD1         VALUE "A".
000008 PROCEDURE      DIVISION.
000009 END PROGRAM    P2103.

P2103.cob 7: JMN2103I-S The numeric literal or figurative constant ZERO must be specified in the VALUE clause of the condition-name for the conditional variable of the numeric item. The figurative constant ZERO is assumed.

Explanation

If the conditional variable is a numeric item, the value specified for the VALUE clause of the condition-name data description entry (level-number 88) must be a numeric literal or a figurative constant ZERO. Values other than these are invalid.

The figurative constant ZERO is assumed, but neither the object file nor the executable file are generated.

JMN2104I-W

A Boolean literal cannot be specified in the VALUE clause of the condition-name for the conditional variable of an alphabetic, alphanumeric, alphanumeric indexed, or group item. Each Boolean character is assumed to be 1 bit, and is stored left-aligned.

Example

[P2104.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2104.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 D1          PIC X(1).
000007 88 CD1         VALUE "1".
000008 88 CD2         VALUE B"10101010".
000009 PROCEDURE      DIVISION.
000010 END PROGRAM    P2104.

P2104.cob 8: JMN2104I-W A Boolean literal cannot be specified in the VALUE clause of the condition-name for the conditional variable of an alphabetic, alphanumeric, alphanumeric indexed, or group item. Each Boolean character is assumed to be 1 bit, and is stored left-aligned.

Explanation

When the conditional variable is an alphabetic, an alphanumeric, an alphanumeric edited data or a group item, if a Boolean literal is specified for the VALUE clause of the condition-name description entry (level-number 88), Boolean characters ("0" or "1") are assumed to be 1 bit. The value is stored by left justified and padded with spaces.

JMN2105I-W

The length of the Boolean literal in the VALUE clause of the condition-name must be a multiple of 8. The Boolean character '0' is added on the right of the literal until its length is a multiple of 8.

Example

[P2105.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2105.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 D1          PIC X(1).
000007 88 CD1         VALUE "1".
000008 88 CD2         VALUE B"1".
000009 PROCEDURE      DIVISION.
000010 END PROGRAM    P2105.

P2105.cob 8: JMN2105I-W The length of the Boolean literal in the VALUE clause of the condition-name must be a multiple of 8. The Boolean character '0' is added on the right of the literal until its length is a multiple of 8.

Explanation

When a Boolean literal is specified for the VALUE clause of the condition-name description entry (level-number 88) when the conditional variable is an alphabetic, an alphanumeric, an alphanumeric edited, or a group item, one Boolean character ('0' or '1') is assumed to occupy the first bit. Boolean characters must be multiples of eight.

If the number of Boolean characters is not a multiple of eight, Boolean character '0's are inserted to the right of the Boolean literal to make it a multiple of eight.

JMN2106I-S

The value of the literal following 'THROUGH' in the VALUE clause of the condition-name must be greater than the value of the literal preceding 'THROUGH'.

Example

[P2106.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2106.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 D1          PIC X.
000007 88 CD1         VALUE "A" THRU "Z".
000008 88 CD2         VALUE "z" THRU "a".
000009 PROCEDURE      DIVISION.
000010 END PROGRAM    P2106.

P2106.cob 8: JMN2106I-S The value of the literal following 'THROUGH' in the VALUE clause of the condition-name must be greater than the value of the literal preceding 'THROUGH'.

Explanation

In describing the range of the VALUE, the value listed before the THRU (or THROUGH) must be smaller than the value listed after the THRU.

JMN2107I-S

A national literal or figurative constants 'SPACE', 'HIGH-VALUE', or 'LOW-VALUE' must be specified in the VALUE clause of the condition-name for the conditional variable of the national item. The figurative constant 'SPACE' is assumed.

Example

[P2107.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2107.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 D1          PIC N(1).
000007 88 CD1         VALUE N"あ".
000008 88 CD2         VALUE "い".
000009 PROCEDURE      DIVISION.
000010 END PROGRAM    P2107.

P2107.cob 8: JMN2107I-S A national literal or figurative constants 'SPACE', 'HIGH-VALUE', or 'LOW-VALUE' must be specified in the VALUE clause of the condition-name for the conditional variable of the national item. The figurative constant 'SPACE' is assumed.

Explanation

If a conditional variable is a national item, the value in the VALUE clause of the condition-name data description entry (level-number 88) must be a national literal, a figurative constant SPACE, HIGH-VALLUE or LOW-VALUE. Values other than these are invalid.

A figurative constant SPACE is assumed, but neither the object file nor the executable file are generated.

JMN2108I-S

A Boolean literal cannot be specified in the VALUE clause of the condition-name with 'THROUGH'.

Example

[P2108.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2108.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 D1          PIC 1(4).
000007 88 CD1         VALUE B"0000".
000008 88 CD2         VALUE B"1111".
000009 88 CD3         VALUE B"0000" THRU B"1111".
000010 PROCEDURE      DIVISION.
000011 END PROGRAM    P2108.

P2108.cob 9: JMN2108I-S A Boolean literal cannot be specified in the VALUE clause of the condition-name with 'THROUGH'.

JMN2109I-S

'RECORD CONTAINS 0' cannot be specified for the file description entry of the file specified in the SAME RECORD AREA clause. The RECORD clause is ignored.

Example

[P2109.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2109.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007     SELECT SQFILE2 ASSIGN TO SYS001.
000008 I-O-CONTROL.
000009     SAME RECORD AREA SQFILE1 SQFILE2.
000010 DATA           DIVISION.
000011 FILE            SECTION.
000012 FD SQFILE1.
000013 01 SQF1REC.
000014   02           PIC X(80).
000015 FD SQFILE2 RECORD CONTAINS 0.
000016 01 SQF2REC.
000017   02           PIC X(80).
000018 WORKING-STORAGE SECTION.
000019 01 WFS1        PIC X(2).
000020 PROCEDURE      DIVISION.
000021 END PROGRAM    P2109.

P2109.cob 15: JMN2109I-S 'RECORD CONTAINS 0' cannot be specified for the file description entry of the file specified in the SAME RECORD AREA clause. The RECORD clause is ignored.

JMN2111I-W

'RECORD CONTAINS 0' cannot be specified for a print file. The RECORD clause is ignored.

Example

[P2111.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2111.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD SQFILE1
000011      RECORD CONTAINS 0.
000012 01 SQF1REC.
000013   02           PIC X(80).
000014 WORKING-STORAGE SECTION.
000015 01 WFS1        PIC X(2).
000016 PROCEDURE      DIVISION.
000017     WRITE SQF1REC AFTER ADVANCING 1.
000018 END PROGRAM    P2111.

P2111.cob 10: JMN2111I-W 'RECORD CONTAINS 0' cannot be specified for a print file. The RECORD clause is ignored.

JMN2112I-S

The integer (maximum number of character positions) in the RECORD clause must be equal to or greater than the record length. The RECORD clause is ignored.

Example

[P2112.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2112.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD SQFILE1
000011      RECORD CONTAINS 40.
000012 01 SQF1REC.
000013   02           PIC X(80).
000014 WORKING-STORAGE SECTION.
000015 01 WFS1        PIC X(2).
000016 PROCEDURE      DIVISION.
000017 END PROGRAM    P2112.

P2112.cob 10: JMN2112I-S The integer (maximum number of character positions) in the RECORD clause must be equal to or greater than the record length. The RECORD clause is ignored.

Explanation

The RECORD clause specifies the size of records in a file. The size of the record description entry of the file associated with the RECORD clause must not exceed the maximum record size specified by the RECORD clause.

JMN2113I-S

The integer (minimum number of character positions) in the RECORD clause must be equal to or less than the record length. The RECORD clause is ignored.

Example

[P2113.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2113.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD SQFILE1
000011      RECORD VARYING FROM 81 TO 160.
000012 01 SQF1REC.
000013   02           PIC X(80).
000014 WORKING-STORAGE SECTION.
000015 01 WFS1        PIC X(2).
000016 PROCEDURE      DIVISION.
000017 END PROGRAM    P2113.

P2113.cob 10: JMN2113I-S The integer (minimum number of character positions) in the RECORD clause must be equal to or less than the record length. The RECORD clause is ignored.

Explanation

The RECORD clause specifies the size of records in a file. The size of the record description entry of the file associated with the RECORD clause must not be less than the minimum record size specified by the RECORD clause.

JMN2116I-S

A level 01, 77, 88, or 66 item cannot be specified in the RENAMES clause.

Example

[P2116.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2116.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 D1          PIC X(20).
000007 66 R1 RENAMES  D1.
000008 PROCEDURE      DIVISION.
000009 END PROGRAM    P2116.

P2116.cob 7: JMN2116I-S A level 01, 77, 88, or 66 item cannot be specified in the RENAMES clause.

Explanation

The RENAMES clause permits alternative, possibly overlapping groupings of elementary items. The elementary items being renamed cannot have the same name, and their level-numbers cannot be 01, 77, 88, or 66.

JMN2117I-S

The data-names in the RENAMES clause must be different from each other.

Example

[P2117.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2117.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 GR1.
000007   02 GR2.
000008     03 E1     PIC X(5).
000009 66 R1 RENAMES E1 THRU E1 OF GR2.
000010 PROCEDURE      DIVISION.
000011 END PROGRAM    P2117.

P2117.cob 9: JMN2117I-S The data-names in the RENAMES clause must be different from each other.

Explanation

The RENAMES clause permits alternative, possibly overlapping groupings of elementary items. The elementary items being renamed cannot have the same name.

JMN2118I-S

The data-name in the RENAMES clause or THROUGH phrase must be defined in the record description entry immediately before that clause.

Example

[P2118.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2118.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 GR1.
000007    02 E1       PIC X(5).
000008 01 GR2.
000009    02 E1       PIC X(5).
000010 66 R1 RENAMES E1 OF GR1.
000011 PROCEDURE      DIVISION.
000012 END PROGRAM    P2118.

P2118.cob 10: JMN2118I-S The data-name in the RENAMES clause or THROUGH phrase must be defined in the record description entry immediately before that clause.

Explanation

RENAMES entries must follow the last data description entry of a record description entry.

JMN2119I-S

The data-name in the RENAMES clause or THROUGH phrase cannot have an OCCURS clause, and cannot be subordinate to a data item with an OCCURS clause.

Example

[P2119.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2119.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 GR1.
000007   02 OCC1      OCCURS 10.
000008     03 E1      PIC X(2).
000009 66 R1 RENAMES OCC1.
000010 PROCEDURE      DIVISION.
000011 END PROGRAM    P2119.

P2119.cob 9: JMN2119I-S The data-name in the RENAMES clause or THROUGH phrase cannot have an OCCURS clause, and cannot be subordinate to a data item with an OCCURS clause.

JMN2120I-S

The beginning of the THROUGH phrase data-name area must not be to the left of the beginning of the RENAMES clause data-name area.

Example

[P2120.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2120.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 GRP.
000007   02 E1        PIC X(5).
000008   02 E2        PIC X(5).
000009 66 R1 RENAMES E2 THRU E1.
000010 PROCEDURE      DIVISION.
000011 END PROGRAM    P2120.

P2120.cob 9: JMN2120I-S The beginning of the THROUGH phrase data-name area must not be to the left of the beginning of the RENAMES clause data-name area.

Explanation

When THROUGH(THRU) phrase is specified, the RENAMES entry is assumed to be a group item. The beginning of the THRU phrase data-name area must not be to the left of the beginning of the RENAMES data-name area.

JMN2121I-S

A variable occurrence data item must not appear between the data-name in the RENAMES clause and the data-name in the THROUGH phrase.

Example

[P2121.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2121.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 GR1.
000007   02 E1        PIC S9(4) BINARY.
000008   02 E2        OCCURS 10 DEPENDING ON E1.
000009     03         PIC X(2).
000010   02 E3        PIC X(2).
000011 66 R1 RENAMES E1 THRU E3.
000012 PROCEDURE      DIVISION.
000013 END PROGRAM    P2121.

P2121.cob 11: JMN2121I-S A variable occurrence data item must not appear between the data-name in the RENAMES clause and the data-name in the THROUGH phrase.

JMN2122I-S

The data-name in the RENAMES clause with a THROUGH phrase must not be an internal Boolean item.

Example

[P2122.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2122.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 GR1.
000007   02 E1        PIC 1(3) BIT.
000008   02 E2        PIC 1(3) BIT.
000009 66 R1 RENAMES E1 THRU E2.
000010 PROCEDURE      DIVISION.
000011 END PROGRAM    P2122.

P2122.cob 9: JMN2122I-S The data-name in the RENAMES clause with a THROUGH phrase must not be an internal Boolean item.

JMN2123I-S

The character-string in the PICTURE clause conflicts with the USAGE clause of its group item. The character-string in the PICTURE clause is assumed to be valid.

Example

[P2123.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2123.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 GR1 USAGE BINARY.
000007   02 E1        PIC X(4).
000008 PROCEDURE      DIVISION.
000009 END PROGRAM    P2123.

P2123.cob 7: JMN2123I-S The character-string in the PICTURE clause conflicts with the USAGE clause of its group item. The character-string in the PICTURE clause is assumed to be valid.

Explanation

The PICTURE clause specifies the category of an elementary item, and the USAGE clause specifies the usage of a data item. When the USAGE clause is specified for a group item, the specification is applied to each subordinate item, even though the USAGE clause is not specified explicitly for each item.

JMN2124I-S

The PICTURE clause cannot be specified for a group item.

Example

[P2124.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2124.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 GR1         PIC X(20).
000007   02 E1        PIC X(10).
000008   02 E2        PIC X(10).
000009 PROCEDURE      DIVISION.
000010 END PROGRAM    P2124.

P2124.cob 6: JMN2124I-S The PICTURE clause cannot be specified for a group item.

Explanation

The PICTURE clause specifies the category of the elementary item. The PICTURE clause cannot be specified for a group item.

JMN2126I-W

The CHARACTER TYPE clause is invalid for group items that do not contain a national item.

Example

[P2126.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2126.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 GR1  CHARACTER TYPE MODE-1.
000007   02 E1        PIC X(20).
000008 PROCEDURE      DIVISION.
000009 END PROGRAM    P2126.

P2126.cob 6: JMN2126I-W The CHARACTER TYPE clause is invalid for group items that do not contain a national item.

Explanation

A CHARACTER TYPE clause with MODE-1, MODE-2, MODE-3 or a mnemonic-name specifies the format of characters when printing a national item or a national edited item. The CHARACTER TYPE clause is invalid for group items that do no contain national or national edited items.

JMN2127I-S

The record description entry containing an item with a character type cannot have an item with the OCCURS DEPENDING ON phrase.

Example

[P2127.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2127.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 GR1 CHARACTER TYPE MODE-1.
000007   02 E1        PIC 9(4).
000008   02 E2        PIC N(10).
000009   02 E3        PIC X(1) OCCURS 10 DEPENDING ON E1.
000010 PROCEDURE      DIVISION.
000011 END PROGRAM    P2127.

P2127.cob 6: JMN2127I-S The record description entry containing an item with a character type cannot have an item with the OCCURS DEPENDING ON phrase.

JMN2128I-S

The level 01 item must not exceed @1@ bytes in length.

Parameter explanation

@1@ : 2147483647.

Example

[P2128.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2128.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WVDA.
000007   02 WLENG     PIC S9(9) BINARY.
000008   02 WBUF      PIC X(2147483646).
000009 PROCEDURE      DIVISION.
000010 END PROGRAM    P2128.

P2128.cob 6: JMN2128I-S The level 01 item must not exceed 2147483647 bytes in length.

Explanation

The length of the level 01 item is restricted by the COBOL processing system.

JMN2131I-S

File-name '@1@' in the MULTIPLE FILE TAPE clause must be a sequential file.

Parameter explanation

@1@ : The file name that causes the error.

Example

[P2131.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2131.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT RLFILE1 ASSIGN TO SYS001
000007       ORGANIZATION   IS RELATIVE.
000008 I-O-CONTROL.
000009     MULTIPLE FILE TAPE CONTAINS RLFILE1.
000010 DATA           DIVISION.
000011 FILE            SECTION.
000012 FD RLFILE1.
000013 01 RLF1REC.
000014   02           PIC X(80).
000015 WORKING-STORAGE SECTION.
000016 PROCEDURE      DIVISION.
000017 END PROGRAM    P2131.

P2131.cob 9: JMN2131I-S File-name 'RLFILE1' in the MULTIPLE FILE TAPE clause must be a sequential file.

Explanation

The MULTIPLE FILE TAPE clause is obsolete. The COBOL compiler treats the MULTIPLE FILE TAPE clause as a comment.

JMN2132I-S

If a file in the SAME AREA clause is specified in the SAME RECORD AREA clause, all other file-names in that SAME AREA clause must be specified in that SAME RECORD AREA clause.

Example

[P2132.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2132.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007     SELECT SQFILE2 ASSIGN TO SYS002.
000008     SELECT SQFILE3 ASSIGN TO SYS003.
000009 I-O-CONTROL.
000010     SAME AREA SQFILE1 SQFILE2
000011     SAME RECORD AREA SQFILE1 SQFILE3.
000012 DATA           DIVISION.
000013 FILE            SECTION.
000014 FD SQFILE1.
000015 01 SQF1REC.
000016   02           PIC X(80).
000017 FD SQFILE2.
000018 01 SQF2REC.
000019   02           PIC X(80).
000020 FD SQFILE3.
000021 01 SQF3REC.
000022   02           PIC X(80).
000023 WORKING-STORAGE SECTION.
000024 01 WFS1        PIC X(2).
000025 PROCEDURE      DIVISION.
000026 END PROGRAM    P2132.

P2132.cob 10: JMN2132I-S If a file in the SAME AREA clause is specified in the SAME RECORD AREA clause, all other file-names in that SAME AREA clause must be specified in that SAME RECORD AREA clause.

JMN2134I-S

The BLANK WHEN ZERO clause cannot be specified for a numeric edited item with an asterisk. The BLANK WHEN ZERO clause is ignored.

Example

[P2134.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2134.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WNE1        PIC ZZ99 BLANK WHEN ZERO. *> OK
000007 01 WNE2        PIC **99 BLANK WHEN ZERO. *> ERROR
000008 PROCEDURE      DIVISION.
000009 END PROGRAM    P2134.

P2134.cob 7: JMN2134I-S The BLANK WHEN ZERO clause cannot be specified for a numeric edited item with an asterisk. The BLANK WHEN ZERO clause is ignored.

Explanation

The BLANK WHEN ZERO clause replaces zeros in a data item with spaces when the data item contains all zeros. An "*"(asterisk) of the PICTURE character-string indicates that a leading zero string (the upper digits of effective numeric characters) is to be replaced with "*". It is not valid to specify these at the same time.

When both are specified, an asterisk(*), the zero suppression symbol, is considered to be effective. Neither the object file nor the executable file is generated.

JMN2135I-S

The BLANK WHEN ZERO clause can only be specified for an external decimal item or a numeric edited item.

Example

[P2135.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2135.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WNE1        PIC  9(9) DISPLAY
000007                BLANK WHEN ZERO. *> OK
000008 01 WNE2        PIC  9(9) BINARY
000009                BLANK WHEN ZERO. *> ERROR
000010 PROCEDURE      DIVISION.
000011 END PROGRAM    P2135.

P2135.cob 9: JMN2135I-S The BLANK WHEN ZERO clause can only be specified for an external decimal item or a numeric edited item.

Explanation

The BLANK WHEN ZERO clause replaces zeros in a data item with spaces when the data item contains all zeros. The BLANK WHEN ZERO clause cannot be specified for the data item when the usage is not display.

If the BLANK WHEN ZERO clause is specified in a numeric data item, the numeric data item is assumed to be numeric edited.

JMN2136I-W

The integer in the RESERVE clause must be specified for a sequential (organization VS or AS), relative, or indexed file. The RESERVE clause is ignored.

Example

[P2136.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2136.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO VS-SYS001
000007       RESERVE NO AREA.
000008 I-O-CONTROL.
000009 DATA           DIVISION.
000010 FILE            SECTION.
000011 FD SQFILE1.
000012 01 SQF1REC.
000013   02           PIC X(80).
000014 WORKING-STORAGE SECTION.
000015 PROCEDURE      DIVISION.
000016 END PROGRAM    P2136.

P2136.cob 7: JMN2136I-W The integer in the RESERVE clause must be specified for a sequential (organization VS or AS), relative, or indexed file. The RESERVE clause is ignored.

Explanation

The RESERVE AREA clause is specific to the OSIV-series.

JMN2138I-W

The integer in the RESERVE clause must not equal 0 or exceed 255. The RESERVE clause is ignored.

Example

[P2138.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2138.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001
000007       RESERVE 256 AREA.
000008 I-O-CONTROL.
000009 DATA           DIVISION.
000010 FILE            SECTION.
000011 FD SQFILE1.
000012 01 SQF1REC.
000013   02           PIC X(80).
000014 WORKING-STORAGE SECTION.
000015 PROCEDURE      DIVISION.
000016 END PROGRAM    P2138.

P2138.cob 7: JMN2138I-W The integer in the RESERVE clause must not equal 0 or exceed 255. The RESERVE clause is ignored.

Explanation

The RESERVE AREA clause is specific to the OSIV-series.

JMN2143I-S

Data-name in PADDING CHARACTER clause must not be defined in FILE SECTION and REPORT SECTION.

Example

[P2143.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2143.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007     SELECT SQFILE2 ASSIGN TO SYS001
000008       PADDING CHARACTER IS WPD.
000009 I-O-CONTROL.
000010 DATA           DIVISION.
000011 FILE            SECTION.
000012 FD SQFILE1.
000013 01 SQF1REC.
000014   02 WPD       PIC X(1).
000015   02           PIC X(80).
000016 FD SQFILE2.
000017 01 SQF2REC.
000018   02           PIC X(80).
000019 WORKING-STORAGE SECTION.
000020 PROCEDURE      DIVISION.
000021 END PROGRAM    P2143.

P2143.cob 8: JMN2143I-S Data-name in PADDING CHARACTER clause must not be defined in FILE SECTION and REPORT SECTION.

Explanation

This compiler treats the PADDING CHARACTER clause as a comment.

JMN2144I-S

The data-name in the PADDING CHARACTER clause must be an alphanumeric or group item.

Example

[P2144.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2144.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001
000007       PADDING CHARACTER IS WPD.
000008 I-O-CONTROL.
000009 DATA           DIVISION.
000010 FILE            SECTION.
000011 FD SQFILE1.
000012 01 SQF1REC.
000013   02           PIC X(80).
000014 WORKING-STORAGE SECTION.
000015 01 WPD         PIC 9(1).
000016 PROCEDURE      DIVISION.
000017 END PROGRAM    P2144.

P2144.cob 7: JMN2144I-S The data-name in the PADDING CHARACTER clause must be an alphanumeric or group item.

Explanation

This compiler treats the PADDING CHARACTER clause as a comment.

JMN2145I-S

The data-name in the PADDING CHARACTER clause must be 1 byte in length.

Example

[P2145.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2145.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001
000007       PADDING CHARACTER IS WPD.
000008 I-O-CONTROL.
000009 DATA           DIVISION.
000010 FILE            SECTION.
000011 FD SQFILE1.
000012 01 SQF1REC.
000013   02           PIC X(80).
000014 WORKING-STORAGE SECTION.
000015 01 WPD         PIC X(2).
000016 PROCEDURE      DIVISION.
000017 END PROGRAM    P2145.

P2145.cob 7: JMN2145I-S The data-name in the PADDING CHARACTER clause must be 1 byte in length.

Explanation

This compiler treats the PADDING CHARACTER clause as a comment.

JMN2149I-S

The data-name in the @1@ clause must be a fixed-length item.

Parameter explanation

@1@ : TRACK-AREA, CONTROL AREA, ALTERNATE RECORD KEY, RECORD KEY, NOMINAL KEY or APPLY REOROG CRITEREA.

Example

[P2149.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2149.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT IXFILE1 ASSIGN TO SYS001
000007       ORGANIZATION   IS INDEXED
000008       RECORD KEY     IS WRKY1.
000009 I-O-CONTROL.
000010 DATA           DIVISION.
000011 FILE            SECTION.
000012 FD IXFILE1.
000013 01 IXF1REC.
000014   02 WDPND     PIC S9(4).
000015   02 WRKY1.
000016     03         PIC X(1)
000017                OCCURS 10 DEPENDING ON WDPND.
000018   02           PIC X(80).
000019 WORKING-STORAGE SECTION.
000020 PROCEDURE      DIVISION.
000021 END PROGRAM    P2149.

P2149.cob 8: JMN2149I-S The data-name in the RECORD KEY clause must be a fixed-length item.

Explanation

The data item that is specified for a RECORD KEY clause cannot be a variable-length item. See the data description entry that contains the OCCURS clause with DEPENDING phrase in the example above.

JMN2158I-S

The data-name in the @1@ clause must be defined in a record of the file.

Parameter explanation

@1@ : RECORD KEY or ALTERNATE RECORD KEY.

Example

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

P2158.cob 8: JMN2158I-S The data-name in the RECORD KEY clause must be defined in a record of the file.

Explanation

The data-name in the RECORD KEY or ALTERNATE RECORD KEY clause must be defined in a record of the file.

JMN2159I-S

The data-name in the @1@ clause must not exceed @2@ bytes in length.

Parameter explanation

@1@ : RECORD KEY, ALTERNATE RECORD KEY, NOMINAL KEY, PROCESSING CONTROL or MESSAGE CODE.

@2@ : Maximum length of the specifiable data item in this clause.

Example

[P2159.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2159.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT PRFILE1 ASSIGN TO GS-SYS001
000007       SYMBOLIC DESTINATION IS "DSP"
000008       PROCESSING CONTROL WPCT.
000009 I-O-CONTROL.
000010 DATA           DIVISION.
000011 FILE            SECTION.
000012 FD PRFILE1.
000013 01 PRF1REC.
000014   02           PIC X(80).
000015 WORKING-STORAGE SECTION.
000016 01 WPCT        PIC X(129).
000017 PROCEDURE      DIVISION.
000018 END PROGRAM    P2159.

P2159.cob 8: JMN2159I-S The data-name in the PROCESSING CONTROL clause must not exceed 128 bytes in length.

JMN2163I-W

The data-name of the @1@ clause must be an 8-digit binary item.

Parameter explanation

@1@ : RELATIVE KEY.

Example

[P2163.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2163.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT RLFILE1 ASSIGN TO R-SYS001
000007       RELATIVE KEY   IS RKEY.
000008 I-O-CONTROL.
000009 DATA           DIVISION.
000010 FILE            SECTION.
000011 FD RLFILE1.
000012 01 RLF1REC.
000013   02           PIC X(80).
000014 WORKING-STORAGE SECTION.
000015 01 RKEY        PIC X(8).
000016 PROCEDURE      DIVISION.
000017 END PROGRAM    P2163.

P2163.cob 7: JMN2163I-W The data-name of the RELATIVE KEY clause must be an 8-digit binary item.

Explanation

Since the data item specified with RELATIVE KEY of the ACCESS MODE clause is used to report the relative record number between the program and the I/O management system, it must be an 8-digit binary-item.

JMN2164I-S

The figurative constant ZERO cannot be specified in the VALUE clause of an alphabetic item. The figurative constant SPACE is assumed.

Example

[P2164.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2164.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WAX         PIC A(8) VALUE ZERO.
000007 PROCEDURE      DIVISION.
000008 END PROGRAM    P2164.

P2164.cob 6: JMN2164I-S The figurative constant ZERO cannot be specified in the VALUE clause of an alphabetic item. The figurative constant SPACE is assumed.

Explanation

The figurative constant ZERO cannot be specified for the VALUE clause of the alphabetic item.

The figurative constant SPACE is assumed to be specified, but neither the object file nor the executable file is generated.

JMN2165I-S

[Solaris][Linux]
The data-name in the RELATIVE KEY clause must be defined in the WORKING-STORAGE, LINKAGE, or FILE SECTION.

[Linux64]
The data-name in the RELATIVE KEY clause must be defined in the WORKING-STORAGE, LOCAL-STORAGE, LINKAGE, or FILE SECTION.

Example

[P2165.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2165.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT RLFILE1 ASSIGN TO SYS001
000007       ORGANIZATION   IS RELATIVE
000008       RELATIVE KEY   IS RKEY.
000009 I-O-CONTROL.
000010 DATA           DIVISION.
000011 BASED-STORAGE SECTION.
000012 01 RKEY        PIC 9(2).
000013 FILE            SECTION.
000014 FD RLFILE1.
000015 01 RLF1REC.
000016   02           PIC X(80).
000017 PROCEDURE      DIVISION.
000018 END PROGRAM    P2165.
  • [Solaris][Linux]

    P2165.cob 8: JMN2165I-S The data-name in the RELATIVE KEY clause must be defined in the WORKING-STORAGE, LINKAGE, or FILE SECTION.

  • [Linux64]

    P2165.cob 8: JMN2165I-S The data-name in the RELATIVE KEY clause must be defined in the WORKING-STORAGE, LOCAL-STORAGE, LINKAGE, or FILE SECTION.

JMN2166I-S

The data-name in the RELATIVE KEY clause must not be defined in a record of that file.

Example

[P2166.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2166.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT RLFILE1 ASSIGN TO SYS001
000007       ORGANIZATION   IS RELATIVE
000008       RELATIVE KEY   IS RKEY.
000009 I-O-CONTROL.
000010 DATA           DIVISION.
000011 FILE            SECTION.
000012 FD RLFILE1.
000013 01 RLF1REC.
000014   02 RKEY      PIC 9(2).
000015   02           PIC X(80).
000016 PROCEDURE      DIVISION.
000017 END PROGRAM    P2166.

P2166.cob 8: JMN2166I-S The data-name in the RELATIVE KEY clause must not be defined in a record of that file.

Explanation

The data item specified by RELATIVE KEY of the ACCESS MODE clause should not exist in the record description entry of the file related to the specification of the RELATIVE KEY. A data item in the record description entry of another file can be specified for the RELATIVE KEY.

JMN2167I-S

The data-name in the RELATIVE KEY clause must be an unsigned integer item without the symbol 'P'.

Example

[P2167.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2167.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT RLFILE1 ASSIGN TO SYS001
000007       ORGANIZATION   IS RELATIVE
000008       RELATIVE KEY   IS RKEY.
000009 I-O-CONTROL.
000010 DATA           DIVISION.
000011 FILE            SECTION.
000012 FD RLFILE1.
000013 01 RLF1REC.
000014   02           PIC X(80).
000015 WORKING-STORAGE SECTION.
000016 01 RKEY        PIC P9(2).
000017 PROCEDURE      DIVISION.
000018 END PROGRAM    P2167.

P2167.cob 8: JMN2167I-S The data-name in the RELATIVE KEY clause must be an unsigned integer item without the symbol 'P'.

Explanation

Since the data item specified with RELATIVE KEY of the ACCESS MODE clause is used to report the relative record number between the program and the I/O management system, it must be an unsigned integer item that does not contain the symbol 'P'.

JMN2173I-S

Data-name '@1@' in the APPLY SAVED-AREA clause must be defined in the WORKING-STORAGE SECTION. The data-name is ignored.

Parameter explanation

@1@ : Data name which causes the error.

Example

[P2173.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2173.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001
000007       ORGANIZATION   IS SEQUENTIAL.
000008 I-O-CONTROL.
000009     APPLY SAVED-AREA TO WSVAR ON SQFILE1.
000010 DATA           DIVISION.
000011 FILE            SECTION.
000012 FD SQFILE1.
000013 01 SQF1REC.
000014   02           PIC X(80).
000015 LINKAGE         SECTION.
000016 01 WSVAR       PIC X(80).
000017 PROCEDURE      DIVISION.
000018 END PROGRAM    P2173.

P2173.cob 9: JMN2173I-S Data-name 'WSVAR' in the APPLY SAVED-AREA clause must be defined in the WORKING-STORAGE SECTION. The data-name is ignored.

JMN2174I-S

Data-name '@1@' in the APPLY SAVED-AREA clause must be a level-number 01 or 77 item. The data-name is ignored.

Parameter explanation

@1@ : Data name which causes the error.

Example

[P2174.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2174.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001
000007       ORGANIZATION   IS SEQUENTIAL.
000008 I-O-CONTROL.
000009     APPLY SAVED-AREA TO WSVAR ON SQFILE1.
000010 DATA           DIVISION.
000011 FILE            SECTION.
000012 FD SQFILE1.
000013 01 SQF1REC.
000014   02           PIC X(80).
000015 WORKING-STORAGE SECTION.
000016 01.
000017   02 WSVAR     PIC X(80).
000018 PROCEDURE      DIVISION.
000019 END PROGRAM    P2174.

P2174.cob 9: JMN2174I-S Data-name 'WSVAR' in the APPLY SAVED-AREA clause must be a level-number 01 or 77 item. The data-name is ignored.

JMN2175I-S

Data-name '@1@' in the APPLY SAVED-AREA clause must be a fixed length item. The data-name is ignored.

Parameter explanation

@1@ : Data name which causes the error.

Example

[P2175.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2175.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001
000007       ORGANIZATION   IS SEQUENTIAL.
000008 I-O-CONTROL.
000009     APPLY SAVED-AREA TO WSVAR ON SQFILE1.
000010 DATA           DIVISION.
000011 FILE            SECTION.
000012 FD SQFILE1.
000013 01 SQF1REC.
000014   02           PIC X(80).
000015 LINKAGE         SECTION.
000016 01 WSVAR.
000017   02 WSIZE     PIC S9(4) BINARY.
000018   02           OCCURS 80 DEPENDING ON WSIZE.
000019     03         PIC X.
000020 PROCEDURE      DIVISION.
000021 END PROGRAM    P2175.

P2175.cob 9: JMN2175I-S Data-name 'WSVAR' in the APPLY SAVED-AREA clause must be a fixed length item. The data-name is ignored.

JMN2176I-S

Data-name '@1@' in the APPLY SAVED-AREA clause must not exceed 32763 bytes in length. The data-name is ignored.

Parameter explanation

@1@ : Data name which causes the error.

Example

[P2176.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2176.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001
000007       ORGANIZATION   IS SEQUENTIAL.
000008 I-O-CONTROL.
000009     APPLY SAVED-AREA TO WSVAR ON SQFILE1.
000010 DATA           DIVISION.
000011 FILE            SECTION.
000012 FD SQFILE1.
000013 01 SQF1REC.
000014   02           PIC X(80).
000015 WORKING-STORAGE SECTION.
000016 01 WSVAR       PIC X(32764).
000017 PROCEDURE      DIVISION.
000018 END PROGRAM    P2176.

P2176.cob 9: JMN2176I-S Data-name 'WSVAR' in the APPLY SAVED-AREA clause must not exceed 32763 bytes in length. The data-name is ignored.

JMN2177I-S

[Solaris][Linux]
The data-name in the RECORD clause must be defined in the WORKING-STORAGE or LINKAGE SECTION. The data-name is ignored.

[Linux64]
The data-name in the RECORD clause must be defined in the WORKING-STORAGE, LOCAL-STORAGE or LINKAGE SECTION. The data-name is ignored.

Example

[P2177.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2177.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001
000007       ORGANIZATION   IS SEQUENTIAL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD SQFILE1
000011       RECORD VARYING IN SIZE
000012          DEPENDING ON WRECL.
000013 01 SQF1REC.
000014   02           PIC X(80).
000015   02 WRECL     PIC 9(4).
000016 PROCEDURE      DIVISION.
000017 END PROGRAM    P2177.
  • [Solaris][Linux]

    P2177.cob 12: JMN2177I-S The data-name in the RECORD clause must be defined in the WORKING-STORAGE or LINKAGE SECTION. The data-name is ignored.

  • [Linux64]

    P2177.cob 12: JMN2177I-S The data-name in the RECORD clause must be defined in the WORKING-STORAGE, LOCAL-STORAGE or LINKAGE SECTION. The data-name is ignored.

Explanation

[Solaris][Linux]

In the example above, the program and the COBOL processing system sets the number of character positions of the record to the data item specified by DEPENDING ON of the RECORD clause. WRECL is defined in a record in the FILE SECTION, but the system allows it to be defined only in the WORKING-STORAGE or LINKAGE sections.

[Linux64]

In the example above, the program and the COBOL processing system sets the number of character positions of the record to the data item specified by DEPENDING ON of the RECORD clause. WRECL is defined in a record in the FILE SECTION, but the system allows it to be defined only in the WORKING-STORAGE,LINKAGE or LOCAL-STORAGE sections.

JMN2178I-S

The data-name in the RECORD clause must be an unsigned integer item. The data-name is ignored.

Example

[P2178.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2178.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001
000007       ORGANIZATION   IS SEQUENTIAL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD SQFILE1
000011       RECORD VARYING IN SIZE
000012          DEPENDING ON WRECL.
000013 01 SQF1REC.
000014   02           PIC X(80).
000015 WORKING-STORAGE SECTION.
000016 01 WRECL       PIC X(2).
000017 PROCEDURE      DIVISION.
000018 END PROGRAM    P2178.

P2178.cob 12: JMN2178I-S The data-name in the RECORD clause must be an unsigned integer item. The data-name is ignored.

Explanation

Not only the program but also COBOL processing system sets the number of character positions of the record to the data item specified by DEPENDING ON of the RECORD clause. The value must be defined using the prescribed data description so that the system treats the quantity correctly.

JMN2181I-S

Data-name '@2@' in the @1@ clause must be unique. The data-name is ignored.

Parameter explanation

@1@ : APPLY, LABEL RECORD, RECORD KEY, ALTERNATE RECORD KEY, FORMATTED RECORD or CONTROL RECORD.

@2@ : Data name which causes error.

Example

[P2181.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2181.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD SQFILE1
000011     LABEL RECORD RECLB.
000012 01 SQF1REC.
000013   02           PIC X(80).
000014 01 RECLB       PIC X(80).
000015 01 RECLB       PIC X(80).
000016 WORKING-STORAGE SECTION.
000017 PROCEDURE      DIVISION.
000018 END PROGRAM    P2181.

P2181.cob 11: JMN2181I-S Data-name 'RECLB' in the LABEL RECORD clause must be unique. The data-name is ignored.

JMN2182I-S

Data-name '@2@' in the @1@ clause is undefined. The data-name is ignored.

Parameter explanation

@1@ : APPLY, LABEL RECORD, RECORD KEY, ALTERNATE RECORD KEY, FORMATTED RECORD or CONTROL RECORD.

@2@ : Data name which causes the error.

Example

[P2182.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2182.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD SQFILE1
000011     LABEL RECORD RECLB.
000012 01 SQF1REC.
000013   02           PIC X(80).
000014 WORKING-STORAGE SECTION.
000015 PROCEDURE      DIVISION.
000016 END PROGRAM    P2182.

P2182.cob 11: JMN2182I-S Data-name 'RECLB' in the LABEL RECORD clause is undefined. The data-name is ignored.

JMN2183I-S

'@2@' in the @1@ clause is not defined as a data-name. The data-name is ignored.

Parameter explanation

@1@ : APPLY, LABEL RECORD, RECORD KEY, ALTERNATE RECORD KEY, FORMATTED RECORD or CONTROL RECORD.

@2@ : User-defined word which causes the error.

Example

[P2183.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2183.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD SQFILE1
000011     LABEL RECORD SQFILE1.
000012 01 SQF1REC.
000013   02           PIC X(80).
000014 01 RECLB       PIC X(80).
000015 WORKING-STORAGE SECTION.
000016 PROCEDURE      DIVISION.
000017 END PROGRAM    P2183.

P2183.cob 11: JMN2183I-S 'SQFILE1' in the LABEL RECORD clause is not defined as a data-name. The data-name is ignored.

JMN2188I-S

Data-name '@1@' in the LINAGE clause must be defined in a section other than the REPORT SECTION. The data-name is ignored.

Parameter explanation

@1@ : Data name which causes the error.

Example

[P2188.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2188.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE  ASSIGN TO SYS001.
000007     SELECT REPFILE ASSIGN TO SYS002.
000008 I-O-CONTROL.
000009 DATA           DIVISION.
000010 FILE            SECTION.
000011 FD SQFILE
000012      LINAGE WPAGE.
000013 01 SQF1REC.
000014   02           PIC X(80).
000015 FD REPFILE
000016      REPORT IS REP1.
000017 WORKING-STORAGE SECTION.
000018 REPORT          SECTION.
000019 RD REP1 PAGE 66
000020         FIRST DETAIL 10.
000021 01      TYPE PH.
000022   02    LINE 7.
000023     03 WPAGE         COLUMN  60 PIC 9(4) VALUE 12.
000024 PROCEDURE      DIVISION.
000025 END PROGRAM    P2188.

P2188.cob 12: JMN2188I-S Data-name 'WPAGE' in the LINAGE clause must be defined in a section other than the REPORT SECTION. The data-name is ignored.

JMN2189I-S

Data-name '@1@' in the LINAGE clause must be an unsigned integer item. The data-name is ignored.

Parameter explanation

@1@ : Data name that causes the error.

Example

[P2189.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2189.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE  ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD SQFILE
000011      LINAGE WPAGE.
000012 01 SQF1REC.
000013   02           PIC X(80).
000014 WORKING-STORAGE SECTION.
000015 01 WPAGE       PIC X.
000016 PROCEDURE      DIVISION.
000017 END PROGRAM    P2189.

P2189.cob 11: JMN2189I-S Data-name 'WPAGE' in the LINAGE clause must be an unsigned integer item. The data-name is ignored.

Explanation

The LINAGE clause defines the number of lines that compose the parts on logical pages. The data item must be defined using the prescribed data definition so that the COBOL runtime system can interpret its value correctly.

JMN2190I-S

[Solaris][Linux]
A named-constant can only be referenced in a FILE SECTION, WORKING-STORAGE SECTION, LINKAGE SECTION, CONSTANT SECTION, BASED-STORAGE SECTION, SCREEN SECTION of DATA DIVISION and PROCEDURE DIVISION.

[Linux64]
A named-constant can only be referenced in a FILE SECTION, WORKING-STORAGE SECTION, LOCAL-STORAGE SECTION, LINKAGE SECTION, CONSTANT SECTION, BASED-STORAGE SECTION, SCREEN SECTION of DATA DIVISION and PROCEDURE DIVISION.

Example

[P2190.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2190.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT FILE1 ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD  FILE1
000010      REPORT R1.
000011 WORKING-STORAGE SECTION.
000012 01  DATAN   PIC X(80).
000013 78  PIC1    VALUE 80.
000014 REPORT          SECTION.
000015 RD  R1 CONTROL FINAL
000016         PAGE LIMITS ARE 66 LINES.
000017 01  DE1 TYPE IS DETAIL.
000018   02     LINE NUMBER PLUS 3.
000019     03 DATA1   COLUMN 10 PIC X(PIC1)
000020                VALUE "DETAIL REPORT GROUP-1".
000021 PROCEDURE      DIVISION.
000022 END PROGRAM    P2190.
  • [Solaris][Linux]

    P2190.cob 19: JMN2190I-S A named-constant can only be referenced in a FILE SECTION, WORKING-STORAGE SECTION, LINKAGE SECTION, CONSTANT SECTION, BASED-STORAGE SECTION, SCREEN SECTION of DATA DIVISION and PROCEDURE DIVISION.

  • [Linux64]

    P2190.cob 19: JMN2190I-S A named-constant can only be referenced in a FILE SECTION, WORKING-STORAGE SECTION, LOCAL-STORAGE SECTION, LINKAGE SECTION, CONSTANT SECTION, BASED-STORAGE SECTION, SCREEN SECTION of DATA DIVISION and PROCEDURE DIVISION.

Explanation

The named literal cannot be referenced in the identification division, the environment division or the report section of the data division.

JMN2191I-S

The data-name in the OCCURS DEPENDING ON clause must be defined in a section other than the REPORT SECTION.

Example

[P2191.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2191.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS002.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD REPFILE
000011      REPORT IS REP1.
000012 WORKING-STORAGE SECTION.
000013 01 WGRP.
000014   02 WOCC      OCCURS 10 DEPENDING ON WDPND.
000015     03         PIC X.
000016 REPORT          SECTION.
000017 RD REP1 PAGE 66
000018         FIRST DETAIL 10.
000019 01      TYPE PH.
000020   02    LINE 7.
000021     03 WDPND         COLUMN  60 PIC 9(4) VALUE 12.
000022 PROCEDURE      DIVISION.
000023 END PROGRAM    P2191.

P2191.cob 14: JMN2191I-S The data-name in the OCCURS DEPENDING ON clause must be defined in a section other than the REPORT SECTION.

JMN2192I-S

If the OCCURS DEPENDING ON clause is specified in a record with an external attribute, the object must also be an item with an external attribute in the same DATA DIVISION.

Example

[P2192.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2192.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP EXTERNAL.
000007   02 WOCC      OCCURS 10 DEPENDING ON WDPND.
000008     03         PIC X.
000009 01 WDPND       PIC S9(9) BINARY.
000010 PROCEDURE      DIVISION.
000011 END PROGRAM    P2192.

P2192.cob 7: JMN2192I-S If the OCCURS DEPENDING ON clause is specified in a record with an external attribute, the object must also be an item with an external attribute in the same DATA DIVISION.

JMN2193I-S

If the OCCURS DEPENDING ON clause is specified in a record with a global attribute, the object must also be an item with a global attribute in the same DATA DIVISION.

Example

[P2193.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2193.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP GLOBAL.
000007   02 WOCC      OCCURS 10 DEPENDING ON WDPND.
000008     03         PIC X.
000009 01 WDPND       PIC S9(9) BINARY.
000010 PROCEDURE      DIVISION.
000011 END PROGRAM    P2193.

P2193.cob 7: JMN2193I-S If the OCCURS DEPENDING ON clause is specified in a record with a global attribute, the object must also be an item with a global attribute in the same DATA DIVISION.

JMN2194I-S

The first data-name '@1@' specified in the KEY IS phrase must be either an item with an OCCURS clause or an item subordinate to an item with an OCCURS clause. The data-name is ignored.

Parameter explanation

@1@ : Data name that causes the error.

Example

[P2194.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2194.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP.
000007   02 WOCC      OCCURS 10 ASCENDING KEY IS WKEY1 WKEY2.
000008     03 WKEY2   PIC X(1).
000009   02 WKEY1     PIC X(1).
000010 PROCEDURE      DIVISION.
000011 END PROGRAM    P2194.

P2194.cob 7: JMN2194I-S The first data-name 'WKEY1' specified in the KEY IS phrase must be either an item with an OCCURS clause or an item subordinate to an item with an OCCURS clause. The data-name is ignored.

Explanation

The data-name that is specified by the KEY IS phrase must be a data-name of a data description entry that specified the OCCURS clause, or a data-name of a data description entry that is subordinate to the data description entry.

If the data-name of the data description entry that specified the OCCURS clause is specified for the KEY IS phrase, that data-name is the only one that can be specified for the KEY IS phrase.

JMN2195I-S

Unless it is the first data-name specified in the KEY IS phrase, data-name '@1@' must be subordinate to an item with an OCCURS clause. The data-name is ignored.

Parameter explanation

@1@ : Data name that causes the error.

Example

[P2195.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2195.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP.
000007   02 WKEY2     OCCURS 10 ASCENDING KEY IS WKEY1 WKEY2.
000008     03 WKEY1   PIC X(1).
000009 PROCEDURE      DIVISION.
000010 END PROGRAM    P2195.

P2195.cob 7: JMN2195I-S Unless it is the first data-name specified in the KEY IS phrase, data-name 'WKEY2' must be subordinate to an item with an OCCURS clause. The data-name is ignored.

Explanation

The data-name that is specified by KEY IS phrase must be a data-name of a data description entry that specified the OCCURS clause, or a data-name of a data description entry that is subordinate to the data description entry.

If the data-name of the data description entry that specified the OCCURS clause is specified for the KEY IS phrase, that data-name is the only one that can be specified for the KEY IS phrase.

JMN2196I-S

Data-name '@1@' can only be an item with an OCCURS clause if it is the first data-name specified in a KEY IS phrase. The data-name is ignored.

Parameter explanation

@1@ : Data name that causes the error.

Example

[P2196.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2196.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP.
000007   02 WKEY1     OCCURS 10 ASCENDING KEY IS WKEY1 WKEY2.
000008     03 WKEY2   PIC X(1) OCCURS 10.
000009 PROCEDURE      DIVISION.
000010 END PROGRAM    P2196.

P2196.cob 7: JMN2196I-S Data-name 'WKEY2' can only be an item with an OCCURS clause if it is the first data-name specified in a KEY IS phrase. The data-name is ignored.

Explanation

Since the data-name is not the first item of the KEY IS phrase, it cannot used with the OCCURS clause.

JMN2197I-S

The data-name '@1@' in the KEY IS phrase must not exceed 256 bytes in length. The data-name is ignored.

Parameter explanation

@1@ : Data name which causes the error.

Example

[P2197.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2197.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP.
000007   02 WOCC      OCCURS 15 ASCENDING KEY IS WKEY1.
000008     03 WKEY1   PIC X(257).
000009 PROCEDURE      DIVISION.
000010 END PROGRAM    P2197.

P2197.cob 7: JMN2197I-S The data-name 'WKEY1' in the KEY IS phrase must not exceed 256 bytes in length. The data-name is ignored.

Explanation

The data-name used in the KEY IS phrase cannot exceed 256 bytes in length.

JMN2200I-W

The length of the literal specified in the VALUE clause of the group item must not exceed the length of the item. Excess characters on the right side of the specified literal are discarded.

Example

[P2200.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2200.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP VALUE "ABC".
000007   02           PIC N.
000008   02           PIC X(3).
000009 PROCEDURE      DIVISION.
000010 END PROGRAM    P2200.

P2200.cob 6: JMN2200I-W The length of the literal specified in the VALUE clause of the group item must not exceed the length of the item. Excess characters on the right side of the specified literal are discarded.

JMN2201I-W

The length of the Boolean literal of the VALUE clause specified in the group item must be a multiple of 8. Zeros are added on the right side of the literal to make it a multiple of 8.

Example

[P2201.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2201.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP VALUE B"111100011".
000007   02           PIC N.
000008 PROCEDURE      DIVISION.
000009 END PROGRAM    P2201.

P2201.cob 6: JMN2201I-W The length of the Boolean literal of the VALUE clause specified in the group item must be a multiple of 8. Zeros are added on the right side of the literal to make it a multiple of 8.

Explanation

If a Boolean literal is specified for an initial value of a group item, the Boolean character ("0" or "1") is assumed to be 1 bit and is set to the item. The number of Boolean characters must be multiples of eight. If it is not multiple of eight, Boolean character '0's are added at the right of the Boolean literal until it is a multiple of eight.

JMN2202I-W

The length of the VALUE clause literal of the condition-name whose conditional variable is a group item cannot exceed the length of the group item. Excess characters on the right side of the specified literal are discarded.

Example

[P2202.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2202.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP.
000007 88 OKVAL       VALUE "ABCDE".
000008 88 NGVAL       VALUE "ABC".
000009   02           PIC N.
000010   02           PIC X(3).
000011 PROCEDURE      DIVISION.
000012 END PROGRAM    P2202.

P2202.cob 8: JMN2202I-W The length of the VALUE clause literal of the condition-name whose conditional variable is a group item cannot exceed the length of the group item. Excess characters on the right side of the specified literal are discarded.

Explanation

The constant specified by the VALUE clause of the condition-name description entry (level-number 88) is longer than the item length of the conditional variable. The constant for the length of the conditional variable is considered to be a value of the condition-name, and any excess characters are discarded.

JMN2205I-S

Data-name '@2@' of the @1@ clause cannot be an item that requires a subscript.

Parameter explanation

@1@ : The clause or phrase described in the ENVIRONMENT DIVISION or DATA DIVISION that needs to have a data name specified, but the ASCENDING/DESENDING KEY IS phrase of the OCCURS clause is excluded.

@2@ : Data name that causes the error.

Example

[P2205.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2205.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT IXFILE1 ASSIGN TO SYS001
000007       ORGANIZATION   IS INDEXED
000008       RECORD KEY     IS WRKY1.
000009 I-O-CONTROL.
000010 DATA           DIVISION.
000011 FILE            SECTION.
000012 FD IXFILE1.
000013 01 IXF1REC.
000014   02 WRKY1     PIC X(1) OCCURS 10.
000015   02           PIC X(80).
000016 WORKING-STORAGE SECTION.
000017 PROCEDURE      DIVISION.
000018 END PROGRAM    P2205.

P2205.cob 8: JMN2205I-S Data-name 'WRKY1' of the RECORD KEY clause cannot be an item that requires a subscript.

Explanation

The specified data-name cannot be the data description entry with the OCCURS clause or its subordinate item. The data description entry with the OCCURS clause is a table, and elements in the table are called a "table elements." A table element is subscripted before being referenced.

JMN2206I-S

Data-name '@2@' in the @1@ clause cannot be a variable address item.

Parameter explanation

@1@ : The clause or phrase described in the ENVIRONMENT DIVISION or DATA DIVISION that needs a data name to be specified.

@2@ : The data name that causes the error.

Example

[P2206.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2206.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD SQFILE1
000010     RECORD VARYING IN SIZE
000011       DEPENDING ON WVAD.
000012 01 SQF1REC.
000013   02           PIC X(80).
000014 WORKING-STORAGE SECTION.
000015 01 WGRP.
000016   02 WDPND     PIC S9(9) COMP-5.
000017   02 WOCC      OCCURS 10 DEPENDING ON WDPND
000018                PIC X(1).
000019   02 WVAD      PIC 9(4).
000020 PROCEDURE      DIVISION.
000021 END PROGRAM    P2206.

P2206.cob 11: JMN2206I-S Data-name 'WVAD' in the RECORD clause cannot be a variable address item.

JMN2207I-S

The alphabet-name of the CODE-SET clause specified in something other than a paper tape file must be a STANDARD-1, STANDARD-2, or NATIVE specification.

Example

[P2207.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2207.
000003 ENVIRONMENT    DIVISION.
000004 CONFIGURATION   SECTION.
000005 SPECIAL-NAMES.
000006     ALPHABET CD1 IS CODE-1.
000007 INPUT-OUTPUT    SECTION.
000008 FILE-CONTROL.
000009     SELECT SQFILE1 ASSIGN TO SYS001.
000010 DATA           DIVISION.
000011 FILE            SECTION.
000012 FD SQFILE1 CODE-SET CD1.
000013 01 SQF1REC.
000014   02           PIC X(80).
000015 WORKING-STORAGE SECTION.
000016 PROCEDURE      DIVISION.
000017 END PROGRAM    P2207.

P2207.cob 12: JMN2207I-S The alphabet-name of the CODE-SET clause specified in something other than a paper tape file must be a STANDARD-1, STANDARD-2, or NATIVE specification.

Explanation

This compiler treats the CODE-SET clause as a comment.

JMN2210I-S

The dimension number specified in the OCCURS clause cannot exceed 7.

Example

[P2210.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2210.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP.
000007  02 WOCC1        OCCURS 10.
000008   03 WOCC2       OCCURS 10.
000009    04 WOCC3      OCCURS 10.
000010     05 WOCC4     OCCURS 10.
000011      06 WOCC5    OCCURS 10.
000012       07 WOCC6   OCCURS 10.
000013        08 WOCC7  OCCURS 10.
000014         09 WOCC8 OCCURS 10.
000015          10      PIC X.
000016 PROCEDURE      DIVISION.
000017 END PROGRAM    P2210.

P2210.cob 14: JMN2210I-S The dimension number specified in the OCCURS clause cannot exceed 7.

Explanation

The COBOL processing system limits the dimension number of the OCCURS clause to a maximum of 7.

JMN2212I-S

The LINAGE clause can only be specified for a sequential file.

Example

[P2212.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2212.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT RLFILE1 ASSIGN TO SYS001
000007       ORGANIZATION   IS RELATIVE.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD RLFILE1
000011      LINAGE 66.
000012 01 RLF1REC.
000013   02           PIC X(80).
000014 WORKING-STORAGE SECTION.
000015 01 WFS1        PIC X(2).
000016 PROCEDURE      DIVISION.
000017 END PROGRAM    P2212.

P2212.cob 11: JMN2212I-S The LINAGE clause can only be specified for a sequential file.

Explanation

The LINAGE clause specifies the layout of printed pages. The file with the LINAGE clause is assumed to be a print file, which is a sequential files.

JMN2213I-S

Data-name '@2@' in the @1@ clause is defined multiple times. The @1@ clause is ignored.

Parameter explanation

@1@ : RENAMES, VALUE, BASED ON, LENGTH, RECORD or CHARACTER TYPE.

@2@ : Data name which causes error.

Example

[P2213.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2213.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 GR1.
000007   02 E1        PIC X(5).
000008   02 E1        PIC N(5).
000009 66 R1 RENAMES E1 THRU E1.
000010 PROCEDURE      DIVISION.
000011 END PROGRAM    P2213.

P2213.cob 9: JMN2213I-S Data-name 'E1' in the RENAMES clause is defined multiple times. The RENAMES clause is ignored.

JMN2214I-S

Data-name '@2@' in the @1@ clause is undefined. The @1@ clause is ignored.

Parameter explanation

@1@ : RENAMES, VALUE, BASED ON, LENGTH, RECORD or CHARACTER TYPE.

@2@ : Data name which causes error.

Example

[P2214.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2214.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP1.
000007   02 WELM1     PIC X.
000008   02 WELM2     PIC X.
000009 66 WGRP2 RENAMES WELM1 THRU WELM3.
000010 PROCEDURE      DIVISION.
000011 END PROGRAM    P2214.

P2214.cob 9: JMN2214I-S Data-name 'WELM3' in the RENAMES clause is undefined. The RENAMES clause is ignored.

JMN2215I-S

The user-defined word '@2@' of the @1@ clause must be a data-name. The @1@ clause is ignored.

Parameter explanation

@1@ : RENAMES, VALUE, BASED ON, LENGTH, RECORD or CHARACTER TYPE.

@2@ : User-defined word which causes the error.

Example

[P2215.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2215.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP1.
000007   02 WELM1     PIC X.
000008   02 WELM2     PIC X.
000009   88 WELM2-CND1    VALUE "1".
000010 66 WGRP2 RENAMES WELM1 THRU WELM2-CND1.
000011 PROCEDURE      DIVISION.
000012 LVL1.
000013 END PROGRAM    P2215.

P2215.cob 10: JMN2215I-S The user-defined word 'WELM2-CND1' of the RENAMES clause must be a data-name. The RENAMES clause is ignored.

JMN2216I-S

The data item defined in the CONSTANT SECTION must have a VALUE clause.

Example

[P2216.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2216.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 CONSTANT        SECTION.
000006 01 WCD         PIC X.
000007 PROCEDURE      DIVISION.
000008 END PROGRAM    P2216.

P2216.cob 6: JMN2216I-S The data item defined in the CONSTANT SECTION must have a VALUE clause.

Explanation

The CONSTANT SECTION defines constants used by a COBOL program. The data description entry in the CONSTANT SECTION must have the VALUE clause.

JMN2218I-S

The EXTERNAL clause cannot be specified in file that is specified in a @1@ clause.

Parameter explanation

@1@ : SAME AREA, SAME RECORD AREA, or APPLY SAVED-AREA.

Example

[P2218.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2218.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007     SELECT SQFILE2 ASSIGN TO SYS002.
000008 I-O-CONTROL.
000009     SAME AREA SQFILE1 SQFILE2.
000010 DATA           DIVISION.
000011 FILE            SECTION.
000012 FD SQFILE1.
000013 01 SQF1REC.
000014   02           PIC X(80).
000015 FD SQFILE2 IS EXTERNAL.
000016 01 SQF2REC.
000017   02           PIC X(80).
000018 WORKING-STORAGE SECTION.
000019 PROCEDURE      DIVISION.
000020 END PROGRAM    P2218.

P2218.cob 15: JMN2218I-S The EXTERNAL clause cannot be specified in file that is specified in a SAME AREA clause.

JMN2219I-S

The EXTERNAL clause cannot be specified in a file which is specified in a MULTIPLE FILE TAPE clause.

Example

[P2219.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2219.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008     MULTIPLE FILE TAPE CONTAINS SQFILE1.
000009 DATA           DIVISION.
000010 FILE            SECTION.
000011 FD SQFILE1 IS EXTERNAL.
000012 01 SQF1REC.
000013   02           PIC X(80).
000014 WORKING-STORAGE SECTION.
000015 PROCEDURE      DIVISION.
000016 END PROGRAM    P2219.

P2219.cob 11: JMN2219I-S The EXTERNAL clause cannot be specified in a file which is specified in a MULTIPLE FILE TAPE clause.

JMN2221I-S

The GLOBAL clause cannot be specified for a file that is specified in a SAME RECORD AREA clause or in its subordinate record description entry.

Example

[P2221.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2221.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007     SELECT SQFILE2 ASSIGN TO SYS002.
000008 I-O-CONTROL.
000009     SAME RECORD AREA SQFILE1 SQFILE2.
000010 DATA           DIVISION.
000011 FILE            SECTION.
000012 FD SQFILE1.
000013 01 SQF1REC.
000014   02           PIC X(80).
000015 FD SQFILE2 IS GLOBAL.
000016 01 SQF2REC.
000017   02           PIC X(80).
000018 WORKING-STORAGE SECTION.
000019 PROCEDURE      DIVISION.
000020 END PROGRAM    P2221.

P2221.cob 15: JMN2221I-S The GLOBAL clause cannot be specified for a file that is specified in a SAME RECORD AREA clause or in its subordinate record description entry.

JMN2222I-S

The PICTURE clause is missing. PICTURE 9 is assumed.

Example

[P2222.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2222.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP.
000007 PROCEDURE      DIVISION.
000008 END PROGRAM    P2222.

P2222.cob 6: JMN2222I-S The PICTURE clause is missing. PICTURE 9 is assumed.

Explanation

The PICTURE clause specifies the category, size, and editing format of elementary items. PICTURE and PIC are synonyms. If the PICTURE clause is missing, 'PICTURE 9' is assumed, but neither the object file nor the executable file is generated.

JMN2223I-S

Only a USAGE clause with COMPUTATIONAL-1, COMPUTATIONAL-2, or INDEX can be specified for an elementary item without a PICTURE clause. The USAGE clause is ignored and PICTURE 9 is assumed.

Example

[P2223.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2223.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP BINARY.
000007 PROCEDURE      DIVISION.
000008 END PROGRAM    P2223.

P2223.cob 6: JMN2223I-S Only a USAGE clause with COMPUTATIONAL-1, COMPUTATIONAL-2, or INDEX can be specified for an elementary item without a PICTURE clause. The USAGE clause is ignored and PICTURE 9 is assumed.

Explanation

'PICTURE 9' is assumed, but neither the object file nor the executable file is generated.

JMN2224I-W

The data-name with the CHARACTER TYPE clause or PRINTING POSITION clause is redefined. The print result is not guaranteed.

Example

[P2224.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2224.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD SQFILE.
000010 01 SQREC       PIC X(80).
000011 WORKING-STORAGE SECTION.
000012 01 WGRP.
000013   02 WSUBG1 CHARACTER TYPE MODE-1.
000014     03         PIC X(10).
000015     03         PIC N(10).
000016     03         PIC X(10).
000017     03         PIC N(20).
000018   02 WSUBG2 REDEFINES WSUBG1.
000019     03         PIC X(10).
000020     03         PIC N(10).
000021     03         PIC X(10).
000022     03         PIC N(20).
000023 PROCEDURE      DIVISION.
000024     WRITE SQREC FROM WGRP
000025 END PROGRAM    P2224.

P2224.cob 18: JMN2224I-W The data-name with the CHARACTER TYPE clause or PRINTING POSITION clause is redefined. The print result is not guaranteed.

Explanation

The CHARACTER TYPE clause specifies the format of characters to be used when printing. The PRINTING POSITION clause specifies the column to use when printing. When these clauses are applied to a data item that has been redefined by another data item, the COBOL runtime system cannot obtain correct information for the print.

JMN2225I-S

The CHARACTER TYPE clause can only be specified to a national, national edited, or group item.

Example

[P2225.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2225.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WNUM        PIC S9(9) CHARACTER TYPE MODE-1.
000007 PROCEDURE      DIVISION.
000008 END PROGRAM    P2225.

P2225.cob 6: JMN2225I-S The CHARACTER TYPE clause can only be specified to a national, national edited, or group item.

Explanation

The CHARACTER TYPE clause with MODE-1, MODE-2, MODE-3 or the mnemonic-name specifies the format of characters to be used when printing a national item or a national edited item. This clause has no effect anyway on the group item that does not contain a national/national edited item.

JMN2226I-S

The CHARACTER TYPE clause can be specified for an item with a REDEFINES clause only with a level-number 01 or 77 item, or in its subordinate item.

Example

[P2226.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2226.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP.
000007   02 WGRP2.
000008     03         PIC N(10)
000009                CHARACTER TYPE MODE-2.
000010   02 WGRP3 REDEFINES WGRP2.
000011     03         PIC N(10)
000012                CHARACTER TYPE MODE-1.
000013 PROCEDURE      DIVISION.
000014 END PROGRAM    P2226.

P2226.cob 12: JMN2226I-S The CHARACTER TYPE clause can be specified for an item with a REDEFINES clause only with a level-number 01 or 77 item, or in its subordinate item.

Explanation

The CHARACTER TYPE clause specifies format of characters to be used when printing. In general, when this clause is applied to the data item that has been redefined by another data item, the COBOL runtime system cannot obtain correct information for the print. If the redefine is between items of level-number 01 or 77, correct print information can be obtained.

JMN2227I-S

The PRINTING POSITION clause cannot be specified in a record description that includes an OCCURS DEPENDING ON clause.

Example

[P2227.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2227.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP.
000007   02 WDPEND    PIC S9(4) BINARY.
000008   02 WNC       CHARACTER TYPE MODE-1.
000009     03         PIC N(10)
000010                PRINTING POSITION 10.
000011   02 WOCC      OCCURS 10 DEPENDING ON WDPEND.
000012     03         PIC N(10).
000013 PROCEDURE      DIVISION.
000014 END PROGRAM    P2227.

P2227.cob 6: JMN2227I-S The PRINTING POSITION clause cannot be specified in a record description that includes an OCCURS DEPENDING ON clause.

JMN2228I-S

The PRINTING POSITION clause can only be specified for an item with a CHARACTER TYPE clause or its subordinate item.

Example

[P2228.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2228.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP.
000007   02 WNC.
000008     03         PIC N(10)
000009                PRINTING POSITION 10.
000010 PROCEDURE      DIVISION.
000011 END PROGRAM    P2228.

P2228.cob 9: JMN2228I-S The PRINTING POSITION clause can only be specified for an item with a CHARACTER TYPE clause or its subordinate item.

JMN2229I-S

The PRINTING POSITION clause cannot be specified for an item with an OCCURS clause or its subordinate item.

Example

[P2229.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2229.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP CHARACTER TYPE MODE-1.
000007   02 WOCC      OCCURS 10.
000008     03         PIC N(10)
000009                PRINTING POSITION 10.
000010 PROCEDURE      DIVISION.
000011 END PROGRAM    P2229.

P2229.cob 9: JMN2229I-S The PRINTING POSITION clause cannot be specified for an item with an OCCURS clause or its subordinate item.

JMN2231I-S

A condition-name cannot be specified for an index data item.

Example

[P2231.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2231.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WIX         INDEX.
000007 88 ZINIT       VALUE 0.
000008 PROCEDURE      DIVISION.
000009 END PROGRAM    P2231.

P2231.cob 7: JMN2231I-S A condition-name cannot be specified for an index data item.

Explanation

The index data item is used to store the value of the index-name (information that the compiler generates to identify the table element). The index data item cannot be defined as a conditional variable.

JMN2232I-W

The length of the redefining item cannot exceed the length of the redefined item. The redefining item overlaps no items other than ones explicitly specified.

Example

[P2232.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2232.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP1.
000007   02           PIC X(10).
000008 01 RGRP1 REDEFINES WGRP1.
000009   02           PIC N(10).
000010 01 .
000011   02 WGRP2.
000012     03         PIC X(10).
000013   02 RGRP2 REDEFINES WGRP2.
000014     03         PIC N(10).
000015 PROCEDURE      DIVISION.
000016 END PROGRAM    P2232.

P2232.cob 13: JMN2232I-W The length of the redefining item cannot exceed the length of the redefined item. The redefining item overlaps no items other than ones explicitly specified.

JMN2233I-S

Data-name '@2@' of the @1@ clause is not unique. The data-name is ignored.

Parameter explanation

@1@ : LINAGE or KEY IS.

@2@ : Data name which causes the error.

Example

[P2233.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2233.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 GR1.
000007   02 OCC1 OCCURS 10 ASCENDING KEY IS E1.
000008     03 E1      PIC X.
000009     03 E1      PIC X.
000010 PROCEDURE      DIVISION.
000011 END PROGRAM    P2233.

P2233.cob 7: JMN2233I-S Data-name 'E1' of the KEY IS clause is not unique. The data-name is ignored.

JMN2234I-S

Data-name '@2@' of the @1@ clause is undefined. The data-name is ignored.

Parameter explanation

@1@ : LINAGE or KEY IS.

@2@ : Data name which causes the error.

Example

[P2234.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2234.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 GR1.
000007   02 OCC1 OCCURS 10 ASCENDING KEY IS E2.
000008     03 E1      PIC X.
000009 PROCEDURE      DIVISION.
000010 END PROGRAM    P2234.

P2234.cob 7: JMN2234I-S Data-name 'E2' of the KEY IS clause is undefined. The data-name is ignored.

JMN2235I-S

User-defined word '@2@' in the @1@ clause must be a data-name. The user-defined word is ignored.

Parameter explanation

@1@ : LINAGE or KEY IS.

@2@ : User-defined word which causes the error.

Example

[P2235.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2235.
000003 ENVIRONMENT    DIVISION.
000004 CONFIGURATION  SECTION.
000005 SPECIAL-NAMES.
000006       SYSIN IS INPUT-DATA.
000007 DATA           DIVISION.
000008 WORKING-STORAGE SECTION.
000009 01 WGRP.
000010   02 WOCC      OCCURS 10 ASCENDING KEY IS INPUT-DATA.
000011     03 WKEY1   PIC X(1).
000012     03 WKEY2   PIC X(1).
000013 PROCEDURE      DIVISION.
000014 END PROGRAM    P2235.

P2235.cob 10: JMN2235I-S User-defined word 'INPUT-DATA' in the KEY IS clause must be a data-name. The user-defined word is ignored.

JMN2236I-S

The BLOCK CONTAINS clause cannot be specified in a file which is referred to by a WRITE statement with an END-OF-PAGE phrase.

Example

[P2236.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2236.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD SQFILE1
000010      BLOCK CONTAINS 10.
000011 01 SQF1REC.
000012   02           PIC X(80).
000013 WORKING-STORAGE SECTION.
000014 PROCEDURE      DIVISION.
000015     WRITE SQF1REC
000016       AT END-OF-PAGE
000017         DISPLAY "P2236"
000018     END-WRITE
000019 END PROGRAM    P2236.

P2236.cob 9: JMN2236I-S The BLOCK CONTAINS clause cannot be specified in a file which is referred to by a WRITE statement with an END-OF-PAGE phrase.

Explanation

This compiler treats the BLOCK CONTAINS clause as a comment.

JMN2239I-S

The record length of a file with 'F' or 'V' in the RECORDING MODE clause cannot exceed the integer specified in the BLOCK CONTAINS clause with the CHARACTERS phrase. The BLOCK CONTAINS clause is ignored.

Example

[P2239.cob]
000001 @OPTIONS FLAGSW(GSS)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    P2239.
000004 ENVIRONMENT    DIVISION.
000005 INPUT-OUTPUT    SECTION.
000006 FILE-CONTROL.
000007     SELECT SQFILE1 ASSIGN TO SYS001.
000008 I-O-CONTROL.
000009 DATA           DIVISION.
000010 FILE            SECTION.
000011 FD SQFILE1
000012       RECORDING MODE IS V
000013       BLOCK CONTAINS 80 CHARACTERS.
000014 01 SQF1REC.
000015   02           PIC X(79).
000016 WORKING-STORAGE SECTION.
000017 01 WFS1        PIC X(2).
000018 PROCEDURE      DIVISION.
000019 END PROGRAM    P2239.

P2239.cob 11: JMN2239I-S The record length of a file with 'F' or 'V' in the RECORDING MODE clause cannot exceed the integer specified in the BLOCK CONTAINS clause with the CHARACTERS phrase. The BLOCK CONTAINS clause is ignored.

Explanation

The RECORDING MODE clause is specific to the OSIV-series.

JMN2244I-S

The BLOCK CONTAINS clause with 'integer TO integer' cannot be specified in a file with a fixed length format.

Example

[P2244.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2244.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD SQFILE1
000010       RECORDING MODE  IS F
000011       BLOCK  CONTAINS 40 TO 80.
000012 01 SQF1REC.
000013   02           PIC X(80).
000014 WORKING-STORAGE SECTION.
000015 PROCEDURE      DIVISION.
000016 END PROGRAM    P2244.

P2244.cob 9: JMN2244I-S The BLOCK CONTAINS clause with 'integer TO integer' cannot be specified in a file with a fixed length format.

Explanation

This compiler treats the BLOCK CONTAINS clause as a comment.

JMN2245I-S

The record length of the file which is sequential (organization VS or AS), relative, indexed, or of fixed length format cannot exceed 32760 bytes. A record length of 32760 bytes is assumed.

Example

[P2245.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2245.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD SQFILE1.
000011 01 SQF1REC.
000012   02           PIC X(32767).
000013 WORKING-STORAGE SECTION.
000014 01 WFS1        PIC X(2).
000015 PROCEDURE      DIVISION.
000016 END PROGRAM    P2245.

P2245.cob 10: JMN2245I-S The record length of the file which is sequential (organization VS or AS), relative, indexed, or of fixed length format cannot exceed 32760 bytes. A record length of 32760 bytes is assumed.

Explanation

The COBOL processing system restricts the record length of sequential files to 32,760 bytes.

JMN2249I-S

The block length of the file with a RECORDS phrase in the BLOCK CONTAINS clause or the file without the BLOCK CONTAINS clause cannot exceed 32760 bytes. A block length of 32760 bytes is assumed.

Example

[P2249.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2249.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD SQFILE1
000011       BLOCK CONTAINS 410 RECORDS.
000012 01 SQF1REC.
000013   02           PIC X(80).
000014 WORKING-STORAGE SECTION.
000015 PROCEDURE      DIVISION.
000016 END PROGRAM    P2249.

P2249.cob 10: JMN2249I-S The block length of the file with a RECORDS phrase in the BLOCK CONTAINS clause or the file without the BLOCK CONTAINS clause cannot exceed 32760 bytes. A block length of 32760 bytes is assumed.

JMN2251I-S

The SYNCHRONIZED clause is required for the internal Boolean item with the OCCURS DEPENDING ON clause. The SYNCHRONIZED clause is assumed.

Example

[P2251.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2251.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP.
000007   02 WDPEND    PIC S9(3).
000008   02 WOCC      OCCURS 10 DEPENDING ON WDPEND
000009                PIC 1(1) BIT.
000010 PROCEDURE      DIVISION.
000011 END PROGRAM    P2251.

P2251.cob 8: JMN2251I-S The SYNCHRONIZED clause is required for the internal Boolean item with the OCCURS DEPENDING ON clause. The SYNCHRONIZED clause is assumed.

Explanation

For variable Boolean items, each table element must be aligned to a native boundary by specifying the SYNCHRONIZED(SYNC) clause. The SYNCHRONIZED clause is assumed to have been specified, but neither the object file nor the executable file is generated.

JMN2252I-S

The SYNCHRONIZED clause is required for the internal Boolean item with the indexed BY phrase in the OCCURS clause. The SYNCHRONIZED clause is assumed.

Example

[P2252.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2252.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP.
000007   02           PIC S9(3).
000008   02 WOCC      OCCURS 10 INDEXED BY IX1
000009                PIC 1(1) BIT.
000010 PROCEDURE      DIVISION.
000011 END PROGRAM    P2252.

P2252.cob 8: JMN2252I-S The SYNCHRONIZED clause is required for the internal Boolean item with the indexed BY phrase in the OCCURS clause. The SYNCHRONIZED clause is assumed.

Explanation

For index-name Boolean items, each table element must be aligned to a native boundary by specifying the SYNCHRONIZED(SYNC) clause. The SYNCHRONIZED clause is assumed to have been specified, but neither the object file nor the executable file is generated.

JMN2269I-S

Data-name '@2@' of the DEPENDING ON phrase of the @1@ clause is defined multiple times. The DEPENDING ON phrase is ignored.

Parameter explanation

@1@ : RECORD or OCCURS.

@2@ : Data name which causes error.

Example

[P2269.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2269.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 DEPEND      PIC S9(9) BINARY.
000007 01 DEPEND      PIC S9(9) BINARY.
000008 01 WGRP.
000009   02 WOCC      OCCURS 10 DEPENDING ON DEPEND.
000010     03         PIC X.
000011 PROCEDURE      DIVISION.
000012 END PROGRAM    P2269.

P2269.cob 9: JMN2269I-S Data-name 'DEPEND' of the DEPENDING ON phrase of the OCCURS clause is defined multiple times. The DEPENDING ON phrase is ignored.

JMN2270I-S

Data-name '@2@' of the DEPENDING ON phrase of the @1@ clause is undefined. The DEPENDING ON phrase is ignored.

Parameter explanation

@1@ : RECORD or OCCURS.

@2@ : Data name which causes error.

Example

[P2270.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2270.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP.
000007   02 WOCC      OCCURS 10 DEPENDING ON DEPEND.
000008     03         PIC X.
000009 PROCEDURE      DIVISION.
000010 END PROGRAM    P2270.

P2270.cob 7: JMN2270I-S Data-name 'DEPEND' of the DEPENDING ON phrase of the OCCURS clause is undefined. The DEPENDING ON phrase is ignored.

JMN2271I-S

'@2@' of the DEPENDING ON phrase of the @1@ clause must be a data-name. The DEPENDING ON phrase is ignored.

Parameter explanation

@1@ : RECORD or OCCURS.

@2@ : User-defined word which causes error.

Example

[P2271.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2271.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP.
000007   02 WOCC      OCCURS 10 DEPENDING ON WTYP1.
000008     03         PIC X.
000009 01 WTYP1       TYPEDEF   PIC X.
000010 PROCEDURE      DIVISION.
000011 END PROGRAM    P2271.

P2271.cob 7: JMN2271I-S 'WTYP1' of the DEPENDING ON phrase of the OCCURS clause must be a data-name. The DEPENDING ON phrase is ignored.

JMN2273I-W

The SIGN clause with 'SEPARATE' must be specified when a data item in a file with the CODE-SET clause is a signed external decimal item. It is accepted as written.

Example

[P2273.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2273.
000003 ENVIRONMENT    DIVISION.
000004 CONFIGURATION   SECTION.
000005 SPECIAL-NAMES.
000006      ALPHABET CD1 IS STANDARD-1.
000007 INPUT-OUTPUT    SECTION.
000008 FILE-CONTROL.
000009     SELECT SQFILE1 ASSIGN TO SYS001
000010       ORGANIZATION   IS SEQUENTIAL.
000011 DATA           DIVISION.
000012 FILE            SECTION.
000013 FD SQFILE1
000014       CODE-SET CD1.
000015 01 SQF1REC.
000016   02           PIC S9(4).
000017   02           PIC X(80).
000018 PROCEDURE      DIVISION.
000019 END PROGRAM    P2273.

P2273.cob 16: JMN2273I-W The SIGN clause with 'SEPARATE' must be specified when a data item in a file with the CODE-SET clause is a signed external decimal item. It is accepted as written.

Explanation

This compiler treats the CODE-SET clause as a comment.

JMN2274I-W

The usage of the data item for a file with a CODE-SET clause must be DISPLAY. It is accepted as written.

Example

[P2274.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2274.
000003 ENVIRONMENT    DIVISION.
000004 CONFIGURATION   SECTION.
000005 SPECIAL-NAMES.
000006      ALPHABET CD1 IS STANDARD-1.
000007 INPUT-OUTPUT    SECTION.
000008 FILE-CONTROL.
000009     SELECT SQFILE1 ASSIGN TO SYS001
000010       ORGANIZATION   IS SEQUENTIAL.
000011 DATA           DIVISION.
000012 FILE            SECTION.
000013 FD SQFILE1
000014       CODE-SET CD1.
000015 01 SQF1REC.
000016   02           PIC S9(4) BINARY.
000017   02           PIC X(80).
000018 PROCEDURE      DIVISION.
000019 END PROGRAM    P2274.

P2274.cob 16: JMN2274I-W The usage of the data item for a file with a CODE-SET clause must be DISPLAY. It is accepted as written.

Explanation

This compiler treats the CODE-SET clause as a comment.

JMN2276I-S

A data-name must be explicitly specified for a level 01 item that is subordinate to a file with an EXTERNAL clause. The EXTERNAL clause is assumed to be valid.

Example

[P2276.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2276.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001
000007       ORGANIZATION   IS SEQUENTIAL.
000008 I-O-CONTROL.
000009 DATA           DIVISION.
000010 FILE            SECTION.
000011 FD SQFILE1 IS EXTERNAL.
000012 01        .
000013   02           PIC X(80).
000014 PROCEDURE      DIVISION.
000015 END PROGRAM    P2276.

P2276.cob 12: JMN2276I-S A data-name must be explicitly specified for a level 01 item that is subordinate to a file with an EXTERNAL clause. The EXTERNAL clause is assumed to be valid.

Explanation

Specifying the EXTERNAL clause in a file description entry sets the external attribute in the record description entry corresponding to the file. A data record with the external attribute can be shared by several programs in a run unit. In a run unit, the external data record is identified by that data-name. Therefore, the level-number 01 item (the first item of the area) must have a data-name.

JMN2277I-S

A data-name must be explicitly specified for a level 01 item that is subordinate to a file with a GLOBAL clause. The GLOBAL clause is assumed to be valid.

Example

[P2277.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2277.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001
000007       ORGANIZATION   IS SEQUENTIAL.
000008 I-O-CONTROL.
000009 DATA           DIVISION.
000010 FILE            SECTION.
000011 FD SQFILE1 IS GLOBAL.
000012 01        .
000013   02           PIC X(80).
000014 PROCEDURE      DIVISION.
000015 END PROGRAM    P2277.

P2277.cob 12: JMN2277I-S A data-name must be explicitly specified for a level 01 item that is subordinate to a file with a GLOBAL clause. The GLOBAL clause is assumed to be valid.

Explanation

Specifying the GLOBAL clause in a file description entry makes the name of subordinate record description entry the global name. A global name (the name of an element that has a global attribute) can be referenced in a program with a defined name and all programs directly or indirectly contained in the defined program. The level-number 01 item (the first item of the global attribute area) must have a data-name.

JMN2288I-S

The file name in the SAME RECORD AREA clause cannot be specified in an APPLY SAVED-AREA clause or an APPLY MULTICONVERSATION-MODE clause. It is accepted as written.

Example

[P2288.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2288.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007     SELECT SQFILE2 ASSIGN TO SYS002.
000008 I-O-CONTROL.
000009     SAME RECORD AREA SQFILE1 SQFILE2
000010     APPLY SAVED-AREA WSVAR  ON SQFILE1.
000011 DATA           DIVISION.
000012 FILE            SECTION.
000013 FD SQFILE1.
000014 01 SQF1REC.
000015   02           PIC X(80).
000016 FD SQFILE2.
000017 01 SQF2REC.
000018   02           PIC X(80).
000019 WORKING-STORAGE SECTION.
000020 01 WSVAR       PIC X(80).
000021 PROCEDURE      DIVISION.
000022 END PROGRAM    P2288.

P2288.cob 13: JMN2288I-S The file name in the SAME RECORD AREA clause cannot be specified in an APPLY SAVED-AREA clause or an APPLY MULTICONVERSATION-MODE clause. It is accepted as written.

Explanation

The value of the data item cannot be guaranteed if its storage area is shared.

It is accepted as written, but neither the object file nor the executable file is generated.

JMN2292I-S

A WRITE statement with an END-OF-PAGE can refer to only one I/O area of a file. The RESERVE clause is ignored and one I/O area is assumed.

Example

[P2292.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2292.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001
000007        RESERVE 10 AREAS.
000008 I-O-CONTROL.
000009 DATA           DIVISION.
000010 FILE            SECTION.
000011 FD SQFILE1 .
000012 01 SQF1REC.
000013   02           PIC X(80).
000014 WORKING-STORAGE SECTION.
000015 PROCEDURE      DIVISION.
000016     PERFORM WITH NO LIMIT
000017       WRITE SQF1REC
000018         AT END-OF-PAGE
000019           DISPLAY "END OF PAGE"
000020           EXIT PERFORM
000021       END-WRITE
000022     END-PERFORM
000023 END PROGRAM    P2292.

P2292.cob 11: JMN2292I-S A WRITE statement with an END-OF-PAGE can refer to only one I/O area of a file. The RESERVE clause is ignored and one I/O area is assumed.

Explanation

Values other than '1' are specified for the RESERVE AREA clause. This compiler analyzes the RESERVE AREA clause, but treats it as a comment.

JMN2300I-S

A LABEL RECORD clause with a data-name cannot be specified for a file with an EXTERNAL clause.

Example

[P2300.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2300.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD SQFILE1 IS EXTERNAL
000011       LABEL RECORD IS LRECL.
000012 01 SQF1REC.
000013   02           PIC X(80).
000014 01 LRECL       PIC X(80).
000015 PROCEDURE      DIVISION.
000016 END PROGRAM    P2300.

P2300.cob 11: JMN2300I-S A LABEL RECORD clause with a data-name cannot be specified for a file with an EXTERNAL clause.

Explanation

The LABEL RECORD clause is obsolete. This compiler treats the LABEL RECORD clause as a comment.

JMN2312I-S

The @1@ clause cannot be specified for the data-item specified in the LABEL RECORD clause, or for its subordinate item.

Parameter explanation

@1@ : CHARACTER TYPE or PRINTING POSITION.

Example

[P2312.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2312.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD SQFILE1
000011       LABEL RECORD LVREC.
000012 01 SQF1REC.
000013   02           PIC X(80).
000014 01 LVREC.
000015   02           PIC N(40) CHARACTER TYPE MODE-1.
000016 PROCEDURE      DIVISION.
000017 END PROGRAM    P2312.

P2312.cob 15: JMN2312I-S The CHARACTER TYPE clause cannot be specified for the data-item specified in the LABEL RECORD clause, or for its subordinate item.

Explanation

The LABEL RECORD clause is obsolete. This compiler treats the LABEL RECORD clause as a comment.

JMN2316I-I

(CONF) A RECORD CONTAINS clause containing an integer without reserved word TO cannot be specified for a presentation file.

Example

[P2316.cob]
000001 @OPTIONS CONF(74)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    P2316.
000004 ENVIRONMENT    DIVISION.
000005 INPUT-OUTPUT    SECTION.
000006 FILE-CONTROL.
000007     SELECT PRFILE1 ASSIGN TO GS-SYS001
000008        SYMBOLIC DESTINATION IS "DSP".
000009 DATA           DIVISION.
000010 FILE            SECTION.
000011 FD PRFILE1
000012       RECORD CONTAINS 80.
000013 01 PRF1REC.
000014   02           PIC X(80).
000015 PROCEDURE      DIVISION.
000016 END PROGRAM    P2316.

P2316.cob 12: JMN2316I-I (CONF) A RECORD CONTAINS clause containing an integer without reserved word TO cannot be specified for a presentation file.

JMN2317I-W

A RECORD CONTAINS clause containing an integer without reserved word TO cannot be specified for a presentation file. The RECORD clause is ignored.

Example

[P2317.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2317.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT PRFILE1 ASSIGN TO GS-SYS001
000007        SYMBOLIC DESTINATION IS "DSP".
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD PRFILE1
000011       RECORD CONTAINS 80.
000012 01 PRF1REC.
000013   02           PIC X(80).
000014 PROCEDURE      DIVISION.
000015 END PROGRAM    P2317.

P2317.cob 11: JMN2317I-W A RECORD CONTAINS clause containing an integer without reserved word TO cannot be specified for a presentation file. The RECORD clause is ignored.

JMN2319I-S

The RECORD DEPENDING ON clause cannot be specified for a file that contains a data item with a CHARACTER TYPE clause or PRINTING POSITION clause. The DEPENDING ON phrase is ignored.

Example

[P2319.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2319.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD SQFILE1
000010       RECORD VARYING IN SIZE
000011         DEPENDING ON LRECL.
000012 01 SQF1REC.
000013   02            PIC X(8).
000014   02            PIC N(10)
000015                 CHARACTER TYPE MODE-1.
000016   02            PIC X(60) .
000017 WORKING-STORAGE SECTION.
000018 01 LRECL       PIC 9(2).
000019 PROCEDURE      DIVISION.
000020 END PROGRAM    P2319.

P2319.cob 9: JMN2319I-S The RECORD DEPENDING ON clause cannot be specified for a file that contains a data item with a CHARACTER TYPE clause or PRINTING POSITION clause. The DEPENDING ON phrase is ignored.

Explanation

Records whose print information is defined by the CHARACTER TYPE clause or the PRINTING POSITION clause cannot be variable-length.

JMN2320I-S

Data-name with CHARACTER TYPE clause or PRINTING POSITION clause is redefined. The print result is not guaranteed.

Explanation

The CHARACTER TYPE clause specifies format of characters when printing. The PRINTING POSITION clause specifies the column to use when printing. When the data item to which these clause are effective has been redefined by another data item, COBOL runtime system cannot get information for the print correctly. As a result, the print result might be not correct.

JMN2329I-S

The REDEFINES clause cannot be specified for the data-name in the APPLY SAVED-AREA clause. The REDEFINES clause is ignored.

Example

[P2329.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2329.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008     APPLY SAVED-AREA RSVAR ON SQFILE1.
000009 DATA           DIVISION.
000010 FILE            SECTION.
000011 FD SQFILE1.
000012 01 SQF1REC.
000013   02           PIC X(80).
000014 WORKING-STORAGE SECTION.
000015 01 WSVAR       PIC X(80).
000016 01 RSVAR REDEFINES WSVAR
000017                PIC N(80).
000018 PROCEDURE      DIVISION.
000019 END PROGRAM    P2329.

P2329.cob 16: JMN2329I-S The REDEFINES clause cannot be specified for the data-name in the APPLY SAVED-AREA clause. The REDEFINES clause is ignored.

JMN2331I-S

When a file with a LINAGE clause is an external file, data-name '@1@' must be defined as an external data item.

Parameter explanation

@1@ : Data name which causes the error.

Example

[P2331.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2331.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD SQFILE1 IS EXTERNAL
000011            LINAGE  WPAGE.
000012 01 SQF1REC.
000013   02           PIC X(80).
000014 WORKING-STORAGE SECTION.
000015 01 WPAGE       PIC 9(2).
000016 PROCEDURE      DIVISION.
000017 END PROGRAM    P2331.

P2331.cob 11: JMN2331I-S When a file with a LINAGE clause is an external file, data-name 'WPAGE' must be defined as an external data item.

Explanation

When the file that specifies the LINAGE phrase is shared as an external file, the layout of a logical page also is shared. The data item that stores the number of lines of the page body must be an external attribute.

JMN2332I-S

When a file with a LINAGE clause is an external file, data-name '@1@' must be defined as an external data item. The data-name is ignored.

Parameter explanation

@1@ : Data name which causes error.

Example

[P2332.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2332.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD SQFILE1 IS EXTERNAL
000011            LINAGE  66
000012               LINE AT TOP WTOP.
000013 01 SQF1REC.
000014   02           PIC X(80).
000015 WORKING-STORAGE SECTION.
000016 01 WTOP        PIC 9(2).
000017 PROCEDURE      DIVISION.
000018 END PROGRAM    P2332.

P2332.cob 12: JMN2332I-S When a file with a LINAGE clause is an external file, data-name 'WTOP' must be defined as an external data item. The data-name is ignored.

Explanation

When the file that specifies the LINAGE phrase is shared as an external file, the layout of a logical page also is shared. In this case, the data item specified for the FOOTING phrase, the LINES AT TOP phrase or the LINES AT BOTTOM phrase should be an external attribute.

JMN2333I-S

The object of the OCCURS DEPENDING ON phrase must be an integer.

Example

[P2333.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2333.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP.
000007   02 WDPEND    PIC S9(3)V99.
000008   02 WOCC      OCCURS 10 DEPENDING ON WDPEND.
000009     03         PIC X.
000010 PROCEDURE      DIVISION.
000011 END PROGRAM    P2333.

P2333.cob 8: JMN2333I-S The object of the OCCURS DEPENDING ON phrase must be an integer.

Explanation

The item that stores the occurrence count must be an integer item.

JMN2334I-S

The size of the logical page (the value of the first integer following the word 'LINAGE') must be positive. 1 is assumed.

Example

[P2334.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2334.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD SQFILE1 IS EXTERNAL
000010            LINAGE  0.
000011 01 SQF1REC.
000012   02           PIC X(80).
000013 WORKING-STORAGE SECTION.
000014 PROCEDURE      DIVISION.
000015 END PROGRAM    P2334.

P2334.cob 10: JMN2334I-S The size of the logical page (the value of the first integer following the word 'LINAGE') must be positive. 1 is assumed.

Explanation

The size of logical page is presented by the number of lines, and should be a positive number.

JMN2335I-S

A SYNCHRONIZED clause cannot be specified for an item that is subordinate to a group item with a VALUE clause. The SYNCHRONIZED clause is assumed to be valid.

Example

[P2335.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2335.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP VALUE LOW-VALUE.
000007   02 WELM1     PIC X.
000008   02 WELM2     PIC 1(8) SYNC.
000009 PROCEDURE      DIVISION.
000010 END PROGRAM    P2335.

P2335.cob 8: JMN2335I-S A SYNCHRONIZED clause cannot be specified for an item that is subordinate to a group item with a VALUE clause. The SYNCHRONIZED clause is assumed to be valid.

Explanation

The compiler does not support the generation of code for the situation in which a group item has a VALUE clause and a subordinate item has a SYNCHRONIZED clause. Either the initial value will not be applied or the slack bytes will not be inserted. Since both are required, the compiler does not generate any code, as either possibility would be wrong.

JMN2336I-S

The JUSTIFIED clause cannot be specified for an item that is subordinate to a group item with a VALUE clause. The JUSTIFIED clause is assumed to be valid.

Example

[P2336.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2336.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP VALUE LOW-VALUE.
000007   02 WELM1     PIC X(5).
000008   02 WELM2     PIC X(5) JUSTIFIED.
000009   02 WELM3     PIC X(5).
000010 PROCEDURE      DIVISION.
000011 END PROGRAM    P2336.

P2336.cob 8: JMN2336I-S The JUSTIFIED clause cannot be specified for an item that is subordinate to a group item with a VALUE clause. The JUSTIFIED clause is assumed to be valid.

Explanation

The JUSTIFIED (JUST) clause specifies that as data is transcribed, it is aligned to the rightmost character position of the receiving data item. The JUSTIFIED clause is ignored when an initial value is set to the group item, regardless of the format of the subordinate items.

In this case, neither the object file nor the executable file is generated.

JMN2337I-S

The USAGE of an item that is subordinate to a group item with a VALUE clause must be DISPLAY. The USAGE clause is assumed valid.

Example

[P2337.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2337.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP VALUE LOW-VALUE.
000007   02 WELM1     PIC X(5).
000008   02 WELM2     PIC 9(5) BINARY.
000009   02 WELM3     PIC X(5).
000010 PROCEDURE      DIVISION.
000011 END PROGRAM    P2337.

P2337.cob 8: JMN2337I-S The USAGE of an item that is subordinate to a group item with a VALUE clause must be DISPLAY. The USAGE clause is assumed valid.

Explanation

An initial value of the group item is set considering the entire group item to be one alphanumeric item. If the USAGE of a subordinate elementary item is not DISPLAY, its correct initial value is not set. The specified USAGE is accepted, but neither the object file nor the executable file is generated.

JMN2338I-S

The value of the integer in the FOOTING phrase must not exceed the size of the logical page. The value of the integer in the FOOTING phrase is assumed to be the same as the size of the logical page.

Example

[P2338.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2338.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD SQFILE1 IS EXTERNAL
000010            LINAGE  66
000011               FOOTING 67.
000012 01 SQF1REC.
000013   02          PIC X(80).
000014 WORKING-STORAGE SECTION.
000015 PROCEDURE      DIVISION.
000016 END PROGRAM    P2338.

P2338.cob 11: JMN2338I-S The value of the integer in the FOOTING phrase must not exceed the size of the logical page. The value of the integer in the FOOTING phrase is assumed to be the same as the size of the logical page.

Explanation

The FOOTING phrase specifies the beginning line of the footer. The footer cannot be larger than the page body.

JMN2341I-S

An @1@ item cannot be defined in the CONSTANT SECTION. It is accepted as written.

Parameter explanation

@1@ : Index data or external floating-point.

Example

[P2341.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2341.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 CONSTANT        SECTION.
000006 01 WIX         INDEX.
000007 PROCEDURE      DIVISION.
000008 END PROGRAM    P2341.

P2341.cob 6: JMN2341I-S An index data item cannot be defined in the CONSTANT SECTION. It is accepted as written.

Explanation

The data description entry declared in the CONSTANT section must have an initial value specified by the VALUE clause. An item that cannot have an initial value cannot be defined in the CONSTANT section.

JMN2343I-W

The integer (maximum number of character positions) in the RECORD clause must be equal to or greater than the record length. The RECORD clause is ignored.

Example

[P2343.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2343.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD SQFILE1
000011       RECORD CONTAINS 30 TO 70.
000012 01 SQF1REC.
000013   02           PIC X(80).
000014 PROCEDURE      DIVISION.
000015 END PROGRAM    P2343.

P2343.cob 10: JMN2343I-W The integer (maximum number of character positions) in the RECORD clause must be equal to or greater than the record length. The RECORD clause is ignored.

Explanation

The RECORD clause specifies the size of the record. Specify a value that is equal to or greater than the actual record length.

JMN2350I-S

The block size must be greater than or equal to the record length. The BLOCK CONTAINS clause is ignored.

Example

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

P2350.cob 11: JMN2350I-S The block size must be greater than or equal to the record length. The BLOCK CONTAINS clause is ignored.

Explanation

This compiler analyzes the BLOCK CONTAINS clause, but treats it as a comment.

JMN2354I-S

'@1@' is already defined as a name with the EXTERNAL clause. The EXTERNAL clause is ignored.

Parameter explanation

@1@ : User-defined word which causes error.

Example

[P2354.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2354.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 FILE            SECTION.
000006 WORKING-STORAGE SECTION.
000007 01 EXNM  IS EXTERNAL
000008                PIC X(2).
000009 01 EXNM  IS EXTERNAL
000010                PIC X(2).
000011 PROCEDURE      DIVISION.
000012 END PROGRAM    P2354.

P2354.cob 9: JMN2354I-S 'EXNM' is already defined as a name with the EXTERNAL clause. The EXTERNAL clause is ignored.

JMN2357I-S

The end of the area described by the THROUGH phrase data-name must be beyond the end of the area described by the RENAMES clause data-name.

Example

[P2357.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2357.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP.
000007   02 WELM1     PIC X(20).
000008   02 WELM2 REDEFINES WELM1
000009                PIC X(2).
000010 66 RGRP RENAMES WELM1 THRU WELM2.
000011 PROCEDURE      DIVISION.
000012 END PROGRAM    P2357.

P2357.cob 10: JMN2357I-S The end of the area described by the THROUGH phrase data-name must be beyond the end of the area described by the RENAMES clause data-name.

Explanation

When the THROUGH (THRU) phrase is specified, the RENAMES entry is assumed to be a group item, and the range of this group is named. The data-name that is specified just after the RENAMES clause is the first item of this range. The data-name that is specified just after THROUGH phrase is the last item of this range. The end of the area of the first item must not exceed the area of the last item.

JMN2358I-W

The '@1@' clause cannot be specified to a sort-merge file.

Parameter explanation

@1@ : ACCESS MODE, ACTUAL KEY, ALTERNATE RECORD KEY, CONTROL AREA, FILE-LIMIT, FILE STATUS, NOMINAL KEY, PADDING CHARACTER, PROCESSING MODE, RECORD DELIMITER, RECORD KEY, RELATIVE KEY, RESERVE, TRACK-AREA, TRACK-LIMIT, SYMBOLIC KEY, ORGANIZATION, FORMAT, GROUP, SYMBOLIC DESTINATION, DESTINATION-1, DESTINATION-2, DESTINATION-3, SELECTED FUNCTION, UNIT CONTROL, MESSAGE MODE, END KEY, SESSION CONTROL, PROCESSING CONTROL, MESSAGE CLASS, PASSWORD, MESSAGE OWNER, MESSAGE CODE, MESSAGE SEQUENCE, DESTINATION CONTROL, PROCESSING TIME, or LOCK MODE.

Example

[P2358.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2358.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SRTFILE ASSIGN TO SYS001
000007       RESERVE 20 AREAS.
000008 I-O-CONTROL.
000009 DATA           DIVISION.
000010 FILE            SECTION.
000011 SD SRTFILE.
000012 01 SQF1REC.
000013   02           PIC X(80).
000014 WORKING-STORAGE SECTION.
000015 PROCEDURE      DIVISION.
000016 END PROGRAM    P2358.

P2358.cob 7: JMN2358I-W The 'RESERVE' clause cannot be specified to a sort-merge file.

Explanation

The sort-merge file is created internally by the COBOL runtime system. Only the SELECT clause and the ASSIGN clause can be described in the file control entry of the sort-merge file.

JMN2359I-W

The signed external decimal item with the BLANK WHEN ZERO clause is assumed to be unsigned.

Example

[P2359.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2359.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WNE1        PIC  9(9) DISPLAY
000007                BLANK WHEN ZERO. *> OK
000008 01 WNE2        PIC S9(9) DISPLAY
000009                BLANK WHEN ZERO. *> ERROR
000010 PROCEDURE      DIVISION.
000011 END PROGRAM    P2359.

P2359.cob 9: JMN2359I-W The signed external decimal item with the BLANK WHEN ZERO clause is assumed to be unsigned.

Explanation

When the BLANK WHEN ZERO clause is specified for the numeric item, it should be an unsigned external decimal item.

JMN2365I-S

Data-name '@2@' in the @1@ clause cannot be a pointer data item.

Parameter explanation

@1@ : REDEFINES clause, RENAMES clause, or ASCENDING/DESCENDING KEY IS phrase of OCCURS clause.

@2@ : Data name which causes the error.

Example

[P2365.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2365.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD SQFILE1
000010       RECORD VARYING IN SIZE
000011          DEPENDING ON LRECL.
000012 01 SQF1REC.
000013   02           PIC X(80).
000014 WORKING-STORAGE SECTION.
000015 01 LRECL       POINTER.
000016 PROCEDURE      DIVISION.
000017 END PROGRAM    P2365.

P2365.cob 11: JMN2365I-S Data-name 'LRECL' in the RECORD clause cannot be a pointer data item.

JMN2366I-S

The data-name in the BASED ON clause must be a pointer data item, but not a procedure pointer data item.

Example

[P2366.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2366.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 BASED-STORAGE   SECTION.
000006 01 WBUF1       PIC X(20) BASED ON WNUM.
000007 01 WBUF2       PIC X(20) BASED ON WPX1.
000008 01 WBUF3       PIC X(20) BASED ON WPX2.
000009 WORKING-STORAGE SECTION.
000010 01 WNUM        PIC S9(9).
000011 01 WPX1        POINTER.
000012 01 WPX2        PROCEDURE-POINTER.
000013 PROCEDURE      DIVISION.
000014 END PROGRAM    P2366.

P2366.cob 6: JMN2366I-S The data-name in the BASED ON clause must be a pointer data item, but not a procedure pointer data item.

P2366.cob 8: JMN2366I-S The data-name in the BASED ON clause must be a pointer data item, but not a procedure pointer data item.

Explanation

An implicit pointer qualifier is specified in a data item of the BASED-STORAGE SECTION. The pointer data item used for that pointer qualifier is specified for a data-name of the BASED ON clause.

JMN2370I-I

User word '@1@' is defined multiple times.

Parameter explanation

@1@ : The user-defined word that is defined multiple times.

Example

[P2370.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.     P2370.
000003 ENVIRONMENT     DIVISION.
000004 DATA            DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 A            PIC X(1).
000007 78 A            VALUE "A".
000008 PROCEDURE       DIVISION.
000009 END PROGRAM     P2370.

P2370.cob 7: JMN2370I-I User word 'A' is defined multiple times.

Explanation

Following is the cause of this diagnostic message.

  • When a named literal (level 78 item) is defined using the same name as one defined previously.

JMN2372I-S

The data item specified in LENGTH OF must be completed before the named-constant '@1@' is defined.

Parameter explanation

@1@ : Named-constant name that causes the error.

Example

[P2372.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2372.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 78 WNCT        VALUE LENGTH OF WGRP.
000007 01 WGRP.
000008   02 WELM1     PIC X(10).
000009   02 WELM2     PIC N(10).
000010 PROCEDURE      DIVISION.
000011 END PROGRAM    P2372.

P2372.cob 6: JMN2372I-S The data item specified in LENGTH OF must be completed before the named-constant 'WNCT' is defined.

Explanation

When the data description entry of the named literal (level-number 78) specifies LENGTH, the value of the named literal is the length of the data item that is specified in the LENGTH phrase. The item length of the data specified by LENGTH must be fixed before the declaration of a relating named literal appears.

JMN2374I-S

The data item specified in LENGTH OF cannot be an internal Boolean item.

Example

[P2374.cob]
000001 PROGRAM-ID.    P2374 .
000002 ENVIRONMENT    DIVISION.
000003 DATA           DIVISION.
000004 WORKING-STORAGE SECTION.
000005  77  X    PIC 1(8) USAGE BIT.
000006  78  V1   VALUE IS LENGTH OF X.
000007  PROCEDURE DIVISION.
000008      EXIT PROGRAM.

P2374.cob 6: JMN2374I-S The data item specified in LENGTH OF cannot be an internal Boolean item.

Explanation

When the data description entry of the named literal (level-number 78) specifies LENGTH, the value of the named literal is the length of the data item that is specified in the LENGTH phrase. A length in units of bits cannot be used as the value of a named literal.

JMN2375I-S

The @1@ clause is specified for a data item specified in LENGTH OF. The named-constant is ignored.

Parameter explanation

@1@ : ANY LENGTH or TYPE.

Example

[C2375.cob]
000001 CLASS-ID.      C2375 .
000002 ENVIRONMENT    DIVISION.
000003 OBJECT.
000004 PROCEDURE      DIVISION.
000005 METHOD-ID.     M2375.
000006 DATA           DIVISION.
000007 LINKAGE        SECTION.
000008  01  X    PIC N ANY LENGTH.
000009  78  V1   VALUE IS
000010           LENGTH OF X.
000011 PROCEDURE DIVISION USING X.
000012      EXIT METHOD.
000013 END METHOD     M2375.
000014 END OBJECT.
000015 END CLASS      C2375.

C2375.cob 10: JMN2375I-S The ANY LENGTH clause is specified for a data item specified in LENGTH OF. The named-constant is ignored.

Explanation

When the data description entry of the named literal (level-number 78) specifies LENGTH, the value of the named literal is the length of the data item that is specified in the LENGTH phrase. The TYPE clause or the ANY LENGTH clause cannot be specified for the data description entry in LENGTH, because their length cannot be fixed.

JMN2384I-S

The data-name of the @1@ clause must be defined in a section other than BASED-STORAGE SECTION.

Parameter explanation

@1@ : APPLY REORG-CRITERIA.

Example

[P2384.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2384.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT IXFILE1 ASSIGN TO I-SYS001
000007       ACCESS MODE    IS RANDOM
000008       NOMINAL KEY    IS WNKEY
000009       RECORD KEY     IS WRKEY.
000010 I-O-CONTROL.
000011     APPLY REORG-CRITERIA TO WRORG ON IXFILE1.
000012 DATA           DIVISION.
000013 BASED-STORAGE   SECTION.
000014 01 WRORG        PIC X(8).
000015 FILE            SECTION.
000016 FD IXFILE1.
000017 01 IXF1REC.
000018   02 WRKEY      PIC X(2).
000019   02            PIC X(80).
000020 WORKING-STORAGE SECTION.
000021 01 WNKEY        PIC X(2).
000022 PROCEDURE      DIVISION.
000023 END PROGRAM    P2384.

P2384.cob 11: JMN2384I-S The data-name of the APPLY REORG-CRITERIA clause must be defined in a section other than BASED-STORAGE SECTION.

Explanation

The APPLY REORG-CRITERIA clause is specific to the OSIV-series.

JMN2385I-S

Data-name '@2@' of the @1@ clause must be defined in a section other than the BASED-STORAGE SECTION. The data-name is ignored.

Parameter explanation

@1@ : LINAGE or CCCURS.

@2@ : Data name which causes the error

Example

[C23851.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C23851.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT AFILE1 ASSIGN DD1
000007            ORGANIZATION INDEXED
000008            RECORD KEY IS RR1.
000009 DATA DIVISION.
000010 BASED-STORAGE SECTION.
000011   01 RK1     PIC X(5).
000012 FILE SECTION.
000013   FD AFILE1 .
000014   01 AREC1.
000015     02 RR1   PIC X(2).
000016 WORKING-STORAGE SECTION.
000017   01 WREC1.
000018     02 BREC2 OCCURS 10 DEPENDING ON RK1 PIC X(2).
000019 PROCEDURE DIVISION.
000020 END PROGRAM C23851.

C23851.cob 18: JMN2385I-S Data-name 'RK1' of the OCCURS clause must be defined in a section other than the BASED-STORAGE SECTION. The data-name is ignored.

JMN2393I-S

[Solaris][Linux]
Data-name '@1@' in the FILE STATUS clause must be defined in the WORKING-STORAGE SECTION or LINKAGE SECTION.

[Linux64]
Data-name '@1@' in the FILE STATUS clause must be defined in the WORKING-STORAGE SECTION, LOCAL-STORAGE SECTION or LINKAGE SECTION.

Parameter explanation

@1@ : Data name which causes error.

Example

[P2393.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2393.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001
000007       ORGANIZATION   IS SEQUENTIAL
000008       FILE STATUS    IS WFS1.
000009 I-O-CONTROL.
000010 DATA           DIVISION.
000011 FILE            SECTION.
000012 FD SQFILE1.
000013 01 SQF1REC.
000014   02           PIC X(80).
000015 CONSTANT        SECTION.
000016 01 WFS1        PIC X(2) VALUE SPACE.
000017 PROCEDURE      DIVISION.
000018 END PROGRAM    P2393.
  • [Solaris][Linux]

    P2393.cob 8: JMN2393I-S Data-name 'WFS1' in the FILE STATUS clause must be defined in the WORKING-STORAGE SECTION or LINKAGE SECTION.

  • [Linux64]

    P2393.cob 8: JMN2393I-S Data-name 'WFS1' in the FILE STATUS clause must be defined in the WORKING-STORAGE SECTION, LOCAL-STORAGE SECTION or LINKAGE SECTION.

JMN2394I-S

[Solaris][Linux]
Data-name '@1@' in the FILE STATUS clause must be defined in the WORKING-STORAGE SECTION or LINKAGE SECTION. The data-name is ignored.

[Linux64]
Data-name '@1@' in the FILE STATUS clause must be defined in the WORKING-STORAGE SECTION, LOCAL-STORAGE SECTION or LINKAGE SECTION. The data-name is ignored.

Parameter explanation

@1@ : Data name which causes error.

Example

[P2394.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2394.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO VS-SYS001
000007       ORGANIZATION   IS SEQUENTIAL
000008       FILE STATUS    IS WFS1 WFS2.
000009 I-O-CONTROL.
000010 DATA           DIVISION.
000011 FILE            SECTION.
000012 FD SQFILE1.
000013 01 SQF1REC.
000014   02           PIC X(80).
000015 WORKING-STORAGE SECTION.
000016 01 WFS1        PIC X(2).
000017 CONSTANT        SECTION.
000018 01 WFS2        PIC X(2) VALUE SPACE.
000019 PROCEDURE      DIVISION.
000020 END PROGRAM    P2394.
  • [Solaris][Linux]

    P2394.cob 8: JMN2394I-S Data-name 'WFS2' in the FILE STATUS clause must be defined in the WORKING-STORAGE SECTION or LINKAGE SECTION. The data-name is ignored.

  • [Linux64]

    P2394.cob 8: JMN2394I-S Data-name 'WFS2' in the FILE STATUS clause must be defined in the WORKING-STORAGE SECTION, LOCAL-STORAGE SECTION or LINKAGE SECTION. The data-name is ignored.

JMN2395I-S

Data-name '@1@' in the FILE STATUS clause must be 2 bytes in length.

Parameter explanation

@1@ : Data name which causes the error.

Example

[P2395.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2395.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001
000007       ORGANIZATION   IS SEQUENTIAL
000008       FILE STATUS    IS WFS1.
000009 I-O-CONTROL.
000010 DATA           DIVISION.
000011 FILE            SECTION.
000012 FD SQFILE1.
000013 01 SQF1REC.
000014   02           PIC X(80).
000015 LINKAGE         SECTION.
000016 01 WFS1        PIC X(4).
000017 PROCEDURE      DIVISION USING WFS1.
000018 END PROGRAM    P2395.

P2395.cob 8: JMN2395I-S Data-name 'WFS1' in the FILE STATUS clause must be 2 bytes in length.

Explanation

The FILE STATUS clause specifies which data item is to receive the I-O status. The I-O status is a double byte character area provided for indicating the result of an input-output statement.

JMN2396I-S

Data-name '@1@' in the FILE STATUS clause must be @2@ bytes in length. The data-name is ignored.

Parameter explanation

@1@ : Data name which causes the error.

@2@ : Integer(data length)

Example

[P2396.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2396.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO VS-SYS001
000007       ORGANIZATION   IS SEQUENTIAL
000008       FILE STATUS    IS WFS1 WFS2.
000009 I-O-CONTROL.
000010 DATA           DIVISION.
000011 FILE            SECTION.
000012 FD SQFILE1.
000013 01 SQF1REC.
000014   02           PIC X(80).
000015 WORKING-STORAGE SECTION.
000016 01 WFS1        PIC X(2).
000017 01 WFS2        PIC X(2).
000018 PROCEDURE      DIVISION.
000019 END PROGRAM    P2396.

P2396.cob 8: JMN2396I-S Data-name 'WFS2' in the FILE STATUS clause must be 6 bytes in length. The data-name is ignored.

Explanation

The second data-name of the FILE-STATUS clause is the data-name for detailed I-O status information. The detailed information of a print file with a FORMAT clause or presentation file is a four byte area. The detailed information of a VSAM organization file is six byte area. (The VSAM organization file is specific to the OSIV-series.)

JMN2397I-S

The data-name with the detail information in the FILE STATUS clause can only be specified in the presentation file (organization 'GS') or the print file with the FORMAT clause, sequential file (organization AS or VS), relative file, or indexed file.

Example

[P2397.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2397.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001
000007       ORGANIZATION   IS SEQUENTIAL
000008       FILE STATUS    IS WFS1 WFS2.
000009 I-O-CONTROL.
000010 DATA           DIVISION.
000011 FILE            SECTION.
000012 FD SQFILE1.
000013 01 SQF1REC.
000014   02           PIC X(80).
000015 WORKING-STORAGE SECTION.
000016 01 WFS1        PIC X(2).
000017 01 WFS2        PIC X(2).
000018 PROCEDURE      DIVISION.
000019 END PROGRAM    P2397.

P2397.cob 8: JMN2397I-S The data-name with the detail information in the FILE STATUS clause can only be specified in the presentation file (organization 'GS') or the print file with the FORMAT clause, sequential file (organization AS or VS), relative file, or indexed file.

Explanation

The second data-name of the FILE STATUS clause is a data-name for detailed information that can be specified in a particular file.

The file organization AS or VS is specific to the OSIV-series.

JMN2398I-S

The data-name or nonnumeric literal of 3 characters must be specified in the SYMBOLIC DESTINATION clause.

Example

[P2398.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2398.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT PRFILE1 ASSIGN TO GS-SYS001
000007        SYMBOLIC DESTINATION IS "ABCD".
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD PRFILE1.
000011 01 PRF1REC.
000012   02            PIC X(80).
000013 WORKING-STORAGE SECTION.
000014 PROCEDURE      DIVISION.
000015 END PROGRAM    P2398.

P2398.cob 7: JMN2398I-S The data-name or nonnumeric literal of 3 characters must be specified in the SYMBOLIC DESTINATION clause.

Explanation

The SYMBOLIC DESTINATION clause specifies the destination type. The destination type specifies to which hardware unit the input-output statement is directed. Each destination type is identified by a 3-character name.

JMN2399I-S

Nonnumeric literal @1@ of the SYMBOLIC DESTINATION clause cannot be specified.

Parameter explanation

@1@ : Value of nonnumeric literal which causes error.

Example

[P2399.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2399.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT PRFILE1 ASSIGN TO GS-SYS001
000007        SYMBOLIC DESTINATION IS "ABC".
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD PRFILE1.
000011 01 PRF1REC.
000012   02           PIC X(80).
000013 WORKING-STORAGE SECTION.
000014 PROCEDURE      DIVISION.
000015 END PROGRAM    P2399.

P2399.cob 7: JMN2399I-S Nonnumeric literal "ABC" of the SYMBOLIC DESTINATION clause cannot be specified.

Explanation

The SYMBOLIC DESTINATION clause specifies the destination type. The destination type specifies to which hardware unit the input-output statement is directed. Each destination type is identified by a 3-character name.

JMN2400I-S

If a qualified PAGE-COUNTER or LINE-COUNTER is specified in the SOURCE clause, the PAGE-COUNTER or LINE-COUNTER must be qualified by a unique report-name.

Example

[P2400.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2400.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE1 ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE1 REPORT REP1.
000010 WORKING-STORAGE SECTION.
000011 REPORT          SECTION.
000012 RD REP1 PAGE  46
000013             HEADING 1
000014             FIRST DETAIL  7
000015             LAST DETAIL  44.
000016  01  TYPE PAGE HEADING.
000017    02  LINE 01 COLUMN 35
000018                PIC S9(6) SOURCE LINE-COUNTER OF REPFILE.
000019 PROCEDURE      DIVISION.
000020 END PROGRAM    P2400.

P2400.cob 19: JMN2400I-S If a qualified PAGE-COUNTER or LINE-COUNTER is specified in the SOURCE clause, the PAGE-COUNTER or LINE-COUNTER must be qualified by a unique report-name.

Explanation

PAGE-COUNTER and LINE-COUNTER are special registers used with the Report Writer module. These special registers are generated for each report file. PAGE-COUNTER and LINE-COUNTER are qualified with a report-name - a name that follows the level indicator RD.

JMN2401I-S

The identifier in the SOURCE clause is undefined.

Example

[P2401.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2401.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE REPORT REP1.
000010 WORKING-STORAGE SECTION.
000011 REPORT          SECTION.
000012 RD REP1 PAGE  46
000013             HEADING 1
000014             FIRST DETAIL  7
000015             LAST DETAIL  44.
000016  01  TYPE PAGE HEADING.
000017    02  LINE 01 COLUMN 35 PIC N(6) SOURCE REP-SOU.
000018 PROCEDURE      DIVISION.
000019 END PROGRAM    P2401.

P2401.cob 17: JMN2401I-S The identifier in the SOURCE clause is undefined.

JMN2402I-S

The identifier in the SOURCE clause is not unique.

Example

[P2402.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2402.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE REPORT REP1.
000010 WORKING-STORAGE SECTION.
000011 01 REP-SOU      PIC N(6).
000012 01 REP-SOU      PIC X(12).
000013 REPORT          SECTION.
000014 RD REP1 PAGE  46
000015             HEADING 1
000016             FIRST DETAIL  7
000017             LAST DETAIL  44.
000018  01  TYPE PAGE HEADING.
000019    02  LINE 01 COLUMN 35 PIC N(6) SOURCE REP-SOU.
000020 PROCEDURE      DIVISION.
000021 END PROGRAM    P2402.

P2402.cob 19: JMN2402I-S The identifier in the SOURCE clause is not unique.

JMN2403I-S

The identifier in the SOURCE clause must be a data-name, a PAGE-COUNTER, or a LINE-COUNTER.

Example

[P2403.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2403.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE REPORT REP1.
000010 WORKING-STORAGE SECTION.
000011 REPORT          SECTION.
000012 RD REP1 PAGE  46
000013             HEADING 1
000014             FIRST DETAIL  7
000015             LAST DETAIL  44.
000016  01  TYPE PAGE HEADING.
000017    02  LINE 01 COLUMN 35 PIC N(6) SOURCE LABEL1.
000018 PROCEDURE      DIVISION.
000019 LABEL1.
000020 END PROGRAM    P2403.

P2403.cob 17: JMN2403I-S The identifier in the SOURCE clause must be a data-name, a PAGE-COUNTER, or a LINE-COUNTER.

Explanation

The SOURCE clause specifies a sending data item that provides values to be transferred to a printable item. A data-name, a special register PAGE-COUNTER, or a special register LINE-COUNTER can be specified in the SOURCE clause.

When the printable line is being created by the report writer control system, an implicit MOVE statement is executed, where the item specified in the SOURCE clause is the source operand.

JMN2404I-S

A control data item cannot be specified in the SOURCE clause of a page heading report group or a page footing report group.

Example

[P2404.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2404.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE REPORT REP1.
000010 WORKING-STORAGE SECTION.
000011 01 WCTL        PIC X(5).
000012 REPORT          SECTION.
000013 RD REP1 PAGE  46
000014             HEADING 1
000015             FIRST DETAIL  7
000016             LAST DETAIL  44
000017         CONTROL WCTL.
000018  01  TYPE PAGE HEADING.
000019    02  LINE 01 COLUMN 35 PIC X(5) SOURCE WCTL.
000020 PROCEDURE      DIVISION.
000021 END PROGRAM    P2404.

P2404.cob 19: JMN2404I-S A control data item cannot be specified in the SOURCE clause of a page heading report group or a page footing report group.

JMN2405I-S

The SUM clause can only be specified in a control footing report group.

Example

[P2405.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2405.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE REPORT REP1.
000010 WORKING-STORAGE SECTION.
000011 01 WITM        PIC 9(5).
000012 REPORT          SECTION.
000013 RD REP1 PAGE  46
000014             HEADING 1
000015             FIRST DETAIL  7
000016             LAST DETAIL  44.
000017  01  TYPE PAGE HEADING.
000018    02  LINE 01 COLUMN 35 PIC 9(5) SUM WITM.
000019 PROCEDURE      DIVISION.
000020 END PROGRAM    P2405.

P2405.cob 18: JMN2405I-S The SUM clause can only be specified in a control footing report group.

JMN2406I-S

'@2@' in the @1@ clause is undefined.

Parameter explanation

@1@ : RESET, SUM or UPON.

@2@ : Data name which causes the error.

Example

[P2406.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2406.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE REPORT REP1.
000010 WORKING-STORAGE SECTION.
000011 01 WCTL        PIC X(5).
000012 REPORT          SECTION.
000013 RD REP1 PAGE  46
000014             HEADING 1
000015             FIRST DETAIL  7
000016             LAST DETAIL  44
000017         CONTROL WCTL.
000018  01  TYPE CF WCTL.
000019    02  LINE 43 COLUMN 35 PIC 9(5) SUM WITM.
000020 PROCEDURE      DIVISION.
000021 END PROGRAM    P2406.

P2406.cob 19: JMN2406I-S 'WITM' in the SUM clause is undefined.

JMN2407I-S

'@2@' in the @1@ clause is not unique.

Parameter explanation

@1@ : RESET, SUM or UPON.

@2@ : Data name which causes the error.

Example

[P2407.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2407.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE REPORT REP1.
000010 WORKING-STORAGE SECTION.
000011 01 WCTL        PIC X(5).
000012 01 WITM        PIC X(5).
000013 01 WITM        PIC X(5).
000014 REPORT          SECTION.
000015 RD REP1 PAGE  46
000016             HEADING 1
000017             FIRST DETAIL  7
000018             LAST DETAIL  44
000019         CONTROL WCTL.
000020  01  TYPE CF WCTL.
000021    02  LINE 43 COLUMN 35 PIC 9(5) SUM WITM.
000022 PROCEDURE      DIVISION.
000023 END PROGRAM    P2407.

P2407.cob 21: JMN2407I-S 'WITM' in the SUM clause is not unique.

JMN2408I-S

'@2@' in the @1@ clause must be a data-name.

Parameter explanation

@1@ : RESET, SUM or UPON.

@2@ : Data name which causes the error.

Example

[P2408.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2408.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE REPORT REP1.
000010 WORKING-STORAGE SECTION.
000011 01 WCTL        PIC X(5).
000012 REPORT          SECTION.
000013 RD REP1 PAGE  46
000014             HEADING 1
000015             FIRST DETAIL  7
000016             LAST DETAIL  44
000017         CONTROL WCTL.
000018  01  TYPE CF WCTL.
000019    02  LINE 43 COLUMN 35 PIC 9(5) SUM REP1.
000020 PROCEDURE      DIVISION.
000021 LABEL1.
000022 END PROGRAM    P2408.

P2408.cob 19: JMN2408I-S 'REP1' in the SUM clause must be a data-name.

JMN2409I-S

Report-name '@1@' in the REPORT clause is already specified in another file. The report-name is ignored.

Parameter explanation

@1@ : Report-name which causes the error.

Example

[P2409.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2409.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE1 ASSIGN TO SYS001.
000007     SELECT REPFILE2 ASSIGN TO SYS001.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD REPFILE1 REPORT REP1.
000011 FD REPFILE2 REPORT REP1.
000012 WORKING-STORAGE SECTION.
000013 01 WCTL        PIC X(5).
000014 REPORT          SECTION.
000015 RD REP1 PAGE  46
000016             HEADING 1
000017             FIRST DETAIL  7
000018         CONTROL WCTL.
000019  01  TYPE PAGE HEADING.
000020    02  LINE 01 COLUMN 35 PIC N(6) VALUE SPACE.
000021 PROCEDURE      DIVISION.
000022 LABEL1.
000023 END PROGRAM    P2409.

P2409.cob 11: JMN2409I-S Report-name 'REP1' in the REPORT clause is already specified in another file. The report-name is ignored.

JMN2410I-S

Report-name '@1@' in the REPORT clause is already specified in this clause. The report-name is ignored.

Parameter explanation

@1@ : Report-name which causes the error.

Example

[P2410.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2410.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE1 ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE1 REPORT REP1 REP1.
000010 WORKING-STORAGE SECTION.
000011 01 WCTL        PIC X(5).
000012 REPORT          SECTION.
000013 RD REP1 PAGE  46
000014             HEADING 1
000015             FIRST DETAIL  7
000016         CONTROL WCTL.
000017  01  TYPE PAGE HEADING.
000018    02  LINE 01 COLUMN 35 PIC N(6) VALUE SPACE.
000019 PROCEDURE      DIVISION.
000020 LABEL1.
000021 END PROGRAM    P2410.

P2410.cob 9: JMN2410I-S Report-name 'REP1' in the REPORT clause is already specified in this clause. The report-name is ignored.

JMN2411I-S

The report-name in the report description entry is not specified in the REPORT clause. The report description entry and the report group description entry are ignored.

Example

[P2411.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2411.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006 DATA           DIVISION.
000007 WORKING-STORAGE SECTION.
000008 01 WCTL        PIC X(5).
000009 REPORT          SECTION.
000010 RD REP1 PAGE  46
000011             HEADING 1
000012             FIRST DETAIL  7
000013         CONTROL WCTL.
000014  01  TYPE PAGE HEADING.
000015    02  LINE 01 COLUMN 35 PIC N(6) VALUE SPACE.
000016 PROCEDURE      DIVISION.
000017 LABEL1.
000018 END PROGRAM    P2411.

P2411.cob 10: JMN2411I-S The report-name in the report description entry is not specified in the REPORT clause. The report description entry and the report group description entry are ignored.

Explanation

The report-name (the name following level indicator RD of the report description entry) must be specified for the REPORT clause of the file description entry that corresponds to the report file.

JMN2412I-S

Identifier '@1@' in the SUM clause must be a numeric item. The identifier is ignored.

Parameter explanation

@1@ : Data name which causes the error.

Example

[P2412.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2412.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE REPORT REP1.
000010 WORKING-STORAGE SECTION.
000011 01 WCTL        PIC X(5).
000012 REPORT          SECTION.
000013 RD REP1 PAGE  46
000014             HEADING 1
000015             FIRST DETAIL  7
000016             LAST DETAIL  44
000017         CONTROL WCTL.
000018  01  TYPE CF WCTL.
000019    02  LINE 43 COLUMN 35 PIC 9(5) SUM WCTL.
000020 PROCEDURE      DIVISION.
000021 END PROGRAM    P2412.

P2412.cob 19: JMN2412I-S Identifier 'WCTL' in the SUM clause must be a numeric item. The identifier is ignored.

Explanation

The identifier specified following the SUM clause is a target data item to be summed. These values are added to the sum counter which is a signed numeric data item that the compiler generates.

JMN2413I-S

If UPON is specified in the SUM clause, identifier '@1@' in the SUM clause must not be a data-name in the REPORT SECTION. The identifier is ignored.

Parameter explanation

@1@ : Data name which causes the error.

Example

[P2413.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2413.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD REPFILE
000011       REPORT IS REP1.
000012 WORKING-STORAGE SECTION.
000013 01 CTLD          PIC 9(2).
000014 REPORT          SECTION.
000015 RD REP1 PAGE 66
000016       CONTROL CTLD.
000017 01 TYPE DE.
000018   02 LINE PLUS 1.
000019     03 TARGET COLUMN 10
000020               PIC S9(4) SOURCE CTLD.
000021 01 TYPE CF CTLD.
000022   02           PIC S9(4) SUM TARGET UPON CTLD.
000023 PROCEDURE      DIVISION.
000024 END PROGRAM    P2413.

P2413.cob 22: JMN2413I-S If UPON is specified in the SUM clause, identifier 'TARGET' in the SUM clause must not be a data-name in the REPORT SECTION. The identifier is ignored.

JMN2414I-S

If UPON is not specified in the SUM clause, data-name '@1@' in the REPORT SECTION must be a sum counter. The data-name is ignored.

Parameter explanation

@1@ : Data name which causes the error.

Example

[P2414.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2414.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD REPFILE
000011       REPORT IS REP1.
000012 WORKING-STORAGE SECTION.
000013 01 CTLD          PIC 9(2).
000014 REPORT          SECTION.
000015 RD REP1 PAGE 66
000016       CONTROL CTLD.
000017 01 TYPE DE.
000018   02 LINE PLUS 1.
000019     03 TARGET COLUMN 10
000020               PIC S9(4) SOURCE CTLD.
000021 01 TYPE CF CTLD.
000022   02           PIC S9(4) SUM TARGET.
000023 PROCEDURE      DIVISION.
000024 END PROGRAM    P2414.

P2414.cob 22: JMN2414I-S If UPON is not specified in the SUM clause, data-name 'TARGET' in the REPORT SECTION must be a sum counter. The data-name is ignored.

JMN2415I-S

If identifier '@1@' in the SUM clause is a sum counter, it must be in the same report. The identifier is ignored.

Parameter explanation

@1@ : Data name that causes the error.

Example

[P2415.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2415.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE1 ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD REPFILE1
000011       REPORT IS REP1 REP2.
000012 WORKING-STORAGE SECTION.
000013 01 CTLD1        PIC 9(2).
000014 01 CTLD2        PIC 9(2).
000015 REPORT          SECTION.
000016 RD REP1 PAGE 66
000017       CONTROL CTLD1.
000018 01 TYPE CF CTLD1.
000019   02 TARGET    PIC S9(4) SUM CTLD1.
000020 RD REP2 PAGE 66
000021       CONTROL CTLD2.
000022 01 TYPE CF CTLD2.
000023   02           PIC S9(4) SUM TARGET.
000024 PROCEDURE      DIVISION.
000025 END PROGRAM    P2415.

P2415.cob 23: JMN2415I-S If identifier 'TARGET' in the SUM clause is a sum counter, it must be in the same report. The identifier is ignored.

JMN2416I-S

If identifier '@1@' in the SUM clause is a sum counter, it cannot be a sum counter in a control footing report group of a higher rank level. The identifier is ignored.

Parameter explanation

@1@ : Data name which causes error.

Example

[P2416.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2416.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD REPFILE
000011       REPORT IS REP1.
000012 WORKING-STORAGE SECTION.
000013 01 CTLD1        PIC 9(2).
000014 01 CTLD2        PIC 9(2).
000015 REPORT          SECTION.
000016 RD REP1 PAGE 66
000017       CONTROL CTLD1 CTLD2.
000018 01 TYPE CF CTLD1.
000019   02 TARGET    PIC S9(4) SUM CTLD1.
000020 01 TYPE CF CTLD2.
000021   02           PIC S9(4) SUM TARGET.
000022 PROCEDURE      DIVISION.
000023 END PROGRAM    P2416.

P2416.cob 21: JMN2416I-S If identifier 'TARGET' in the SUM clause is a sum counter, it cannot be a sum counter in a control footing report group of a higher rank level. The identifier is ignored.

JMN2417I-S

Data-name '@1@' in the UPON phrase must be the name of a detail report group in the same report as the control footing report group in which the SUM clause is specified. The data-name is ignored.

Parameter explanation

@1@ : Data name which causes the error.

Example

[P2417.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2417.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD SQFILE1
000011       REPORT IS REP1.
000012 WORKING-STORAGE SECTION.
000013 01 CTLD          PIC 9(2).
000014 REPORT          SECTION.
000015 RD REP1 PAGE 66
000016       CONTROL CTLD.
000017 01 DE-1 TYPE DE.
000018   02 LINE PLUS 1.
000019     03 TARGET COLUMN 10
000020               PIC S9(4) SOURCE CTLD.
000021 01 TYPE CF CTLD.
000022   02           PIC S9(4) SUM CTLD UPON TARGET.
000023 PROCEDURE      DIVISION.
000024 END PROGRAM    P2417.

P2417.cob 22: JMN2417I-S Data-name 'TARGET' in the UPON phrase must be the name of a detail report group in the same report as the control footing report group in which the SUM clause is specified. The data-name is ignored.

JMN2418I-S

If the identifier in a SOURCE clause is specified in the REPORT SECTION, the identifier must be a PAGE-COUNTER, LINE-COUNTER, or a sum counter in the same report as the data-name in which the SOURCE clause is specified.

Example

[P2418.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2418.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD SQFILE1
000011       REPORT IS REP1.
000012 WORKING-STORAGE SECTION.
000013 01 CTLD          PIC 9(2).
000014 REPORT          SECTION.
000015 RD REP1 PAGE 66
000016       CONTROL CTLD.
000017 01 DE-1 TYPE DE.
000018   02 LINE PLUS 1.
000019     03        COLUMN 10
000020               PIC S9(4) SOURCE TARGET.
000021 01 TYPE CF CTLD.
000022   02 LINE PLUS 1.
000023    03 TARGET COLUMN 5  PIC X(10) VALUE SPACE.
000024    03 SC1    COLUMN 20 PIC S9(4) SUM CTLD.
000025 PROCEDURE      DIVISION.
000026 END PROGRAM    P2418.

P2418.cob 20: JMN2418I-S If the identifier in a SOURCE clause is specified in the REPORT SECTION, the identifier must be a PAGE-COUNTER, LINE-COUNTER, or a sum counter in the same report as the data-name in which the SOURCE clause is specified.

JMN2420I-S

The report file must be a sequential file. This report file is ignored.

Example

[P2420.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2420.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001
000007       ORGANIZATION   IS RELATIVE.
000008 I-O-CONTROL.
000009 DATA           DIVISION.
000010 FILE            SECTION.
000011 FD REPFILE
000012       REPORT IS REP1.
000013 WORKING-STORAGE SECTION.
000014 01 CTLD        PIC 9(2).
000015 REPORT          SECTION.
000016 RD REP1 PAGE 66
000017         CONTROL CTLD.
000018 01 TYPE CF CTLD.
000019 PROCEDURE      DIVISION.
000020 END PROGRAM    P2420.

P2420.cob 12: JMN2420I-S The report file must be a sequential file. This report file is ignored.

JMN2421I-S

Report-name '@1@' in the REPORT clause is undefined. The report-name is ignored.

Parameter explanation

@1@ : Report-name which causes the error.

Example

[P2421.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2421.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD REPFILE
000011       REPORT IS REP2.
000012 WORKING-STORAGE SECTION.
000013 01 CTLD        PIC 9(2).
000014 REPORT          SECTION.
000015 RD REP1 PAGE 66
000016         CONTROL CTLD.
000017 01 TYPE CF CTLD.
000018 PROCEDURE      DIVISION.
000019 END PROGRAM    P2421.

P2421.cob 11: JMN2421I-S Report-name 'REP2' in the REPORT clause is undefined. The report-name is ignored.

Explanation

The report-name (the name following level indicator RD of the report description entry) must be specified for the REPORT clause of the file description entry that corresponds to the report file.

JMN2422I-S

Report-name '@1@' in the REPORT clause is not unique. The report-name is ignored.

Parameter explanation

@1@ : Report-name which causes the error.

Example

[P2422.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2422.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD REPFILE
000011       REPORT IS REP1.
000012 WORKING-STORAGE SECTION.
000013 01 CTLD        PIC 9(2).
000014 01 REP1        PIC 9(2).
000015 REPORT          SECTION.
000016 RD REP1 PAGE 66
000017         CONTROL CTLD.
000018 01 TYPE CF CTLD.
000019 PROCEDURE      DIVISION.
000020 END PROGRAM    P2422.

P2422.cob 11: JMN2422I-S Report-name 'REP1' in the REPORT clause is not unique. The report-name is ignored.

JMN2423I-S

'@1@' in the REPORT clause must be a report-name. The name is ignored.

Parameter explanation

@1@ : User-defined word which causes the error.

Example

[P2423.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2423.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD REPFILE
000011       REPORT IS REP1.
000012 WORKING-STORAGE SECTION.
000013 01 CTLD        PIC 9(2).
000014 01 REP1        PIC 9(2).
000015 PROCEDURE      DIVISION.
000016 END PROGRAM    P2423.

P2423.cob 11: JMN2423I-S 'REP1' in the REPORT clause must be a report-name. The name is ignored.

Explanation

The name specified in the REPORT clause should be the same as the report-name (the name following level indicator RD of the report description entry).

JMN2424I-S

Control data-name '@1@' in the CONTROL clause is undefined. The control data-name is ignored.

Parameter explanation

@1@ : Data name which causes the error.

Example

[P2424.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2424.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE REPORT REP1.
000010 WORKING-STORAGE SECTION.
000011 REPORT          SECTION.
000012 RD REP1 PAGE  46
000013             HEADING 1
000014             FIRST DETAIL  7
000015             LAST DETAIL  44
000016         CONTROL WCTL.
000017  01  TYPE PAGE HEADING.
000018    02  LINE 01 COLUMN 35 PIC X(5) VALUE SPACE.
000019 PROCEDURE      DIVISION.
000020 END PROGRAM    P2424.

P2424.cob 16: JMN2424I-S Control data-name 'WCTL' in the CONTROL clause is undefined. The control data-name is ignored.

JMN2425I-S

Control data-name '@1@' in the CONTROL clause is not unique. The control data-name is ignored.

Parameter explanation

@1@ : Data name which causes the error.

Example

[P2425.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2425.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD REPFILE
000011       REPORT IS REP1.
000012 WORKING-STORAGE SECTION.
000013 01 CTLD        PIC S9(9).
000014 01 CTLD        PIC S9(9).
000015 REPORT          SECTION.
000016 RD REP1 PAGE 66
000017         CONTROL CTLD.
000018 01 TYPE DE.
000019 PROCEDURE      DIVISION.
000020 END PROGRAM    P2425.

P2425.cob 17: JMN2425I-S Control data-name 'CTLD' in the CONTROL clause is not unique. The control data-name is ignored.

JMN2426I-S

Control data-name '@1@' in the CONTROL clause must not be a variable length item. The control data-name is ignored.

Parameter explanation

@1@ : Data name which causes the error.

Example

[P2426.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2426.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD REPFILE
000011       REPORT IS REP1.
000012 WORKING-STORAGE SECTION.
000013 01 CTLD.
000014   02 WDPEND     PIC S9(2).
000015   02 WOCC       OCCURS 10 DEPENDING ON WDPEND
000016                 PIC X.
000017 REPORT          SECTION.
000018 RD REP1 PAGE 66
000019         CONTROL CTLD.
000020 01 TYPE DE.
000021 PROCEDURE      DIVISION.
000022 END PROGRAM    P2426.

P2426.cob 19: JMN2426I-S Control data-name 'CTLD' in the CONTROL clause must not be a variable length item. The control data-name is ignored.

Explanation

The data description entry for the control data item (the data item specified for the CONTROL clause) cannot be an item that specifies the OCCURS clause with DEPENDING phrase or an item that contains it.

JMN2427I-S

Control data-name '@1@' in the CONTROL clause must not be an item using subscript. The control data-name is ignored.

Parameter explanation

@1@ : Data name which causes the error.

Example

[P2427.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2427.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD REPFILE
000011       REPORT IS REP1.
000012 WORKING-STORAGE SECTION.
000013 01 .
000014   02 CTLD       OCCURS 10
000015                 PIC X.
000016 REPORT          SECTION.
000017 RD REP1 PAGE 66
000018         CONTROL CTLD.
000019 01 TYPE DE.
000020 PROCEDURE      DIVISION.
000021 END PROGRAM    P2427.

P2427.cob 18: JMN2427I-S Control data-name 'CTLD' in the CONTROL clause must not be an item using subscript. The control data-name is ignored.

Explanation

The data description entry for the control data item (the data item specified for the CONTROL clause) cannot be an item that specifies the OCCURS clause or a subordinate item.

JMN2428I-S

Control data-name '@1@' in the CONTROL clause is already specified in this clause. The duplicate control data-name is ignored.

Parameter explanation

@1@ : Data name which causes the error.

Example

[P2428.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2428.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD REPFILE
000011       REPORT IS REP1.
000012 WORKING-STORAGE SECTION.
000013 01 CTLD1        PIC 9.
000014 01 CTLD2        PIC 9.
000015 01 CTLD3        PIC 9.
000016 REPORT          SECTION.
000017 RD REP1 PAGE 66
000018         CONTROL CTLD1 CTLD2 CTLD1.
000019 01 TYPE DE.
000020 PROCEDURE      DIVISION.
000021 END PROGRAM    P2428.

P2428.cob 18: JMN2428I-S Control data-name 'CTLD1' in the CONTROL clause is already specified in this clause. The duplicate control data-name is ignored.

JMN2429I-S

Control data-name '@1@' in the CONTROL clause must not be defined in the REPORT SECTION. The control data-name is ignored.

Parameter explanation

@1@ : Data name which causes the error.

Example

[P2429.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2429.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD REPFILE
000011       REPORT IS REP1.
000012 WORKING-STORAGE SECTION.
000013 REPORT          SECTION.
000014 RD REP1 PAGE 66
000015         CONTROL CTLD.
000016 01 TYPE DE.
000017   02 LINE PLUS 1.
000018     03 CTLD COLUMN 10 PIC X VALUE SPACE.
000019 PROCEDURE      DIVISION.
000020 END PROGRAM    P2429.

P2429.cob 15: JMN2429I-S Control data-name 'CTLD' in the CONTROL clause must not be defined in the REPORT SECTION. The control data-name is ignored.

JMN2430I-S

NEXT PAGE can only be specified in the first LINE clause of the report group. NEXT PAGE is ignored.

Example

[P2430.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2430.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE
000010       REPORT IS REP1.
000011 WORKING-STORAGE SECTION.
000012 01 WSO1        PIC X(10).
000013 01 WSO2        PIC X(10).
000014 REPORT          SECTION.
000015 RD REP1 PAGE 66.
000016 01 TYPE DE.
000017   02 LINE 8.
000018     03 COLUMN 10 PIC X(10) SOURCE WSO1.
000019   02 LINE 10 NEXT PAGE.
000020     03 COLUMN 10 PIC X(10) SOURCE WSO2.
000021 PROCEDURE      DIVISION.
000022 END PROGRAM    P2430.

P2430.cob 19: JMN2430I-S NEXT PAGE can only be specified in the first LINE clause of the report group. NEXT PAGE is ignored.

JMN2431I-S

The LINE clause cannot be specified in a subordinate item of a group item with a LINE clause. Compilation continues.

Example

[P2431.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2431.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE
000010       REPORT IS REP1.
000011 WORKING-STORAGE SECTION.
000012 01 WSO1        PIC X(10).
000013 01 WSO2        PIC X(10).
000014 REPORT          SECTION.
000015 RD REP1 PAGE 66.
000016 01 TYPE DE.
000017   02 LINE 8.
000018     03 LINE 9
000019        COLUMN 10 PIC X(10) SOURCE WSO1.
000020 PROCEDURE      DIVISION.
000021 END PROGRAM    P2431.

P2431.cob 18: JMN2431I-S The LINE clause cannot be specified in a subordinate item of a group item with a LINE clause. Compilation continues.

JMN2432I-S

If a relative value LINE clause is already specified for a report group, an absolute value LINE clause cannot be specified for that group.

Example

[P2432.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2432.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE
000010       REPORT IS REP1.
000011 WORKING-STORAGE SECTION.
000012 01 WSO1        PIC X(10).
000013 01 WSO2        PIC X(10).
000014 REPORT          SECTION.
000015 RD REP1 PAGE 66.
000016 01 TYPE DE.
000017   02 LINE PLUS 1.
000018     03 COLUMN 10 PIC X(10) SOURCE WSO1.
000019   02 LINE 10.
000020     03 COLUMN 20 PIC X(10) SOURCE WSO2.
000021 PROCEDURE      DIVISION.
000022 END PROGRAM    P2432.

P2432.cob 19: JMN2432I-S If a relative value LINE clause is already specified for a report group, an absolute value LINE clause cannot be specified for that group.

Explanation

Within a report group description entry, an absolute LINE NUMBER clause must be specified before any relative LINE NUMBER clause can be written.

JMN2433I-S

The integers of absolute value LINE clause must be specified in ascending order.

Example

[P2433.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2433.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE
000010       REPORT IS REP1.
000011 WORKING-STORAGE SECTION.
000012 01 WSO1        PIC X(10).
000013 01 WSO2        PIC X(10).
000014 REPORT          SECTION.
000015 RD REP1 PAGE 66.
000016 01 TYPE DE.
000017   02 LINE 12.
000018     03 COLUMN 10 PIC X(10) SOURCE WSO1.
000019   02 LINE 10.
000020     03 COLUMN 20 PIC X(10) SOURCE WSO2.
000021 PROCEDURE      DIVISION.
000022 END PROGRAM    P2433.

P2433.cob 19: JMN2433I-S The integers of absolute value LINE clause must be specified in ascending order.

Explanation

The LINE NUMBER clause specifies the line number on the page on which a report group begins. If a report group description entry specifies a series of absolute LINE NUMBER clauses, the integer values specified in the LINE NUMBER clause must be written in ascending order. They do not need to be consecutive.

JMN2434I-S

Control data-name '@1@' in the CONTROL clause must not be a procedure pointer data-item.

Parameter explanation

@1@ : Data name which causes the error.

Example

[P2434.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2434.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE REPORT IS REP1.
000010 WORKING-STORAGE SECTION.
000011 01 WPPT         PROCEDURE-POINTER.
000012 01 WDATE        PIC 9(4).
000013 REPORT          SECTION.
000014 RD REP1 PAGE 66 HEADING 5
000015                 FIRST DETAIL 6
000016                 LAST  DETAIL 55
000017                 FOOTING       60
000018                 CONTROL WPPT.
000019 01 TYPE CH WPPT.
000020   02           PIC 9(4) SOURCE WDATE.
000021 PROCEDURE      DIVISION.
000022 END PROGRAM    P2434.

P2434.cob 18: JMN2434I-S Control data-name 'WPPT' in the CONTROL clause must not be a procedure pointer data-item.

JMN2435I-S

If a PAGE clause is not specified in a report description entry, an absolute value LINE clause cannot be specified.

Example

[P2435.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2435.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE
000010       REPORT IS REP1.
000011 WORKING-STORAGE SECTION.
000012 01 WSO1        PIC X(10).
000013 REPORT          SECTION.
000014 RD REP1.
000015 01 TYPE DE.
000016   02 LINE 10.
000017     03 COLUMN 10 PIC X(10) SOURCE WSO1.
000018 PROCEDURE      DIVISION.
000019 END PROGRAM    P2435.

P2435.cob 16: JMN2435I-S If a PAGE clause is not specified in a report description entry, an absolute value LINE clause cannot be specified.

Explanation

The vertical layout of a page of a report is determined by the integer values specified in the PAGE clause. An entire report group must be defined to be output on one page. If the page length is not included in the PAGE clause, it cannot be determined whether the value specified by an absolute LINE NUMBER clause is within the page.

JMN2436I-S

If a LINE clause is specified in the report heading report group, page heading report group, or page footing report group, NEXT PAGE cannot be specified.

Example

[P2436.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2436.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE
000010       REPORT IS REP1.
000011 WORKING-STORAGE SECTION.
000012 01 WSO1        PIC X(10).
000013 01 WSO2        PIC X(10).
000014 REPORT          SECTION.
000015 RD REP1 PAGE 66
000016         HEADING 2
000017         FIRST DETAIL  6.
000018 01 TYPE PH.
000019   02 LINE 2 NEXT PAGE.
000020     03 COLUMN 10 PIC X(10) SOURCE WSO1.
000021 PROCEDURE      DIVISION.
000022 END PROGRAM    P2436.

P2436.cob 19: JMN2436I-S If a LINE clause is specified in the report heading report group, page heading report group, or page footing report group, NEXT PAGE cannot be specified.

JMN2437I-S

The first LINE clause in the page footing report group must be an absolute value LINE clause.

Example

[P2437.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2437.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE
000010       REPORT IS REP1.
000011 WORKING-STORAGE SECTION.
000012 01 WSO1        PIC X(10).
000013 01 WSO2        PIC X(10).
000014 REPORT          SECTION.
000015 RD REP1 PAGE 66
000016         HEADING 2
000017         LAST DETAIL 60.
000018 01 TYPE PF.
000019   02 LINE PLUS 1.
000020     03 COLUMN 10 PIC X(10) SOURCE WSO1.
000021 PROCEDURE      DIVISION.
000022 END PROGRAM    P2437.

P2437.cob 19: JMN2437I-S The first LINE clause in the page footing report group must be an absolute value LINE clause.

JMN2438I-S

A report with a CODE clause and a report without a CODE clause cannot be specified together for the same report file. Compilation continues.

Example

[P2438.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2438.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE
000010       REPORT IS REP1 REP2.
000011 WORKING-STORAGE SECTION.
000012 01 WSO1        PIC X(10).
000013 01 WSO2        PIC X(10).
000014 REPORT          SECTION.
000015 RD REP1 PAGE 66
000016         CODE "XX".
000017 01 TYPE DE.
000018   02 LINE 12.
000019     03 COLUMN 10 PIC X(10) SOURCE WSO1.
000020 RD REP2 PAGE 66.
000021 01 TYPE DE.
000022   02 LINE 12.
000023     03 COLUMN 10 PIC X(10) SOURCE WSO1.
000024 PROCEDURE      DIVISION.
000025 END PROGRAM    P2438.

P2438.cob 20: JMN2438I-S A report with a CODE clause and a report without a CODE clause cannot be specified together for the same report file. Compilation continues.

Explanation

If the CODE clause is specified, the literal specified in this clause is automatically appended to the first two characters of each print line of the report. If the CODE clause is specified for one report of a report description entry, it must be specified for all other reports, if any, of the same report description entry.

JMN2439I-S

If a PAGE clause is not specified in a report description entry, a NEXT GROUP clause must be specified using a relative value format.

Example

[P2439.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2439.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE
000010       REPORT IS REP1.
000011 WORKING-STORAGE SECTION.
000012 01 WSO1        PIC X(10).
000013 01 WSO2        PIC X(10).
000014 REPORT          SECTION.
000015 RD REP1.
000016 01 TYPE DE  NEXT GROUP 22.
000017   02 LINE PLUS 1.
000018     03 COLUMN 10 PIC X(10) SOURCE WSO1.
000019   02 LINE PLUS 2.
000020     03 COLUMN 20 PIC X(10) SOURCE WSO2.
000021 PROCEDURE      DIVISION.
000022 END PROGRAM    P2439.

P2439.cob 16: JMN2439I-S If a PAGE clause is not specified in a report description entry, a NEXT GROUP clause must be specified using a relative value format.

JMN2440I-S

If a NEXT GROUP clause is specified in the page footing report group, NEXT PAGE cannot be specified.

Example

[P2440.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2440.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE
000010       REPORT IS REP1.
000011 WORKING-STORAGE SECTION.
000012 01 WSO1        PIC X(10).
000013 01 WSO2        PIC X(10).
000014 REPORT          SECTION.
000015 RD REP1 PAGE 66
000016         HEADING 2
000017         LAST DETAIL 60.
000018 01 TYPE PF NEXT GROUP NEXT PAGE.
000019   02 LINE 61.
000020     03 COLUMN 10 PIC X(10) SOURCE WSO1.
000021 PROCEDURE      DIVISION.
000022 END PROGRAM    P2440.

P2440.cob 18: JMN2440I-S If a NEXT GROUP clause is specified in the page footing report group, NEXT PAGE cannot be specified.

JMN2441I-S

The NEXT GROUP clause cannot be specified in a report footing report group or a page heading report group.

Example

[P2441.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2441.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE
000010       REPORT IS REP1.
000011 WORKING-STORAGE SECTION.
000012 01 WSO1        PIC X(10).
000013 01 WSO2        PIC X(10).
000014 REPORT          SECTION.
000015 RD REP1 PAGE 66
000016         HEADING 2
000017         FIRST DETAIL 6.
000018 01 TYPE PH NEXT GROUP PLUS 1.
000019   02 LINE 3.
000020     03 COLUMN 10 PIC X(10) SOURCE WSO1.
000021 PROCEDURE      DIVISION.
000022 END PROGRAM    P2441.

P2441.cob 18: JMN2441I-S The NEXT GROUP clause cannot be specified in a report footing report group or a page heading report group.

JMN2442I-S

A report group of particular type (RH, PH, CH FINAL, CF FINAL, RF, PF) can only be specified once in the same report. Compilation continues.

Example

[P2442.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2442.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE
000010       REPORT IS REP1.
000011 WORKING-STORAGE SECTION.
000012 01 WSO1        PIC X(10).
000013 01 WSO2        PIC X(10).
000014 REPORT          SECTION.
000015 RD REP1 PAGE 66
000016         HEADING 2
000017         FIRST DETAIL 6.
000018 01 TYPE PH.
000019   02 LINE 2.
000020     03 COLUMN 10 PIC X(10) SOURCE WSO1.
000021 01 TYPE PH.
000022   02 LINE 4.
000023     03 COLUMN 10 PIC X(10) SOURCE WSO1.
000024 PROCEDURE      DIVISION.
000025 END PROGRAM    P2442.

P2442.cob 21: JMN2442I-S A report group of particular type (RH, PH, CH FINAL, CF FINAL, RF, PF) can only be specified once in the same report. Compilation continues.

Explanation

Only one report heading group (REPORT HEADING(RH)), page heading group (PAGE HEADING(PH)), control heading group with the FINAL phrase specified (CONTROL HEADING(CH) FINAL), control footing group with the FINAL phrase specified (CONTROL FOOTING(CF) FINAL), page footing group (PAGE FOOTING(PF)), and report footing group (REPORT FOOTING(RF)) can be specified in a report.

JMN2443I-S

If a PAGE clause is not specified in the report description entry, the page heading report group and page footing report group cannot be specified. Compilation continues.

Example

[P2443.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2443.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE
000010       REPORT IS REP1.
000011 WORKING-STORAGE SECTION.
000012 01 WSO1        PIC X(10).
000013 01 WSO2        PIC X(10).
000014 REPORT          SECTION.
000015 RD REP1.
000016 01 TYPE PH.
000017   02 LINE PLUS 1.
000018     03 COLUMN 10 PIC X(10) SOURCE WSO1.
000019 PROCEDURE      DIVISION.
000020 END PROGRAM    P2443.

P2443.cob 16: JMN2443I-S If a PAGE clause is not specified in the report description entry, the page heading report group and page footing report group cannot be specified. Compilation continues.

JMN2444I-S

Control data-name '@1@' of the TYPE clause is undefined.

Parameter explanation

@1@ : Data name which causes the error.

Example

[P2444.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2444.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD REPFILE
000011       REPORT IS REP1.
000012 WORKING-STORAGE SECTION.
000013 REPORT          SECTION.
000014 RD REP1 PAGE 66
000015         CONTROL FINAL.
000016 01 TYPE CF CTLD.
000017 PROCEDURE      DIVISION.
000018 END PROGRAM    P2444.

P2444.cob 16: JMN2444I-S Control data-name 'CTLD' of the TYPE clause is undefined.

JMN2445I-S

Control data-name '@1@' of the TYPE clause is not unique.

Parameter explanation

@1@ : Data name which causes the error.

Example

[P2445.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2445.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD REPFILE
000011       REPORT IS REP1.
000012 WORKING-STORAGE SECTION.
000013 01 CTLD         PIC X(1).
000014 01 CTLD         PIC X(2).
000015 REPORT          SECTION.
000016 RD REP1 PAGE 66
000017         CONTROL FINAL.
000018 01 TYPE CF CTLD.
000019 PROCEDURE      DIVISION.
000020 END PROGRAM    P2445.

P2445.cob 18: JMN2445I-S Control data-name 'CTLD' of the TYPE clause is not unique.

JMN2446I-S

'@1@' specified in the TYPE clause must be a data-name.

Parameter explanation

@1@ : User-defined word which causes the error.

Example

[P2446.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2446.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD REPFILE
000011       REPORT IS REP1.
000012 WORKING-STORAGE SECTION.
000013 01 CTLD         PIC X(1).
000014 01 CTLD         PIC X(2).
000015 REPORT          SECTION.
000016 RD REP1 PAGE 66
000017         CONTROL FINAL.
000018 01 TYPE CF REPFILE.
000019 PROCEDURE      DIVISION.
000020 LABEL01.
000021 END PROGRAM    P2446.

P2446.cob 18: JMN2446I-S 'REPFILE' specified in the TYPE clause must be a data-name.

JMN2447I-S

If FINAL is not specified in the CONTROL clause, FINAL cannot be specified in the TYPE clause.

Example

[P2447.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2447.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD REPFILE
000011       REPORT IS REP1.
000012 WORKING-STORAGE SECTION.
000013 01 CTLD         PIC X(1).
000014 REPORT          SECTION.
000015 RD REP1 PAGE 66
000016         CONTROL CTLD.
000017 01 TYPE CF FINAL.
000018 PROCEDURE      DIVISION.
000019 LABEL01.
000020 END PROGRAM    P2447.

P2447.cob 17: JMN2447I-S If FINAL is not specified in the CONTROL clause, FINAL cannot be specified in the TYPE clause.

JMN2449I-S

The positions of printable items have been specified so that they overlap. Compilation continues.

Example

[P2449.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2449.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE
000010       REPORT IS REP1.
000011 WORKING-STORAGE SECTION.
000012 01 WSO1        PIC X(10).
000013 01 WSO2        PIC X(10).
000014 REPORT          SECTION.
000015 RD REP1 PAGE 66.
000016 01 TYPE DE.
000017   02 LINE 12.
000018     03 COLUMN 10 PIC X(15) SOURCE WSO1.
000019     03 COLUMN 20 PIC X(10) SOURCE WSO2.
000020 PROCEDURE      DIVISION.
000021 END PROGRAM    P2449.

P2449.cob 19: JMN2449I-S The positions of printable items have been specified so that they overlap. Compilation continues.

Explanation

On the print line, the end column of the previous item exceeds the first column of the following item, causing the columns to overlap. In this case, neither the object file nor the executable file is generated.

JMN2450I-S

The GROUP INDICATE clause can only be specified in a detail report group.

Example

[P2450.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2450.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE
000010       REPORT IS REP1.
000011 WORKING-STORAGE SECTION.
000012 01 WSO1        PIC X(10).
000013 01 WSO2        PIC X(10).
000014 REPORT          SECTION.
000015 RD REP1 PAGE 66
000016         HEADING 2
000017         FIRST DETAIL 6.
000018 01 TYPE PH GROUP INDICATE.
000019   02 LINE 2.
000020     03 COLUMN 10 PIC X(10) SOURCE WSO1.
000021 PROCEDURE      DIVISION.
000022 END PROGRAM    P2450.

P2450.cob 18: JMN2450I-S The GROUP INDICATE clause can only be specified in a detail report group.

Explanation

The GROUP INDICATE clause specifies that the printable item is output only for the first detail line in a group, and when a control break or form feed occurs.

JMN2451I-S

Data-name '@1@' must be subscripted.

Parameter explanation

@1@ : Data name which causes the error.

Example

[P2451.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2451.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE
000010       REPORT IS REP1.
000011 WORKING-STORAGE SECTION.
000012 01 .
000013   02 WSO1       PIC X(10) OCCURS 10.
000014 REPORT          SECTION.
000015 RD REP1 PAGE 66.
000016 01 TYPE DE.
000017   02 LINE 12.
000018     03 COLUMN 10 PIC X(10) SOURCE WSO1.
000019 PROCEDURE      DIVISION.
000020 END PROGRAM    P2451.

P2451.cob 18: JMN2451I-S Data-name 'WSO1' must be subscripted.

Explanation

Subscripting is used when referencing an individual element of a table. A table is a data description entry with an OCCURS clause.

JMN2452I-S

Data-name '@2@' is a subscripted item that cannot be used as a subscript or reference modifier for the @1@ clause. Subscript or reference modifier 1 is assumed.

Parameter explanation

@1@ : SOURCE or SUM.

@2@ : Data name which causes error.

Example

[P2452.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2452.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE
000010       REPORT IS REP1.
000011 WORKING-STORAGE SECTION.
000012 01 .
000013   02 WIX1       PIC 9(10) OCCURS 10.
000014   02 WSO1       PIC X(10) OCCURS 10.
000015 REPORT          SECTION.
000016 RD REP1 PAGE 66.
000017 01 TYPE DE.
000018   02 LINE 12.
000019     03 COLUMN 10 PIC X(10) SOURCE WSO1(WIX1).
000020 PROCEDURE      DIVISION.
000021 END PROGRAM    P2452.

P2452.cob 19: JMN2452I-S Data-name 'WIX1' is a subscripted item that cannot be used as a subscript or reference modifier for the SOURCE clause. Subscript or reference modifier 1 is assumed.

Explanation

The data-name described with a subscript or reference modification of the identifier specified by the SOURCE clause cannot be a data-name of the data description entry with the OCCURS clause or a subordinate data description entry.

JMN2457I-S

'@1@' specified in the TYPE clause must be a control data-name.

Parameter explanation

@1@ : User-defined word which causes the error.

Example

[P2457.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2457.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD REPFILE
000011       REPORT IS REP1.
000012 WORKING-STORAGE SECTION.
000013 01 CTLD         PIC X(1).
000014 REPORT          SECTION.
000015 RD REP1 PAGE 66
000016         CONTROL FINAL.
000017 01 TYPE CF CTLD.
000018 PROCEDURE      DIVISION.
000019 END PROGRAM    P2457.

P2457.cob 17: JMN2457I-S 'CTLD' specified in the TYPE clause must be a control data-name.

Explanation

The data-name of CONTROL HEADING phrase or CONTROL FOOTING phrase of the TYPE clause must be specified in the CONTROL clause of the report description entry.

JMN2458I-S

A control heading report group or a control footing report group can only be specified once in the same control level.

Example

[P2458.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2458.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD REPFILE
000011       REPORT IS REP1.
000012 WORKING-STORAGE SECTION.
000013 01 CTLD         PIC X(1).
000014 REPORT          SECTION.
000015 RD REP1 PAGE 66
000016         CONTROL FINAL CTLD.
000017 01 TYPE CF CTLD.
000018 01 TYPE CF CTLD.
000019 PROCEDURE      DIVISION.
000020 END PROGRAM    P2458.

P2458.cob 18: JMN2458I-S A control heading report group or a control footing report group can only be specified once in the same control level.

JMN2459I-S

'@1@' in the CONTROL clause must be a data-name. The name is ignored.

Parameter explanation

@1@ : User-defined word which causes the error.

Example

[P2459.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2459.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD REPFILE
000011       REPORT IS REP1.
000012 WORKING-STORAGE SECTION.
000013 01 CTLD         PIC X(1).
000014 01 CTLD         PIC X(2).
000015 REPORT          SECTION.
000016 RD REP1 PAGE 66
000017         CONTROL FINAL REP1.
000018 01 TYPE CF FINAL.
000019 PROCEDURE      DIVISION.
000020 LABEL01.
000021 END PROGRAM    P2459.

P2459.cob 17: JMN2459I-S 'REP1' in the CONTROL clause must be a data-name. The name is ignored.

JMN2460I-S

The integer in the @1@ clause cannot exceed the upper limit provided by the presentation rule. Compilation continues.

Parameter explanation

@1@ : LINE or NEXT GROUP.

Example

[P2460.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2460.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD REPFILE
000011       REPORT IS REP1.
000012 WORKING-STORAGE SECTION.
000013 01 CTLD         PIC X(1).
000014 01 CTLD         PIC X(2).
000015 REPORT          SECTION.
000016 RD REP1 PAGE 66
000017         FIRST DETAIL 10.
000018 01 TYPE DE LINE 9.
000019   02 COLUMN 10 PIC X(20) VALUE SPACE.
000020 PROCEDURE      DIVISION.
000021 END PROGRAM    P2460.

P2460.cob 18: JMN2460I-S The integer in the LINE clause cannot exceed the upper limit provided by the presentation rule. Compilation continues.

Explanation

An entire report group must be defined to be output on one page.

JMN2461I-S

The integer in the @1@ clause cannot be less than the lower limit provided by the presentation rule. Compilation continues.

Parameter explanation

@1@ : LINE or NEXT GROUP.

Example

[P2461.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2461.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD REPFILE
000011       REPORT IS REP1.
000012 WORKING-STORAGE SECTION.
000013 01 CTLD         PIC X(1).
000014 01 CTLD         PIC X(2).
000015 REPORT          SECTION.
000016 RD REP1 PAGE 66
000017         LAST DETAIL 60.
000018 01 TYPE DE LINE 65.
000019   02 COLUMN 10 PIC X(20) VALUE SPACE.
000020 PROCEDURE      DIVISION.
000021 END PROGRAM    P2461.

P2461.cob 18: JMN2461I-S The integer in the LINE clause cannot be less than the lower limit provided by the presentation rule. Compilation continues.

Explanation

An entire report group must be defined to be output on one page.

JMN2462I-S

The word '@2@' in the @1@ clause is invalid. It is ignored, and the compiler skips to the next valid identifier, clause, paragraph, section or division.

Parameter explanation

@1@ : SOURCE or SUM.

@2@ : Invalid word.

Example

[P2462.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2462.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE
000010       REPORT IS REP1.
000011 WORKING-STORAGE SECTION.
000012 01 WSO1        PIC X(10).
000013 01 WSO2        PIC X(10).
000014 REPORT          SECTION.
000015 RD REP1 PAGE 66.
000016 01 TYPE DE.
000017   02 LINE 12.
000018     03 COLUMN 10 PIC X(10) SOURCE WSO1(1:5) WSO2.
000019 PROCEDURE      DIVISION.
000020 END PROGRAM    P2462.

P2462.cob 18: JMN2462I-S The word 'WSO2' in the SOURCE clause is invalid. It is ignored, and the compiler skips to the next valid identifier, clause, paragraph, section or division.

JMN2463I-S

Invalid word '@1@' appeared in an identifier of the SOURCE clause. It is ignored, and the compiler skips to the next valid clause, paragraph, section or division.

Parameter explanation

@1@ : Invalid word.

Example

[P2463.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2463.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE
000010       REPORT IS REP1.
000011 WORKING-STORAGE SECTION.
000012 01 WSO1        PIC X(10).
000013 01 WSO2        PIC X(10).
000014 REPORT          SECTION.
000015 RD REP1 PAGE 66.
000016 01 TYPE DE.
000017   02 LINE 12.
000018     03 COLUMN 10 PIC X(10) SOURCE WSO1 WSO2.
000019 PROCEDURE      DIVISION.
000020 END PROGRAM    P2463.

P2463.cob 18: JMN2463I-S Invalid word 'WSO2' appeared in an identifier of the SOURCE clause. It is ignored, and the compiler skips to the next valid clause, paragraph, section or division.

JMN2464I-S

Invalid word '@1@' appeared in an identifier of the SUM clause. It is ignored, and the compiler skips to the next valid identifier, clause, paragraph, section or division.

Parameter explanation

@1@ : Invalid word.

Example

[P2464.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2464.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD SQFILE1
000011       REPORT IS REP1.
000012 WORKING-STORAGE SECTION.
000013 01 CTLD          PIC 9(2).
000014 REPORT          SECTION.
000015 RD REP1 PAGE 66
000016       CONTROL CTLD.
000017 01 DE-1 TYPE DE.
000018   02 LINE PLUS 1.
000019     03 TARGET COLUMN 10
000020               PIC S9(4) SOURCE CTLD.
000021 01 TYPE CF CTLD.
000022   02           PIC S9(4) SUM CTLD "CTLD".
000023 PROCEDURE      DIVISION.
000024 END PROGRAM    P2464.

P2464.cob 22: JMN2464I-S Invalid word '"CTLD"' appeared in an identifier of the SUM clause. It is ignored, and the compiler skips to the next valid identifier, clause, paragraph, section or division.

JMN2465I-S

A subscript cannot be specified in identifier '@1@' in the SUM clause. The subscript is ignored.

Parameter explanation

@1@ : Data name which causes the error.

Example

[P2465.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2465.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD SQFILE1
000011       REPORT IS REP1.
000012 WORKING-STORAGE SECTION.
000013 01 CTLD         PIC 9(2).
000014 01 WITM         PIC 9(2).
000015 REPORT          SECTION.
000016 RD REP1 PAGE 66
000017       CONTROL CTLD.
000018 01 TYPE CF CTLD.
000019   02           PIC S9(4) SUM WITM(2).
000020 PROCEDURE      DIVISION.
000021 END PROGRAM    P2465.

P2465.cob 19: JMN2465I-S A subscript cannot be specified in identifier 'WITM' in the SUM clause. The subscript is ignored.

JMN2466I-S

Invalid word '@2@' appeared in the subscript of the @1@ clause. Subscript 1 is assumed.

Parameter explanation

@1@ : SOURCE or SUM.

@2@ : Invalid word.

Example

[P2466.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2466.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD SQFILE1
000011       REPORT IS REP1.
000012 WORKING-STORAGE SECTION.
000013 01 CTLD         PIC 9(2).
000014 01 .
000015   02 WITM       PIC 9(2) OCCURS 10.
000016 REPORT          SECTION.
000017 RD REP1 PAGE 66
000018       CONTROL CTLD.
000019 01 TYPE CF CTLD.
000020   02           PIC S9(4) SUM WITM(-2).
000021 PROCEDURE      DIVISION.
000022 END PROGRAM    P2466.

P2466.cob 20: JMN2466I-S Invalid word '-2' appeared in the subscript of the SUM clause. Subscript 1 is assumed.

JMN2467I-S

A right parenthesis is missing in the subscript or reference modifier. A right parenthesis is assumed.

Example

[P2467.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2467.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD SQFILE1
000011       REPORT IS REP1.
000012 WORKING-STORAGE SECTION.
000013 01 CTLD         PIC 9(2).
000014 01 .
000015   02 WITM       PIC 9(2) OCCURS 10.
000016 REPORT          SECTION.
000017 RD REP1 PAGE 66
000018       CONTROL CTLD.
000019 01 TYPE CF CTLD.
000020   02           PIC S9(4) SUM WITM(2.
000021 PROCEDURE      DIVISION.
000022 END PROGRAM    P2467.

P2467.cob 21: JMN2467I-S A right parenthesis is missing in the subscript or reference modifier. A right parenthesis is assumed.

Explanation

Left and right parentheses must be used to enclose a subscript or reference modifier. Parentheses are always used in pairs. A right parenthesis is assumed, but neither the object file nor the executable file is generated.

JMN2468I-S

Invalid word '@1@' appeared in the reference modifier of the SOURCE clause. Reference modifier 1 is assumed.

Parameter explanation

@1@ : Invalid word.

Example

[P2468.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2468.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE
000010       REPORT IS REP1.
000011 WORKING-STORAGE SECTION.
000012 01 WSO1        PIC X(10).
000013 01 WSO2        PIC X(10).
000014 REPORT          SECTION.
000015 RD REP1 PAGE 66.
000016 01 TYPE DE.
000017   02 LINE 12.
000018     03 COLUMN 10 PIC X(10) SOURCE WSO1(-1:10).
000019 PROCEDURE      DIVISION.
000020 END PROGRAM    P2468.

P2468.cob 18: JMN2468I-S Invalid word '-1' appeared in the reference modifier of the SOURCE clause. Reference modifier 1 is assumed.

Explanation

A reference modifier references part of a data item or function value. It adds a reference modifier to the data-name or function-identifier. A reference modifier is written as follows:

  • A left parenthesis is written behind a data-name or function-name, followed by the arithmetic expression that shows the high-order-end-character-position.

  • A colon(:) is written, followed by an arithmetic expression that shows the length in which the part is referred is described, followed by a right parenthesis.

  • A separator space can be included immediately before or after the colon. The colon cannot be omitted, although the arithmetic expression that indicates length can be omitted.

JMN2469I-S

The reference modifier in the SOURCE clause must have a colon. A colon is assumed.

Example

[P2469.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2469.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE
000010       REPORT IS REP1.
000011 WORKING-STORAGE SECTION.
000012 01 WSO1        PIC X(10).
000013 01 WSO2        PIC X(10).
000014 REPORT          SECTION.
000015 RD REP1 PAGE 66.
000016 01 TYPE DE.
000017   02 LINE 12.
000018     03 COLUMN 10 PIC X(10) SOURCE WSO1(1).
000019 PROCEDURE      DIVISION.
000020 END PROGRAM    P2469.

P2469.cob 18: JMN2469I-S The reference modifier in the SOURCE clause must have a colon. A colon is assumed.

Explanation

In a reference modifier, the colon cannot be omitted, although the arithmetic expression that indicates length can be omitted.

JMN2470I-S

'@2@' specified as a subscript in the @1@ clause must be a unique data-name or index-name. Subscript 1 is assumed.

Parameter explanation

@1@ : SOURCE or SUM.

@2@ : User-defined word which causes the error.

Example

[P2470.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2470.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE
000010       REPORT IS REP1.
000011 WORKING-STORAGE SECTION.
000012 01 .
000013   02 WSO1       PIC X(10) OCCURS 10.
000014 REPORT          SECTION.
000015 RD REP1 PAGE 66.
000016 01 TYPE DE.
000017   02 LINE 12.
000018     03 COLUMN 10 PIC X(10) SOURCE WSO1(WIX).
000019 PROCEDURE      DIVISION.
000020 END PROGRAM    P2470.

P2470.cob 18: JMN2470I-S 'WIX' specified as a subscript in the SOURCE clause must be a unique data-name or index-name. Subscript 1 is assumed.

JMN2471I-S

'@1@' specified as a reference modifier in the SOURCE clause must be a unique data-name. Reference modifier 1 is assumed.

Parameter explanation

@1@ : Data name which causes the error.

Example

[P2471.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2471.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE
000010       REPORT IS REP1.
000011 WORKING-STORAGE SECTION.
000012 01 WSO1         PIC X(10).
000013 REPORT          SECTION.
000014 RD REP1 PAGE 66.
000015 01 TYPE DE.
000016   02 LINE 12.
000017     03 COLUMN 10 PIC X(10) SOURCE WSO1(1:WLEN).
000018 PROCEDURE      DIVISION.
000019 END PROGRAM    P2471.

P2471.cob 17: JMN2471I-S 'WLEN' specified as a reference modifier in the SOURCE clause must be a unique data-name. Reference modifier 1 is assumed.

JMN2472I-S

A RESET clause cannot be specified in a report without a CONTROL clause.

Example

[P2472.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2472.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD SQFILE1
000011       REPORT IS REP1.
000012 WORKING-STORAGE SECTION.
000013 01 WITM1         PIC 9(2).
000014 01 WITM2         PIC 9(2).
000015 REPORT          SECTION.
000016 RD REP1 PAGE 66.
000017 01 TYPE CF WITM1.
000018   02           PIC S9(4) SUM WITM1 RESET WITM2.
000019 PROCEDURE      DIVISION.
000020 END PROGRAM    P2472.

P2472.cob 18: JMN2472I-S A RESET clause cannot be specified in a report without a CONTROL clause.

Explanation

The data-name of RESET should be one of the data-names specified in the CONTROL clause of report file. When FINAL is specified in the RESET phrase, FINAL must be written in the CONTROL clause of this report file.

JMN2473I-S

If FINAL is specified in the RESET clause, FINAL must also be specified in the CONTROL clause.

Example

[P2473.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2473.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD SQFILE1
000011       REPORT IS REP1.
000012 WORKING-STORAGE SECTION.
000013 01 WITM1         PIC 9(2).
000014 01 WITM2         PIC 9(2).
000015 REPORT          SECTION.
000016 RD REP1 PAGE 66
000017         CONTROL WITM1.
000018 01 TYPE CF WITM1.
000019   02           PIC S9(4) SUM WITM1 RESET FINAL.
000020 PROCEDURE      DIVISION.
000021 END PROGRAM    P2473.

P2473.cob 19: JMN2473I-S If FINAL is specified in the RESET clause, FINAL must also be specified in the CONTROL clause.

JMN2474I-S

Data-name '@1@' of the RESET clause must be a control data-name of an equal or higher level control to this clause in the control hierarchy.

Parameter explanation

@1@ : Data name which causes the error.

Example

[P2474.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2474.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD SQFILE1
000011       REPORT IS REP1.
000012 WORKING-STORAGE SECTION.
000013 01 WITM1         PIC 9(2).
000014 01 WITM2         PIC 9(2).
000015 REPORT          SECTION.
000016 RD REP1 PAGE 66
000017         CONTROL WITM1 WITM2.
000018 01 TYPE CF WITM1.
000019   02           PIC S9(4) SUM WITM1 RESET WITM2.
000020 PROCEDURE      DIVISION.
000021 END PROGRAM    P2474.

P2474.cob 19: JMN2474I-S Data-name 'WITM2' of the RESET clause must be a control data-name of an equal or higher level control to this clause in the control hierarchy.

JMN2475I-S

A TYPE clause is not specified in the 01 level item of the report group description entry. This report group description entry is ignored.

Example

[P2475.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2475.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD SQFILE1
000011       REPORT IS REP1.
000012 WORKING-STORAGE SECTION.
000013 01 WITM1         PIC 9(2).
000014 01 WITM2         PIC 9(2).
000015 REPORT          SECTION.
000016 RD REP1 PAGE 66
000017         CONTROL WITM1 WITM2.
000018 01 .
000019   02           PIC S9(4).
000020 PROCEDURE      DIVISION.
000021 END PROGRAM    P2475.

P2475.cob 18: JMN2475I-S A TYPE clause is not specified in the 01 level item of the report group description entry. This report group description entry is ignored.

Explanation

The first item of a report group description entry must be a level-number 01 item that has the TYPE clause. The TYPE clause specifies the type of the report group and the timing of its processing.

JMN2476I-S

The NEXT GROUP clause cannot be specified in a report group description entry without a LINE NUMBER clause. Compilation continues.

Example

[P2476.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2476.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE
000010       REPORT IS REP1.
000011 WORKING-STORAGE SECTION.
000012 01 WSO1        PIC X(10).
000013 01 WSO2        PIC X(10).
000014 REPORT          SECTION.
000015 RD REP1 PAGE 66
000016         HEADING 2
000017         FIRST DETAIL 6.
000018 01 TYPE RH NEXT GROUP PLUS 1.
000019   02 .
000020     03           PIC X(10) SOURCE WSO1.
000021 PROCEDURE      DIVISION.
000022 END PROGRAM    P2476.

P2476.cob 18: JMN2476I-S The NEXT GROUP clause cannot be specified in a report group description entry without a LINE NUMBER clause. Compilation continues.

JMN2477I-S

The USAGE clause specified in the report group description entry must be specified in a group item with a printable item. Compilation continues.

Example

[P2477.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2477.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE
000010       REPORT IS REP1.
000011 WORKING-STORAGE SECTION.
000012 01 WSO1         PIC X(10).
000013 REPORT          SECTION.
000014 RD REP1 PAGE 66.
000015 01 TYPE DE LINE 12 DISPLAY.
000016    02          PIC X    SOURCE WSO1.
000017 PROCEDURE      DIVISION.
000018 END PROGRAM    P2477.

P2477.cob 15: JMN2477I-S The USAGE clause specified in the report group description entry must be specified in a group item with a printable item. Compilation continues.

JMN2478I-S

The COLUMN clause and the PRINTING POSITION clause cannot both be specified the same report group. Compilation continues.

Example

[P2478.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2478.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE
000010       REPORT IS REP1.
000011 WORKING-STORAGE SECTION.
000012 01 WSO1        PIC X(10).
000013 01 WSO2        PIC X(10).
000014 REPORT          SECTION.
000015 RD REP1 PAGE 66
000016         HEADING 2
000017         FIRST DETAIL 6.
000018 01 TYPE RH.
000019   02 LINE 3.
000020     03 PIC X(10) SOURCE WSO1
000021        COLUMN 1.
000022     03 PIC X(10) SOURCE WSO1
000023      PRINTING POSITION 12.
000024 PROCEDURE      DIVISION.
000025 END PROGRAM    P2478.

P2478.cob 18: JMN2478I-S The COLUMN clause and the PRINTING POSITION clause cannot both be specified the same report group. Compilation continues.

JMN2480I-S

The elementary item of a report group description entry must be specified with either the SOURCE clause, the SUM clause, or the VALUE clause. Compilation continues.

Example

[P2480.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2480.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD REPFILE
000011       REPORT IS REP1.
000012 WORKING-STORAGE SECTION.
000013 01 CTLD         PIC X(1).
000014 01 CTLD         PIC X(2).
000015 REPORT          SECTION.
000016 RD REP1 PAGE 66
000017         FIRST DETAIL 10.
000018 01 TYPE DE LINE 12.
000019   02 COLUMN 10 PIC X(20).
000020 PROCEDURE      DIVISION.
000021 END PROGRAM    P2480.

P2480.cob 19: JMN2480I-S The elementary item of a report group description entry must be specified with either the SOURCE clause, the SUM clause, or the VALUE clause. Compilation continues.

JMN2481I-S

No valid word is specified in a subscript or reference modifier in the identifier of the @1@ clause. Subscript or reference modifier 1 is assumed.

Parameter explanation

@1@ : SOURCE or SUM.

Example

[P2481.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2481.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE
000010       REPORT IS REP1.
000011 WORKING-STORAGE SECTION.
000012 01 .
000013   02 WSO1       PIC X(10) OCCURS 10.
000014 REPORT          SECTION.
000015 RD REP1 PAGE 66.
000016 01 TYPE DE.
000017   02 LINE 12.
000018     03 COLUMN 10 PIC X(10) SOURCE WSO1().
000019 PROCEDURE      DIVISION.
000020 LB.
000021 END PROGRAM    P2481.

P2481.cob 18: JMN2481I-S No valid word is specified in a subscript or reference modifier in the identifier of the SOURCE clause. Subscript or reference modifier 1 is assumed.

JMN2482I-S

If a subscript is specified in the identifier of the @1@ clause, an integer must be specified after '+' or '-' following the index-name. 1 is assumed for the integer.

Parameter explanation

@1@ : SOURCE or SUM.

Example

[P2482.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2482.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE
000010       REPORT IS REP1.
000011 WORKING-STORAGE SECTION.
000012 01 .
000013   02 WSO1       PIC X(10) OCCURS 10
000014                           INDEXED BY WIX.
000015 REPORT          SECTION.
000016 RD REP1 PAGE 66.
000017 01 TYPE DE.
000018   02 LINE 12.
000019     03 COLUMN 10 PIC X(10) SOURCE WSO1(WIX + ).
000020 PROCEDURE      DIVISION.
000021 LB.
000022 END PROGRAM    P2482.

P2482.cob 19: JMN2482I-S If a subscript is specified in the identifier of the SOURCE clause, an integer must be specified after '+' or '-' following the index-name. 1 is assumed for the integer.

Explanation

If the operator is "+", the value is obtained by adding the value following the operator to the index-name value. If the operator is "-", the value is obtained by subtracting the value following the operator from the index-name value. The value following the operator should be an integer.

JMN2483I-S

The elementary item requires a PICTURE clause. PICTURE X is assumed.

Example

[P2483.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2483.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE
000010       REPORT IS REP1.
000011 WORKING-STORAGE SECTION.
000012 01 .
000013   02 WSO1       PIC X(10) OCCURS 10
000014                           INDEXED BY WIX.
000015 REPORT          SECTION.
000016 RD REP1 PAGE 66.
000017 01 TYPE DE.
000018   02 LINE 12.
000019     03 COLUMN 10  SOURCE WSO1(WIX).
000020 PROCEDURE      DIVISION.
000021 LB.
000022 END PROGRAM    P2483.

P2483.cob 19: JMN2483I-S The elementary item requires a PICTURE clause. PICTURE X is assumed.

Explanation

A PICTURE clause must be specified in the report group description entry at the third level.

JMN2484I-S

The @1@ clause in the REPORT SECTION cannot be specified in a group item or an 01 level elementary item.

Parameter explanation

@1@ : SIGN, JUSTIFIED RIGHT, BLANK WHEN ZERO, VALUE, PRINTING POSITION, COLUMN NUMBER, SOURCE, SUM or GROUP INDICATE.

Example

[P2484.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2484.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE
000010       REPORT IS REP1.
000011 WORKING-STORAGE SECTION.
000012 01 WSO1        PIC X(10).
000013 01 WSO2        PIC X(10).
000014 REPORT          SECTION.
000015 RD REP1 PAGE 66
000016         HEADING 2
000017         FIRST DETAIL 6.
000018 01 TYPE RH.
000019   02 LINE 3 PRINTING POSITION 2.
000020     03 COLUMN 1 PIC X(10) SOURCE WSO1.
000021 PROCEDURE      DIVISION.
000022 END PROGRAM    P2484.

P2484.cob 19: JMN2484I-S The PRINTING POSITION clause in the REPORT SECTION cannot be specified in a group item or an 01 level elementary item.

Explanation

A complete report group description entry consists of three levels. This diagnostic message is output when the clause that should be specified in the report group description entry at the third level (printable item) is specified in the report group description entry at another level.

JMN2485I-S

The PICTURE clause in the REPORT SECTION cannot be specified in a 01 level item. Compilation continues.

Example

[P2485.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2485.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE
000010       REPORT IS REP1.
000011 WORKING-STORAGE SECTION.
000012 01 .
000013   02 WSO1       PIC X(10) OCCURS 10
000014                           INDEXED BY WIX.
000015 REPORT          SECTION.
000016 RD REP1 PAGE 66.
000017 01 TYPE DE LINE 12
000018                PIC X(10).
000019 PROCEDURE      DIVISION.
000020 LB.
000021 END PROGRAM    P2485.

P2485.cob 18: JMN2485I-S The PICTURE clause in the REPORT SECTION cannot be specified in a 01 level item. Compilation continues.

Explanation

The PICTURE clause should be specified in the report group description entry at the third level.

JMN2486I-S

The @1@ clause in the REPORT SECTION must be specified in a printable item. Compilation continues.

Parameter explanation

@1@ : VALUE, BLANK WHEN ZERO, JUSTIFIED or GROUP INDICATE.

Example

[P2486.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2486.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE
000010       REPORT IS REP1.
000011 WORKING-STORAGE SECTION.
000012 01 .
000013   02 WSO1       PIC X(10) OCCURS 10
000014                           INDEXED BY WIX.
000015 REPORT          SECTION.
000016 RD REP1 PAGE 66.
000017 01 TYPE DE LINE 12.
000018    02          VALUE SPACE.
000019 PROCEDURE      DIVISION.
000020 END PROGRAM    P2486.

P2486.cob 18: JMN2486I-S The VALUE clause in the REPORT SECTION must be specified in a printable item. Compilation continues.

Explanation

A complete report group description entry consists of three levels. This diagnostic message is output when the clause that should be specified in the report group description entry at the third level (printable item) is specified in the report group description entry at another level.

JMN2487I-S

If the USAGE clause in the REPORT SECTION is specified for an elementary item, it must be printable item. Compilation continues.

Example

[P2487.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2487.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE
000010       REPORT IS REP1.
000011 WORKING-STORAGE SECTION.
000012 01 WSO1         PIC X(10).
000013 REPORT          SECTION.
000014 RD REP1 PAGE 66.
000015 01 TYPE DE LINE 12.
000016    02          PIC X
000017                DISPLAY SOURCE WSO1.
000018 PROCEDURE      DIVISION.
000019 END PROGRAM    P2487.

P2487.cob 16: JMN2487I-S If the USAGE clause in the REPORT SECTION is specified for an elementary item, it must be printable item. Compilation continues.

JMN2488I-S

The COLUMN NUMBER clause can only be specified in an entry with a LINE NUMBER or an entry that is subordinate to an entry with a LINE NUMBER. Compilation continues.

Example

[P2488.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2488.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE
000010       REPORT IS REP1.
000011 WORKING-STORAGE SECTION.
000012 01 WSO1        PIC X(10).
000013 01 WSO2        PIC X(10).
000014 REPORT          SECTION.
000015 RD REP1 PAGE 66
000016         HEADING 2
000017         FIRST DETAIL 6.
000018 01 TYPE RH.
000019   02 .
000020     03 COLUMN 10 PIC X(10) SOURCE WSO1.
000021 PROCEDURE      DIVISION.
000022 END PROGRAM    P2488.

P2488.cob 20: JMN2488I-S The COLUMN NUMBER clause can only be specified in an entry with a LINE NUMBER or an entry that is subordinate to an entry with a LINE NUMBER. Compilation continues.

Explanation

The COLUMN NUMBER clause specifies a column on a print line. If the COLUMN NUMBER clause is specified, the entry must also specify the LINE NUMBER clause, or the entry must be subordinate to an entry that specifies a LINE NUMBER clause.

JMN2489I-S

A sum counter cannot be specified in a subscript or reference modifier in a SUM clause or a SOURCE clause. Compilation continues.

Example

[P2489.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2489.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD SQFILE1
000011       REPORT IS REP1.
000012 WORKING-STORAGE SECTION.
000013 01 CTLD         PIC 9(2).
000014 01 .
000015   02 WITM       PIC 9(2) OCCURS 10.
000016 REPORT          SECTION.
000017 RD REP1 PAGE 66
000018       CONTROL CTLD.
000019 01 TYPE CF CTLD.
000020   02 WSC1      PIC S9(4) SUM WITM(2).
000021   02 WSC2      PIC S9(4) SUM WITM(WSC1).
000022 PROCEDURE      DIVISION.
000023 END PROGRAM    P2489.

P2489.cob 21: JMN2489I-S A sum counter cannot be specified in a subscript or reference modifier in a SUM clause or a SOURCE clause. Compilation continues.

JMN2491I-S

The SAME RECORD AREA clause cannot be specified for a report file. Compilation continues.

Example

[P2491.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2491.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007     SELECT REPFILE ASSIGN TO SYS002.
000008 I-O-CONTROL.
000009     SAME RECORD AREA SQFILE1 REPFILE.
000010 DATA           DIVISION.
000011 FILE            SECTION.
000012 FD SQFILE1.
000013 01             PIC X(80).
000014 FD REPFILE
000015       REPORT IS REP1.
000016 WORKING-STORAGE SECTION.
000017 01 CTLD         PIC 9(2).
000018 01 WITM         PIC 9(2).
000019 REPORT          SECTION.
000020 RD REP1 PAGE 66
000021       CONTROL CTLD.
000022 01 TYPE CF CTLD.
000023   02 WSC1      PIC 9(4) SUM WITM.
000024 PROCEDURE      DIVISION.
000025 END PROGRAM    P2491.

P2491.cob 14: JMN2491I-S The SAME RECORD AREA clause cannot be specified for a report file. Compilation continues.

JMN2493I-S

If a RECORD clause is specified for a report file, VARYING cannot be specified.

Example

[P2493.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2493.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE
000010       RECORD VARYING IN SIZE
000011          DEPENDING ON LRECL
000012       REPORT IS REP1.
000013 WORKING-STORAGE SECTION.
000014 01 LCREL        PIC 9(2).
000015 01 WITM         PIC 9(2).
000016 REPORT          SECTION.
000017 RD REP1 PAGE 66.
000018 01 TYPE DE.
000019   02           PIC 9(4) SOURCE WITM.
000020 PROCEDURE      DIVISION.
000021 END PROGRAM    P2493.

P2493.cob 10: JMN2493I-S If a RECORD clause is specified for a report file, VARYING cannot be specified.

JMN2494I-S

RECORD CONTAINS 0 CHARACTERS cannot be specified for a report file.

Example

[P2494.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2494.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007     SELECT REPFILE ASSIGN TO SYS002.
000008 I-O-CONTROL.
000009 DATA           DIVISION.
000010 FILE            SECTION.
000011 FD SQFILE1.
000012 01 SQF1REC      PIC X(80).
000013 FD REPFILE
000014      RECORD CONTAINS 0 CHARACTERS
000015      REPORT IS REP1.
000016 WORKING-STORAGE SECTION.
000017 01 WFS1        PIC X(2).
000018 REPORT          SECTION.
000019 RD REP1 PAGE 66.
000020 01 DE-REC TYPE DE.
000021   02 LINE PLUS 1.
000022     03 COLUMN 1 PIC X(80) SOURCE SQF1REC.
000023 PROCEDURE      DIVISION.
000024 END PROGRAM    P2494.

P2494.cob 13: JMN2494I-S RECORD CONTAINS 0 CHARACTERS cannot be specified for a report file.

JMN2495I-I

The report writer logical record with a CHARACTER TYPE clause or PRINTING POSITION clause is too long. @1@ is used for the record length.

Parameter explanation

@1@ : Integer value by which needed length of record is shown.

Example

[P2495.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2495.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE
000010       REPORT IS REP1.
000011 WORKING-STORAGE SECTION.
000012 01 WITM         PIC N(20).
000013 REPORT          SECTION.
000014 RD REP1 PAGE 66.
000015 01 TYPE DE CHARACTER TYPE MODE-3.
000016   02 LINE PLUS 1.
000017     03 COLUMN 20  PIC N(20) SOURCE WITM.
000018     03 COLUMN 80  PIC N(20) SOURCE WITM.
000019 PROCEDURE      DIVISION.
000020 END PROGRAM    P2495.

P2495.cob 9: JMN2495I-I The report writer logical record with a CHARACTER TYPE clause or PRINTING POSITION clause is too long. 139 is used for the record length.

JMN2496I-S

The value of the COLUMN clause is too large. The length of the report writer logical record is expanded to include the specified item at the specified column.

Example

[P2496.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2496.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE
000010       REPORT IS REP1.
000011 WORKING-STORAGE SECTION.
000012 01 WITM         PIC N(1).
000013 REPORT          SECTION.
000014 RD REP1 PAGE 66.
000015 01 TYPE DE.
000016   02 LINE PLUS 1.
000017     03 COLUMN 140 PIC N(1) SOURCE WITM.
000018 PROCEDURE      DIVISION.
000019 END PROGRAM    P2496.

P2496.cob 17: JMN2496I-S The value of the COLUMN clause is too large. The length of the report writer logical record is expanded to include the specified item at the specified column.

JMN2497I-S

The report writer logical record is too long. RECORD CONTAINS @1@ is assumed.

Parameter explanation

@1@ : Integer value by which needed length of record is shown.

Example

[P2497.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2497.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE
000010       REPORT IS REP1.
000011 WORKING-STORAGE SECTION.
000012 01 WITM         PIC N(20).
000013 REPORT          SECTION.
000014 RD REP1 PAGE 66.
000015 01 TYPE DE.
000016   02 LINE PLUS 1.
000017     03 COLUMN 135  PIC N(20) SOURCE WITM.
000018 PROCEDURE      DIVISION.
000019 END PROGRAM    P2497.

P2497.cob 9: JMN2497I-S The report writer logical record is too long. RECORD CONTAINS 174 is assumed.

JMN2498I-S

The integer in the NEXT GROUP clause cannot exceed the documented upper limit.

Example

[P2498.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2498.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE
000010       REPORT IS REP1.
000011 WORKING-STORAGE SECTION.
000012 01 WSO1        PIC X(10).
000013 01 WSO2        PIC X(10).
000014 REPORT          SECTION.
000015 RD REP1 PAGE 66
000016         HEADING 2
000017         FIRST DETAIL 10
000018         LAST  DETAIL 60.
000019 01 TYPE DE NEXT GROUP 5.
000020   02 LINE 10.
000021     03 COLUMN 10 PIC X(10) SOURCE WSO1.
000022 PROCEDURE      DIVISION.
000023 END PROGRAM    P2498.

P2498.cob 19: JMN2498I-S The integer in the NEXT GROUP clause cannot exceed the documented upper limit.

Explanation

The vertical positioning specified by the NEXT GROUP clause is performed after outputting the report group containing the clause. When the absolute NEXT GROUP clause is specified, the following report group is displayed from that position, using the value of the integer in the NEXT GROUP clause. The value should be the number of lines within the range where the report group is displayed.

JMN2499I-S

The integer in the NEXT GROUP clause cannot be less than the documented lower limit.

Example

[P2499.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2499.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE
000010       REPORT IS REP1.
000011 WORKING-STORAGE SECTION.
000012 01 WSO1        PIC X(10).
000013 01 WSO2        PIC X(10).
000014 REPORT          SECTION.
000015 RD REP1 PAGE 66
000016         HEADING 2
000017         FIRST DETAIL 10
000018         LAST  DETAIL 60.
000019 01 TYPE DE NEXT GROUP 65.
000020   02 LINE 10.
000021     03 COLUMN 10 PIC X(10) SOURCE WSO1.
000022 PROCEDURE      DIVISION.
000023 END PROGRAM    P2499.

P2499.cob 19: JMN2499I-S The integer in the NEXT GROUP clause cannot be less than the documented lower limit.

Explanation

The vertical positioning specified by the NEXT GROUP clause is performed after outputting the report group containing the clause. When the absolute NEXT GROUP clause is specified, the following report group is displayed from that position, using the value of the integer of the NEXT GROUP clause. The value should be the number of lines within the range where the report group is displayed.

JMN2500I-S

The compiler has encountered a word '@1@' where a statement is expected.

Parameter explanation

@1@ : Word which causes the error.

Example

[P2500.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2500.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WDA1        PIC X.
000007 01 WDA2        PIC X.
000008 PROCEDURE      DIVISION.
000009*    MOVE
000010          SPACE TO WDA1
000011 END PROGRAM    P2500.

P2500.cob 10: JMN2500I-S The compiler has encountered a word 'SPACE' where a statement is expected.

Explanation

The first word of the statement must be a correct reserved word.

JMN2501I-S

'@2@' in the @1@ statement must be @3@.

Parameter explanation

@1@ : Verb of the statement which detects the error.

@2@ : Word which causes the error.

@3@ : Kind of word that can be described.

Example

[P2501.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2501.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP.
000007   02 WNUM1     PIC 9(4).
000008   02 WNUM2     PIC 9(4).
000009   02 WNUM3     PIC 9(4).
000010 PROCEDURE      DIVISION.
000011     ADD CORR WGRP TO 13.
000012 END PROGRAM    P2501.

P2501.cob 11: JMN2501I-S '13' in the ADD statement must be identifier.

Explanation

This diagnostic message is output when an unexpected word is encountered in a statements. The major cause is:

  1. Two or more operands are described where only one operand can be described.

  2. A literal is described where the literal cannot be described.

  3. The class of literal cannot be specified.

  4. An incorrect optional word is specified, or the order is incorrect.

Cause #2 is demonstrated in the sample program above.

JMN2502I-S

'@2@' in the @1@ statement must be @3@. '@2@' is ignored.

Parameter explanation

@1@ : Verb of statement that detects the error.

@2@ : Word that causes the error.

@3@ : Kind of word that can be described.

Example

[P2502.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2502.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006
000007 PROCEDURE      DIVISION.
000008     COMPUTE 13 = 12 + 1
000009 END PROGRAM    P2502.

P2502.cob 8: JMN2502I-S '13' in the COMPUTE statement must be identifier. '13' is ignored.

Explanation

This message is output when an unexpected word appears in a statement. The major causes are:

  1. There are two or more operands where there should be only one operand.

  2. A literal is described where one cannot be described.

  3. The class of literal cannot be specified.

  4. An incorrect optional word is specified, or the order is incorrect.

Cause #2 is demonstrated in the sample program above.

JMN2503I-S

User word '@1@' is undefined.

Parameter explanation

@1@ : User-defined word that causes the error.

Example

[P2503.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2503.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 PROCEDURE      DIVISION.
000007     DISPLAY A
000008 END PROGRAM    P2503.

P2503.cob 7: JMN2503I-S User word 'A' is undefined.

Explanation

This message is output when the definition of the referred user-defined word (data-name and label-name, etc.) is not found. Even if the user-defined word is defined, this message is output in the following cases:

  • The user-defined word does not meet the qualifications for uniqueness of reference.

  • The name is not among those allowed for user-defined words.

JMN2504I-S

User word '@1@' is defined multiple times.

Parameter explanation

@1@ : The user-defined word that is defined multiple times.

Example

[P2504.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2504.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 A           PIC X(1).
000007 01 A.
000008   02 B         PIC X(1).
000009 01 C.
000010    02 A.
000011      03 B      PIC X(1).
000012 PROCEDURE      DIVISION.
000013     MOVE SPACE TO A
000014     MOVE SPACE TO B OF A
000015 END PROGRAM    P2504.

P2504.cob 13: JMN2504I-S User word 'A' is defined multiple times.

P2504.cob 14: JMN2504I-S User word 'B' is defined multiple times.

Explanation

This error may occur in the following situations:

  1. When the compiler finds that there is insufficient qualification for a procedure statement to select one item from a user-defined word that is multiply defined.

  2. When a named literal (level 78 item) is defined using the same name as one defined earlier.

  3. In the .NET system:

    • A field or property is declared using a name already defined for a field or property.

    • An external name is the same as the internal name of a data item defined as a PROPERTY.

    • An external name of a LINKAGE SECTION item is the same as another item that has already been defined in the same LINKAGE SECTION.

    • A field inside an ENUM definition is multiply-defined with the same name.

    • When you use ALPHAL(AUTO), names will be matched regardless of the case of the letters.

JMN2505I-S

'@2@' must be specified in the @1@ statement. '@2@' is assumed.

Parameter explanation

@1@ : Verb of the statement that detects the error.

@2@ : Word that should be specified.

Example

[P2505.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2505.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WDA         PIC X.
000007 PROCEDURE      DIVISION.
000008     MOVE SPACE WDA
000009 END PROGRAM    P2505.

P2505.cob 8: JMN2505I-S 'TO' must be specified in the MOVE statement. 'TO' is assumed.

Explanation

A statement of COBOL program is made up of reserved words, user-defined words, literals, etc. A reserved word contains a required word and an optional word. A required word is one that must be included. This message is output when the required word is not described.

JMN2506I-W

A statement must be specified in a conditional statement or an in-line PERFORM statement. It is accepted as written.

Example

[P2506.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2506.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 PROCEDURE      DIVISION.
000007     PERFORM WITH NO LIMIT
000008     END-PERFORM
000009 END PROGRAM    P2506.

P2506.cob 8: JMN2506I-W A statement must be specified in a conditional statement or an in-line PERFORM statement. It is accepted as written.

JMN2507I-S

The IF DB-EXCEPTION statement cannot precede a data base operation statement or an IF DB-EXCEPTION statement.

Example

[P2507.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2507.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 PROCEDURE      DIVISION.
000007     IF DB-EXCEPTION IS 10
000008       GO TO END-PROC.
000009 END-PROC.
000010 END PROGRAM    P2507.

P2507.cob 7: JMN2507I-S The IF DB-EXCEPTION statement cannot precede a data base operation statement or an IF DB-EXCEPTION statement.

JMN2508I-W

NEXT SENTENCE cannot be specified in an IF or SEARCH statement with an explicit scope terminator. It is accepted as written.

Example

[P2508.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2508.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WDA         PIC X.
000007 PROCEDURE      DIVISION.
000008     IF WDA = SPACE THEN
000009       NEXT SENTENCE
000010     END-IF
000011 END PROGRAM    P2508.

P2508.cob 8: JMN2508I-W NEXT SENTENCE cannot be specified in an IF or SEARCH statement with an explicit scope terminator. It is accepted as written.

Explanation

The explicit scope terminator for the IF statement or the SEARCH statement is END-IF for the IF statement, and END-SEARCH for the SEARCH statement.

This message is output if NEXT SENTENCE is written in the IF statement or the SEARCH statement with the explicit scope terminator. NEXT SENTENCE or the explicit scope terminator should be deleted.

JMN2509I-S

Conditional statement '@1@' is specified where an imperative statement should be specified. The @1@ statement is assumed to be valid.

Parameter explanation

@1@ : Verb of statement which detects error.

Example

[P2509.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2509.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WDA         PIC X.
000007 PROCEDURE      DIVISION.
000008     PERFORM 10 TIMES
000009       IF WDA = SPACE THEN
000010         DISPLAY "SPACE"
000011     END-PERFORM.
000012 END PROGRAM    P2509.

P2509.cob 9: JMN2509I-S Conditional statement 'IF' is specified where an imperative statement should be specified. The IF statement is assumed to be valid.

Explanation

An imperative statement is one that is categorized as imperative statement, and is a conditional statement that contains an explicit scope terminator. The explicit scope terminator is, for example, END-IF for the IF statement. In general, this message is output if there is another conditional statement without an explicit scope terminator in the scope of a conditional statement. In the sample program, there is an IF statement without an END-IF in the in-line PERFORM statement.

When this message is output, review the relation of the conditional statement and the explicit scope terminator.

JMN2510I-S

'@1@' does not correspond. '@1@' is ignored.

Parameter explanation

@1@ : Explicit scope terminator without corresponding verb.

Example

[P2510.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2510.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WDA         PIC X.
000007 PROCEDURE      DIVISION.
000008     IF WDA = SPACE THEN
000009       EXIT PROGRAM.
000010     END-IF
000011 END PROGRAM    P2510.

P2510.cob 10: JMN2510I-S 'END-IF' does not correspond. 'END-IF' is ignored.

Explanation

An explicit scope terminator is a word in the form of "END-verb", such as END-ADD, that indicates the end of the statement. This message is displayed when there is no statement corresponding to the explicit scope terminator.

Check the following:

  • Is there a statement corresponding to the explicit scope terminator?

  • Are the statement and the explicit scope terminator a matched pair?

  • Does a period (separator) appear in a statement prior to the explicit scope terminator?

JMN2511I-S

'@2@' in the @1@ statement must be a mnemonic-name or a function-name. SYSIN or SYSOUT is assumed.

Parameter explanation

@1@ : ACCEPT or DISPLAY.

@2@ : Word which causes error.

Example

[P2511.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2511.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WDA         PIC X.
000007 01 WOUT        PIC X(20).
000008 PROCEDURE      DIVISION.
000009     DISPLAY WDA UPON WOUT.
000010 END PROGRAM    P2511.

P2511.cob 9: JMN2511I-S 'WOUT' in the DISPLAY statement must be a mnemonic-name or a function-name. SYSIN or SYSOUT is assumed.

Explanation

The mnemonic-name that is specified in a FROM phrase of an ACCEPT statement should be associated with the function-name CONSOLE, SYSIN, ARGUMENT-NUMBER, ARGUMENT-VALUE or ENVIRONMENT-VALUE in the SPECIAL-NAMES paragraph of the ENVIRONMENT DIVISION.

The mnemonic-name that is specified for an UPON phrase of a DISPLAY statement should be associated with the function-name CONSOLE, SYSOUT, SYSERR, SYSPUNCH, ARGUMENT-NUMBER, ENVIRONMENT-NAME or ENVIRONMENT-VALUE in the SPECIAL-NAMES paragraph of the ENVIRONMENT DIVISION.

JMN2512I-S

INPUT, OUTPUT, I-O, or EXTEND is missing from the OPEN statement. The compiler skips to the next INPUT, OUTPUT, I-O, or EXTEND.

Example

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

P2512.cob 15: JMN2512I-S INPUT, OUTPUT, I-O, or EXTEND is missing from the OPEN statement. The compiler skips to the next INPUT, OUTPUT, I-O, or EXTEND.

Explanation

A file can be opened in any of four open modes: input mode, output mode, input-output mode, and extension mode. Specify the open mode when a file is opened using the OPEN statement.

JMN2513I-S

Invalid word '@1@' is specified where a file other than a sort-merge file must be specified. Word '@1@' is ignored.

Parameter explanation

@1@ : Word which causes the error.

Example

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

P2513.cob 15: JMN2513I-S Invalid word 'SQF1REC' is specified where a file other than a sort-merge file must be specified. Word 'SQF1REC' is ignored.

Explanation

The OPEN statement specifies the file-name, and the sort-merge file is created internally by the COBOL runtime system. It is not necessary to open the file using the OPEN statement.

JMN2514I-S

The '@3@' option cannot be specified in the '@2@' file with an '@1@'. The option is ignored.

Parameter explanation

@1@ : OUTPUT, EXTEND, I-O or UNIT/REEL.

@2@ : File name that causes the error.

@3@ : REVERSED or REMOVAL.

Example

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

P2514.cob 15: JMN2514I-S The 'REVERSED' option cannot be specified in the 'SQFILE1' file with an 'OUTPUT'. The option is ignored.

Explanation

The REVERSED and FOR REMOVAL phrases are obsolete. The compiler analyzes them, but treats them as comments.

JMN2515I-S

NO REWIND cannot be specified in the '@2@' file with an '@1@'. NO REWIND is ignored.

Parameter explanation

@1@ : EXTEND or I-O.

@2@ : File name that causes the error.

Example

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

P2515.cob 15: JMN2515I-S NO REWIND cannot be specified in the 'SQFILE1' file with an 'EXTEND'. NO REWIND is ignored.

Explanation

The compiler analyzes the NO REWIND phrase, but treats it as a comment.

JMN2516I-S

'@2@' in the @1@ statement must be a file other than a sort-merge file.

Parameter explanation

@1@ : DELETE, SEEK, SET, READ or START.

@2@ : File name that causes the error.

Example

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

P2516.cob 18: JMN2516I-S 'IXF1REC' in the START statement must be a file other than a sort-merge file.

Explanation

A file-name must be targeted in the operation. The sort-merge file can be referred to only by the MERGE statement, the RELEASE statement, the RETURN statement, and the SORT statement.

JMN2517I-S

An invalid word is specified where a procedure-name must be specified in the @1@ statement. The invalid word is ignored.

Parameter explanation

@1@ : GOTO, SORT or MERGE.

Example

[P2517.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2517.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WPROC       PIC X(20).
000007 PROCEDURE      DIVISION.
000008     GO TO WPROC
000009 END PROGRAM    P2517.

P2517.cob 8: JMN2517I-S An invalid word is specified where a procedure-name must be specified in the GO TO statement. The invalid word is ignored.

JMN2518I-S

'@1@' in the USING phrase must be an identifier, a procedure-name, or a file-name.

Parameter explanation

@1@ : Word that causes the error.

Example

[P2518.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2518.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 RT-ITEM     PIC X.
000007 PROCEDURE      DIVISION.
000008     CALL "SUB2518" USING BY REFERENCE
000009                    RETURNING RT-ITEM.
000010 END PROGRAM    P2518.

P2518.cob 9: JMN2518I-S 'RETURNING' in the USING phrase must be an identifier, a procedure-name, or a file-name.

JMN2519I-S

'@2@' after '@1@' must be a procedure-name.

@2@ : Word that causes the error.

Parameter explanation

@1@ : THRU.

Example

[P2519.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2519.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 PROCEDURE      DIVISION.
000007     PERFORM P1 THRU
000008     STOP RUN.
000009 P1.
000010 END PROGRAM    P2519.

P2519.cob 8: JMN2519I-S 'STOP' after 'THRU' must be a procedure-name.

JMN2520I-S

'@2@' is invalid in a @1@ statement.

Parameter explanation

@1@ : CALL, INITIATE, TERMINATE, SET, ERASE, MODIFY or STORE.

@2@ : Word that causes the error.

Example

[P2520.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2520.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 PROCEDURE      DIVISION.
000007     CALL "SUB2520" USING "DATA"
000008 END PROGRAM    P2520.

P2520.cob 7: JMN2520I-S '"DATA"' is invalid in a CALL statement.

JMN2521I-S

In the PERFORM statement, the TEST BEFORE or TEST AFTER phrase is incomplete. A 'TEST BEFORE' phrase is assumed.

Example

[P2521.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2521.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WLOOP       PIC 999.
000007 PROCEDURE      DIVISION.
000008     PERFORM TEST
000009         VARYING WLOOP FROM 1
000010               BY 1 UNTIL WLOOP = 10
000011       DISPLAY WLOOP
000012     END-PERFORM
000013 END PROGRAM    P2521.

P2521.cob 8: JMN2521I-S In the PERFORM statement, the TEST BEFORE or TEST AFTER phrase is incomplete. A 'TEST BEFORE' phrase is assumed.

Explanation

To test a condition before executing a group of statements, specify the TEST BEFORE phrase or omit the TEST phrase. To test a condition after executing a group of statements, specify the TEST AFTER phrase. This message is displayed if only the word TEST is specified, and neither BEFORE nor AFTER is specified.

JMN2522I-W

No more than six AFTER phrases should occur in a VARYING phrase of a PERFORM statement. It is accepted as written.

Example

[P2522.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2522.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WLOOP0      PIC S9(9) COMP-5.
000007 01 WLOOP1      PIC S9(9) COMP-5.
000008 01 WLOOP2      PIC S9(9) COMP-5.
000009 01 WLOOP3      PIC S9(9) COMP-5.
000010 01 WLOOP4      PIC S9(9) COMP-5.
000011 01 WLOOP5      PIC S9(9) COMP-5.
000012 01 WLOOP6      PIC S9(9) COMP-5.
000013 01 WLOOP7      PIC S9(9) COMP-5.
000014 PROCEDURE      DIVISION.
000015     PERFORM P1
000016       VARYING WLOOP0 FROM 1 BY 1 UNTIL WLOOP1 > 10000000
000017       AFTER   WLOOP1 FROM 1 BY 1 UNTIL WLOOP2 > 1000000
000018       AFTER   WLOOP2 FROM 1 BY 1 UNTIL WLOOP3 > 100000
000019       AFTER   WLOOP3 FROM 1 BY 1 UNTIL WLOOP4 > 10000
000020       AFTER   WLOOP4 FROM 1 BY 1 UNTIL WLOOP5 > 1000
000021       AFTER   WLOOP5 FROM 1 BY 1 UNTIL WLOOP6 > 100
000022       AFTER   WLOOP6 FROM 1 BY 1 UNTIL WLOOP6 > 10
000023       AFTER   WLOOP7 FROM 1 BY 1 UNTIL WLOOP7 > 1.
000024 P1.
000025     DISPLAY "P1".
000026 END PROGRAM    P2522.

P2522.cob 15: JMN2522I-W No more than six AFTER phrases should occur in a VARYING phrase of a PERFORM statement. It is accepted as written.

JMN2523I-S

'@2@' is specified where '@1@' must be specified.

Parameter explanation

@1@ : Needed word.

@2@ : Word that caused the error.

Example

[P2523.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2523.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WANS        PIC S9(9) BINARY.
000007 01 WDA1        PIC S9(9) BINARY.
000008 PROCEDURE      DIVISION.
000009     COMPUTE WANS > 13 + 1
000010 END PROGRAM    P2523.

P2523.cob 9: JMN2523I-S '>' is specified where '=' must be specified.

JMN2524I-S

Invalid operand '@2@' with '@1@' is specified.

Parameter explanation

@1@ : Phrase where the error occurs.

@2@ : Word that caused the error.

Example

[P2524.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2524.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WNUM1       PIC S9(9) BINARY.
000007 01 WNUM2       PIC S9(9) BINARY.
000008 01 WNUM3       PIC S9(9) BINARY.
000009 01 WNUM4       PIC S9(9) BINARY.
000010 PROCEDURE      DIVISION.
000011     DIVIDE WNUM1 BY WNUM2
000012            GIVING WNUM3
000013            REMAINDER FUNCTION ADDR(WNUM4)
000014 END PROGRAM    P2524.

P2524.cob 13: JMN2524I-S Invalid operand 'FUNCTION ADDR' with 'REMAINDER' is specified.

JMN2525I-S

The operand in the @1@ phrase is missing or invalid. 1 is assumed as the operand.

Parameter explanation

@1@ : FROM or BY.

Example

[P2525.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2525.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WLOOP       PIC S9(9) BINARY.
000007 PROCEDURE      DIVISION.
000008     PERFORM TEST AFTER
000009         VARYING WLOOP FROM 1 BY
000010                       UNTIL WLOOP = 10
000011       DISPLAY WLOOP
000012     END-PERFORM
000013 END PROGRAM    P2525.

P2525.cob 10: JMN2525I-S The operand in the BY phrase is missing or invalid. 1 is assumed as the operand.

JMN2526I-S

The identifier in the SEARCH statement cannot be subscripted or reference modified. It is ignored, and the compiler skips to the next AT END or WHEN clause.

Example

[P2526.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2526.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 .
000007   02 WTARGET   OCCURS 26 INDEXED BY IX1.
000008     03 WKEY    PIC X.
000009     03 WDATA   PIC S9(4) BINARY.
000010 01 WANS        PIC S9(4) BINARY.
000011 PROCEDURE      DIVISION.
000012     SEARCH WTARGET(1) VARYING IX1
000013       AT END
000014         DISPLAY "ERROR"
000015     WHEN WKEY(IX1) >= "A" AND
000016          WKEY(IX1) <= "Z"
000017       MOVE WDATA(IX1) TO WANS
000018     END-SEARCH
000019 END PROGRAM    P2526.

P2526.cob 12: JMN2526I-S The identifier in the SEARCH statement cannot be subscripted or reference modified. It is ignored, and the compiler skips to the next AT END or WHEN clause.

JMN2527I-W

A period, ELSE phrase, or WHEN phrase must follow NEXT SENTENCE. It is accepted as written.

Example

[P2527.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2527.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WDA         PIC X VALUE "a".
000007 PROCEDURE      DIVISION.
000008     IF WDA = SPACE THEN
000009       NEXT SENTENCE
000010     DISPLAY "NG"
000011 END PROGRAM    P2527.

P2527.cob 10: JMN2527I-W A period, ELSE phrase, or WHEN phrase must follow NEXT SENTENCE. It is accepted as written.

JMN2528I-S

An invalid arithmetic expression is specified in the SEARCH ALL statement.

Example

[P2528.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2528.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 .
000007   02 WTARGET   OCCURS 26 INDEXED BY IX1
000008                          ASCENDING KEY IS WKEY.
000009     03 WKEY    PIC S9(4).
000010     03 WDATA   PIC X(1).
000011 01 WANS        PIC X(1).
000012 01 WDA1        PIC S9(4).
000013 PROCEDURE      DIVISION.
000014     SEARCH ALL WTARGET
000015       AT END
000016         DISPLAY "ERROR"
000017     WHEN WKEY(IX1) = WDA1 + 12 -
000018       MOVE WDATA(IX1) TO WANS
000019     END-SEARCH
000020 END PROGRAM    P2528.

P2528.cob 17: JMN2528I-S An invalid arithmetic expression is specified in the SEARCH ALL statement.

JMN2529I-S

The relational operator is missing.

Example

[P2529.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2529.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 .
000007   02 WTARGET   OCCURS 26 INDEXED BY IX1
000008                          ASCENDING KEY IS WKEY.
000009     03 WKEY    PIC S9(4).
000010     03 WDATA   PIC X(1).
000011 01 WANS        PIC X(1).
000012 01 WDA1        PIC S9(4).
000013 PROCEDURE      DIVISION.
000014     SEARCH ALL WTARGET
000015       AT END
000016         DISPLAY "ERROR"
000017     WHEN WKEY(IX1) < WDA1 + 12
000018       MOVE WDATA(IX1) TO WANS
000019     END-SEARCH
000020 END PROGRAM    P2529.

P2529.cob 17: JMN2529I-S The relational operator is missing.

Explanation

The relational operator suitable for the context is not found. This can occur when:

  • Relational operators other than = (EQUAL/EQUALS) were written in the WHEN phrase of the SEARCH statement/SEARCH ALL statement.

  • A relational operator(>, <, =, <=, >=) is not written in the conditional expression in the IF or PERFORM statement, or only the optional word IS is written in the conditional expression in the EVALUATE statement.

  • A relational operator(>, <, =, <=, >=) is not written in the KEY phrase of the START statement.

JMN2530I-S

The @1@ phrase cannot be specified. The phrase is ignored.

Parameter explanation

@1@ : WHEN or DELIMITER or COUNT.

Example

[P2530.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2530.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 .
000007   02 WTARGET   OCCURS 26 INDEXED BY IX1
000008                          ASCENDING KEY IS WKEY.
000009     03 WKEY    PIC S9(4).
000010     03 WDATA   PIC X(1).
000011 01 WANS        PIC X(1).
000012 01 WDA1        PIC S9(4).
000013 PROCEDURE      DIVISION.
000014     SEARCH ALL WTARGET
000015       AT END
000016         DISPLAY "ERROR"
000017     WHEN WKEY(IX1) = WDA1 + 12
000018       MOVE WDATA(IX1) TO WANS
000019     WHEN WKEY(IX1) = WDA1 + 30
000020       MOVE WDATA(IX1) TO WANS
000021     END-SEARCH
000022 END PROGRAM    P2530.

P2530.cob 19: JMN2530I-S The WHEN phrase cannot be specified. The phrase is ignored.

Explanation

This message is output under the following circumstances:

  • When the DELIMITED phrase is not described in the UNSTRING statement, the DELIMITER phrase or the COUNT phrase cannot be described.

  • Two or more WHEN phrases cannot be described in the SEARCH ALL statement.

  • Two or more WHEN OTHER phrases cannot be described.

JMN2532I-S

'@1@' is invalid as a program-name or entry-name.

Parameter explanation

@1@ : Word that causes the error.

Example

[P2532.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2532.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 PROCEDURE      DIVISION.
000007     CALL 1234
000008 END PROGRAM    P2532.

P2532.cob 7: JMN2532I-S '1234' is invalid as a program-name or entry-name.

JMN2534I-S

A figurative constant ZERO(S, ES) cannot be specified in a selection subject. ZERO(S, ES) is accepted.

Example

[P2534.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2534.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WVAL        PIC S9(9) BINARY.
000007 PROCEDURE      DIVISION.
000008     EVALUATE TRUE ZERO
000009     WHEN WVAL = 10
000010          WVAL
000011       DISPLAY "NG"
000012     END-EVALUATE
000013 END PROGRAM    P2534.

P2534.cob 9: JMN2534I-S A figurative constant ZERO(S, ES) cannot be specified in a selection subject. ZERO(S, ES) is accepted.

Explanation

The operands (including TRUE and FALSE) before the first WHEN phrase in the EVALUATE statement are called "selection subjects". The figurative constant ZERO(ZEROS, ZEROES) cannot be specified as the selection subject.

JMN2535I-S

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

Parameter explanation

@1@ : Verb of the statement that detects the error.

@2@ : Word that causes the error.

Example

[P2535.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2535.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WDA         PIC X.
000007 SCREEN          SECTION.
000008 01 WSC         PIC X FROM WDA.
000009 PROCEDURE      DIVISION.
000010     EVALUATE WSC
000011     WHEN ZERO
000012       DISPLAY "OK"
000013     WHEN OTHER
000014       DISPLAY "NG"
000015     END-EVALUATE
000016 END PROGRAM    P2535.

P2535.cob 10: JMN2535I-S 'WSC' cannot be specified in a EVALUATE statement.

JMN2536I-S

Index-name '@1@' cannot be specified in a selection subject or selection object.

Parameter explanation

@1@ : Index-name that causes the error.

Example

[P2536.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2536.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP.
000007   02 WOCC      PIC X OCCURS 10 INDEXED BY IX1.
000008 PROCEDURE      DIVISION.
000009     EVALUATE IX1
000010     WHEN ZERO
000011       DISPLAY "OK"
000012     WHEN OTHER
000013       DISPLAY "NG"
000014     END-EVALUATE
000015 END PROGRAM    P2536.

P2536.cob 9: JMN2536I-S Index-name 'IX1' cannot be specified in a selection subject or selection object.

Explanation

The operands (including TRUE and FALSE) before the first WHEN phrase in the EVALUATE statement are called "selection subjects". The operands (including TRUE, FALSE, and ANY) in the WHEN phrase in the EVALUATE statement are called "selection objects". The index-name cannot be specified for the selection subject and the selection object.

JMN2538I-S

The number of selection objects must equal the number of selection subjects. The compiler assumes the appropriate number of ANY words, and compilation continues.

Example

[P2538.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2538.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WDA1        PIC X(1).
000007 01 WDA2        PIC X(1).
000008 PROCEDURE      DIVISION.
000009     EVALUATE TRUE ALSO TRUE
000010     WHEN WDA1 = SPACE
000011       DISPLAY "OK"
000012     WHEN OTHER
000013       DISPLAY "NG"
000014     END-EVALUATE
000015 END PROGRAM    P2538.

P2538.cob 10: JMN2538I-S The number of selection objects must equal the number of selection subjects. The compiler assumes the appropriate number of ANY words, and compilation continues.

Explanation

The operands (including TRUE and FALSE) before the first WHEN phrase in the EVALUATE statement are called "selection subjects". The operands (including TRUE, FALSE, and ANY) in the WHEN phrase in the EVALUATE statement are called "selection objects". In one WHEN phrase, the number of selection subjects should be the same as the number of selection objects.

JMN2539I-S

The number of selection objects is greater than the number of selection subjects. Their numbers must be equal. Excess selection objects are ignored.

Example

[P2539.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2539.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WDA1        PIC X(1).
000007 01 WDA2        PIC X(1).
000008 PROCEDURE      DIVISION.
000009     EVALUATE TRUE
000010     WHEN WDA1 = SPACE ALSO
000011          WDA2 = SPACE
000012       DISPLAY "OK"
000013     WHEN OTHER
000014       DISPLAY "NG"
000015     END-EVALUATE
000016 END PROGRAM    P2539.

P2539.cob 10: JMN2539I-S The number of selection objects is greater than the number of selection subjects. Their numbers must be equal. Excess selection objects are ignored.

Explanation

The operands (including TRUE and FALSE) before the first WHEN phrase in the EVALUATE statement are called "selection subjects". The operands (including TRUE, FALSE, and ANY) in the WHEN phrase in the EVALUATE statement are called "selection objects". In one WHEN phrase, the number of selection subjects should be the same as the number of selection objects.

JMN2540I-W

The paragraph containing the EXIT statement can only consist of the procedure-name and the EXIT statement itself. The EXIT statement is considered to be a CONTINUE statement in this context.

Example

[P2540.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2540.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 PROCEDURE      DIVISION.
000007 E-PROC          SECTION.
000008     DISPLAY "EXIT"
000009     EXIT.
000010 END PROGRAM    P2540.

P2540.cob 9: JMN2540I-W The paragraph containing the EXIT statement can only consist of the procedure-name and the EXIT statement itself. The EXIT statement is considered to be a CONTINUE statement in this context.

Explanation

A paragraph containing the EXIT statement must not contain any other statements. The EXIT statement must appear in a sentence by itself.

JMN2541I-S

The same category cannot be specified in the REPLACING phrase of the INITIALIZE statement.

Example

[P2541.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2541.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP.
000007   02 WNUM      PIC S9(9) BINARY.
000008   02 WDX1      PIC X(10).
000009   02 WDX2      PIC N(10).
000010 PROCEDURE      DIVISION.
000011     INITIALIZE WGRP
000012        REPLACING
000013           ALPHANUMERIC DATA BY SPACE
000014           ALPHANUMERIC DATA BY LOW-VALUE
000015 END PROGRAM    P2541.

P2541.cob 14: JMN2541I-S The same category cannot be specified in the REPLACING phrase of the INITIALIZE statement.

Explanation

The INITIALIZE statement initializes a data item. The data item is initialized by the value specified in the BY phrase only when its category matches the category specified in the REPLACING phrase. Two or more REPLACING phrases that specify the same category cannot be described at the same time.

JMN2543I-S

A user-defined word must follow IN or OF. The IN or OF is ignored.

Example

[P2543.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2543.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP.
000007   02 WITEM     PIC X(10).
000008 PROCEDURE      DIVISION.
000009     MOVE SPACE TO WITEM OF.
000010 END PROGRAM    P2543.

P2543.cob 9: JMN2543I-S A user-defined word must follow IN or OF. The IN or OF is ignored.

Explanation

If two or more user-defined words with identical spelling are in the same name scope, when referencing the user-defined words qualification must be used.

The qualification describes word OF or IN following the qualified data-name, and, in addition, describes the high-order name according to the name hierarchy. Qualifiers(IN or OF and the word following) must continue to be added to the user-defined words until it becomes unique.

JMN2545I-S

An invalid word is specified in the arithmetic expression of the @1@ statement.

Parameter explanation

@1@ : COMPUTE

Example

[P2545.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2545.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WANS        PIC S9(9) BINARY.
000007 PROCEDURE      DIVISION.
000008     COMPUTE WANS = "ABC"
000009 END PROGRAM    P2545.

P2545.cob 8: JMN2545I-S An invalid word is specified in the arithmetic expression of the COMPUTE statement.

Explanation

Only a numeric item, floating-point item, numeric function, integer function, numeric literal or figurative constant ZERO can be used as an operand of the arithmetic expression of a COMPUTE statement.

JMN2547I-S

The ALL literal cannot be specified in a @1@ statement. The word ALL is ignored.

Parameter explanation

@1@ : Verb of statement that detects the error.

Example

[P2547.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2547.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WBUF        PIC X(20).
000007 PROCEDURE      DIVISION.
000008     EXAMINE WBUF
000009       TALLYING LEADING ALL "A"
000010 END PROGRAM    P2547.

P2547.cob 9: JMN2547I-S The ALL literal cannot be specified in a EXAMINE statement. The word ALL is ignored.

Explanation

The ALL literal cannot be used in a character string handling statement (EXAMINE, INSPECT, STRING and UNSTRING statement), because the compiler cannot determine the length of ALL literal in the compilation time. (The EXAMINE statement is specific to the OSIV-series.)

JMN2548I-S

The format of the specification '@1@' is invalid.

Parameter explanation

@1@ : TYPE or USING or TALLYING/REPLACING.

Example

[P2548.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2548.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WDATA1      PIC X(10).
000007 01 WDATA2      PIC X(10).
000008 01 WDATA3      PIC X(10).
000009 01 WBUF        PIC X(50).
000010 PROCEDURE      DIVISION.
000011     STRING WDATA1 WDATA2 WDATA3
000012            INTO WBUF
000013            BY CSV-FORMAT TYPE MODE-0.
000014 END PROGRAM    P2548.

P2548.cob 13: JMN2548I-S The format of the specification 'TYPE' is invalid.

Explanation

This message is caused by incorrect format or syntax in the following areas:

  • The TYPE phrase of the STRING statement.

  • The USING BY REFERENCE/BY VALUE phrase of the procedure division header. (This is specific to the .NET-series.)

  • The TALLYING/REPLACING phrase of the EXAMINE statement. (The EXAMINE statement is specific to the OSIV-series.)

Please review the format and syntax rules in the reference manual.

JMN2549I-W

Only the optional word '@1@' is specified. '@1@' is ignored.

Parameter explanation

@1@ : Optional word which causes error.

Example

[P2549.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2549.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WDA1        PIC X.
000007 PROCEDURE      DIVISION.
000008     CALL "SUB2549" USING BY WDA1
000009     EXIT PROGRAM
000010     .
000011 IDENTIFICATION DIVISION.
000012 PROGRAM-ID.    SUB2549.
000013 DATA           DIVISION.
000014 LINKAGE        SECTION.
000015 01 P1          PIC X.
000016 PROCEDURE      DIVISION USING P1.
000017 END PROGRAM    SUB2549.
000018 END PROGRAM    P2549.

P2549.cob 8: JMN2549I-W Only the optional word 'BY' is specified. 'BY' is ignored.

Explanation

A keyword should follow an optional word. An optional word is one that may be written or omitted, but a keyword must be included. Keywords are written in uppercase letters and are underlined in all syntax diagrams of the "NetCOBOL Language Reference".

JMN2550I-S

'@2@' in the @1@ statement must be a report-name or a data-name.

Parameter explanation

@1@ : GENERATE.

@2@ : User-defined word which causes the error.

Example

[P2550.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2550.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD REPFILE
000010      REPORT IS REP1.
000011 WORKING-STORAGE SECTION.
000012 01 WBUF1       PIC X(80).
000013 REPORT          SECTION.
000014 RD REP1 PAGE 66
000015         CONTROL FINAL.
000016 01 TYPE DE.
000017 PROCEDURE      DIVISION.
000018 LBL1.
000019     GENERATE LBL1
000020 END PROGRAM    P2550.

P2550.cob 19: JMN2550I-S 'LBL1' in the GENERATE statement must be a report-name or a data-name.

Explanation

The GENERATE Statement outputs a report according to the report description entry. The report-name (the name following the level indicator RD) or the data-name of the detail report group (the report description entry that specifies the TYPE clause with DETAIL phrase) can be specified for the GENERATE statement.

JMN2551I-S

The @1@ statement must contain key word '@2@'.

Parameter explanation

@1@ : Verb of statement that detects the error.

@2@ : Missing key word that causes the error.

Example

[P2551.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2551.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WDA1        PIC X(20).
000007 PROCEDURE      DIVISION.
000008     SET WDA1
000009 END PROGRAM    P2551.

P2551.cob 8: JMN2551I-S The SET statement must contain key word 'TO'.

Explanation

A keyword must be included in the statement.

JMN2552I-S

An index-name, index data item, integer item, or positive integer must follow TO in the SET statement.

Example

[P2552.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2552.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WDA1        PIC X(20).
000007 01 WDA2        PIC X(20).
000008 PROCEDURE      DIVISION.
000009     SET WDA1 TO ALL "A"
000010 END PROGRAM    P2552.

P2552.cob 9: JMN2552I-S An index-name, index data item, integer item, or positive integer must follow TO in the SET statement.

JMN2553I-S

Integer item or integer must follow 'UP BY' or 'DOWN BY' in SET statement.

Example

[P2553.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2553.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP.
000007   02 WOCC      PIC X(1)
000008                OCCURS 10 INDEXED BY IX1.
000009 PROCEDURE      DIVISION.
000010     SET IX1 UP BY 1.5
000011 END PROGRAM    P2553.

P2553.cob 10: JMN2553I-S Integer item or integer must follow 'UP BY' or 'DOWN BY' in SET statement.

Explanation

The value of the UP BY target is increased by the integer value specified for UP BY, and the value of the DOWN BY target is decreased by the integer value specified for DOWN BY. An integer value must be specified for UP BY and DOWN BY.

JMN2554I-S

A word which indicates a category must follow REPLACING in the INITIALIZE statement. The code is ignored until the next statement or procedure-name.

Example

[P2554.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2554.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP.
000007   02 WNUM      PIC S9(9) BINARY.
000008   02 WDX1      PIC X(10).
000009   02 WDX2      PIC N(10).
000010 PROCEDURE      DIVISION.
000011     INITIALIZE WGRP
000012        REPLACING  DATA BY SPACE
000013 END PROGRAM    P2554.

P2554.cob 12: JMN2554I-S A word which indicates a category must follow REPLACING in the INITIALIZE statement. The code is ignored until the next statement or procedure-name.

Explanation

The REPLACING phrase is used to initialize an elementary item of a particular category with a particular value.

JMN2555I-S

An identifier or literal must follow BY in the INITIALIZE statement. The code is ignored, and the compiler skips to the next word representing a category or statement.

Example

[P2555.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2555.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP.
000007   02 WNUM      PIC S9(9) BINARY.
000008   02 WDX1      PIC X(10).
000009   02 WDX2      PIC N(10).
000010 01 WINIT       PIC X(1) VALUE SPACE.
000011 PROCEDURE      DIVISION.
000012 LBL1.
000013     INITIALIZE WGRP
000014        REPLACING ALPHANUMERIC DATA BY LBL1.
000015 END PROGRAM    P2555.

P2555.cob 14: JMN2555I-S An identifier or literal must follow BY in the INITIALIZE statement. The code is ignored, and the compiler skips to the next word representing a category or statement.

Explanation

An initialization value must be specified for the BY phrase.

JMN2556I-S

The USE statement can only be specified in DECLARATIVES.

Example

[P2556.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2556.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD SQFILE1.
000010 01 SQF1REC.
000011   02           PIC X(80).
000012 WORKING-STORAGE SECTION.
000013 01 WFS1        PIC X(2).
000014 PROCEDURE      DIVISION.
000015 E-PROC SECTION. USE AFTER ERROR PROCEDURE ON SQFILE1.
000016     DISPLAY "OK".
000017 END PROGRAM    P2556.

P2556.cob 15: JMN2556I-S The USE statement can only be specified in DECLARATIVES.

Explanation

Declaratives are specified in a block of code that begins with the keyword DECLARATIVES and ends with the keyword END DECLARATIVES. The USE statement can only be specified in DECLARATIVES.

JMN2557I-S

The format of the @1@ statement is incomplete.

Parameter explanation

@1@ : Verb of the statement that detects the error.

Example

[P2557.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2557.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WDA1        PIC X.
000007 01 WDA2        PIC X.
000008 PROCEDURE      DIVISION.
000009     MOVE WDA1 TO WDA3
000010 END PROGRAM    P2557.

P2557.cob 9: JMN2557I-S The format of the MOVE statement is incomplete.

Explanation

Since an error was detected in an element of the statement, so the statement cannot be analyzed. Review and address any errors that have been output in other diagnostic messages.

JMN2558I-S

The @1@ statement can only have one @2@ phrase. The first @2@ phrase is used and the other @2@ phrases are ignored.

Parameter explanation

@1@ : Verb of the statement that detects the error.

@2@ : Phrase that causes the error.

Example

[P2558.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2558.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 TARGET      PIC X(80).
000007 01 RESULT      PIC S9(9) COMP-5.
000008 PROCEDURE      DIVISION.
000009     INSPECT TARGET TALLYING
000010       RESULT FOR
000011         CHARACTERS BEFORE  "A"
000012                    BEFORE  "C"
000013 END PROGRAM    P2558.

P2558.cob 12: JMN2558I-S The INSPECT statement can only have one BEFORE phrase. The first BEFORE phrase is used and the other BEFORE phrases are ignored.

JMN2560I-W

The section-name must be followed by a USE statement in DECLARATIVES. It is accepted as written.

Example

[P2560.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2560.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD SQFILE1.
000010 01 SQF1REC.
000011   02           PIC X(80).
000012 WORKING-STORAGE SECTION.
000013 01 WFS1        PIC X(2).
000014 PROCEDURE      DIVISION.
000015 DECLARATIVES.
000016 E-PROC SECTION.
000017 END DECLARATIVES.
000018 END PROGRAM    P2560.

P2560.cob 16: JMN2560I-W The section-name must be followed by a USE statement in DECLARATIVES. It is accepted as written.

Explanation

The USE statement should be written just after the section-name in the declaratives (a block that begins with the keyword DECLARATIVES and ends with the keyword END DECLARATIVES).

JMN2561I-S

The KEY phrase of the READ or START statement contains no valid operand. The KEY phrase is ignored.

Example

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

P2561.cob 20: JMN2561I-S The KEY phrase of the READ or START statement contains no valid operand. The KEY phrase is ignored.

Explanation

There is no key item because an error was detected in the data-names specified for the KEY phrase. Review and address any errors that have been output in other diagnostic messages.

JMN2562I-S

'@1@' must be a record-name in a sort-merge file.

Parameter explanation

@1@ : Word that causes the error.

Example

[P2562.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2562.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SRTFILE ASSIGN TO SYS003.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD SRTFILE.
000011 01 SRTREC.
000012   02 SRTKEY    PIC X(8).
000013   02           PIC X(72).
000014 WORKING-STORAGE SECTION.
000015 01 WFS1        PIC X(2).
000016 PROCEDURE      DIVISION.
000017     RELEASE SRTREC
000018 END PROGRAM    P2562.

P2562.cob 17: JMN2562I-S 'SRTREC' must be a record-name in a sort-merge file.

Explanation

The RELEASE statement delivers a record assigned to record-name to the first step of the sorting operation. The record-name specified for the RELEASE statement should be in the sort-merge file.

JMN2564I-S

'@2@' in the @1@ statement must be a sort-merge file name.

Parameter explanation

@1@ : SORT, MERGE or RETURN.

@2@ : Word that causes the error.

Example

[P2564.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2564.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007     SELECT SQFILE2 ASSIGN TO SYS002.
000008     SELECT SRTFILE ASSIGN TO SYS003.
000009 I-O-CONTROL.
000010 DATA           DIVISION.
000011 FILE            SECTION.
000012 FD SQFILE1.
000013 01 SQF1REC.
000014   02           PIC X(80).
000015 FD SQFILE2.
000016 01 SQF2REC.
000017   02           PIC X(80).
000018 FD SRTFILE.
000019 01 SRTREC.
000020   02 SRTKEY    PIC X(8).
000021   02           PIC X(72).
000022 WORKING-STORAGE SECTION.
000023 01 WFS1        PIC X(2).
000024 PROCEDURE      DIVISION.
000025     SORT SRTREC
000026       ASCENDING KEY SRTKEY
000027       USING  SQFILE1
000028       GIVING SQFILE2
000029 END PROGRAM    P2564.

P2564.cob 25: JMN2564I-S 'SRTREC' in the SORT statement must be a sort-merge file name.

Explanation

The file-name specified just after SORT, MERGE, and RETURN should be a file-name defined in the sort-merge file description entry (the name following level indicator SD).

JMN2565I-S

An invalid operand is specified in the arithmetic expression. The arithmetic expression is ignored.

Example

[P2565.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2565.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WANS        PIC S9(9) BINARY.
000007 PROCEDURE      DIVISION.
000008     COMPUTE WANS = 13.2 + "ABC"
000009 END PROGRAM    P2565.

P2565.cob 8: JMN2565I-S An invalid operand is specified in the arithmetic expression. The arithmetic expression is ignored.

Explanation

Only a numeric data item, a floating-point data item, a numeric function, an integer function, a numeric literal, or the figurative constant ZERO can be specified in arithmetic expressions.

JMN2566I-S

The RETURN statement must have an AT END phrase. The AT END CONTINUE phrase is assumed.

Example

[P2566.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2566.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SRTFILE ASSIGN TO SYS003.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 SD SRTFILE.
000011 01 SRTREC.
000012   02 SRTKEY    PIC X(8).
000013   02           PIC X(72).
000014 WORKING-STORAGE SECTION.
000015 01 WFS1        PIC X(2).
000016 PROCEDURE      DIVISION.
000017     RETURN SRTFILE
000018 END PROGRAM    P2566.

P2566.cob 17: JMN2566I-S The RETURN statement must have an AT END phrase. The AT END CONTINUE phrase is assumed.

Explanation

When the RETURN statement has been executed, the next record determined by the row of keys specified in the SORT or MERGE statement is retrieved from the file assigned to file-name. If there is no record to retrieve, the procedure described in AT END phrase is done.

JMN2567I-S

The condition in the @1@ statement is invalid.

Parameter explanation

@1@ : PERFORM or SEARCH.

Example

[P2567.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2567.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 A           PIC X(10).
000007 PROCEDURE      DIVISION.
000008     PERFORM TEST BEFORE
000009               UNTIL A =
000010       DISPLAY "IN LOOP".
000011 END PROGRAM    P2567.

P2567.cob 9: JMN2567I-S The condition in the PERFORM statement is invalid.

JMN2568I-S

The SUPPRESS statement can only be specified in the USE BEFORE REPORTING procedure.

Example

[P2568.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2568.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007     SELECT REPFILE ASSIGN TO SYS002.
000008 I-O-CONTROL.
000009 DATA           DIVISION.
000010 FILE            SECTION.
000011 FD SQFILE1.
000012 01 SQF1REC      PIC X(80).
000013 FD REPFILE
000014      REPORT IS REP1.
000015 WORKING-STORAGE SECTION.
000016 01 WFS1         PIC X(2).
000017 REPORT          SECTION.
000018 RD REP1 PAGE 66.
000019 01 DE-REC TYPE DE.
000020   02 LINE PLUS 1.
000021     03 COLUMN 1 PIC X(80) SOURCE SQF1REC.
000022 PROCEDURE      DIVISION.
000023     INITIATE  REP1.
000024     SUPPRESS PRINTING
000025     GENERATE  DE-REC.
000026     TERMINATE REP1.
000027 END PROGRAM    P2568.

P2568.cob 24: JMN2568I-S The SUPPRESS statement can only be specified in the USE BEFORE REPORTING procedure.

Explanation

The SUPPRESS statement suppresses the presentation of a report group. The SUPPRESS statement can be written only in a USE BEFORE REPORTING procedure.

The USE BEFORE REPORTING procedure is described just after the USE BEFORE REPORTING statement in the declaratives. The Report Writer Control System executes the USE BEFORE REPORTING procedure immediately before the specified report group is created and displayed.

JMN2569I-S

The subscript must be an arithmetic expression or an index-name with an optional +integer or -integer. 1 is assumed for the subscript.

Example

[P2569.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2569.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP.
000007   02 WOCC      PIC X
000008                OCCURS 10 INDEXED BY IX1.
000009 PROCEDURE      DIVISION.
000010     MOVE SPACE TO WOCC("12")
000011 END PROGRAM    P2569.

P2569.cob 10: JMN2569I-S The subscript must be an arithmetic expression or an index-name with an optional +integer or -integer. 1 is assumed for the subscript.

JMN2570I-S

@1@ must be subscripted.

Parameter explanation

@1@ : Data name that causes the error.

Example

[P2570.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2570.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP.
000007   02 WOCC      PIC X
000008                OCCURS 10 INDEXED BY IX1.
000009 PROCEDURE      DIVISION.
000010     MOVE SPACE TO WOCC
000011 END PROGRAM    P2570.

P2570.cob 10: JMN2570I-S WOCC must be subscripted.

Explanation

A table element must be subscripted before being referenced, except in the following cases:

  • Subject in a SEARCH statement

  • REDEFINES clause

  • KEY IS phrase in an OCCURS clause

JMN2571I-S

The right parenthesis of the subscript or reference modification is not specified. A right parenthesis is assumed.

Example

[P2571.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2571.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP.
000007   02 WOCC      PIC X
000008                OCCURS 10 INDEXED BY IX1.
000009 PROCEDURE      DIVISION.
000010     MOVE SPACE TO WOCC(1
000011 END PROGRAM    P2571.

P2571.cob 10: JMN2571I-S The right parenthesis of the subscript or reference modification is not specified. A right parenthesis is assumed.

JMN2574I-S

The SORT or MERGE statement must have an ASCENDING or DESCENDING phrase. An ASCENDING phrase is assumed.

Example

[P2574.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2574.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007     SELECT SQFILE2 ASSIGN TO SYS002.
000008     SELECT SRTFILE ASSIGN TO SYS003.
000009 I-O-CONTROL.
000010 DATA           DIVISION.
000011 FILE            SECTION.
000012 FD SQFILE1.
000013 01 SQF1REC.
000014   02           PIC X(80).
000015 FD SQFILE2.
000016 01 SQF2REC.
000017   02           PIC X(80).
000018 SD SRTFILE.
000019 01 SRTREC.
000020   02 SRTKEY    PIC X(8).
000021   02           PIC X(72).
000022 WORKING-STORAGE SECTION.
000023 PROCEDURE      DIVISION.
000024     SORT SRTFILE
000025        ON KEY SRTKEY
000026        USING  SQFILE1
000027        GIVING SQFILE2
000028 END PROGRAM    P2574.

P2574.cob 25: JMN2574I-S The SORT or MERGE statement must have an ASCENDING or DESCENDING phrase. An ASCENDING phrase is assumed.

Explanation

Specify whether the record is to be sorted/merged in ascending or descending order.

JMN2575I-S

The number of key data-names in the SORT or MERGE statement cannot exceed 64. Excess data-names are ignored.

Example

[P2575.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2575.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007     SELECT SQFILE2 ASSIGN TO SYS002.
000008     SELECT SRTFILE ASSIGN TO SYS003.
000009 I-O-CONTROL.
000010 DATA           DIVISION.
000011 FILE            SECTION.
000012 FD SQFILE1.
000013 01 SQF1REC.
000014   02                   PIC X(80).
000015 FD SQFILE2.
000016 01 SQF2REC.
000017   02                   PIC X(80).
000018 SD SRTFILE.
000019 01 SRTREC.
000020   02 SRTKEY01  PIC X(1).
000021   02 SRTKEY02  PIC X(1).
:
000083   02 SRTKEY64  PIC X(1).
000084   02 SRTKEY65  PIC X(1).
000085   02           PIC X(15).
000086 WORKING-STORAGE SECTION.
000087 PROCEDURE      DIVISION.
000088     SORT SRTFILE
000089        ON ASCENDING KEY
000090           SRTKEY01 SRTKEY02 SRTKEY03 SRTKEY04 SRTKEY05
:
000102           SRTKEY61 SRTKEY62 SRTKEY63 SRTKEY64 SRTKEY65
000103        USING  SQFILE1
000104        GIVING SQFILE2
000105 END PROGRAM    P2575.

P2575.cob 102: JMN2575I-S The number of key data-names in the SORT or MERGE statement cannot exceed 64. Excess data-names are ignored.

Explanation

The COBOL processing system allows a maximum of 64 key data-names in a SORT or MERGE statement.

JMN2576I-S

The number of file-names specified in the USING phrase of the SORT or MERGE statement cannot exceed 16. Excess file-names are ignored.

Example

[P2576.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2576.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE01 ASSIGN TO SYS001.
000007     SELECT SQFILE02 ASSIGN TO SYS002.
:
000022     SELECT SQFILE17 ASSIGN TO SYS017.
000023     SELECT SQFILE18 ASSIGN TO SYS018.
000024     SELECT SRTFILE  ASSIGN TO SYS019.
000025 I-O-CONTROL.
000026 DATA           DIVISION.
000027 FILE            SECTION.
000028 FD SQFILE01.
000029 01 SQF01REC     PIC X(80).
000030 FD SQFILE02.
000031 01 SQF02REC     PIC X(80).
:
000060 FD SQFILE17.
000061 01 SQF17REC     PIC X(80).
000062 FD SQFILE18.
000063 01 SQF18REC     PIC X(80).
000064 SD SRTFILE.
000065 01 SRTREC.
000066   02 SRTKEY     PIC X(1).
000067   02            PIC X(79).
000068 WORKING-STORAGE SECTION.
000069 PROCEDURE      DIVISION.
000070     SORT SRTFILE
000071        ON ASCENDING KEY SRTKEY
000072        USING  SQFILE01 SQFILE02 SQFILE03 SQFILE04
 :
000076               SQFILE17
000077        GIVING SQFILE18
000078 END PROGRAM    P2576.

P2576.cob 76: JMN2576I-S The number of file-names specified in the USING phrase of the SORT or MERGE statement cannot exceed 16. Excess file-names are ignored.

Explanation

The COBOL processing system allows a maximum of 16 file-names to be specified in the USING phrase of the SORT or MERGE statement.

JMN2580I-W

The @1@ statement cannot be specified in DECLARATIVES. It is accepted as written.

Parameter explanation

@1@ : SORT or MERGE.

Example

[P2580.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2580.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007     SELECT SQFILE2 ASSIGN TO SYS002.
000008     SELECT SRTFILE ASSIGN TO SYS003.
000009 I-O-CONTROL.
000010 DATA           DIVISION.
000011 FILE            SECTION.
000012 FD SQFILE1.
000013 01 SQF1REC.
000014   02           PIC X(80).
000015 FD SQFILE2.
000016 01 SQF2REC.
000017   02           PIC X(80).
000018 SD SRTFILE.
000019 01 SRTREC.
000020   02 SRTKEY    PIC X(8).
000021   02           PIC X(72).
000022 WORKING-STORAGE SECTION.
000023 01 WFS1        PIC X(2).
000024 PROCEDURE      DIVISION.
000025 DECLARATIVES.
000026 FILE-ERROR SECTION.
000027     USE AFTER STANDARD ERROR PROCEDURE ON SQFILE1
000028     SORT SRTFILE
000029       ASCENDING KEY SRTKEY
000030       USING  SQFILE1
000031       GIVING SQFILE2.
000032 END DECLARATIVES.
000033 END PROGRAM    P2580.

P2580.cob 28: JMN2580I-W The SORT statement cannot be specified in DECLARATIVES. It is accepted as written.

JMN2583I-S

The format of the high-order-end-character-position of the reference modification is invalid. 1, the first character, is used.

Example

[P2583.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2583.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WBUF        PIC X(20).
000007 PROCEDURE      DIVISION.
000008     MOVE SPACE TO WBUF("ABC":1)
000009 END PROGRAM    P2583.

P2583.cob 8: JMN2583I-S The format of the high-order-end-character-position of the reference modification is invalid. 1, the first character, is used.

Explanation

The high-order-end-character-position must be an arithmetic expression.

JMN2584I-S

The length specification in the reference modification is invalid. The reference modifier without a length specification is assumed.

Example

[P2584.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2584.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WBUF        PIC X(20).
000007 PROCEDURE      DIVISION.
000008     MOVE SPACE TO WBUF(12:"ABC")
000009 END PROGRAM    P2584.

P2584.cob 8: JMN2584I-S The length specification in the reference modification is invalid. The reference modifier without a length specification is assumed.

Explanation

The length must be an arithmetic expression.

JMN2585I-S

The @1@ statement cannot be specified in the USE BEFORE REPORTING procedure.

Parameter explanation

@1@ : GENERATE, INITIATE or TERMINATE.

Example

[P2585.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2585.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007     SELECT REPFILE ASSIGN TO SYS002.
000008 I-O-CONTROL.
000009 DATA           DIVISION.
000010 FILE            SECTION.
000011 FD SQFILE1.
000012 01 SQF1REC      PIC X(80).
000013 FD REPFILE
000014      REPORT IS REP1.
000015 WORKING-STORAGE SECTION.
000016 01 WFS1        PIC X(2).
000017 REPORT          SECTION.
000018 RD REP1 PAGE 66.
000019 01 DE-REC TYPE DE.
000020   02 LINE PLUS 1.
000021     03 COLUMN 1 PIC X(80) SOURCE SQF1REC.
000022 PROCEDURE      DIVISION.
000023 DECLARATIVES.
000024 FILE-ERROR-1 SECTION.
000025     USE BEFORE REPORTING DE-REC.
000026     GENERATE REP1.
000027 END DECLARATIVES.
000028 END PROGRAM    P2585.

P2585.cob 26: JMN2585I-S The GENERATE statement cannot be specified in the USE BEFORE REPORTING procedure.

Explanation

The USE BEFORE REPORTING procedure is executed immediately before the specified report group is created and displayed. The USE BEFORE REPORTING procedure cannot be used to generate reports, initiate report processing, or terminate report processing.

JMN2586I-S

There is no valid report description entry in the program containing the @1@ statement.

Parameter explanation

@1@ : GENERATE, INITIATE, SUPPRESS or TERMINATE.

Example

[P2586.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2586.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006 I-O-CONTROL.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 WORKING-STORAGE SECTION.
000010 01 REP1        PIC X(80).
000011 REPORT          SECTION.
000012 PROCEDURE      DIVISION.
000013     GENERATE REP1.
000014 END PROGRAM    P2586.

P2586.cob 13: JMN2586I-S There is no valid report description entry in the program containing the GENERATE statement.

JMN2587I-S

The @1@ statement cannot be specified in a program contained directly or indirectly within another program.

Parameter explanation

@1@ : ENTRY.

Example

[P2587.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2587.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 PROCEDURE      DIVISION.
000007     CALL "P2587SUB"
000008     EXIT PROGRAM.
000009*
000010 IDENTIFICATION DIVISION.
000011 PROGRAM-ID.    P2587SUB.
000012 ENVIRONMENT    DIVISION.
000013 DATA           DIVISION.
000014 WORKING-STORAGE SECTION.
000015 PROCEDURE      DIVISION.
000016     ENTRY "P2587E1"
000017 END PROGRAM    P2587SUB.
000018 END PROGRAM    P2587.

P2587.cob 16: JMN2587I-S The ENTRY statement cannot be specified in a program contained directly or indirectly within another program.

Explanation

The ENTRY statement must be specified in the outermost program.

JMN2588I-S

The '@1@' phrase cannot appear before a GIVING phrase in an ADD, DIVIDE, MULTIPLY, or SUBTRACT statement.

Parameter explanation

@1@ : ROUNDED.

Example

[P2588.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2588.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WNUM1       PIC S9(4) BINARY.
000007 01 WNUM2       PIC S9(4) BINARY.
000008 01 WNUM3       PIC S9(9) BINARY.
000009 PROCEDURE      DIVISION.
000010     ADD WNUM1 TO WNUM2 ROUNDED
000011               GIVING  WNUM3
000012 END PROGRAM    P2588.

P2588.cob 10: JMN2588I-S The 'ROUNDED' phrase cannot appear before a GIVING phrase in an ADD, DIVIDE, MULTIPLY, or SUBTRACT statement.

Explanation

When the GIVING phrase is written in an ADD/DIVIDE/MULTIPLY/SUBTRACT statement, the ROUNDED phrase can be specified only for the item specified by the GIVING phrase.

JMN2589I-S

'@2@' in the @1@ statement must be a record-name of a file that is not a sort-merge file.

Parameter explanation

@1@ : WRITE or REWRITE.

@2@ : Word that causes the error.

Example

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

P2589.cob 15: JMN2589I-S 'SQFILE1' in the WRITE statement must be a record-name of a file that is not a sort-merge file.

Explanation

A record-name must be specified in WRITE and REWRITE statements. In the example above, the record-name is a data-name of the level-number 01 data description entry that follows the file description entry (level indicator FD) of the data division.

JMN2591I-S

'@1@' in the WRITE statement must follow AFTER or BEFORE. AFTER is assumed.

Parameter explanation

@1@ : ADVANCING or POSITIONING.

Example

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

P2591.cob 15: JMN2591I-S 'ADVANCING' in the WRITE statement must follow AFTER or BEFORE. AFTER is assumed.

Explanation

BEFORE or AFTER must be used with ADVANCING and POSITIONING.

JMN2592I-S

Invalid word '@1@' is specified in a @2@ phrase. 1 is assumed.

Parameter explanation

@1@ : Word which causes error.

@2@ : ADVANCING or POSITIONING.

Example

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

P2592.cob 16: JMN2592I-S Invalid word 'END-OF-PAGE' is specified in a ADVANCING phrase. 1 is assumed.

Explanation

Only the following can be specified for the ADVANCING phrase:

  • An integer

  • A numeric item

  • A mnemonic-name corresponding to the function-name CHANNEL-01 to CHANNEL-12, SLC, CTL, STACKER-01 or STACKER-2

  • PAGE

JMN2593I-S

LINE(S) can only be specified when the @1@ phrase has an integer or an identifier. LINE(S) is ignored.

Parameter explanation

@1@ : ADVANCING or POSITIONING.

Example

[P2593.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2593.
000003 ENVIRONMENT    DIVISION.
000004 CONFIGURATION   SECTION.
000005 SPECIAL-NAMES.
000006     CHANNEL-01 IS C01.
000007 INPUT-OUTPUT    SECTION.
000008 FILE-CONTROL.
000009     SELECT SQFILE1 ASSIGN TO SYS001
000010       ORGANIZATION   IS SEQUENTIAL.
000011 DATA           DIVISION.
000012 FILE            SECTION.
000013 FD SQFILE1.
000014 01 SQF1REC.
000015   02           PIC X(80).
000016 WORKING-STORAGE SECTION.
000017 PROCEDURE      DIVISION.
000018     WRITE SQF1REC
000019           AFTER ADVANCING C01 LINE.
000020 END PROGRAM    P2593.

P2593.cob 19: JMN2593I-S LINE(S) can only be specified when the ADVANCING phrase has an integer or an identifier. LINE(S) is ignored.

Explanation

The line feed is performed according to the value specified before LINE(LINES).

JMN2596I-S

The WHEN phrase must precede the WHEN OTHER phrase in the EVALUATE statement.

Example

[P2596.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2596.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WNUM        PIC S9(4) BINARY.
000007 PROCEDURE      DIVISION.
000008     EVALUATE WNUM
000009     WHEN OTHER
000010       DISPLAY "NG"
000011     WHEN 3
000012       DISPLAY "OK"
000013     END-EVALUATE
000014 END PROGRAM    P2596.

P2596.cob 9: JMN2596I-S The WHEN phrase must precede the WHEN OTHER phrase in the EVALUATE statement.

Explanation

If no WHEN phrase is selected, the statement written in the WHEN OTHER phrase is executed.

JMN2597I-S

The sign condition cannot be specified for a selection subject or a selection object of an EVALUATE statement.

Example

[P2597.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2597.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WNUM1       PIC S9(4) BINARY.
000007 01 WNUM2       PIC S9(4) BINARY.
000008 PROCEDURE      DIVISION.
000009     EVALUATE WNUM1
000010              TRUE
000011     WHEN 13
000012          WNUM2 IS NEGATIVE
000013       DISPLAY "OK"
000014     END-EVALUATE
000015 END PROGRAM    P2597.

P2597.cob 12: JMN2597I-S The sign condition cannot be specified for a selection subject or a selection object of an EVALUATE statement.

JMN2598I-S

The combination of relational operators in the condition is invalid.

Example

[P2598.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2598.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WNUM        PIC S9(4) BINARY.
000007 PROCEDURE      DIVISION.
000008     IF WNUM EQUAL THAN 12 THEN
000009       DISPLAY "OK"
000010     END-IF
000011 END PROGRAM    P2598.

P2598.cob 8: JMN2598I-S The combination of relational operators in the condition is invalid.

Explanation

Only the following relation operators can be used:

  • IS GREATER THAN

  • IS NOT GREATER THAN (a synonym of IS LESS THAN OR EQUAL TO)

  • IS LESS THAN

  • IS NOT LESS THAN (a synonym of IS GREATER THAN OR EQUAL TO)

  • IS EQUAL TO

  • IS NOT EQUAL TO

  • IS GREATER THAN OR EQUAL TO (a synonym of IS NOT LESS THAN)

  • IS LESS THAN OR EQUAL TO (a synonym of IS NOT GREATER THAN)

JMN2599I-S

NOT cannot be repeated as it is in this condition.

Example

[P2599.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2599.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WNUM        PIC S9(4) BINARY.
000007 PROCEDURE      DIVISION.
000008     IF NOT
000009        NOT WNUM EQUAL TO 12 THEN
000010       DISPLAY "OK"
000011     END-IF
000012 END PROGRAM    P2599.

P2599.cob 9: JMN2599I-S NOT cannot be repeated as it is in this condition.

JMN2600I-S

The operand of the condition is invalid.

Example

[P2600.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2600.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 PROCEDURE      DIVISION.
000007     IF 13 = THEN
000008       DISPLAY "OK".
000009 END PROGRAM    P2600.

P2600.cob 7: JMN2600I-S The operand of the condition is invalid.

JMN2601I-S

@2@ is specified instead of @1@. 1 is assumed.

Parameter explanation

@1@ : Identifier or positive integer.

@2@ : Word which causes error.

Example

[P2601.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2601.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WLOOP       PIC S9(4)V99 BINARY.
000007 PROCEDURE      DIVISION.
000008     PERFORM 10.5 TIMES
000009       DISPLAY "LOOP TEST"
000010     END-PERFORM
000011 END PROGRAM    P2601.

P2601.cob 8: JMN2601I-S 10.5 is specified instead of positive integer. 1 is assumed.

Explanation

In the example above, the number of times should be described using an integer or a numeric item.

JMN2602I-S

The right parenthesis corresponding to the left parenthesis is missing. A right parenthesis is assumed.

Example

[P2602.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2602.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WNUM1       PIC S9(9) BINARY.
000007 01 WNUM2       PIC S9(9) BINARY.
000008 01 WNUM3       PIC S9(9) BINARY.
000009 PROCEDURE      DIVISION.
000010     COMPUTE WNUM1 = WNUM1 *
000011                    (WNUM2 - WNUM3
000012 END PROGRAM    P2602.

P2602.cob 11: JMN2602I-S The right parenthesis corresponding to the left parenthesis is missing. A right parenthesis is assumed.

JMN2603I-S

The @1@ statement cannot be specified in a declarative procedure with a global specified.

Parameter explanation

@1@ : EXIT PROGRAM, EXIT METHOD or GOBACK.

Example

[P2603.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2603.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD SQFILE1.
000010 01 SQF1REC.
000011   02           PIC X(80).
000012 WORKING-STORAGE SECTION.
000013 PROCEDURE      DIVISION.
000014 DECLARATIVES.
000015 FILE-ERROR-1 SECTION.
000016     USE GLOBAL AFTER STANDARD ERROR PROCEDURE ON SQFILE1.
000017     EXIT PROGRAM.
000018 END DECLARATIVES.
000019 END PROGRAM    P2603.

P2603.cob 17: JMN2603I-S The EXIT PROGRAM statement cannot be specified in a declarative procedure with a global specified.

JMN2604I-S

'@1@' in the USING phrase must be a level 01 or 77 item defined in the LINKAGE SECTION of this program.

Parameter explanation

@1@ : Word that causes the error.

Example

[P2604.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2604.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 LK1         PIC X.
000007 LINKAGE         SECTION.
000008 01 LK2.
000009   02 LK21      PIC X.
000010 01 LK3         PIC X.
000011 PROCEDURE      DIVISION USING LK1 LK21 LK3.
000012 END PROGRAM    P2604.

P2604.cob 11: JMN2604I-S 'LK1' in the USING phrase must be a level 01 or 77 item defined in the LINKAGE SECTION of this program.

P2604.cob 11: JMN2604I-S 'LK21' in the USING phrase must be a level 01 or 77 item defined in the LINKAGE SECTION of this program.

JMN2605I-S

Condition-name '@1@' specified in the SEARCH ALL statement must be defined as having a single value.

Parameter explanation

@1@ : Condition-name that causes the error.

Example

[P2605.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2605.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP.
000007   02 WDATA     OCCURS 10 INDEXED BY IX1
000008                          ASCENDING KEY IS WITM1.
000009     03 WITM1   PIC X.
000010     88 XVAL    VALUE "X", "x".
000011     03 WITM2   PIC X.
000012 PROCEDURE      DIVISION.
000013     SEARCH ALL WDATA
000014     WHEN XVAL(IX1)
000015       DISPLAY "OK"
000016     END-SEARCH
000017 END PROGRAM    P2605.

P2605.cob 14: JMN2605I-S Condition-name 'XVAL' specified in the SEARCH ALL statement must be defined as having a single value.

JMN2606I-S

An integer must be specified after '+' or '-' following the index-name. The subscript of that dimension is assumed to be 1.

Example

[P2606.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2606.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP.
000007   02 WOCC      PIC X
000008                OCCURS 10 INDEXED BY IX1.
000009 PROCEDURE      DIVISION.
000010     MOVE SPACE TO WOCC(IX1 + 3.5)
000011 END PROGRAM    P2606.

P2606.cob 10: JMN2606I-S An integer must be specified after '+' or '-' following the index-name. The subscript of that dimension is assumed to be 1.

Explanation

If the operator is "+", the value is obtained by adding the value following the operator to the index-name value. If the operator is "-", the value is obtained by subtracting the value following the operator from the index-name value.

JMN2607I-S

A @2@ statement with a @1@ requiring execution at the same time can only be specified once.

Parameter explanation

@1@ : Word that causes the error.

@2@ : USE ERROR, USE LABEL or USE BEFORE REPORTING.

Example

[P2607.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2607.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007     SELECT REPFILE ASSIGN TO SYS002.
000008 I-O-CONTROL.
000009 DATA           DIVISION.
000010 FILE            SECTION.
000011 FD SQFILE1.
000012 01 SQF1REC      PIC X(80).
000013 FD REPFILE
000014      REPORT IS REP1.
000015 WORKING-STORAGE SECTION.
000016 01 WFS1        PIC X(2).
000017 REPORT          SECTION.
000018 RD REP1 PAGE 66.
000019 01 DE-REC TYPE DE.
000020   02 LINE PLUS 1.
000021     03 COLUMN 1 PIC X(80) SOURCE SQF1REC.
000022 PROCEDURE      DIVISION.
000023 DECLARATIVES.
000024 FILE-ERROR-1 SECTION.
000025     USE BEFORE REPORTING DE-REC.
000026     DISPLAY "ERROR PROC-1".
000027 FILE-ERROR-2 SECTION.
000028     USE BEFORE REPORTING DE-REC.
000029     DISPLAY "ERROR PROC-2".
000030 END DECLARATIVES.
000031 END PROGRAM    P2607.

P2607.cob 28: JMN2607I-S A USE BEFORE REPORTING statement with a DE-REC requiring execution at the same time can only be specified once.

Explanation

In the USE statement, the USE procedure that executes at a certain state (an I-O exception has occurred, prior to generating a report, etc.) is specified. Two or more different USE procedures cannot be executed at the same time for the same object.

JMN2608I-S

Only one @1@ statement can be specified in the outermost program.

Parameter explanation

@1@ : USE FOR DEAD-LOCK.

Example

[P2608.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2608.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 PROCEDURE      DIVISION.
000007     CALL "P2608SUB"
000008     STOP RUN.
000009*
000010 IDENTIFICATION DIVISION.
000011 PROGRAM-ID.    P2608SUB.
000012 PROCEDURE      DIVISION.
000013 DECLARATIVES.
000014 ERROR-1 SECTION.
000015     USE FOR DEAD-LOCK.
000016     EXIT PROGRAM.
000017 END DECLARATIVES.
000018 END PROGRAM    P2608SUB.
000019 END PROGRAM    P2608.

P2608.cob 15: JMN2608I-S Only one USE FOR DEAD-LOCK statement can be specified in the outermost program.

Explanation

The USE FOR DEAD-LOCK statement specifies the procedure to be executed when a deadlock occurs. The specified procedure is executed by the transaction control system.

JMN2609I-S

The USE DEBUGGING statement must be specified first in DECLARATIVES.

Example

[P2609.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2609.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 PROCEDURE      DIVISION.
000007 DECLARATIVES.
000008 ERROR-1 SECTION.
000009     USE FOR DEAD-LOCK.
000010     EXIT PROGRAM.
000011 ERROR-2 SECTION.
000012     USE DEBUGGING MODE
000013     EXIT PROGRAM.
000014 END DECLARATIVES.
000015 END PROGRAM    P2609.

P2609.cob 12: JMN2609I-S The USE DEBUGGING statement must be specified first in DECLARATIVES.

Explanation

The USE DEBUGGING statement is specific to the OSIV-series.

JMN2610I-S

Data-name '@1@' specified in the KEY phrase must be a data-name of the sort-merge file specified for this SORT or MERGE statement.

Parameter explanation

@1@ : Data name that causes the error.

Example

[P2610.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2610.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007     SELECT SQFILE2 ASSIGN TO SYS002.
000008     SELECT SRTFILE ASSIGN TO SYS003.
000009 I-O-CONTROL.
000010 DATA           DIVISION.
000011 FILE            SECTION.
000012 FD SQFILE1.
000013 01 SQF1REC.
000014   02 SRTKEY    PIC X(8).
000015   02           PIC X(72).
000016 FD SQFILE2.
000017 01 SQF2REC.
000018   02 SRTKEY    PIC X(8).
000019   02           PIC X(72).
000020 SD SRTFILE.
000021 01 SRTREC.
000022   02 SRTKEY    PIC X(8).
000023   02           PIC X(72).
000024 WORKING-STORAGE SECTION.
000025 01 WFS1        PIC X(2).
000026 PROCEDURE      DIVISION.
000027     SORT SRTFILE
000028       ASCENDING KEY SRTKEY OF SQFILE1
000029       USING  SQFILE1
000030       GIVING SQFILE2.
000031 END PROGRAM    P2610.

P2610.cob 28: JMN2610I-S Data-name 'SRTKEY' specified in the KEY phrase must be a data-name of the sort-merge file specified for this SORT or MERGE statement.

Explanation

The key items (data-name specified in the KEY clause) are compared, and the sorting and merging is done. The key item should be a record in the target sort-merge file.

JMN2611I-S

Mnemonic-name '@1@' specified for the ASCENDING phrase in the SORT or MERGE statement must correspond to function-name BUSHU, SOKAKU, ON-YOMI, KUN-YOMI, BUSHOU, HUASHU, DUYIN, BUSU, HOEK or JAMO.

Parameter explanation

@1@ : Mnemonic-name that causes the error.

Example

[P2611.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2611.
000003 ENVIRONMENT    DIVISION.
000004 CONFIGURATION   SECTION.
000005 SPECIAL-NAMES.
000006     SYSOUT IS SORT-RULE1.
000007 INPUT-OUTPUT    SECTION.
000008 FILE-CONTROL.
000009     SELECT SQFILE1 ASSIGN TO SYS001.
000010     SELECT SQFILE2 ASSIGN TO SYS002.
000011     SELECT SRTFILE ASSIGN TO SYS003.
000012 I-O-CONTROL.
000013 DATA           DIVISION.
000014 FILE            SECTION.
000015 FD SQFILE1.
000016 01 SQF1REC.
000017   02           PIC X(80).
000018 FD SQFILE2.
000019 01 SQF2REC.
000020   02           PIC X(80).
000021 SD SRTFILE.
000022 01 SRTREC.
000023   02 SRTKEY    PIC X(8).
000024   02           PIC X(72).
000025 WORKING-STORAGE SECTION.
000026 01 WFS1        PIC X(2).
000027 PROCEDURE      DIVISION.
000028     SORT SRTFILE
000029       ASCENDING SORT-RULE1 KEY SRTKEY
000030       USING  SQFILE1
000031       GIVING SQFILE2.
000032 END PROGRAM    P2611.

P2611.cob 29: JMN2611I-S Mnemonic-name 'SORT-RULE1' specified for the ASCENDING phrase in the SORT or MERGE statement must correspond to function-name BUSHU, SOKAKU, ON-YOMI, KUN-YOMI, BUSHOU, HUASHU, DUYIN, BUSU, HOEK or JAMO.

Explanation

The mnemonic-name specified in the ASCENDING phrase of a SORT/MERGE statement is specific to the OSIV-series.

JMN2613I-S

The mnemonic-name corresponding to the Japanese, Chinese, or Korean function-name must exclusively be specified in the ASCENDING phrase of a SORT or MERGE statement.

Example

[P2613.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2613.
000003 ENVIRONMENT    DIVISION.
000004 CONFIGURATION   SECTION.
000005 SPECIAL-NAMES.
000006     BUSHU  IS SORT-RULE1
000007     BUSHOU IS SORT-RULE2.
000008 INPUT-OUTPUT    SECTION.
000009 FILE-CONTROL.
000010     SELECT SQFILE1 ASSIGN TO SYS001.
000011     SELECT SQFILE2 ASSIGN TO SYS002.
000012     SELECT SRTFILE ASSIGN TO SYS003.
000013 I-O-CONTROL.
000014 DATA           DIVISION.
000015 FILE            SECTION.
000016 FD SQFILE1.
000017 01 SQF1REC.
000018   02           PIC X(80).
000019 FD SQFILE2.
000020 01 SQF2REC.
000021   02           PIC X(80).
000022 SD SRTFILE.
000023 01 SRTREC.
000024   02 SRTKEY1   PIC X(4).
000025   02 SRTKEY2   PIC X(4).
000026   02           PIC X(72).
000027 WORKING-STORAGE SECTION.
000028 01 WFS1        PIC X(2).
000029 PROCEDURE      DIVISION.
000030     SORT SRTFILE
000031       ASCENDING SORT-RULE1 KEY SRTKEY1
000032       ASCENDING SORT-RULE2 KEY SRTKEY2
000033       USING  SQFILE1
000034       GIVING SQFILE2.
000035 END PROGRAM    P2613.

P2613.cob 30: JMN2613I-S The mnemonic-name corresponding to the Japanese, Chinese, or Korean function-name must exclusively be specified in the ASCENDING phrase of a SORT or MERGE statement.

Explanation

The mnemonic-name specified in the ASCENDING phrase of a SORT/MERGE statement is specific to the OSIV-series.

JMN2615I-S

The AFTER phrase cannot be specified for an in-line PERFORM statement.

Example

[P2615.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2615.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WLOOP1      PIC S9(4) BINARY.
000007 01 WLOOP2      PIC S9(4) BINARY.
000008 PROCEDURE      DIVISION.
000009     PERFORM TEST BEFORE
000010       VARYING WLOOP1 FROM 1 BY 1 UNTIL WLOOP1 = 20
000011       AFTER   WLOOP2 FROM 5 BY 1 UNTIL WLOOP2 = 25
000012       DISPLAY "LOOP TEST"
000013     END-PERFORM
000014 END PROGRAM    P2615.

P2615.cob 11: JMN2615I-S The AFTER phrase cannot be specified for an in-line PERFORM statement.

Explanation

The AFTER phrase is specified if two or more data items or indexes would be changed according to the repetitive execution. In the in-line PERFORM statement, only one data item (or one index) will be changed according to the repetitive execution.

JMN2616I-S

The left parenthesis corresponding to the right parenthesis is missing. The extra right parenthesis is ignored.

Example

[P2616.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2616.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP.
000007   02 WDATA     OCCURS 10 INDEXED BY IX1
000008                          ASCENDING KEY IS WITM1.
000009     03 WITM1   PIC X.
000010     88 XVAL    VALUE "X".
000011     03 WITM2   PIC X.
000012 PROCEDURE      DIVISION.
000013     SEARCH ALL WDATA
000014     WHEN XVAL(IX1))
000015       DISPLAY "OK"
000016     END-SEARCH
000017 END PROGRAM    P2616.

P2616.cob 14: JMN2616I-S The left parenthesis corresponding to the right parenthesis is missing. The extra right parenthesis is ignored.

JMN2617I-S

The invalid word THEN is specified. THEN is ignored.

Example

[P2617.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2617.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WNUM        PIC S9(9) BINARY.
000007 PROCEDURE      DIVISION.
000008*    IF WNUM = 10
000009     THEN
000010       DISPLAY "OK".
000011 END PROGRAM    P2617.

P2617.cob 9: JMN2617I-S The invalid word THEN is specified. THEN is ignored.

Explanation

In the above example, a THEN phrase is erroneously included in the IF statement.

JMN2633I-S

The SQL statement is invalid. @1@.

Parameter explanation

@1@ : Diagnostic message returned by the built-in SQL parser.

Example

[P2633.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2633.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006     EXEC SQL BEGIN DECLARE SECTION END-EXEC.
000007 01 SQLSTATE    PIC X(5).
000008     EXEC SQL END   DECLARE SECTION END-EXEC.
000009 PROCEDURE      DIVISION.
000010     EXEC SQL
000011       DECLARE CUR1 CURSOR
000012         SELECT * FROM T1
000013     END-EXEC.
000014 END PROGRAM    P2633.

P2633.cob 11: JMN2633I-S The SQL statement is invalid. ODBC-8356E QUERY EXPRESSION OR SQL STATEMENT IDENTIFIER IS MISSING..

Explanation

This diagnostic message is output when an error has been detected in analyzing an embedded SQL statement (a SQL statement enclosed by 'EXEC SQL' and 'END-EXEC') described in the procedure division.

JMN2634I-S

Cursor name '@1@' is not defined.

Parameter explanation

@1@ : Cursor name that causes the error.

Example

[P2634.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2634.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006     EXEC SQL BEGIN DECLARE SECTION END-EXEC.
000007 01 SQLSTATE  PIC X(5).
000008     EXEC SQL END   DECLARE SECTION END-EXEC.
000009 PROCEDURE      DIVISION.
000010     EXEC SQL
000011       OPEN CUR1
000012     END-EXEC
000013 END PROGRAM    P2634.

P2634.cob 11: JMN2634I-S Cursor name 'CUR1' is not defined.

Explanation

The cursor is the row indicator specifying a row in a table.

The cursor name is defined in a cursor declarative. A cursor declaration must appear before any SQL statement using the cursor.

JMN2639I-S

The invalid word '@1@' follows a THROUGH (THRU) phrase in a selection object of an EVALUATE statement. The THROUGH (THRU) phrase is ignored.

Parameter explanation

@1@ : Word that caused the error.

Example

[P2639.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2639.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WNUM        PIC X.
000007 PROCEDURE      DIVISION.
000008     EVALUATE WNUM
000009     WHEN "A" THRU "Z"
000010       DISPLAY "ALPHABETIC"
000011     WHEN "0" THRU
000012       DISPLAY "NUMERIC"
000013     END-EVALUATE
000014 END PROGRAM    P2639.

P2639.cob 11: JMN2639I-S The invalid word 'DISPLAY' follows a THROUGH (THRU) phrase in a selection object of an EVALUATE statement. The THROUGH (THRU) phrase is ignored.

Explanation

If the THROUGH(THRU) phrase is specified in a WHEN phrase, the two operands combined by the THROUGH phrase are considered to be one selection object.

JMN2640I-S

An END-PERFORM phrase must be specified in the in-line PERFORM statement. END-PERFORM is assumed.

Example

[P2640.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2640.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 PROCEDURE      DIVISION.
000007     PERFORM WITH NO LIMIT
000008       DISPLAY "LOOP TEST".
000009 END PROGRAM    P2640.

P2640.cob 8: JMN2640I-S An END-PERFORM phrase must be specified in the in-line PERFORM statement. END-PERFORM is assumed.

Explanation

The explicit range terminator END-PERFORM must be specified to identify the group of the statements repeated by the in-line PERFORM statement.

JMN2641I-S

The word SENTENCE is not specified in NEXT SENTENCE. The word SENTENCE is assumed.

Example

[P2641.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2641.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WNUM        PIC S9(10).
000007 PROCEDURE      DIVISION.
000008     IF WNUM = 10 THEN
000009       DISPLAY "OK"
000010     ELSE
000011       NEXT
000012     .
000013 END PROGRAM    P2641.

P2641.cob 12: JMN2641I-S The word SENTENCE is not specified in NEXT SENTENCE. The word SENTENCE is assumed.

Explanation

The word SENTENCE is a required word in the NEXT SENTENCE phrase.

JMN2642I-S

The word '@2@' is not specified in '@1@'. The word '@2@' is assumed.

Parameter explanation

@1@ : ON SIZE ERROR.

@2@ : ERROR.

Example

[P2642.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2642.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WNUM1       PIC S9(4) BINARY.
000007 01 WNUM2       PIC S9(4) BINARY.
000008 PROCEDURE      DIVISION.
000009     COMPUTE WNUM1 = WNUM1 * WNUM2
000010         ON SIZE
000011           DISPLAY "ERROR"
000012     END-COMPUTE.
000013 END PROGRAM    P2642.

P2642.cob 11: JMN2642I-S The word 'ERROR' is not specified in 'ON SIZE ERROR'. The word 'ERROR' is assumed.

Explanation

The word ERROR is a required word in the ON SIZE ERROR phrase.

JMN2643I-S

The @1@ statement cannot be used when a SUBSCHEMA-NAME paragraph is not specified.

Parameter explanation

@1@ : CONNECT, DISCONNECT, ERASE, GET, FINISH, IF DB-EXCEPTION, MODIFY, READY or STORE.

Example

[P2643.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2643.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 PROCEDURE      DIVISION.
000007     READY "MNAAB".
000008 END PROGRAM    P2643.

P2643.cob 7: JMN2643I-S The READY statement cannot be used when a SUBSCHEMA-NAME paragraph is not specified.

Explanation

When using a statement for a network database, the subschema descriptor file which converts the logical structure of the network database into the COBOL record must be specified in the SUBSCHEMA-NAME paragraph in the CONFIGURATION SECTION of the ENVIRONMENT DIVISION.

JMN2644I-S

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

Parameter explanation

@1@ : Verb of the sentence where the error occurs.

@2@ : Word that causes the error.

Example

[P2644.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2644.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 PROCEDURE      DIVISION.
000007     STOP N"STOP".
000008 END PROGRAM    P2644.

P2644.cob 7: JMN2644I-S 'national literal' cannot be specified in a STOP statement.

JMN2645I-W

The numeric literal of the EXAMINE statement must be unsigned. The sign is ignored.

Example

[P2645.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2645.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WNUM        PIC S9(18).
000007 PROCEDURE      DIVISION.
000008     EXAMINE WNUM
000009        TALLYING ALL -9
000010 END PROGRAM    P2645.

P2645.cob 9: JMN2645I-W The numeric literal of the EXAMINE statement must be unsigned. The sign is ignored.

Explanation

The EXAMINE statement is specific to the OSIV-series.

JMN2650I-I

(CONF) The explicit scope terminator '@1@' is assumed to correspond with the previous @2@ statement.

Parameter explanation

@1@ : ADD, DIVIDE, MULTIPLY, SUBTRACT, COMPUTE, DELETE, END-ADD, END-DIVIDE, END-MULTIPLY, END-SUBTRACT, END-COMPUTE, END-DELETE, END-STRING, END-UNSTRING, END-INVOKE, END-CALL, END-READ, END-START, END-REWRITE or END-WRITE.

@2@ : ADD, DIVIDE, MULTIPLY, SUBTRACT, COMPUTE, DELETE, STRING, UNSTRING, INVOKE, CALL, READ, START, REWRITE or WRITE.

Example

[P2650.cob]
000001 @OPTIONS CONF(74)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    P2650.
000004 ENVIRONMENT    DIVISION.
000005 DATA           DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01 WNUM1       PIC S9(4) BINARY.
000008 01 WNUM2       PIC S9(4) BINARY.
000009 01 WNUM3       PIC S9(4) BINARY.
000010 PROCEDURE      DIVISION.
000011     COMPUTE WNUM1 = WNUM2 + WNUM3
000012     END-COMPUTE
000013 END PROGRAM    P2650.

P2650.cob 12: JMN2650I-I (CONF) The explicit scope terminator 'END-COMPUTE' is assumed to correspond with the previous COMPUTE statement.

Explanation

CONF is effective when a program created according to the existing standard is changed to '85 ANSI COBOL. Specify CONF to indicate incompatibility between old and new COBOL standards; otherwise, specify NOCONF. The compiler options CONF(68) and CONF(74) are effective only if the compiler option LANGLVL(85) is specified.

JMN2651I-W

The numeric literal and the sign are separated. The sign and the numeric literal are assumed to be concatenated.

Example

[P2651.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2651.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WNUM        PIC S9(4) BINARY.
000007 PROCEDURE      DIVISION.
000008     MOVE + 12 TO WNUM
000009 END PROGRAM    P2651.

P2651.cob 8: JMN2651I-W The numeric literal and the sign are separated. The sign and the numeric literal are assumed to be concatenated.

Explanation

Do not put a separator space between the sign and the numeric literal when describing the signed numeric literal.

JMN2654I-S

File '@1@' in the USE LABEL statement must be a sequential, direct organization, or relative organization file. The '@1@' file is ignored.

Parameter explanation

@1@ : File name that causes an error.

Example

[P2654.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2654.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT IXFILE1 ASSIGN TO SYS001
000007       ORGANIZATION IS INDEXED
000008       RECORD KEY RKEY.
000009 I-O-CONTROL.
000010 DATA           DIVISION.
000011 FILE            SECTION.
000012 FD IXFILE1 LABEL RECORD STANDARD.
000013 01 IXF1REC.
000014   02 RKEY      PIC X(8).
000015   02           PIC X(72).
000016 01 LREC        PIC X(80).
000017 WORKING-STORAGE SECTION.
000018 PROCEDURE      DIVISION.
000019 DECLARATIVES.
000020 ER1 SECTION.
000021     USE AFTER STANDARD ENDING FILE
000022         LABEL PROCEDURE ON IXFILE1.
000023 END DECLARATIVES.
000024 END PROGRAM    P2654.

P2654.cob 22: JMN2654I-S File 'IXFILE1' in the USE LABEL statement must be a sequential, direct organization, or relative organization file. The 'IXFILE1' file is ignored.

Explanation

The USE LABEL statement is specific to the OSIV-series.

JMN2656I-S

A data-name must be specified by the LABEL RECORD clause for file '@1@' specified in the USE LABEL statement. '@1@' is ignored.

Parameter explanation

@1@ : File name that causes the error.

Example

[P2656.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2656.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD SQFILE1.
000011 01 SQF1REC.
000012   02           PIC X(80).
000013 WORKING-STORAGE SECTION.
000014 PROCEDURE      DIVISION.
000015 DECLARATIVES.
000016 ER1 SECTION.
000017     USE AFTER STANDARD ENDING FILE
000018         LABEL PROCEDURE ON SQFILE1.
000019 END DECLARATIVES.
000020 END PROGRAM    P2656.

P2656.cob 18: JMN2656I-S A data-name must be specified by the LABEL RECORD clause for file 'SQFILE1' specified in the USE LABEL statement. 'SQFILE1' is ignored.

Explanation

The USE LABEL statement is specific to the OSIV-series.

JMN2657I-S

REEL and UNIT cannot be specified for file '@1@' in the random access mode.

Parameter explanation

@1@ : File name that causes the error.

Example

[P2657.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2657.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO R-SYS001
000007       RELATIVE KEY IS RKEY
000008       ACCESS MODE RANDOM.
000009 I-O-CONTROL.
000010 DATA           DIVISION.
000011 FILE            SECTION.
000012 FD SQFILE1 LABEL RECORD LREC.
000013 01 SQF1REC.
000014   02           PIC X(80).
000015 01 LREC        PIC X(80).
000016 WORKING-STORAGE SECTION.
000017 01 RKEY        PIC 9(8) BINARY.
000018 PROCEDURE      DIVISION.
000019 DECLARATIVES.
000020 ER1 SECTION.
000021     USE AFTER STANDARD ENDING REEL
000022         LABEL PROCEDURE ON SQFILE1.
000023 END DECLARATIVES.
000024 END PROGRAM    P2657.

P2657.cob 22: JMN2657I-S REEL and UNIT cannot be specified for file 'SQFILE1' in the random access mode.

Explanation

When the REEL phrase or the UNIT phrase is written, the file-name specified for the USE statement should be a record sequential file or a print file without the FORMAT clause.

JMN2658I-S

The USE LABEL statement with BEFORE is not supported.

Example

[P2658.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2658.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD SQFILE1 LABEL RECORD LREC.
000011 01 SQF1REC.
000012   02           PIC X(80).
000013 01 LREC        PIC X(80).
000014 WORKING-STORAGE SECTION.
000015 PROCEDURE      DIVISION.
000016 DECLARATIVES.
000017 ER1 SECTION.
000018     USE BEFORE STANDARD ENDING FILE
000019         LABEL PROCEDURE ON SQFILE1.
000020 END DECLARATIVES.
000021 END PROGRAM    P2658.

P2658.cob 18: JMN2658I-S The USE LABEL statement with BEFORE is not supported.

Explanation

The USE LABEL statement is specific to the OSIV-series.

JMN2659I-S

'@1@' in the USE BEFORE REPORTING statement must be a report group name.

Parameter explanation

@1@ : User-defined word that causes the error.

Example

[P2659.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2659.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD SQFILE1.
000010 01 SQF1REC.
000011   02           PIC X(80).
000012 WORKING-STORAGE SECTION.
000013 PROCEDURE      DIVISION.
000014 DECLARATIVES.
000015 BR-PROC SECTION.
000016     USE BEFORE REPORTING SQFILE1.
000017 END DECLARATIVES.
000018 END PROGRAM    P2659.

P2659.cob 16: JMN2659I-S 'SQFILE1' in the USE BEFORE REPORTING statement must be a report group name.

Explanation

The USE BEFORE REPORTING procedure is executed immediately before the specified report group is created and displayed.

JMN2660I-S

The syntax of the WHENEVER statement is invalid.

Example

[P2660.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2660.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 PROCEDURE      DIVISION.
000007     EXEC SQL
000008       WHENEVER SQLERROR GO TO
000009     END-EXEC.
000010 END PROGRAM    P2660.

P2660.cob 8: JMN2660I-S The syntax of the WHENEVER statement is invalid.

Explanation

Check for the following syntax errors in the embedded exception declaration WHENEVER:

  • The word just after 'WHENEVER' is neither 'SQLERROR' nor 'NOT FOUND'.

  • The word just after 'NOT' is not 'FOUND'.

  • The word just after 'SQLERROR' or 'NOT FOUND' is neither 'GO TO' nor 'GOTO' nor 'CONTINUE'.

  • The word just after 'GO' is not 'TO'.

  • The word just after 'GO TO' or 'GOTO' is not a colon(:).

  • The procedure-name is not written just after the colon.

  • The procedure-name is not suitable - it is a name that exceeds 30 characters, a modification mistake or a name that begins or ends with a hyphen.

JMN2662I-S

The procedure-name '@1@' in the effective WHENEVER statement is undefined or multi-defined. The GO TO procedure-name is replaced by CONTINUE.

Parameter explanation

@1@ : Procedure-name which causes error.

Example

[P2662.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2662.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006     EXEC SQL BEGIN DECLARE SECTION END-EXEC.
000007 01 SQLSTATE    PIC X(5).
000008     EXEC SQL END   DECLARE SECTION END-EXEC.
000009 PROCEDURE      DIVISION.
000010     EXEC SQL
000011       WHENEVER SQLERROR GO TO :ERR-1
000012     END-EXEC.
000013*
000014     EXEC SQL
000015       DECLARE CUR1 CURSOR FOR
000016         SELECT *
000017     END-EXEC
000018*
000019     EXEC SQL
000020       OPEN CUR1
000021     END-EXEC
000022 END PROGRAM    P2662.

P2662.cob 20: JMN2662I-S The procedure-name 'ERR-1' in the effective WHENEVER statement is undefined or multi-defined. The GO TO procedure-name is replaced by CONTINUE.

JMN2663I-S

The identifier '@1@' in the effective WHENEVER statement must be a procedure-name. The GO TO procedure-name is replaced by CONTINUE.

Parameter explanation

@1@ : User-defined word that causes the error.

Example

[P2663.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2663.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006     EXEC SQL BEGIN DECLARE SECTION END-EXEC.
000007 01 SQLSTATE    PIC X(5).
000008     EXEC SQL END   DECLARE SECTION END-EXEC.
000009 01 PROC-NAME   PIC X(8).
000010 PROCEDURE      DIVISION.
000011     EXEC SQL
000012       WHENEVER SQLERROR GO TO :PROC-NAME
000013     END-EXEC.
000014*
000015     EXEC SQL
000016       DECLARE CUR1 CURSOR FOR
000017         SELECT *
000018     END-EXEC
000019*
000020     EXEC SQL
000021       OPEN CUR1
000022     END-EXEC
000023 END PROGRAM    P2663.

P2663.cob 21: JMN2663I-S The identifier 'PROC-NAME' in the effective WHENEVER statement must be a procedure-name. The GO TO procedure-name is replaced by CONTINUE.

JMN2665I-S

[Solaris][Linux]
'@1@' must be 136 bytes and defined in the WORKING-STORAGE SECTION. The GIVING phrase is ignored.

[Linux64]
'@1@' must be 136 bytes and defined in the WORKING-STORAGE SECTION or LOCAL-STORAGE SECTION. The GIVING phrase is ignored.

Parameter explanation

@1@ : Data name that causes the error.

Example

[P2665.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2665.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD SQFILE1.
000011 01 SQF1REC.
000012   02           PIC X(80).
000013 WORKING-STORAGE SECTION.
000014 01 ERRINFO     PIC X(20).
000015 PROCEDURE      DIVISION.
000016 DECLARATIVES.
000017 ERR1    SECTION.
000018     USE AFTER STANDARD ERROR
000019           PROCEDURE ON SQFILE1
000020           GIVING ERRINFO.
000021 END DECLARATIVES.
000022 END PROGRAM    P2665.
  • [Solaris][Linux]

    P2665.cob 20: JMN2665I-S 'ERRINFO' must be 136 bytes and defined in the WORKING-STORAGE SECTION. The GIVING phrase is ignored.

  • [Linux64]

    P2665.cob 20: JMN2665I-S 'ERRINFO' must be 136 bytes and defined in the WORKING-STORAGE SECTION or LOCAL-STORAGE SECTION. The GIVING phrase is ignored.

Explanation

The GIVING phrase of the USE statement is specific to the OSIV-series.

JMN2666I-S

[Solaris][Linux]
'@1@' must be defined in the WORKING-STORAGE SECTION or the LINKAGE SECTION. '@1@' is ignored.

[Linux64]
'@1@' must be defined in the WORKING-STORAGE SECTION, the LOCAL-STORAGE SECTION or the LINKAGE SECTION. '@1@' is ignored.

Parameter explanation

@1@ : Data name that causes the error.

Example

[P2666.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2666.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD SQFILE1.
000011 01 SQF1REC.
000012   02            PIC X(80).
000013 WORKING-STORAGE SECTION.
000014 01 ERRINFO1     PIC X(136).
000015 CONSTANT        SECTION.
000016 01 ERRINFO2     PIC X(20) VALUE SPACE.
000017 PROCEDURE      DIVISION.
000018 DECLARATIVES.
000019 ERR1    SECTION.
000020     USE AFTER STANDARD ERROR
000021           PROCEDURE ON SQFILE1
000022           GIVING ERRINFO1 ERRINFO2.
000023 END DECLARATIVES.
000024 END PROGRAM    P2666.
  • [Solaris][Linux]

    P2666.cob 22: JMN2666I-S 'ERRINFO2' must be defined in the WORKING-STORAGE SECTION or the LINKAGE SECTION. 'ERRINFO2' is ignored.

  • [Linux64]

    P2666.cob 22: JMN2666I-S 'ERRINFO2' must be defined in the WORKING-STORAGE SECTION, the LOCAL-STORAGE SECTION or the LINKAGE SECTION. 'ERRINFO2' is ignored.

Explanation

The GIVING phrase of the USE statement is specific to the OSIV-series.

JMN2669I-E

A procedure-name '@1@' is specified in the USING phrase of the CALL statement. The result is not guaranteed in this system.

Parameter explanation

@1@ : Procedure-name which caused the error.

Example

[C2669.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.     C2669.
000003 ENVIRONMENT     DIVISION.
000004 DATA            DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  P1          PIC X(4).
000007 PROCEDURE       DIVISION.
000008     CALL "SUB2669" USING P1.
000009 P1.
000010     EXIT PROGRAM.
000011 END PROGRAM     C2669.

C2669.cob 8: JMN2669I-E A procedure-name 'P1' is specified in the USING phrase of the CALL statement. The result is not guaranteed in this system.

Explanation

The following are the most likely causes:

  • The procedure-name is specified for the USING phrase in the CALL statement. Refer to the "NetCOBOL Language Reference" and correct the format.

  • An identifier of the same name as procedure-name is specified for the USING phrase in the CALL statement. Change the procedure-name or the identifier name to a different name.

JMN2670I-S

The @1@ statement can only be coded once in a program.

Parameter explanation

@1@ : USE FOR DB-EXCEPTION.

Example

[P2670.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2670.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 PROCEDURE      DIVISION.
000007 DECLARATIVES.
000008 ERROR-1 SECTION.
000009     USE FOR DB-EXCEPTION.
000010 ERROR-2 SECTION.
000011     USE FOR DB-EXCEPTION.
000012 END DECLARATIVES.
000013 END PROGRAM    P2670.

P2670.cob 11: JMN2670I-S The USE FOR DB-EXCEPTION statement can only be coded once in a program.

Explanation

The USE FOR DB-EXCEPTION statement is specific to the OSIV-series.

JMN2671I-S

':' must be specified in the reference modifier. ':' is assumed.

Example

[P2671.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2671.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WBUF        PIC X(20).
000007 PROCEDURE      DIVISION.
000008     MOVE SPACE TO WBUF(1 2)
000009 END PROGRAM    P2671.

P2671.cob 8: JMN2671I-S ':' must be specified in the reference modifier. ':' is assumed.

Explanation

Reference modification adds a reference modifier to the data-name or function-identifier. A reference modifier is written as follows:

  • One left parenthesis is written after the data-name or function-name.

  • The arithmetic expression that shows the high-order-end-character-position is described following the left parenthesis.

  • The arithmetic expression is followed by a colon(:).

  • The arithmetic expression that shows length in which the part is referred is described following the colon.

  • The right parenthesis follows the arithmetic expression.

  • A separator space can be included immediately before or after the colon. The colon must be included, even though the arithmetic expression that shows length can be omitted.

JMN2672I-S

The @1@ phrase contains no valid operand.

Parameter explanation

@1@ : USING, RETURNING, or KEY.

Example

[P2672.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2672.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007     SELECT SQFILE2 ASSIGN TO SYS002.
000008     SELECT SRTFILE ASSIGN TO SYS003.
000009 I-O-CONTROL.
000010 DATA           DIVISION.
000011 FILE            SECTION.
000012 FD SQFILE1.
000013 01 SQF1REC.
000014   02 SRTKEY    PIC X(8).
000015   02           PIC X(72).
000016 FD SQFILE2.
000017 01 SQF2REC.
000018   02 SRTKEY    PIC X(8).
000019   02           PIC X(72).
000020 SD SRTFILE.
000021 01 SRTREC.
000022   02 SRTKEY    PIC X(8).
000023   02           PIC X(72).
000024 WORKING-STORAGE SECTION.
000025 01 WFS1        PIC X(2).
000026 PROCEDURE      DIVISION.
000027     SORT SRTFILE
000028       ASCENDING KEY SRTKEY OF SQFILE1
000029       USING  SQFILE1
000030       GIVING SQFILE2.
000031 END PROGRAM    P2672.

P2672.cob 28: JMN2672I-S The KEY phrase contains no valid operand.

Explanation

An error was found in the specified operands. Remove the error that is referenced in the output diagnostic message.

JMN2673I-S

Invalid word @2@ appears in the @1@ statement.

Parameter explanation

@1@ : SEARCH or SEARCH ALL.

@2@ : invalid word

Example

[P2673.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2673.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP.
000007   02 WDATA     OCCURS 10 INDEXED BY IX1
000008                          ASCENDING KEY IS WITM1.
000009     03 WITM1   PIC X.
000010     03 WITM2   PIC X.
000011 PROCEDURE      DIVISION.
000012     SEARCH ALL WDATA VARYING IX1
000013     WHEN WITM1(IX1) = "X"
000014       DISPLAY "OK"
000015     END-SEARCH
000016 END PROGRAM    P2673.

P2673.cob 12: JMN2673I-S Invalid word VARYING appears in the SEARCH ALL statement.

JMN2682I-W

A parenthesis cannot be specified in an abbreviated combined relation condition. The parenthesis is assumed to be valid.

Example

[P2682.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2682.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 D1          PIC X(1).
000007 PROCEDURE      DIVISION.
000008     IF D1 >= "A" AND
000009           <= ("Z" OR "z") THEN
000010       DISPLAY "OK"
000011     ELSE
000012       DISPLAY "OK"
000013     END-IF
000014 END PROGRAM    P2682.

P2682.cob 8: JMN2682I-W A parenthesis cannot be specified in an abbreviated combined relation condition. The parenthesis is assumed to be valid.

JMN2686I-S

The cursor name '@1@' is already defined.

Parameter explanation

@1@ : Cursor name that causes the error.

Example

[P2686.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2686.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006     EXEC SQL BEGIN DECLARE SECTION END-EXEC.
000007 01 SQLSTATE    PIC X(5).
000008     EXEC SQL END   DECLARE SECTION END-EXEC.
000009 PROCEDURE      DIVISION.
000010     EXEC SQL
000011          DECLARE CUR1 CURSOR FOR
000012             SELECT C1, C2 WHERE N1 = 10
000013     END-EXEC
000014     EXEC SQL
000015          DECLARE CUR1 CURSOR FOR
000016             SELECT C1, C2 WHERE N1 = 12
000017     END-EXEC
000018 END PROGRAM    P2686.

P2686.cob 15: JMN2686I-S The cursor name 'CUR1' is already defined.

Explanation

The same cursor name is used in two or more declare cursor statements. The cursor name must be unique within the compilation unit.

JMN2689I-W

More than one file-name must be specified in the USING phrase of the MERGE statement. Compilation continues.

Example

[P2689.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2689.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007     SELECT SQFILE2 ASSIGN TO SYS002.
000008     SELECT SRTFILE ASSIGN TO SYS003.
000009 I-O-CONTROL.
000010 DATA           DIVISION.
000011 FILE            SECTION.
000012 FD SQFILE1.
000013 01 SQF1REC.
000014   02 KEYREC    PIC X(8).
000015   02           PIC X(72).
000016 FD SQFILE2.
000017 01 SQF2REC.
000018   02 KEYREC    PIC X(8).
000019   02           PIC X(72).
000020 SD SRTFILE.
000021 01 SRTREC.
000022   02 KEYREC    PIC X(8).
000023   02           PIC X(72).
000024 WORKING-STORAGE SECTION.
000025 PROCEDURE      DIVISION.
000026     MERGE SRTFILE
000027        ASCENDING KEY KEYREC OF SRTFILE
000028        USING  SQFILE1
000029        GIVING SQFILE2
000030 END PROGRAM    P2689.

P2689.cob 28: JMN2689I-W More than one file-name must be specified in the USING phrase of the MERGE statement. Compilation continues.

Explanation

The MERGE statement merges the file specified for the USING phrase. Specify at least two file-names that merging targets for the USING phrase.

JMN2691I-S

'@1@' in the REPORT SECTION cannot be referred in the PROCEDURE DIVISION.

Parameter explanation

@1@ : Data name that causes the error.

Example

[P2691.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2691.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT REPFILE ASSIGN TO SYS002.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD REPFILE
000011      REPORT IS REP1.
000012 WORKING-STORAGE SECTION.
000013 01 WRKREC       PIC X(80).
000014 REPORT          SECTION.
000015 RD REP1 PAGE 66.
000016 01 DE-REC TYPE DE.
000017   02 LINE PLUS 1.
000018     03 COLUMN 1 PIC X(80) SOURCE WRKREC.
000019 PROCEDURE      DIVISION.
000020 DECLARATIVES.
000021 ERR1 SECTION.
000022      USE BEFORE REPORTING DE-REC.
000023     MOVE SPACE TO DE-REC.
000024 END DECLARATIVES.
000025 END PROGRAM    P2691.

P2691.cob 23: JMN2691I-S 'DE-REC' in the REPORT SECTION cannot be referred in the PROCEDURE DIVISION.

Explanation

The report-name declared in the report description entry (level indicator RD) and the report group name (data-name defined by the data description entry declared to the subordinate position of the report description entry) can be used only in the USE BEFORE REPORTING statement or the GENERATE/INITIATE/TERMINATE statement in the procedure division.

JMN2692I-W

A non-operative statement exists after the @1@ statement. The syntax of the statement is assumed to be valid, but the statement is not executed.

Parameter explanation

@1@ : GO TO, EXIT PROGRAM, STOP RUN or GOBACK.

Example

[P2692.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2692.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 PROCEDURE      DIVISION.
000007     STOP RUN.
000008     DISPLAY "TEST NG".
000009 END PROGRAM    P2692.

P2692.cob 7: JMN2692I-W A non-operative statement exists after the STOP RUN statement. The syntax of the statement is assumed to be valid, but the statement is not executed.

Explanation

The executable statement is being written after the statement in which the control is transferred explicitly. The statement is compiled but not executed.

JMN2693I-W

'@1@' must be an identifier or a non-zero integer. It is accepted as written.

Parameter explanation

@1@ : Word which causes error.

Example

[P2693.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2693.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP.
000007  02 WOCC       PIC X(2) OCCURS 26
000008                         INDEXED BY IX1.
000009 01 LCNT        PIC S9(4) BINARY.
000010 PROCEDURE      DIVISION.
000011     PERFORM TEST BEFORE
000012       VARYING LCNT FROM IX1 BY 0 UNTIL IX1 = 26
000013       DISPLAY WOCC(IX1)
000014     END-PERFORM
000015 END PROGRAM    P2693.

P2693.cob 12: JMN2693I-W '0' must be an identifier or a non-zero integer. It is accepted as written.

Explanation

When an index-name is specified in a FROM phrase, an integer (0 is excluded) or an integer item should be specified in the BY phrase.

JMN2694I-S

The pointer qualifier is invalid.

Example

[P2694.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2694.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 BASED-STORAGE   SECTION.
000006 01 WBUF.
000007   02 WITEM1    PIC X(2).
000008   02 WITEM2    PIC X(2).
000009 PROCEDURE      DIVISION.
000010     MOVE SPACE TO
000011          (FUNCTION LENGTH(WITEM2))->WBUF
000012 END PROGRAM    P2694.

P2694.cob 11: JMN2694I-S The pointer qualifier is invalid.

Explanation

The pointer qualification may be invalid due to one of the following:

  • A pointer qualification symbol(->) is written following the element that it is neither a data-name nor an ADDR function.

  • The pointer qualifier parentheses are unmatched.

  • There is an error in a component of the pointer qualifier.

JMN2695I-S

'@1@' qualified by a pointer must be a data-name or a condition-name. The pointer qualification is ignored.

Parameter explanation

@1@ : Word that causes the error.

Example

[C2695.cob]
000001 IDENTIFICATION      DIVISION.
000002 PROGRAM-ID.         C2695.
000003 ENVIRONMENT         DIVISION.
000004 DATA                DIVISION.
000005 BASED-STORAGE       SECTION.
000006 01  BA01            PIC 9(10).
000007 01  BA02            PIC 9(10).
000008 01  BA03            PIC 9(10).
000009 01  BA04            PIC 9(10).
000010 WORKING-STORAGE    SECTION.
000011 01  A01.
000012     02 A02          PIC 9(10).
000013     02 A03          PIC 9(10).
000014     02 A04          PIC 9(10).
000015 01  P01             USAGE  POINTER.
000016 01  P02             USAGE  POINTER.
000017 PROCEDURE           DIVISION.
000018     DISPLAY  (P01 + P02)->"AAA".
000019 END PROGRAM         C2695.

C2695.cob 18: JMN2695I-S '"AAA"' qualified by a pointer must be a data-name or a condition-name. The pointer qualification is ignored.

JMN2696I-S

An EXIT PERFORM statement with a TEST phrase cannot be specified in an in-line PERFORM statement without a testing mechanism. The TEST phrase is ignored.

Example

[C2696.cob]
000001 IDENTIFICATION      DIVISION.
000002 PROGRAM-ID.         C2696.
000003 ENVIRONMENT         DIVISION.
000004 DATA                DIVISION.
000005 WORKING-STORAGE    SECTION.
000006 01  A01.
000007     02 A02          PIC 9(10).
000008     02 A03          PIC 9(10).
000009     02 A04          PIC 9(10).
000010 PROCEDURE           DIVISION.
000011     PERFORM WITH NO LIMIT
000012        MOVE A03 TO A04
000013        EXIT TO TEST OF PERFORM
000014     END-PERFORM.
000015 END PROGRAM         C2696.

C2696.cob 13: JMN2696I-S An EXIT PERFORM statement with a TEST phrase cannot be specified in an in-line PERFORM statement without a testing mechanism. The TEST phrase is ignored.

Explanation

An EXIT PERFORM statement with a TEST phrase is allowed only in an in-line PERFORM statement with a termination condition specified. Executing an EXIT PERFORM statement with a TEST phrase specified passes control to the inspection process of the corresponding in-line PERFORM statement.

The inspection process is either a process that inspects the occurrence count specified before the TIMES phrase, or a process that inspects the condition specified after the UNTIL phrase.

JMN2697I-S

The EXIT PERFORM statement must be specified inside of an in-line PERFORM statement.

Example

[P2697.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2697.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WNUM        PIC X(2).
000007 PROCEDURE      DIVISION.
000008     IF WNUM = "13" THEN
000009       DISPLAY "OK"
000010     ELSE
000011       EXIT PERFORM
000012     END-IF
000013 END PROGRAM    P2697.

P2697.cob 11: JMN2697I-S The EXIT PERFORM statement must be specified inside of an in-line PERFORM statement.

Explanation

The EXIT PERFORM statement specifies the exit of an in-line PERFORM statement.

JMN2698I-S

The argument in @1@ is not specified.

Parameter explanation

@1@ : Function name where the error is detected.

Example

[P2698.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2698.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WANS        COMP-1.
000007 PROCEDURE      DIVISION.
000008     COMPUTE WANS = FUNCTION SIN
000009 END PROGRAM    P2698.

P2698.cob 8: JMN2698I-S The argument in FUNCTION SIN is not specified.

Explanation

An argument is not specified for a function that requires an argument.

JMN2699I-S

The argument in @1@ must be @2@.

Parameter explanation

@1@ : Function name where the error is detected.

@2@ : Kind of word specifiable as an argument.

Example

[C2699.cob]
000001 IDENTIFICATION      DIVISION.
000002 PROGRAM-ID.         C2699.
000003 ENVIRONMENT         DIVISION.
000004 DATA                DIVISION.
000005 BASED-STORAGE       SECTION.
000006 01  BA01            PIC 9.
000007 01  BA02            PIC 9(10).
000008 01  BA03            PIC 9(10).
000009 01  BA04            PIC 9(10).
000010 WORKING-STORAGE    SECTION.
000011 01  A01.
000012     02 A02          PIC 9(10).
000013     02 A03          PIC 9(10).
000014     02 A04          PIC 9(10).
000015 01  P01             USAGE  POINTER.
000016 01  P02             USAGE  POINTER.
000017 01  PTR-G.
000018     02  P03         USAGE  POINTER  OCCURS  5  TIMES.
000019 PROCEDURE           DIVISION.
000020     DISPLAY  FUNCTION ADDR("AAA").
000021 END PROGRAM         C2699.

C2699.cob 20: JMN2699I-S The argument in FUNCTION ADDR must be identifier.

Explanation

The number, order, and value of the argument depends on the function.

JMN2700I-S

The right parenthesis of the function is not specified. A right parenthesis is assumed.

Example

[P2700.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2700.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WANS        COMP-1.
000007 PROCEDURE      DIVISION.
000008     COMPUTE WANS = FUNCTION SIN(13
000009 END PROGRAM    P2700.

P2700.cob 8: JMN2700I-S The right parenthesis of the function is not specified. A right parenthesis is assumed.

JMN2701I-I

The DEBUGGING SECTION is assumed to be a comment.

Example

[P2701.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2701.
000003 ENVIRONMENT    DIVISION.
000004 CONFIGURATION   SECTION.
000005 SOURCE-COMPUTER. FMV6000SL
000006        WITH DEBUGGING MODE.
000007 DATA           DIVISION.
000008 WORKING-STORAGE SECTION.
000009 PROCEDURE      DIVISION.
000010 DECLARATIVES.
000011 DBG1 SECTION.
000012      USE FOR DEBUGGING ON ALL PROCEDURE.
000013 END DECLARATIVES.
000014 END PROGRAM    P2701.

P2701.cob 12: JMN2701I-I The DEBUGGING SECTION is assumed to be a comment.

Explanation

The USE FOR DEBUGGING statement is specific to the OSIV-series.

JMN2704I-W

The VALUE clause cannot be specified for an item specified in an EXTERNAL clause or for its subordinate item. The VALUE clause is ignored.

Example

[P2704.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2704.
000003 DATA           DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01 WK1  IS EXTERNAL
000006                PIC X(2) VALUE SPACE.
000007 01 WK2  IS EXTERNAL.
000008   02           PIC X(2) VALUE SPACE.
000009 PROCEDURE      DIVISION.
000010 END PROGRAM    P2704.

P2704.cob 6: JMN2704I-W The VALUE clause cannot be specified for an item specified in an EXTERNAL clause or for its subordinate item. The VALUE clause is ignored.

P2704.cob 8: JMN2704I-W The VALUE clause cannot be specified for an item specified in an EXTERNAL clause or for its subordinate item. The VALUE clause is ignored.

JMN2705I-W

The VALUE clause cannot be specified for an item specified in a REDEFINES clause or for its subordinate item. The VALUE clause is ignored.

Example

[P2705.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2705.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WDA.
000007   02 WBUF      PIC X(20).
000008   02 WVSTR REDEFINES WBUF.
000009     03 WLEN    PIC S9(9) BINARY VALUE ZERO.
000010     03 WSTR    PIC X(16).
000011 PROCEDURE      DIVISION.
000012 END PROGRAM    P2705.

P2705.cob 9: JMN2705I-W The VALUE clause cannot be specified for an item specified in a REDEFINES clause or for its subordinate item. The VALUE clause is ignored.

JMN2706I-W

The VALUE clause cannot be specified for an item specified in the APPLY SAVED-AREA clause or for its subordinate item. The VALUE clause is ignored.

Example

[P2706.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2706.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008     APPLY SAVED-AREA TO WSAVE ON SQFILE1.
000009 DATA           DIVISION.
000010 FILE            SECTION.
000011 FD SQFILE1.
000012 01 SQF1REC.
000013   02           PIC X(80).
000014 WORKING-STORAGE SECTION.
000015 01 WSAVE       PIC X(80) VALUE SPACE.
000016 PROCEDURE      DIVISION.
000017 END PROGRAM    P2706.

P2706.cob 15: JMN2706I-W The VALUE clause cannot be specified for an item specified in the APPLY SAVED-AREA clause or for its subordinate item. The VALUE clause is ignored.

JMN2707I-S

'@1@' must be qualified by an identifier.

Parameter explanation

@1@ : EDIT-COLOR, EDIT-CURSOR, EDIT-MODE, EDIT-STATUS, EDIT-OPTION, EDIT-OPTION2 or EDIT-OPTION3.

Example

[P2707.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2707.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 PROCEDURE      DIVISION.
000007     MOVE SPACE TO EDIT-COLOR
000008 END PROGRAM    P2707.

P2707.cob 7: JMN2707I-S 'EDIT-COLOR' must be qualified by an identifier.

Explanation

If an item control field is specified in a screen descriptor, data items having item controllers are specified in a record description entry associated with a presentation file, and the following seven special registers are created for each data item:

  • EDIT-MODE

  • EDIT-OPTION

  • EDIT-OPTION2

  • EDIT-OPTION3

  • EDIT-COLOR

  • EDIT-STATUS

  • EDIT-CURSOR

These special registers can only be referenced in the PROCEDURE DIVISION. They are associated with a data item having an item controller, so they must be qualified before they can be referenced.

JMN2710I-S

A 'REVERSED ORDER' phrase cannot be specified in a START statement with ascending order.

Example

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

P2710.cob 20: JMN2710I-S A 'REVERSED ORDER' phrase cannot be specified in a START statement with ascending order.

Explanation

For a START statement with a REVERSED ORDER phrase, the search operation will be performed in descending key order. In this case, if 'IS GREATER THAN' or 'IS GREATER OR EQUAL TO' is specified for the KEY phrase, the corresponding record does not exist.

JMN2717I-S

The paragraph including the GO TO statement without a procedure-name must contain only a paragraph-name and a single GO TO statement. The GO TO statement is ignored.

Example

[P2717.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2717.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 PROCEDURE      DIVISION.
000007      ALTER P1 TO P2.
000008 P1.
000009     DISPLAY "P1"
000010     GO TO.
000011 P2.
000012     STOP RUN.
000013 END PROGRAM    P2717.

P2717.cob 10: JMN2717I-S The paragraph including the GO TO statement without a procedure-name must contain only a paragraph-name and a single GO TO statement. The GO TO statement is ignored.

Explanation

GO TO with the procedure-name omitted is obsolete.

JMN2718I-S

Data-name '@2@' in the @1@ statement cannot be qualified by a pointer. The pointer qualification is ignored.

Parameter explanation

@1@ : START, READ, SORT or MERGE.

@2@ : Data name that causes the error.

Example

[C2718.cob]
000001 IDENTIFICATION      DIVISION.
000002 PROGRAM-ID.         C2718.
000003 ENVIRONMENT         DIVISION.
000004 INPUT-OUTPUT        SECTION.
000005 FILE-CONTROL.
000006     SELECT  FILE01  ASSIGN  TO  NAME01.
000007 DATA                DIVISION.
000008 FILE                SECTION.
000009 SD  FILE01
000010     LABEL   RECORD  IS  STANDARD.
000011 01  REC.
000012     02  F001        PIC X(90).
000013     02  RKEYA       PIC X(10).
000014 WORKING-STORAGE    SECTION.
000015 01  PTR1            POINTER.
000016 PROCEDURE           DIVISION.
000017 P-001.
000018     SORT    FILE01  ON ASCENDING KEY
000019                     PTR1->RKEYA
000020         INPUT  PROCEDURE P-001
000021         OUTPUT PROCEDURE IS P-002 THRU  P-004.
000022 P-002.
000023 P-004.
000024 END PROGRAM  C2718.

C2718.cob 19: JMN2718I-S Data-name 'RKEYA' in the SORT statement cannot be qualified by a pointer. The pointer qualification is ignored.

JMN2726I-I

(OBS) The @1@ statement is an obsolete element in @2@ COBOL.

Parameter explanation

@1@ : ALTER or ENTER.

@2@ : ANSI85.

Example

[P2726.cob]
000001 @OPTIONS CONF(OBS)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    P2726.
000004 ENVIRONMENT    DIVISION.
000005 DATA           DIVISION.
000006 WORKING-STORAGE SECTION.
000007 PROCEDURE      DIVISION.
000008      ALTER P1 TO P2.
000009 P1.
000010     GO TO.
000011 P2.
000012     STOP RUN.
000013 END PROGRAM    P2726.

P2726.cob 8: JMN2726I-I (OBS) The ALTER statement is an obsolete element in ANSI85 COBOL.

Explanation

CONF(OBS) indicates obsolete language elements and functions.

JMN2727I-I

(OBS) The @1@ phrase is an obsolete element in @2@ COBOL.

Parameter explanation

@1@ : REVERSED.

@2@ : ANSI85.

Example

[P2727.cob]
000001 @OPTIONS CONF(OBS)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    P2727.
000004 ENVIRONMENT    DIVISION.
000005 INPUT-OUTPUT    SECTION.
000006 FILE-CONTROL.
000007     SELECT SQFILE1 ASSIGN TO SYS001.
000008 I-O-CONTROL.
000009 DATA           DIVISION.
000010 FILE            SECTION.
000011 FD SQFILE1.
000012 01 SQF1REC.
000013   02           PIC X(80).
000014 WORKING-STORAGE SECTION.
000015 PROCEDURE      DIVISION.
000016     OPEN INPUT SQFILE1 REVERSED.
000017 END PROGRAM    P2727.

P2727.cob 16: JMN2727I-I (OBS) The REVERSED phrase is an obsolete element in ANSI85 COBOL.

Explanation

CONF(OBS) indicates obsolete language elements and functions.

JMN2728I-I

(OBS) The GO TO statement without a procedure-name is an obsolete element in ANSI85 COBOL.

Example

[P2728.cob]
000001 @OPTIONS CONF(OBS)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    P2728.
000004 ENVIRONMENT    DIVISION.
000005 DATA           DIVISION.
000006 WORKING-STORAGE SECTION.
000007 PROCEDURE      DIVISION.
000008      ALTER P1 TO P2.
000009 P1.
000010     GO TO.
000011 P2.
000012     STOP RUN.
000013 END PROGRAM    P2728.

P2728.cob 10: JMN2728I-I (OBS) The GO TO statement without a procedure-name is an obsolete element in ANSI85 COBOL.

Explanation

CONF(OBS) indicates obsolete language elements and functions.

JMN2729I-I

(OBS) The STOP statement with a literal is an obsolete element in ANSI85 COBOL.

Example

[P2729.cob]
000001 @OPTIONS CONF(OBS)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    P2729.
000004 ENVIRONMENT    DIVISION.
000005 DATA           DIVISION.
000006 WORKING-STORAGE SECTION.
000007 PROCEDURE      DIVISION.
000008     STOP "PAUSE"
000009 END PROGRAM    P2729.

P2729.cob 8: JMN2729I-I (OBS) The STOP statement with a literal is an obsolete element in ANSI85 COBOL.

Explanation

CONF(OBS) indicates obsolete language elements and functions.

JMN2730I-I

(OBS) @1@ is an obsolete feature in @2@ COBOL.

Parameter explanation

@1@ : debug.

@2@ : ANSI85.

Example

[P2730.cob]
000001 @OPTIONS CONF(OBS)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    P2730.
000004 ENVIRONMENT    DIVISION.
000005 CONFIGURATION   SECTION.
000006 SOURCE-COMPUTER. FMV6000SL
000007        WITH DEBUGGING MODE.
000008 DATA           DIVISION.
000009 WORKING-STORAGE SECTION.
000010 PROCEDURE      DIVISION.
000011 DECLARATIVES.
000012 DBG1 SECTION.
000013      USE FOR DEBUGGING ON ALL PROCEDURE.
000014 END DECLARATIVES.
000015D    DISPLAY "DEBUG LINE"
000016 END PROGRAM    P2730.

P2730.cob 13: JMN2730I-I (OBS) debug is an obsolete feature in ANSI85 COBOL.

Explanation

CONF(OBS) indicates obsolete language elements and functions.

JMN2731I-S

'@2@' in special register '@1@' must be an identifier.

Parameter explanation

@1@ : ADDRESS OF or LENGTH OF.

@2@ : Word that causes the error.

Example

[P2731.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2731.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WPX         POINTER.
000007 PROCEDURE      DIVISION.
000008 LABEL1.
000009     MOVE LENGTH OF LABEL1 TO WPX
000010 END PROGRAM    P2731.

P2731.cob 9: JMN2731I-S 'LABEL1' in special register 'LENGTH OF' must be an identifier.

JMN2732I-S

The identifier in special register '@1@' must be a level 01 or 77 item defined in the LINKAGE SECTION.

Parameter explanation

@1@ : ADDRESS OF.

Example

[P2732.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2732.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WPX         POINTER.
000007 01 WBUF1       PIC X(20).
000008 LINKAGE         SECTION.
000009 01 WBUF2       PIC X(20).
000010 PROCEDURE      DIVISION.
000011     SET ADDRESS OF WBUF1 TO WPX
000012     SET ADDRESS OF WBUF2 TO WPX
000013 END PROGRAM    P2732.

P2732.cob 11: JMN2732I-S The identifier in special register 'ADDRESS OF' must be a level 01 or 77 item defined in the LINKAGE SECTION.

JMN2735I-S

ON or OFF must follow TO in the SET statement.

Example

[P2735.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2735.
000003 ENVIRONMENT    DIVISION.
000004 CONFIGURATION   SECTION.
000005 SPECIAL-NAMES.
000006     SWITCH-0 IS SW0.
000007 DATA           DIVISION.
000008 WORKING-STORAGE SECTION.
000009 PROCEDURE      DIVISION.
000010     SET SW0 TO TRUE
000011 END PROGRAM    P2735.

P2735.cob 10: JMN2735I-S ON or OFF must follow TO in the SET statement.

Explanation

A SET statement sets the external switch related to each mnemonic-name to either ON or OFF.

JMN2736I-S

TRUE must follow TO in the SET statement.

Example

[P2736.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2736.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 RESULT      PIC 1(1).
000007 88 OK          VALUE B"1".
000008 88 NG          VALUE B"0".
000009 PROCEDURE      DIVISION.
000010     SET OK  TO ON
000011 END PROGRAM    P2736.

P2736.cob 10: JMN2736I-S TRUE must follow TO in the SET statement.

Explanation

A SET statement sets the value of the condition variable associated with condition-name to the value specified in the VALUE clause of condition-name.

JMN2737I-S

A pointer data item, NULL(S), or ADDRESS OF special register must follow TO in the SET statement.

Example

[P2737.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2737.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 LINKAGE         SECTION.
000006 01 WBUF        POINTER.
000007 PROCEDURE      DIVISION.
000008     SET ADDRESS OF WBUF TO 13
000009 END PROGRAM    P2737.

P2737.cob 8: JMN2737I-S A pointer data item, NULL(S), or ADDRESS OF special register must follow TO in the SET statement.

JMN2738I-S

The LENGTH OF special register cannot be specified in the receiving item of a @1@ statement.

Parameter explanation

@1@ : Verb of the statement where the error occurs.

Example

[P2738.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2738.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WANS        PIC S9(4) BINARY.
000007 PROCEDURE      DIVISION.
000008     COMPUTE LENGTH OF WANS = 13 + 12
000009 END PROGRAM    P2738.

P2738.cob 8: JMN2738I-S The LENGTH OF special register cannot be specified in the receiving item of a COMPUTE statement.

JMN2741I-S

'@1@' must be a level 01 or 77 item.

Parameter explanation

@1@ : SQLSTATE, SQLCODE, SQLMSG.

Example

[P2741.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2741.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE  SECTION.
000006     EXEC SQL BEGIN  DECLARE SECTION END-EXEC.
000007  01  STCD.
000008    02 SQLSTATE PIC X(5).
000009    02 SQLMSG  PIC X(80).
000010  77  HVAR3  PIC S9(9) BINARY.
000011     EXEC SQL  END  DECLARE SECTION END-EXEC.
000012 PROCEDURE  DIVISION.
000013     EXEC  SQL
000014        SELECT CL1 INTO :HVAR3  FROM  TBL
000015     END-EXEC.
000016 END PROGRAM P2741.

P2741.cob 8: JMN2741I-S 'SQLSTATE' must be a level 01 or 77 item.

P2741.cob 9: JMN2741I-S 'SQLMSG' must be a level 01 or 77 item.

Explanation

If an exception event occurs during the execution of an SQL statement, information indicating the nature of the event is posted to the application program. The information is stored in SQLSTATE, SQLCODE or SQLMSG. These should be defined as the level-number 01 or 77 item.

JMN2742I-S

SQLERRD must be an 02 level item immediately subordinate SQLINFOA, and it must be specified with OCCURS 6 TIMES.

Example

[P2742.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2742.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE  SECTION.
000006     EXEC SQL BEGIN  DECLARE SECTION END-EXEC.
000007  01  SQLSTATE PIC X(5).
000008  01  SQLINFOA .
000009    02 SQLERRD PIC S9(9) BINARY OCCURS 10 TIMES.
000010  77  HVAR3  PIC S9(9) BINARY.
000011     EXEC SQL  END  DECLARE SECTION END-EXEC.
000012 PROCEDURE  DIVISION.
000013     EXEC  SQL
000014        SELECT CL1 INTO :HVAR3  FROM  TBL
000015     END-EXEC.
000016 END PROGRAM P2742.

P2742.cob 9: JMN2742I-S SQLERRD must be an 02 level item immediately subordinate SQLINFOA, and it must be specified with OCCURS 6 TIMES.

Explanation

SQLERRD is the area used to store a return value of a stored procedure (SQLERRD(1)), or the number of processed rows when multiple rows are processed (SQLERRD(3)).

JMN2744I-S

The host variable cannot be a variable address item.

Example

[P2744.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2744.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE  SECTION.
000006     EXEC SQL BEGIN  DECLARE SECTION END-EXEC.
000007  01  SQLSTATE PIC X(5).
000008  01 HRGRP.
000009    02 WDEPND  PIC S9(4) BINARY.
000010    02         PIC X(1)
000011               OCCURS 10 DEPENDING ON WDEPND.
000012    02 HVAR3   PIC S9(9) BINARY.
000013     EXEC SQL  END  DECLARE SECTION END-EXEC.
000014 PROCEDURE  DIVISION.
000015     EXEC  SQL
000016        SELECT CL1 INTO :HVAR3  FROM  TBL
000017     END-EXEC.
000018 END PROGRAM    P2744.

P2744.cob 12: JMN2744I-S The host variable cannot be a variable address item.

Explanation

The host variable defined by an embedded SQL declare section of the data division is used to store data from the application program into the database, and to get the data from the database. Host variables must not be in a variable position in the record.

JMN2745I-S

The host variable cannot be subordinate to a data item with a @1@ clause.

Parameter explanation

@1@ : OCCURS or REDEFINES.

Example

[P2745.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2745.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE  SECTION.
000006     EXEC SQL BEGIN  DECLARE SECTION END-EXEC.
000007  01  SQLSTATE PIC X(5).
000008  01 HRGRP.
000009    02         OCCURS 10.
000010      03 HVAR1   PIC S9(9) BINARY.
000011     EXEC SQL  END  DECLARE SECTION END-EXEC.
000012 PROCEDURE  DIVISION.
000013     EXEC  SQL
000014        SELECT CL1 INTO :HVAR1  FROM  TBL
000015     END-EXEC.
000016 END PROGRAM    P2745.

P2745.cob 10: JMN2745I-S The host variable cannot be subordinate to a data item with a OCCURS clause.

JMN2747I-S

A host variable with an OCCURS clause must be either an elementary item with a level number other than 49, or a group item that corresponds to a variable length column.

Example

[C2747.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    C2747.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE  SECTION.
000006      EXEC SQL BEGIN  DECLARE SECTION END-EXEC.
000007  01  SQLSTATE  PIC X(5).
000008  01  HVAR0.
000009   02  HVAR1 OCCURS 3 TIMES.
000010    49  HVAR11  PIC S9(4) BINARY.
000011    49  HVAR12  PIC N(40).
000012   02  HVAR2 OCCURS 3 TIMES.
000013    03  HVAR21  PIC S9(4) BINARY.
000014    03  HVAR22  PIC N(40).
000015      EXEC SQL END  DECLARE SECTION END-EXEC.
000016 PROCEDURE  DIVISION.
000017      EXEC  SQL
000018        SELECT CL1 INTO :HVAR1  FROM  TBL END-EXEC.
000019      EXEC  SQL
000020        SELECT CL2 INTO :HVAR2  FROM  TBL END-EXEC.

C2747.cob 12: JMN2747I-S A host variable with an OCCURS clause must be either an elementary item with a level number other than 49, or a group item that corresponds to a variable length column.

JMN2748I-S

An OCCURS clause with a DEPENDING ON phrase, a KEY IS phrase, and an INDEXED BY phrase cannot be specified for a host variable.

Example

[P2748.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2748.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE  SECTION.
000006     EXEC SQL BEGIN  DECLARE SECTION END-EXEC.
000007  01  SQLSTATE PIC X(5).
000008  01  SQLINFOA .
000009    02 SQLERRD PIC S9(9) BINARY
000010               OCCURS 6 TIMES INDEXED BY IX1.
000011  77  HVAR3  PIC S9(9) BINARY.
000012     EXEC SQL  END  DECLARE SECTION END-EXEC.
000013 PROCEDURE  DIVISION.
000014     EXEC  SQL
000015        SELECT CL1 INTO :HVAR3  FROM  TBL
000016     END-EXEC.
000017 END PROGRAM P2748.

P2748.cob 9: JMN2748I-S An OCCURS clause with a DEPENDING ON phrase, a KEY IS phrase, and an INDEXED BY phrase cannot be specified for a host variable.

JMN2749I-S

The host variable cannot be a strongly typed item.

Example

[P2749.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2749.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE  SECTION.
000006     EXEC SQL BEGIN  DECLARE SECTION END-EXEC.
000007  01  SQLSTATE  PIC X(5).
000008  01  HVAR1 TYPE STY.
000009     EXEC SQL END DECLARE SECTION END-EXEC.
000010  01  STY TYPEDEF STRONG.
000011    02  HVAR20  PIC X.
000012    02  HVAR21  PIC S9(4) BINARY.
000013    02  HVAR22  PIC N(40).
000014 PROCEDURE  DIVISION.
000015     EXEC  SQL
000016        SELECT CL1 INTO :HVAR1  FROM  TBL
000017     END-EXEC.
000018 END PROGRAM     P2749.

P2749.cob 8: JMN2749I-S The host variable cannot be a strongly typed item.

JMN2750I-S

The global name of the host variable must be unique with no qualifiers in its scope if it is declared as a group item or subordinate item. All names in this group item are invalid as a host variable name.

Example

[P2750.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2750.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE  SECTION.
000006     EXEC SQL BEGIN  DECLARE SECTION END-EXEC.
000007  01  SQLSTATE  PIC X(5) GLOBAL.
000008  01  HVAR1     GLOBAL.
000009    02  HVAR10  PIC X.
000010    02  HVAR20  PIC S9(4) BINARY.
000011    02  HVAR30  PIC N(40).
000012     EXEC SQL END DECLARE SECTION END-EXEC.
000013
000014 PROGRAM-ID.    P2750SUB.
000015 DATA           DIVISION.
000016 WORKING-STORAGE  SECTION.
000017     EXEC SQL BEGIN  DECLARE SECTION END-EXEC.
000018  01  HVAR2.
000019    02  HVAR20  PIC S9(4) BINARY.
000020     EXEC SQL END DECLARE SECTION END-EXEC.
000021 PROCEDURE  DIVISION.
000022     EXEC  SQL
000023        SELECT CL1 INTO :HVAR20  FROM  TBL END-EXEC.
000024     EXIT PROGRAM.
000025 END PROGRAM     P2750SUB.
000026 END PROGRAM     P2750.

P2750.cob 10: JMN2750I-S The global name of the host variable must be unique with no qualifiers in its scope if it is declared as a group item or subordinate item. All names in this group item are invalid as a host variable name.

JMN2753I-S

The embedded @1@ statement must end with END-EXEC. All embedded @1@ statements following the EXEC @1@ are ignored.

Parameter explanation

@1@ : SQL.

Example

[P2753.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2753.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE  SECTION.
000006     EXEC SQL BEGIN  DECLARE SECTION END-EXEC.
000007  01  SQLSTATE PIC X(5).
000008  77  HVAR1  PIC S9(9) BINARY.
000009     EXEC SQL  END  DECLARE SECTION END-EXEC.
000010 PROCEDURE  DIVISION.
000011     EXEC  SQL
000012        SELECT CL1 INTO :HVAR1  FROM  TBL
000013     STOP RUN.

P2753.cob 11: JMN2753I-S The embedded SQL statement must end with END-EXEC. All embedded SQL statements following the EXEC SQL are ignored.

Explanation

The embedded SQL statement must be enclosed by the SQL prefix "EXEC SQL" and the SQL terminator "END-EXEC".

JMN2756I-S

The SQLCODE or SQLSTATE is undefined or defined multiple times.

Example

[P2756.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2756.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 PROCEDURE      DIVISION.
000007     EXEC SQL WHENEVER SQLERROR GO TO :P-END END-EXEC.
000008     EXEC SQL CONNECT TO DEFAULT END-EXEC.
000009 P-END.
000010     EXEC SQL WHENEVER SQLERROR CONTINUE END-EXEC.
000011     EXEC SQL DISCONNECT DEFAULT END-EXEC.
000012 END PROGRAM    P2756.

P2756.cob 8: JMN2756I-S The SQLCODE or SQLSTATE is undefined or defined multiple times.

Explanation

SQLSTATE/SQLCODE is where the code is stored that indicates an exception event occurs during the execution of an SQL statement. In the application program, it is necessary to declare either SQLSTATE or SQLCODE.

JMN2757I-S

Invalid characters are specified in the SQL statement. This SQL statement is ignored.

Explanation

Only the character included in the BMP (Basic Multilingual Plane) can be used in the embedded SQL statement.

JMN2759I-U

The number of host variables that can be referenced has been exceeded. Compilation is terminated.

Explanation

The upper limit of the number of host variables is 10000.

The number of host variables is the sum of declaration of the host variable that can be referred from one source unit. (the variable that has the global attribute also is contained.) It must not exceed that limit. Please decrease the declaration of the host variable.

JMN2761I-S

@1@STATE is not specified in the embedded @1@ DECLARE SECTION or it is not unique.

Parameter explanation

@1@ : SQL.

Example

[P2761.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2761.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 PROCEDURE      DIVISION.
000007     EXEC SQL
000008       SELECT * FROM s1.t1
000009     END-EXEC.
000010 END PROGRAM    P2761.

P2761.cob 8: JMN2761I-S SQLSTATE is not specified in the embedded SQL DECLARE SECTION or it is not unique.

Explanation

SQLSTATE must be defined as a five-digit alphanumeric data item with level-number 01 or 77 in the embedded SQL declare section.

JMN2762I-S

Special register @1@ can only be specified as a sending item in a MOVE statement.

Parameter explanation

@1@ : WHEN-COMPILED.

Example

[P2762.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2762.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 PROCEDURE      DIVISION.
000007     MOVE SPACE TO WHEN-COMPILED
000008 END PROGRAM    P2762.

P2762.cob 7: JMN2762I-S Special register WHEN-COMPILED can only be specified as a sending item in a MOVE statement.

Explanation

WHEN-COMPILED returns the date and time at which the program was compiled.

JMN2764I-S

In this system, '@1@' cannot be used.

Parameter explanation

@1@ : Reserved word that shows statement, phrase, and specification that causes the error.

Example

[P2764.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2764.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD SQFILE1.
000010 01 SQF1REC.
000011   02           PIC X(80).
000012 WORKING-STORAGE SECTION.
000013 PROCEDURE      DIVISION.
000014     WRITE SQF1REC POSITIONING 1
000015 END PROGRAM    P2764.

P2764.cob 14: JMN2764I-S In this system, 'POSITIONING' cannot be used.

JMN2766I-W

'@1@' is assumed to be a comment in this system.

Parameter explanation

@1@ : Reserved word that shows statement, phrase, and specification that causes the error.

Example

[P2766.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2766.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008     APPLY RECORD-OVERFLOW ON SQFILE1.
000009 DATA           DIVISION.
000010 FILE            SECTION.
000011 FD SQFILE1
000012     RECORD VARYING IN SIZE DEPENDING ON LRECL.
000013 01 SQF1REC.
000014   02           PIC X(80).
000015 WORKING-STORAGE SECTION.
000016 01 LRECL       PIC 9(2).
000017 PROCEDURE      DIVISION.
000018 END PROGRAM    P2766.

P2766.cob 8: JMN2766I-W 'APPLY RECORD-OVERFLOW' is assumed to be a comment in this system.

JMN2767I-S

The number of the argument in '@1@' must be greater than 1.

Parameter explanation

@1@ : Function name that causes the error.

Example

[P2767.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2767.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 77  A  PIC 9(2).
000007 77  B  PIC 9(2).
000008 PROCEDURE DIVISION.
000009     MOVE FUNCTION PRESENT-VALUE(A) TO B.
000010 END PROGRAM  P2767.

P2767.cob 9: JMN2767I-S The number of the argument in 'FUNCTION PRESENT-VALUE' must be greater than 1.

Explanation

Two or more arguments are specified for the following functions:

  • ANNUITY

  • ENUM-AND

  • ENUM-OR

  • MOD

  • PRESENT-VALUE

  • REM

ENUM-AND and ENUM-OR are specific to .NET.

JMN2768I-S

'@1@' cannot be specified in a receiving item.

Parameter explanation

@1@ : Function identifier that causes the error.

Example

[P2768.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2768.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 77  A   PIC  X(21).
000007 PROCEDURE DIVISION.
000008     MOVE A TO FUNCTION CURRENT-DATE.
000009 END PROGRAM  P2768.

P2768.cob 8: JMN2768I-S 'FUNCTION CURRENT-DATE' cannot be specified in a receiving item.

JMN2769I-S

The subscript 'ALL' cannot be specified in '@1@'. The subscript is assumed to be 1.

Parameter explanation

@1@ : Function identifier that causes the error.

Example

[P2769.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2769.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP.
000007     02  TBL  OCCURS  10  PIC 9(2).
000008 77  A  PIC  9(2).
000009 PROCEDURE      DIVISION.
000010     COMPUTE A = FUNCTION ACOS(TBL(ALL))
000011 END PROGRAM P2769.

P2769.cob 10: JMN2769I-S The subscript 'ALL' cannot be specified in 'FUNCTION ACOS'. The subscript is assumed to be 1.

Explanation

A data-name with the keyword ALL can be specified as a subscript instead of writing individual subscripted data-names. Specifying ALL as a subscript passes all the table elements of the dimension to the function as if they were specified from left to right in the order of occurrence.

The subscript ALL can be specified for the following functions:

  • MAX

  • MEAN

  • MEDIAN

  • MIDRANGE

  • MIN

  • ORD-MAN

  • ORD-MIN

  • PRESENT-VALUE

  • RANGE

  • STANDARD-DEVIATION

  • SUM

  • VARIANCE

  • ENUM-AND

  • ENUM-OR

ENUM-AND and ENUM-OR are specific to the .NET.

JMN2770I-S

The '@2@' phrase in the '@1@' statement is invalid.

Parameter explanation

@1@ : ACCEPT or DISPLAY.

@2@ : Reserved word of the phrase where the error occurs.

Example

[P2770.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.     P2770.
000003 ENVIRONMENT     DIVISION.
000004 DATA            DIVISION.
000005 WORKING-STORAGE SECTION.
000006   01  AA  PIC X(2).
000007 SCREEN          SECTION.
000008   01  A1  PIC X(8)  FROM  AA.
000009 PROCEDURE       DIVISION.
000010     ACCEPT  A1
000011                 AT LINE .
000012 END PROGRAM     P2770.

P2770.cob 11: JMN2770I-S The 'LINE' phrase in the 'ACCEPT' statement is invalid.

JMN2772I-I

'@1@' is assumed to be a comment in this system.

Parameter explanation

@1@ : Reserved word that shows the statement, phrase, and specification that causes the error.

Example

[P2772.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2772.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD SQFILE1
000011       RECORDING MODE IS V
000012       BLOCK CONTAINS 80 CHARACTERS.
000013 01 SQF1REC.
000014   02           PIC X(80).
000015 WORKING-STORAGE SECTION.
000016 01 WFS1        PIC X(2).
000017 PROCEDURE      DIVISION.
000018 END PROGRAM    P2772.

P2772.cob 10: JMN2772I-I 'BLOCK CONTAINS' is assumed to be a comment in this system.

JMN2773I-E

Mnemonic-name '@1@' is assumed to be a comment in this system.

Parameter explanation

@1@ : Mnemonic-name which causes the error.

Example

[P2773.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2773.
000003 ENVIRONMENT    DIVISION.
000004 CONFIGURATION   SECTION.
000005 SPECIAL-NAMES.
000006     BUSHU IS RULE1.
000007 INPUT-OUTPUT    SECTION.
000008 FILE-CONTROL.
000009     SELECT SQFILE1 ASSIGN TO SYS001.
000010     SELECT SQFILE2 ASSIGN TO SYS002.
000011     SELECT SRTFILE ASSIGN TO SYS003.
000012 I-O-CONTROL.
000013 DATA           DIVISION.
000014 FILE            SECTION.
000015 FD SQFILE1.
000016 01 SQF1REC.
000017   02           PIC X(80).
000018 FD SQFILE2.
000019 01 SQF2REC.
000020   02           PIC X(80).
000021 SD SRTFILE.
000022 01 SRTREC.
000023   02 SRTKEY    PIC X(8).
000024   02           PIC X(72).
000025 WORKING-STORAGE SECTION.
000026 01 WFS1        PIC X(2).
000027 PROCEDURE      DIVISION.
000028     SORT SRTFILE
000029       ASCENDING RULE1 KEY  SRTKEY
000030       USING  SQFILE1
000031       GIVING SQFILE2
000032 END PROGRAM    P2773.

P2773.cob 29: JMN2773I-E Mnemonic-name 'RULE1' is assumed to be a comment in this system.

Explanation

The mnemonic-name specified for the ASCENDING KEY phrase of the SORT statement or the MERGE statement is treated as a comment.

JMN2774I-W

'@1@' is a function that is specific to the MSP or XSP system.

Parameter explanation

@1@ : CONNECT, DISCONNECT, ERASE, FIND, FINISH, GET, MODIFY, READY, STORE, IF DB-EXCEPTION, USE FOR DB-EXCEPTION, USE FOR DEAD-LOCK, or TRANSACTION.

Example

[P2774.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2774.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 PROCEDURE      DIVISION.
000007     TRANSACTION START.
000008 END PROGRAM    P2774.

P2774.cob 7: JMN2774I-W 'TRANSACTION' is a function that is specific to the MSP or XSP system.

Explanation

This diagnostic message indicates functions and elements that are specific to the OSIV-series.

JMN2775I-S

When a mnemonic-name in the UPON clause is related to function-name ARGUMENT-NUMBER, ENVIRONMENT-NAME, or ENVIRONMENT-VALUE, only one identifier or literal can be specified for the DISPLAY statement.

Example

[P2775.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2775.
000003 ENVIRONMENT    DIVISION.
000004 CONFIGURATION   SECTION.
000005 SPECIAL-NAMES.
000006     ENVIRONMENT-NAME IS EVN.
000007 DATA           DIVISION.
000008 WORKING-STORAGE SECTION.
000009 01 WENV1       PIC X(30).
000010 01 WENV2       PIC X(30).
000011 PROCEDURE      DIVISION.
000012     MOVE "PATH" TO WENV1
000013     MOVE "LIB"  TO WENV2
000014     DISPLAY WENV1 WENV2
000015                UPON EVN
000016 END PROGRAM    P2775.

P2775.cob 14: JMN2775I-S When a mnemonic-name in the UPON clause is related to function-name ARGUMENT-NUMBER, ENVIRONMENT-NAME, or ENVIRONMENT-VALUE, only one identifier or literal can be specified for the DISPLAY statement.

JMN2794I-E

'@1@' is a function that is specific to the MSP or XSP system.

Parameter explanation

@1@ : CONNECT, DISCONNECT, ERASE, FIND, FINISH, GET, MODIFY, READY, STORE, IF DB-EXCEPTION, or SERVICE LABEL.

Example

[P2794.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2794.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 PROCEDURE      DIVISION.
000007     SERVICE LABEL
000008 END PROGRAM    P2794.

P2794.cob 7: JMN2794I-E 'SERVICE LABEL' is a function that is specific to the MSP or XSP system.

Explanation

This diagnostic message indicates functions and elements that are specific to the OSIV-series.

JMN2798I-S

[Solaris][Linux]
The host variable of a binary item must be 4 or 9 digits.

[Linux64]
The host variable of a binary item must be @1@ digits.

Parameter explanation

@1@ : The number of digits that can be specified.

Example

[P2798.cob]
000001 @OPTIONS BINARY(BYTE)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    P2798.
000004 ENVIRONMENT    DIVISION.
000005 DATA           DIVISION.
000006 WORKING-STORAGE SECTION.
000007     EXEC SQL BEGIN DECLARE SECTION END-EXEC.
000008 01 SQLSTATE    PIC X(5).
000009 01 HVR1        PIC S9(3) BINARY.
000010     EXEC SQL END   DECLARE SECTION END-EXEC.
000011 PROCEDURE      DIVISION.
000012     EXEC SQL
000013       SELECT COL2 INTO :HVR1
000014              FROM T1    WHERE COL1 = 0
000015     END-EXEC
000016 END PROGRAM    P2798.
  • [Solaris][Linux]

    P2798.cob 9: JMN2798I-S The host variable of a binary item must be 4 or 9 digits.

  • [Linux64]

    31-digit operation mode :

    P2798.cob 9: JMN2798I-S The host variable of a binary item must be 4 , 9 or 18 digits.

    18-digit operation mode :

    P2798.cob 9: JMN2798I-S The host variable of a binary item must be 4 or 9 digits.

JMN2800I-S

[Solaris][Linux]
The data-name in @1@ clause must be defined in the WORKING-STORAGE SECTION or LINKAGE SECTION.

[Linux64]
The data-name in @1@ clause must be defined in the WORKING-STORAGE SECTION, LOCAL-STORAGE SECTION or LINKAGE SECTION.

Parameter explanation

@1@ : PROCESSING MODE | FORMAT | GROUP | SYMBOLIC DESTINATION | DESTINATION-1 | DESTINATION-2 | DESTINATION-3 | MESSAGE MODE | END KEY | SESSION CONTROL | SELECTED FUNCTION | MESSAGE SEQUENCE

Example

[P2800.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2800.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001
000007       FORMAT         IS WFMT.
000008 I-O-CONTROL.
000009 DATA           DIVISION.
000010 FILE            SECTION.
000011 FD SQFILE1.
000012 01 SQF1REC.
000013   02            PIC X(80).
000014 CONSTANT        SECTION.
000015 01 WFMT        PIC X(8) VALUE SPACE.
000016 PROCEDURE      DIVISION.
000017 END PROGRAM    P2800.
  • [Solaris][Linux]

    P2800.cob 7: JMN2800I-S The data-name in FORMAT clause must be defined in the WORKING-STORAGE SECTION or LINKAGE SECTION.

  • [Linux64]

    P2800.cob 7: JMN2800I-S The data-name in FORMAT clause must be defined in the WORKING-STORAGE SECTION, LOCAL-STORAGE SECTION or LINKAGE SECTION.

JMN2801I-S

The data-name in the @1@ clause must be an alphanumeric or group item. The group item should not be one that includes an object reference item.

Parameter explanation

@1@ : PROCESSING MODE, FORMAT, GROUP, SYMBOLIC DESTINATION, DESTINATION-1, DESTINATION-2, DESTINATION-3, MESSAGE MODE, END KEY, SESSION CONTROL or SELECTED FUNCTION.

Example

[P2801.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2801.
000003 ENVIRONMENT    DIVISION.
000004 CONFIGURATION   SECTION.
000005 REPOSITORY.
000006     CLASS FJBASE.
000007 INPUT-OUTPUT    SECTION.
000008 FILE-CONTROL.
000009     SELECT FILE1 ASSIGN TO GS-SYS001
000010       SYMBOLIC DESTINATION IS "DSP"
000011       FORMAT               IS WFMT
000012       GROUP                IS WSTYGRP
000013       DESTINATION-1        IS WDST1
000014       FILE STATUS    IS WFS1 WFS2.
000015 I-O-CONTROL.
000016 DATA           DIVISION.
000017 FILE            SECTION.
000018 FD FILE1.
000019 01 F1REC.
000020   02           PIC X(80).
000021 WORKING-STORAGE SECTION.
000022 01 WSTYGRP.
000023   02 WOBJ      OBJECT REFERENCE FJBASE.
000024 01 WFS1        PIC X(2).
000025 01 WFS2        PIC X(4).
000026 01 WDST        PIC X(3).
000027 01 WFMT        PIC X(8).
000028 01 WGRP        PIC X(8).
000029 01 WDST1       PIC X(8).
000030 PROCEDURE      DIVISION.
000031 END PROGRAM    P2801.

P2801.cob 12: JMN2801I-S The data-name in the GROUP clause must be an alphanumeric or group item. The group item should not be one that includes an object reference item.

JMN2802I-S

The data-name in the @1@ clause must be @2@ bytes in length.

Parameter explanation

@1@ : PROCESSING MODE, FORMAT, GROUP, SYMBOLIC DESTINATION, DESTINATION-1, DESTINATION-2, DESTINATION-3, MESSAGE MODE, END KEY, SESSION CONTROL, PROCESSING CONTROL, SELECTED FUNCTION or MESSAGE SEQUENCE.

@2@ : Necessary number of bytes for the data item specified for the clause.

Example

[P2802.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2802.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001
000007       FORMAT         IS WFMT.
000008 I-O-CONTROL.
000009 DATA           DIVISION.
000010 FILE            SECTION.
000011 FD SQFILE1.
000012 01 SQF1REC.
000013   02           PIC X(80).
000014 WORKING-STORAGE SECTION.
000015 01 WFMT        PIC X(2).
000016 PROCEDURE      DIVISION.
000017 END PROGRAM    P2802.

P2802.cob 7: JMN2802I-S The data-name in the FORMAT clause must be 8 bytes in length.

JMN2803I-S

The data-name in the MESSAGE CODE clause must be an alphanumeric item or an unsigned external decimal item that is an integer.

Example

[P2803.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2803.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT PRFILE1 ASSIGN TO GS-SYS001
000007       SYMBOLIC DESTINATION IS WDST
000008       MESSAGE CODE         IS WMSC.
000009 I-O-CONTROL.
000010 DATA           DIVISION.
000011 FILE            SECTION.
000012 FD PRFILE1.
000013 01 PRF1REC.
000014   02           PIC X(80).
000015 WORKING-STORAGE SECTION.
000016 01 WDST        PIC X(3).
000017 01 WMSC        PIC N(2).
000018 PROCEDURE      DIVISION.
000019 END PROGRAM    P2803.

P2803.cob 8: JMN2803I-S The data-name in the MESSAGE CODE clause must be an alphanumeric item or an unsigned external decimal item that is an integer.

JMN2809I-S

The name of the PRINTING POSITION clause must be a unique positioning-unit-name.

Example

[P2809.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2809.
000003 ENVIRONMENT    DIVISION.
000004 CONFIGURATION  SECTION.
000005 SPECIAL-NAMES.
000006     POSITIONING UNIT PUN-A  IS  12 CPI
000007     POSITIONING UNIT PUN-B  IS  10 CPI
000008     POSITIONING UNIT PUN-B  ARE 15 CPI.
000009 DATA  DIVISION.
000010 WORKING-STORAGE SECTION.
000011   01  REC-A  PIC X(10)  PRINTING POSITION IS 10  BY PUN-A.
000012   01  REC-B  PIC X(10)  PRINTING POSITION IS 10  BY PUN-B.
000013 PROCEDURE      DIVISION.
000014 END PROGRAM    P2809.

P2809.cob 12: JMN2809I-S The name of the PRINTING POSITION clause must be a unique positioning-unit-name.

Explanation

A positioning-unit-name is the name given to the value indicating the column to be printed. A positioning-unit-name must be associated with a literal by using the POSITIONING UNIT clause in the SPECIAL-NAMES paragraph.

JMN2815I-S

The data-name in the @1@ clause must not exceed @2@ bytes in length.

Parameter explanation

@1@ : RECORD KEY or ALTERNATE RECORD KEY.

@2@ : 255 or 253.

Example

[P2815.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2815.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT IXFILE1 ASSIGN TO SYS001
000007       ORGANIZATION   IS INDEXED
000008       RECORD KEY     IS WRKY1
000009                         WRKY2
000010                         WRKY3.
000011 I-O-CONTROL.
000012 DATA           DIVISION.
000013 FILE            SECTION.
000014 FD IXFILE1.
000015 01 IXF1REC.
000016   02 WRKY1     PIC X(86).
000017   02 WRKY2     PIC X(86).
000018   02 WRKY3     PIC X(86).
000019   02           PIC X(80).
000020 WORKING-STORAGE SECTION.
000021 PROCEDURE      DIVISION.
000022 END PROGRAM    P2815.

P2815.cob 10: JMN2815I-S The data-name in the RECORD KEY clause must not exceed 255 bytes in length.

Explanation

The 255 byte maximum length is a restriction of the COBOL processing system.

JMN2818I-W

Data-name '@2@' in the @1@ clause of the RDB indexed file must be specified for an alphanumeric, national, internal decimal, binary, or group item. An alphanumeric item is assumed.

Parameter explanation

@1@ : RECORD KEY or ALTERNATE RECORD KEY.

@2@ : Data name which causes error.

Example

[P2818.cob]
000001 @OPTIONS FLAGSW(GSS)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    P2818.
000004 ENVIRONMENT    DIVISION.
000005 INPUT-OUTPUT    SECTION.
000006 FILE-CONTROL.
000007     SELECT IXFILE1 ASSIGN TO MODELDB-VI-STOCK
000008       ORGANIZATION   IS INDEXED
000009       RECORD KEY     IS QNO GOODS.
000010 DATA           DIVISION.
000011 FILE            SECTION.
000012 FD IXFILE1.
000013 01 IXF1REC.
000014   02 QNO       PIC A(2).
000015   02 GOODS     PIC N(80).
000016   02 PRICE     PIC S9(9) BINARY.
000017 PROCEDURE      DIVISION.
000018 END PROGRAM    P2818.

P2818.cob 9: JMN2818I-W Data-name 'QNO' in the RECORD KEY clause of the RDB indexed file must be specified for an alphanumeric, national, internal decimal, binary, or group item. An alphanumeric item is assumed.

Explanation

The RDB indexed file is specific to the OSIV-series.

JMN2819I-S

A presentation file (organization 'GS') with an APPLY MULTICONVERSATION-MODE clause must also specify an APPLY SAVED-AREA clause for that presentation file.

Example

[P2819.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2819.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT AFILE1 ASSIGN GS-DD1.
000007 I-O-CONTROL.
000008     APPLY MULTICONVERSATION-MODE.
000009 DATA DIVISION.
000010 FILE SECTION.
000011   FD AFILE1.
000012   01 AREC.
000013     02 RKY1  PIC X(80).
000014 PROCEDURE DIVISION.
000015 END PROGRAM P2819.

P2819.cob 8: JMN2819I-S A presentation file (organization 'GS') with an APPLY MULTICONVERSATION-MODE clause must also specify an APPLY SAVED-AREA clause for that presentation file.

JMN2821I-W

The VALUE clause cannot be specified for a subordinate item of a group item with a VALUE clause. The VALUE clause is ignored.

Example

[P2821.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2821.
000003 DATA           DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01 WGRP        VALUE SPACE.
000006   02 WELM1     PIC X(2).
000007   02 WELM2     PIC X(2) VALUE "AB".
000008   02 WELM3     PIC X(2).
000009 PROCEDURE      DIVISION.
000010 END PROGRAM    P2821.

P2821.cob 7: JMN2821I-W The VALUE clause cannot be specified for a subordinate item of a group item with a VALUE clause. The VALUE clause is ignored.

Explanation

An initial value cannot be set by specifying the VALUE clause for the item subordinate to the group item when an initial value to the group item has already been specified by the VALUE clause.

JMN2822I-W

A VALUE clause cannot be specified for a variable-address item. The VALUE clause is ignored.

Example

[P2822.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2822.
000003 DATA           DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01 WGRP.
000006   02 WLEN      PIC 9(2).
000007   02 WOCC      PIC X(2) OCCURS 20 DEPENDING ON WLEN.
000008   02 WVAD      PIC X(2) VALUE "AB".
000009 PROCEDURE      DIVISION.
000010 END PROGRAM    P2822.

P2822.cob 8: JMN2822I-W A VALUE clause cannot be specified for a variable-address item. The VALUE clause is ignored.

Explanation

The VALUE clause cannot be specified for the data item allocated at the variable position in the record. The variable position is the area allocated after the variable occurrence data item (the data item that has the OCCURS clause with the DEPENDING phrase) in a record.

JMN2823I-S

If the presentation file (organization 'GS') is not defined, a file-name must be specified in the @1@ clause.

Parameter explanation

@1@ : APPLY MULTICONVERSATION-MODE or APPLY SAVED-AREA.

Example

[P2823.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2823.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001
000007       ORGANIZATION   IS SEQUENTIAL.
000008 I-O-CONTROL.
000009     APPLY SAVED-AREA TO WSVAR.
000010 DATA           DIVISION.
000011 FILE            SECTION.
000012 FD SQFILE1.
000013 01 SQF1REC.
000014   02           PIC X(80).
000015 WORKING-STORAGE SECTION.
000016 01 WSVAR       PIC X(80).
000017 PROCEDURE      DIVISION.
000018 END PROGRAM    P2823.

P2823.cob 9: JMN2823I-S If the presentation file (organization 'GS') is not defined, a file-name must be specified in the APPLY SAVED-AREA clause.

JMN2826I-S

@1@ must be an alphanumeric item.

Parameter explanation

@1@ : SQLMSG.

Example

[P2826.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2826.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006     EXEC SQL BEGIN  DECLARE SECTION END-EXEC.
000007  01 HVAR1      PIC S9(9) BINARY.
000008  01 SQLSTATE   PIC X(5).
000009  01 SQLMSG.
000010    02          PIC S9(4).
000011    02          PIC X(50).
000012     EXEC SQL  END  DECLARE SECTION END-EXEC.
000013 PROCEDURE      DIVISION.
000014     EXEC SQL WHENEVER SQLERROR CONTINUE END-EXEC
000015     EXEC SQL
000016       SELECT CL1 FROM T1
000017         INTO :HVAR1
000018     END-EXEC
000019 END PROGRAM    P2826.

P2826.cob 9: JMN2826I-S SQLMSG must be an alphanumeric item.

Explanation

If an exception event occurs during the execution of an SQL statement, a message indicating the nature of the event is posted to the application program. SQLMSG is the area where this message is stored.

SQLMSG must be defined as alphanumeric data item with level number 01 or 77 in the embedded SQL declare section.

JMN2827I-S

The @1@ clause cannot be specified in a presentation file (organization 'GS').

Parameter explanation

@1@ : BLOCK CONTAINS, LABEL RECORD, FORMATTED RECORD or CONTROL RECORD.

Example

[P2827.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2827.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT PRFILE1 ASSIGN TO GS-SYS001
000007       SYMBOLIC DESTINATION IS "DSP"
000008       FORMAT               IS WFMT.
000009 DATA           DIVISION.
000010 FILE            SECTION.
000011 FD PRFILE1
000012      CONTROL RECORD IS CTL.
000013 01 PRF1REC.
000014   02           PIC X(80).
000015 01 CTLREC      PIC X(80).
000016 WORKING-STORAGE SECTION.
000017 01 WFMT        PIC X(8).
000018 PROCEDURE      DIVISION.
000019 END PROGRAM    P2827.

P2827.cob 12: JMN2827I-S The CONTROL RECORD clause cannot be specified in a presentation file (organization 'GS').

JMN2829I-S

Data-name '@1@' in the KEY IS phrase must be a binary, internal decimal, external decimal, numeric edited, alphabetic, alphanumeric, alphanumeric edited, national, or national edited item.

Parameter explanation

@1@ : Data name which causes error.

Example

[P2829.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2829.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP.
000007   02 WOCC      OCCURS 26 ASCENDING KEY IS WKEY.
000008     03 WKEY    PIC 1(8).
000009     03 WVAL    PIC X(1).
000010 PROCEDURE      DIVISION.
000011 END PROGRAM    P2829.

P2829.cob 7: JMN2829I-S Data-name 'WKEY' in the KEY IS phrase must be a binary, internal decimal, external decimal, numeric edited, alphabetic, alphanumeric, alphanumeric edited, national, or national edited item.

JMN2831I-W

A RECORDING MODE clause cannot be specified for a sequential (organization 'VS' or 'AS'), relative, indexed, presentation, or print file with a FORMAT clause. The RECORDING MODE clause is ignored.

Example

[P2831.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2831.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO VS-SYS001
000007       ORGANIZATION   IS SEQUENTIAL
000008       FILE STATUS    IS WFS1.
000009 DATA           DIVISION.
000010 FILE            SECTION.
000011 FD SQFILE1
000012      RECORDING MODE IS V.
000013 01 SQF1REC.
000014   02           PIC X(80).
000015 WORKING-STORAGE SECTION.
000016 01 WFS1        PIC X(2).
000017 PROCEDURE      DIVISION.
000018 END PROGRAM    P2831.

P2831.cob 12: JMN2831I-W A RECORDING MODE clause cannot be specified for a sequential (organization 'VS' or 'AS'), relative, indexed, presentation, or print file with a FORMAT clause. The RECORDING MODE clause is ignored.

Explanation

The RECORDING MODE clause is specific to the OSIV-series.

JMN2832I-S

[Solaris][Linux]
The record length of the presentation file, chart file, or print file with a FORMAT clause cannot exceed 32767 bytes. A record length of 32767 bytes is assumed.

[Linux64]
The record length of the presentation file, chart file, or print file with a FORMAT clause cannot exceed @1@ bytes. A record length of @1@ bytes is assumed.

Parameter explanation

@1@ : 32767 | 65535

Example

[P2832.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2832.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO GS-SYS001
000007        SYMBOLIC DESTINATION IS "DSP".
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD SQFILE1.
000011 01 SQF1REC.
000012   02           PIC X(32768).
000013 WORKING-STORAGE SECTION.
000014 01 WFS1        PIC X(2).
000015 PROCEDURE      DIVISION.
000016 END PROGRAM    P2832.

P2832.cob 10: JMN2832I-S The record length of the presentation file, chart file, or print file with a FORMAT clause cannot exceed 32767 bytes. A record length of 32767 bytes is assumed.

Explanation

It is a restriction of the COBOL processing system.

JMN2834I-S

The data-name in the '@1@' clause must be an unsigned external decimal item that is an integer without the symbol 'P'.

Parameter explanation

@1@ : MESSAGE CLASS, MESSAGE SEQUENCE or PROCESSING TIME.

Example

[P2834.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2834.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT PRFILE1 ASSIGN TO GS-SYS001
000007       SYMBOLIC DESTINATION IS "DSP"
000008       FORMAT               IS WFMT
000009       MESSAGE CLASS        IS WMCL.
000010 DATA           DIVISION.
000011 FILE            SECTION.
000012 FD PRFILE1.
000013 01 PRF1REC.
000014   02           PIC X(80).
000015 WORKING-STORAGE SECTION.
000016 01 WFMT        PIC X(8).
000017 01 WMCL        PIC X(8).
000018 PROCEDURE      DIVISION.
000019 END PROGRAM    P2834.

P2834.cob 9: JMN2834I-S The data-name in the 'MESSAGE CLASS' clause must be an unsigned external decimal item that is an integer without the symbol 'P'.

Explanation

A "P" in the PICTURE character-string indicates an assumed decimal scaling position.

JMN2835I-S

Data-name '@1@' in the KEY IS phrase cannot be a variable-length item.

Parameter explanation

@1@ : Data name that causes the error.

Example

[P2835.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2835.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP.
000007   02 WKEYLEN PIC S9(4) BINARY.
000008   02 WOCC      OCCURS 26 ASCENDING KEY IS WKEY.
000009     03 WKEY.
000010       04       PIC X(1) OCCURS 5 DEPENDING ON WKEYLEN.
000011     03 WVAL    PIC X(1).
000012 PROCEDURE      DIVISION.
000013 END PROGRAM    P2835.

P2835.cob 8: JMN2835I-S Data-name 'WKEY' in the KEY IS phrase cannot be a variable-length item.

Explanation

The data item specified for the KEY IS phrase should not be an item that specifies an OCCURS clause with a DEPENDING phrase or an item including it.

JMN2836I-S

The mnemonic-name in the CHARACTER TYPE clause is undefined, defined multiple times, or related to an invalid function-name.

Example

[P2836.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2836.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP CHARACTER TYPE PM-1.
000007    02 XITM     PIC X(10).
000008    02 NITM     PIC N(10).
000009 PROCEDURE      DIVISION.
000010 END PROGRAM    P2836.

P2836.cob 6: JMN2836I-S The mnemonic-name in the CHARACTER TYPE clause is undefined, defined multiple times, or related to an invalid function-name.

Explanation

A mnemonic-name specified in the CHARACTER TYPE clause must be associated with a function-name in the SPECIAL-NAMES paragraph of the ENVIRONMENT DIVISION.

When MODE-1, MODE-2 or MODE-3 is specified in the CHARACTER TYPE clause, the mnemonic-name should be associated with one of the following function-names:

  • HSC, F0202, H0202, F0102, F0201

When mnemonic-name is only specified in the CHARACTER TYPE clause, the mnemonic-name should be associated with the function-name starting with one of the following character-strings:

  • GTA, GTB, GTC, GTD, GTX, GYA, GYB, GYC, GYD, GYX

  • TA, TB, TC, TD, TX, YA, YB, YC, YD, YX

JMN2837I-S

The mnemonic-name in the CHARACTER TYPE clause is related to a function-name that is not supported in the report writer module.

Example

[P2837.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2837.
000003 ENVIRONMENT    DIVISION.
000004 CONFIGURATION   SECTION.
000005 SPECIAL-NAMES.
000006     TX-12P IS PM1.
000007 INPUT-OUTPUT    SECTION.
000008 FILE-CONTROL.
000009     SELECT SQFILE1 ASSIGN TO SYS001.
000010     SELECT REPFILE ASSIGN TO SYS002.
000011 DATA           DIVISION.
000012 FILE            SECTION.
000013 FD SQFILE1.
000014 01 SQF1REC      PIC N(40).
000015 FD REPFILE
000016      REPORT IS REP1.
000017 WORKING-STORAGE SECTION.
000018 01 WFS1        PIC X(2).
000019 REPORT          SECTION.
000020 RD REP1 PAGE 66.
000021 01 DE-REC TYPE DE CHARACTER TYPE PM1.
000022   02 LINE PLUS 1.
000023     03 COLUMN 1 PIC N(40) SOURCE SQF1REC.
000024 PROCEDURE      DIVISION.
000025 END PROGRAM    P2837.

P2837.cob 21: JMN2837I-S The mnemonic-name in the CHARACTER TYPE clause is related to a function-name that is not supported in the report writer module.

Explanation

A mnemonic-name specified in the CHARACTER TYPE clause must be associated with a function-name in the SPECIAL-NAMES paragraph of the ENVIRONMENT DIVISION.

When MODE-1, MODE-2 or MODE-3 is specified in the CHARACTER TYPE clause, the mnemonic-name should be associated with one of the following function-names:

  • HSC, F0202, H0202, F0102, F0201

When mnemonic-name is only specified in the CHARACTER TYPE clause, the mnemonic-name should be associated with the function-name starting with one of the following character-strings:

  • GTA, GTB, GTC, GTD, GTX, GYA, GYB, GYC, GYD, GYX

  • TA, TB, TC, TD, TX, YA, YB, YC, YD, YX

JMN2838I-S

The FORMATTED RECORD clause can only be specified for a presentation file, chart file, or print file with a FORMAT clause.

Example

[P2838.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2838.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD SQFILE1
000011      FORMATTED RECORD FREC.
000012 01 SQF1REC.
000013   02           PIC X(80).
000014 WORKING-STORAGE SECTION.
000015 PROCEDURE      DIVISION.
000016 END PROGRAM    P2838.

P2838.cob 11: JMN2838I-S The FORMATTED RECORD clause can only be specified for a presentation file, chart file, or print file with a FORMAT clause.

Explanation

The FORMATTED RECORD clause is specific to the OSIV-series.

JMN2839I-S

A CONTROL RECORD clause can only be specified for a presentation file or a print file with a FORMAT clause.

Example

[P2839.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2839.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT PRFILE1 ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD PRFILE1
000010      CONTROL RECORD IS CTLREC.
000011 01 PRF1REC.
000012   02           PIC X(80).
000013 01 CTLREC      PIC X(80).
000014 WORKING-STORAGE SECTION.
000015 01 WFMT        PIC X(8).
000016 PROCEDURE      DIVISION.
000017 END PROGRAM    P2839.

P2839.cob 10: JMN2839I-S A CONTROL RECORD clause can only be specified for a presentation file or a print file with a FORMAT clause.

JMN2840I-S

Only one data-name can be specified in the RECORD KEY clause of an indexed organization file. The first data-name is used.

Example

[P2840.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2840.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT IXFILE1 ASSIGN TO I-SYS001
000007       RECORD  KEY IS  RKEY1 RKEY2
000008       NOMINAL KEY IS  AKEY
000009       .
000010 I-O-CONTROL.
000011 DATA           DIVISION.
000012 FILE            SECTION.
000013 FD IXFILE1.
000014 01 IXF1REC.
000015   02 RKEY1     PIC X(8).
000016   02 RKEY2     PIC X(8).
000017   02           PIC X(80).
000018 WORKING-STORAGE SECTION.
000019 01 AKEY        PIC X(8).
000020 PROCEDURE      DIVISION.
000021 END PROGRAM    P2840.

P2840.cob 7: JMN2840I-S Only one data-name can be specified in the RECORD KEY clause of an indexed organization file. The first data-name is used.

Explanation

An indexed organization file (file-identifier of ASSIGN clause is 'I-name') is specific to the OSIV series.

JMN2847I-S

'@1@' must be a unique symbolic constant.

Parameter explanation

@1@ : Data name that causes the error.

Example

[P2847.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2847.
000003 ENVIRONMENT    DIVISION.
000004 CONFIGURATION   SECTION.
000005 SPECIAL-NAMES.
000006     SYMBOLIC CONSTANT
000007         BLKLEN  IS 80.
000008 INPUT-OUTPUT    SECTION.
000009 FILE-CONTROL.
000010     SELECT SQFILE1 ASSIGN TO SYS001.
000011 DATA           DIVISION.
000012 FILE            SECTION.
000013 FD SQFILE1
000014       BLOCK CONTAINS BLKLEN RECORDS.
000015 01 SQF1REC     PIC X(80).
000016 WORKING-STORAGE SECTION.
000017 01 BLKLEN      PIC S9(2) BINARY.
000018 PROCEDURE      DIVISION.
000019 END PROGRAM    P2847.

P2847.cob 14: JMN2847I-S 'BLKLEN' must be a unique symbolic constant.

JMN2851I-S

A pointer data item can only be defined in the BASED-STORAGE SECTION, WORKING-STORAGE SECTION, LOCAL-STORAGE SECTION, CONSTANT SECTION, or LINKAGE SECTION.

Example

[P2851.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2851.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD SQFILE1.
000010 01 SQF1REC.
000011   02 WPX       POINTER.
000012   02           PIC X(72).
000013 WORKING-STORAGE SECTION.
000014 PROCEDURE      DIVISION.
000015 END PROGRAM    P2851.

P2851.cob 11: JMN2851I-S A pointer data item can only be defined in the BASED-STORAGE SECTION, WORKING-STORAGE SECTION, LOCAL-STORAGE SECTION, CONSTANT SECTION, or LINKAGE SECTION.

JMN2853I-S

The PRINTING POSITION clause cannot be specified for a pointer data item.

Example

[C2853.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    C2853.
000003 ENVIRONMENT    DIVISION.
000004 DATA              DIVISION.
000005 WORKING-STORAGE   SECTION.
000006 01  US001  PRINTING POSITION IS 5
000007       USAGE POINTER.
000008 PROCEDURE        DIVISION.
000009     STOP RUN.

C2853.cob 6: JMN2853I-S The PRINTING POSITION clause cannot be specified for a pointer data item.

JMN2862I-S

A numeric literal cannot be specified in the VALUE clause of an alphanumeric, alphanumeric edited, or group item. A nonnumeric literal of the same length is assumed to be specified.

Example

[C2862.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    C2862.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 ALP-CV      PIC X(2)  VALUE 12.
000007 PROCEDURE      DIVISION.
000008 END PROGRAM    C2862.

C2862.cob 6: JMN2862I-S A numeric literal cannot be specified in the VALUE clause of an alphanumeric, alphanumeric edited, or group item. A nonnumeric literal of the same length is assumed to be specified.

Explanation

When the VALUE clause is specified for an alphanumeric item, alphanumeric edited item or group item, the literal of the VALUE clause should be a nonnumeric literal.

JMN2863I-S

A numeric literal cannot be specified in a VALUE clause of a condition-name for a conditional variable of an alphanumeric, alphanumeric edited, or group item. A nonnumeric literal of the same length is assumed to be specified.

Example

[C2863.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    C2863.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 ALP-CV      PIC X(2).
000007  88 C1         VALUE "12".
000008  88 C2         VALUE 24.
000009 PROCEDURE      DIVISION.
000010 END PROGRAM    C2863.

C2863.cob 8: JMN2863I-S A numeric literal cannot be specified in a VALUE clause of a condition-name for a conditional variable of an alphanumeric, alphanumeric edited, or group item. A nonnumeric literal of the same length is assumed to be specified.

Explanation

A nonnumeric literal should be specified for the VALUE clause of the condition-name description entry (level-number 88), when the conditional variable is an alphanumeric item, alphanumeric edited item or group item.

JMN2864I-S

A RECORD clause with a VARYING phrase cannot be specified for a relative organization file.

Example

[P2864.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2864.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO R-SYS001
000007       RELATIVE KEY IS RKEY
000008       ACCESS MODE  IS RANDOM.
000009 DATA           DIVISION.
000010 FILE            SECTION.
000011 FD SQFILE1
000012       RECORD VARYING IN SIZE
000013              DEPENDING ON LRECL.
000014 01 SQF1REC.
000015   02           PIC X(80).
000016 WORKING-STORAGE SECTION.
000017 01 RKEY        PIC 9(8) BINARY.
000018 01 LRECL       PIC 9(8) BINARY.
000019 PROCEDURE      DIVISION.
000020 END PROGRAM    P2864.

P2864.cob 12: JMN2864I-S A RECORD clause with a VARYING phrase cannot be specified for a relative organization file.

Explanation

A relative organization file (file-identifier of ASSIGN clause is 'R-name') is specific to the OSIV-series.

JMN2866I-S

The figurative constant NULL cannot be specified in a VALUE clause except for a pointer data item.

Example

[P2866.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2866.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WNUM        PIC S9(9) BINARY VALUE NULL.
000007 PROCEDURE      DIVISION.
000008 END PROGRAM    P2866.

P2866.cob 6: JMN2866I-S The figurative constant NULL cannot be specified in a VALUE clause except for a pointer data item.

JMN2867I-S

The figurative constant ZERO or NULL must be specified in the VALUE clause of a pointer data item.

Example

[P2867.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2867.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WPX         POINTER VALUE 1.
000007 PROCEDURE      DIVISION.
000008 END PROGRAM    P2867.

P2867.cob 6: JMN2867I-S The figurative constant ZERO or NULL must be specified in the VALUE clause of a pointer data item.

JMN2868I-S

The figurative constant ZERO or NULL must be specified in the VALUE clause of the condition-name for the conditional variable of the pointer data item.

Example

[P2868.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2868.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WPX         POINTER.
000007 88 ZOKPX       VALUE ZERO.
000008 88 ZNGPX       VALUE 1.
000009 PROCEDURE      DIVISION.
000010 END PROGRAM    P2868.

P2868.cob 8: JMN2868I-S The figurative constant ZERO or NULL must be specified in the VALUE clause of the condition-name for the conditional variable of the pointer data item.

JMN2870I-S

File '@1@' in the APPLY WRITE-ONLY clause must be a sequential file with a variable length format.

Parameter explanation

@1@ : File name that causes the error.

Example

[P2870.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2870.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008     APPLY WRITE-ONLY ON SQFILE1.
000009 DATA           DIVISION.
000010 FILE            SECTION.
000011 FD SQFILE1 BLOCK CONTAINS 160.
000012 01 SQF1REC.
000013   02           PIC X(80).
000014 WORKING-STORAGE SECTION.
000015 PROCEDURE      DIVISION.
000016 END PROGRAM    P2870.

P2870.cob 11: JMN2870I-S File 'SQFILE1' in the APPLY WRITE-ONLY clause must be a sequential file with a variable length format.

Explanation

The APPLY WRITE-ONLY clause is specific to the OSIV-series.

JMN2871I-S

The data-name in the @1@ clause must be defined in the WORKING-STORAGE SECTION, LOCAL-STORAGE, LINKAGE SECTION, or CONSTANT SECTION.

Parameter explanation

@1@ : PASSWORD.

Example

[P2871.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.     P2871.
000003 ENVIRONMENT     DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT IN-F ASSIGN INFILE
000007     ORGANIZATION IS INDEXED
000008     RECORD KEY IS K1 PASSWORD IS P1.
000009 DATA            DIVISION.
000010 BASED-STORAGE SECTION.
000011 01  P1  PIC X(4).
000012 FILE            SECTION.
000013 FD  IN-F.
000014 01 REC1.
000015  02  IN-R  PIC X(80).
000016  02  K1  PIC X(4).
000017 END PROGRAM     P2871.

P2871.cob 8: JMN2871I-S The data-name in the PASSWORD clause must be defined in the WORKING-STORAGE SECTION, LOCAL-STORAGE, LINKAGE SECTION, or CONSTANT SECTION.

P2871.cob 8: JMN1477I-I In this system, 'PASSWORD' is assumed to be a comment.

JMN2873I-S

COMPUTATIONAL-4 must be specified for the numeric item.

Example

[P2873.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2873.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WDX         PIC X(4) COMPUTATIONAL-4.
000007 PROCEDURE      DIVISION.
000008 END PROGRAM    P2873.

P2873.cob 6: JMN2873I-S COMPUTATIONAL-4 must be specified for the numeric item.

JMN2874I-W

The item redefined by the REDEFINES clause is a variable-length item. The REDEFINES clause is assumed to be valid.

Example

[P2874.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2874.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WDA.
000007   02 WSIZE     PIC S9(4) BINARY.
000008   02 WOCC      PIC X(2)  OCCURS 100
000009                          DEPENDING ON WSIZE.
000010 01 WRDA REDEFINES WDA.
000011   02           PIC X(202).
000012 PROCEDURE      DIVISION.
000013 END PROGRAM    P2874.

P2874.cob 10: JMN2874I-W The item redefined by the REDEFINES clause is a variable-length item. The REDEFINES clause is assumed to be valid.

JMN2875I-W

The redefining item contains a variable occurrence data item. The REDEFINES clause is assumed to be valid.

Example

[P2875.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2875.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WBUF        PIC X(100).
000007 01 WGRP REDEFINES WBUF.
000008   02 WDPEND    PIC S9(4) BINARY.
000009   02 WOCC      OCCURS 10 DEPENDING ON WDPEND.
000010     03         PIC X(1).
000011 PROCEDURE      DIVISION.
000012 END PROGRAM    P2875.

P2875.cob 7: JMN2875I-W The redefining item contains a variable occurrence data item. The REDEFINES clause is assumed to be valid.

JMN2877I-S

A SIGN clause is specified for an external floating-point item. The SIGN clause is assumed to be a comment.

Example

[P2877.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2877.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WEXFL       PIC +99.99E+99 SIGN LEADING SEPARATE.
000007 PROCEDURE      DIVISION.
000008 END PROGRAM    P2877.

P2877.cob 6: JMN2877I-S A SIGN clause is specified for an external floating-point item. The SIGN clause is assumed to be a comment.

Explanation

A SIGN clause cannot be specified in an external floating-point item. The SIGN clause is treated as comment, and neither the object file nor the executable file is generated in this case.

JMN2878I-S

[Solaris][Linux]
The host variable of a binary item cannot contain the symbols P and V, and must be 4 or 9 digits.

[Linux64]
The host variable of a binary item cannot contain the symbols P and V, and must be @1@ digits.

Parameter explanation

@1@ : The number of digits that can be specified.

Example

[P2878.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2878.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006     EXEC SQL BEGIN DECLARE SECTION END-EXEC.
000007 01 SQLSTATE    PIC X(5).
000008 01 HVR1        PIC S9(10) BINARY.
000009     EXEC SQL END   DECLARE SECTION END-EXEC.
000010 PROCEDURE      DIVISION.
000011     EXEC SQL
000012       SELECT COL2 INTO :HVR1
000013              FROM T1    WHERE COL1 = 0
000014     END-EXEC
000015 END PROGRAM    P2878.

P2878.cob 8: JMN2878I-S The host variable of a binary item cannot contain the symbols P and V, and must be 4 or 9 digits.

Explanation

When a binary item is declared as a host variable (data description entry of the embedded SQL declare section of the data division), it should be an integer item.

JMN2879I-S

The host variable defined as an alphanumeric item must not exceed @1@ bytes in length.

Parameter explanation

@1@ : 32692.

Example

[P2879.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2879.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006     EXEC SQL BEGIN DECLARE SECTION END-EXEC.
000007 01 SQLSTATE    PIC X(5).
000008 01 HVR1        PIC X(35000).
000009     EXEC SQL END   DECLARE SECTION END-EXEC.
000010 PROCEDURE      DIVISION.
000011     EXEC SQL
000012       SELECT COL2 INTO :HVR1
000013              FROM T1    WHERE COL1 = 0
000014     END-EXEC
000015 END PROGRAM    P2879.

P2879.cob 8: JMN2879I-S The host variable defined as an alphanumeric item must not exceed 32692 bytes in length.

Explanation

When the alphanumeric item is declared as a host variable (data description entry of the embedded SQL declare section of the data division), the length of the item should be 32692 bytes or less.

JMN2880I-S

The number of characters for the host variable defined as a national item cannot exceed @1@.

Parameter explanation

@1@ : 16346.

Example

[P2880.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2880.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006     EXEC SQL BEGIN DECLARE SECTION END-EXEC.
000007 01 SQLSTATE    PIC X(5).
000008 01 HVR1        PIC N(16347).
000009     EXEC SQL END   DECLARE SECTION END-EXEC.
000010 PROCEDURE      DIVISION.
000011     EXEC SQL
000012       SELECT COL2 INTO :HVR1
000013              FROM T1    WHERE COL1 = 0
000014     END-EXEC
000015 END PROGRAM    P2880.

P2880.cob 8: JMN2880I-S The number of characters for the host variable defined as a national item cannot exceed 16346.

Explanation

When a national item is declared as a host variable (data description entry of the embedded SQL declare section of the data division), the number of characters should be 16346 characters or less.

JMN2881I-S

The host variable of an internal decimal item cannot contain the symbol P.

Example

[P2881.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2881.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006     EXEC SQL BEGIN DECLARE SECTION END-EXEC.
000007 01 SQLSTATE    PIC X(5).
000008 01 HVR1        PIC S9(5)P PACKED-DECIMAL.
000009     EXEC SQL END   DECLARE SECTION END-EXEC.
000010 PROCEDURE      DIVISION.
000011     EXEC SQL
000012       SELECT COL2 INTO :HVR1
000013              FROM T1    WHERE COL1 = 0
000014     END-EXEC
000015 END PROGRAM    P2881.

P2881.cob 8: JMN2881I-S The host variable of an internal decimal item cannot contain the symbol P.

Explanation

When a packed decimal item is declared as a host variable (data description entry of the embedded SQL declare section of the data division), the PICTURE character-string does not contain 'P' (symbol that shows the assumed decimal scaling position). The assumed decimal point ('V' of the PICTURE character-string) can be included.

JMN2882I-S

The host variable must be a binary, external decimal, alphanumeric, national, internal float, internal decimal, or fixed length group item.

Example

[P2882.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2882.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006     EXEC SQL BEGIN DECLARE SECTION END-EXEC.
000007 01 SQLSTATE    PIC X(5).
000008 01 HVR1        POINTER.
000009     EXEC SQL END   DECLARE SECTION END-EXEC.
000010 PROCEDURE      DIVISION.
000011     EXEC SQL
000012       SELECT COL2 INTO :HVR1
000013              FROM T1    WHERE COL1 = 0
000014     END-EXEC
000015 END PROGRAM    P2882.

P2882.cob 8: JMN2882I-S The host variable must be a binary, external decimal, alphanumeric, national, internal float, internal decimal, or fixed length group item.

Explanation

The host variable defined by the embedded SQL declare section of the data division is used to store data from the application program in the database and to fetch the data from the database. Host variables must be defined as one of the types allowed in the syntax for host variables.

JMN2883I-S

Items subordinate to a host variable of variable-length string type must be a combination of a signed binary item and either an alphanumeric item or a national item.

Example

[C2883.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    C2883.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE  SECTION.
000006     EXEC SQL BEGIN  DECLARE SECTION END-EXEC.
000007  01  SQLSTATE PIC X(5).
000008  01  HVAR1.
000009    49 HVAR1-LEN PIC  9(9) BINARY.
000010    49 HVAR1-NCH PIC N(16).
000011  01  HVAR2.
000012    49 HVAR2-LEN PIC S9(4) BINARY.
000013    49 HVAR2-CHR PIC  X(8).
000014    49 HVAR2-DEC PIC  9(8).
000015     EXEC SQL  END  DECLARE SECTION END-EXEC.
000016 PROCEDURE  DIVISION.
000017      EXEC  SQL
000018        SELECT CL1,CL2 INTO :HVAR1, :HVAR2  FROM  TBL END-EXEC.

C2883.cob 8: JMN2883I-S Items subordinate to a host variable of variable-length string type must be a combination of a signed binary item and either an alphanumeric item or a national item.

Explanation

A host variable of variable-length string type is a variable for handling variable-length character strings. A host variable of variable-length string type is a group item that has two subordinate items. The data length is stored in a subordinate signed binary item, and the data content is stored in a subordinate alphanumeric item or a subordinate national item. Therefore, it should be a combination of a signed binary item and the alphanumeric item, or a combination of a signed binary item and a national item.

JMN2884I-S

A binary item that is subordinate to a host variable of variable-length string type cannot contain the symbols P and V, and must be 4 or 9 digits.

Example

[P2884.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2884.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006     EXEC SQL BEGIN DECLARE SECTION END-EXEC.
000007 01 SQLSTATE    PIC X(5).
000008 01 GHVR.
000009   49 GHVRL     PIC S9(5) BINARY.
000010   49 GHVRX     PIC X(200).
000011     EXEC SQL END   DECLARE SECTION END-EXEC.
000012 PROCEDURE      DIVISION.
000013     EXEC SQL
000014       SELECT COL2 INTO :GHVR
000015              FROM T1  WHERE COL1 = 0
000016     END-EXEC
000017 END PROGRAM    P2884.

P2884.cob 9: JMN2884I-S A binary item that is subordinate to a host variable of variable-length string type cannot contain the symbols P and V, and must be 4 or 9 digits.

Explanation

The length of variable-length string is stored in the binary item subordinate to the host variable of variable-length string type. This data item should be an integer item, and the number of digits should be 4 or 9.

JMN2885I-S

An alphanumeric item that is subordinate to a host variable of variable-length string type cannot exceed @1@ bytes in length.

Parameter explanation

@1@ : 32688.

Example

[P2885.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2885.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006     EXEC SQL BEGIN DECLARE SECTION END-EXEC.
000007 01 SQLSTATE    PIC X(5).
000008 01 GHVR.
000009   49 GHVRL     PIC S9(4) BINARY.
000010   49 GHVRX     PIC X(32689).
000011     EXEC SQL END   DECLARE SECTION END-EXEC.
000012 PROCEDURE      DIVISION.
000013     EXEC SQL
000014       SELECT COL2 INTO :GHVR
000015              FROM T1  WHERE COL1 = 0
000016     END-EXEC
000017 END PROGRAM    P2885.

P2885.cob 10: JMN2885I-S An alphanumeric item that is subordinate to a host variable of variable-length string type cannot exceed 32688 bytes in length.

Explanation

A character-string is stored in the alphanumeric item subordinate to the host variable of variable-length string type. This item should be 32688 bytes or less.

JMN2886I-S

The number of characters for a national item that is subordinate to a host variable of variable-length string type cannot exceed @1@ characters.

Parameter explanation

@1@ : 16344.

Example

[P2886.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2886.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006     EXEC SQL BEGIN DECLARE SECTION END-EXEC.
000007 01 SQLSTATE    PIC X(5).
000008 01 GHVR.
000009   49 GHVRL     PIC S9(4) BINARY.
000010   49 GHVRX     PIC N(16345).
000011     EXEC SQL END   DECLARE SECTION END-EXEC.
000012 PROCEDURE      DIVISION.
000013     EXEC SQL
000014       SELECT COL2 INTO :GHVR
000015              FROM T1  WHERE COL1 = 0
000016     END-EXEC
000017 END PROGRAM    P2886.

P2886.cob 10: JMN2886I-S The number of characters for a national item that is subordinate to a host variable of variable-length string type cannot exceed 16344 characters.

Explanation

A national character-string is stored in the national item subordinate to the host variable of variable-length string type. This item should be 16344 characters or less.

JMN2888I-W

[Solaris][Linux]
The host variable of a binary item must be 4 or 9 digits. It is accepted as written.

[Linux64]
The host variable of a binary item must be @1@ digits. It is accepted as written.

Parameter explanation

@1@ : The number of digits that can be specified.

Example

[P2888.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2888.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006     EXEC SQL BEGIN DECLARE SECTION END-EXEC.
000007 01 SQLSTATE    PIC X(5).
000008 01 HVR1        PIC S9(5) BINARY.
000009     EXEC SQL END   DECLARE SECTION END-EXEC.
000010 PROCEDURE      DIVISION.
000011     EXEC SQL
000012       SELECT COL2 INTO :HVR1
000013              FROM T1    WHERE COL1 = 0
000014     END-EXEC
000015 END PROGRAM    P2888.

P2888.cob 8: JMN2888I-W The host variable of a binary item must be 4 or 9 digits. It is accepted as written.

JMN2889I-S

When the SIGN clause is specified for a host variable that is a signed external decimal item, LEADING SEPARATE or TRAILING must be specified.

Example

[P2889.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2889.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006     EXEC SQL BEGIN DECLARE SECTION END-EXEC.
000007 01 SQLSTATE    PIC X(5).
000008 01 HVR1        PIC S9(5) SIGN TRAILING SEPARATE.
000009     EXEC SQL END   DECLARE SECTION END-EXEC.
000010 PROCEDURE      DIVISION.
000011     EXEC SQL
000012       SELECT COL2 INTO :HVR1
000013              FROM T1    WHERE COL1 = 0
000014     END-EXEC
000015 END PROGRAM    P2889.

P2889.cob 8: JMN2889I-S When the SIGN clause is specified for a host variable that is a signed external decimal item, LEADING SEPARATE or TRAILING must be specified.

JMN2890I-S

@1@ must be an alphanumeric item of 5 characters.

Parameter explanation

@1@ : SQLSTATE.

Example

[P2890.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2890.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006     EXEC SQL BEGIN DECLARE SECTION END-EXEC.
000007 01  SQLSTATE   PIC X(40).
000008     EXEC SQL END   DECLARE SECTION END-EXEC.
000009 PROCEDURE      DIVISION.
000010     EXEC SQL
000011       SELECT * FROM S1
000012     END-EXEC
000013 END PROGRAM    P2890.

P2890.cob 7: JMN2890I-S SQLSTATE must be an alphanumeric item of 5 characters.

Explanation

The SQLSTATE that stores the exception code generated by the execution of an SQL statement must be declared as a level-number 01 or 77, and it must be a five-digit alphanumeric data item.

JMN2892I-W

The SQLCODE must be a signed binary item of 9 digits and cannot contain symbols P or V. It is accepted as written.

Explanation

The SQLCODE that stores the exception code generated by the execution of an SQL statement must be declared as a level-number 01 or 77, and it must be a nine-digit signed binary integer data item.

JMN2893I-S

@1@ must be a signed binary item of 9 digits and cannot contain the symbols P or V.

Parameter explanation

@1@ : SQLCODE or SQLERRD.

Example

[P2893.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2893.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE  SECTION.
000006     EXEC SQL BEGIN  DECLARE SECTION END-EXEC.
000007  01  SQLSTATE PIC X(5).
000008  01  SQLCODE  PIC  9(9) BINARY.
000009  01  SQLINFOA.
000010   02 SQLERRD  PIC S9(4) BINARY.
000011  01  HVAR1    PIC S9(2)V9(2).
000012  01  HVAR2    PIC  X(8).
000013     EXEC SQL  END  DECLARE SECTION END-EXEC.
000014 PROCEDURE  DIVISION.
000015     EXEC  SQL
000016       SELECT CL1,CL2 INTO :HVAR1, :HVAR2  FROM  TBL
000017     END-EXEC.
000018 END PROGRAM   P2893.

P2893.cob 8: JMN2893I-S SQLCODE must be a signed binary item of 9 digits and cannot contain the symbols P or V.

P2893.cob 10: JMN2893I-S SQLERRD must be a signed binary item of 9 digits and cannot contain the symbols P or V.

Explanation

SQLCODE and SQLERRD are the areas where the exception code is stored when an exception is generated when the embedded SQL statement is executed is received. SQLCODE and SQLERRD should be a nine-digit binary integer item that does not contain P or V.

JMN2895I-S

If a redefined item is a variable-length item, or if a redefining item contains a variable occurrence data item, the offset of this item cannot be determined.

Example

[P2895.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2895.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP1.
000007   02 WITM1     PIC X(20).
000008   02 RITM REDEFINES WITM1.
000009     03         PIC X(1) OCCURS 20
000010                         DEPENDING ON WSIZE.
000011   02 WITM2     PIC X(20).  *> JMN2895I-S
000012 01 WGRP.
000013   02 WITM1.
000014     03         PIC X(1) OCCURS 20
000015                         DEPENDING ON WSIZE.
000016   02 RITM REDEFINES WITM1
000017                PIC X(20).
000018   02 WITM2     PIC X(20).  *> JMN2895I-S
000019 01 WSIZE       PIC S9(4) BINARY.
000020 PROCEDURE      DIVISION.
000021 END PROGRAM    P2895.

P2895.cob 11: JMN2895I-S If a redefined item is a variable-length item, or if a redefining item contains a variable occurrence data item, the offset of this item cannot be determined.

P2895.cob 18: JMN2895I-S If a redefined item is a variable-length item, or if a redefining item contains a variable occurrence data item, the offset of this item cannot be determined.

Explanation

The data item specified in the DEPENDING ON phrase is called a "variable occurrence data item." The area allocated after the variable occurrence data item in a record is called the "variable position in the record." The offset (position allocated in the storage area) of an item on the variable position is fixed at execution time. It is not fixed at compilation time.

JMN2896I-I

A sort-merge file can only specify a file-identifier in an ASSIGN clause. It is accepted as written.

Example

[P2896.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2896.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SRTFILE ASSIGN TO "D:\TMPFILE".
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 SD SRTFILE.
000011 01 SRTFREC.
000012   02           PIC X(80).
000013 WORKING-STORAGE SECTION.
000014 PROCEDURE      DIVISION.
000015 END PROGRAM    P2896.

P2896.cob 10: JMN2896I-I A sort-merge file can only specify a file-identifier in an ASSIGN clause. It is accepted as written.

JMN2897I-S

The FORMATTED RECORD clause cannot be specified for a print file with a FORMAT clause.

Example

[P2897.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2897.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT PRFILE1 ASSIGN TO SYS001
000007       FORMAT         IS WFMT.
000008 I-O-CONTROL.
000009 DATA           DIVISION.
000010 FILE            SECTION.
000011 FD PRFILE1
000012      FORMATTED RECORD IS FMTREC.
000013 01 PRF1REC.
000014   02           PIC X(80).
000015 01 FMTREC      PIC X(80).
000016 WORKING-STORAGE SECTION.
000017 01 WFMT        PIC X(8).
000018 PROCEDURE      DIVISION.
000019 END PROGRAM    P2897.

P2897.cob 12: JMN2897I-S The FORMATTED RECORD clause cannot be specified for a print file with a FORMAT clause.

Explanation

The FORMATED RECORD clause is specific to the OSIV-series.

JMN2898I-S

The host variable of a binary, external decimal, or internal decimal item must contain the symbol S.

Example

[P2898.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2898.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006     EXEC SQL BEGIN DECLARE SECTION END-EXEC.
000007 01 SQLSTATE    PIC X(5).
000008 01 HVR1        PIC 9(9) BINARY.
000009     EXEC SQL END   DECLARE SECTION END-EXEC.
000010 PROCEDURE      DIVISION.
000011     EXEC SQL
000012       SELECT COL2 INTO :HVR1
000013              FROM T1    WHERE COL1 = 0
000014     END-EXEC
000015 END PROGRAM    P2898.

P2898.cob 8: JMN2898I-S The host variable of a binary, external decimal, or internal decimal item must contain the symbol S.

JMN2899I-S

The @1@ clause cannot be specified for a host variable.

Parameter explanation

@1@ : BLANK WHEN ZERO, JUSTIFIED, REDEFINES, SYNCHRONIZED, or OCCURS

Example

[P2899.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2899.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006     EXEC SQL BEGIN DECLARE SECTION END-EXEC.
000007 01 SQLSTATE   PIC X(5).
000008 01 HVAR       PIC X(10) JUSTIFIED.
000009     EXEC SQL END   DECLARE SECTION END-EXEC.
000010 PROCEDURE      DIVISION.
000011     EXEC SQL
000012       SELECT COL1 INTO :HVAR
000013     END-EXEC
000014 END PROGRAM    P2899.

P2899.cob 8: JMN2899I-S The JUSTIFIED clause cannot be specified for a host variable.

Explanation

When either of the following clauses are specified for the host variable, this diagnostic message is output.

  • BLANK WHEN ZERO

  • JUSTIFIED

  • REDEFINES

  • SYNCHRONIZED

  • OCCURS

The output of this diagnostic message is different according to the specification of the SQLGRP/NOSQLGRP compiler option.

  • SQLGRP(default): Only the host variable referred to in the procedure division is checked.

  • NOSQLGRP: All of the host variables defined in the embedded SQL declare section of the data division are checked.

JMN2901I-W

'0' cannot be specified after '+' or '-' following an index-name. It is accepted as written.

Example

[P2901.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2901.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP.
000007   02 WOCC      PIC X(1)
000008                OCCURS 10 INDEXED BY IX1.
000009 PROCEDURE      DIVISION.
000010     MOVE SPACE TO WOCC(IX1 + 0)
000011 END PROGRAM    P2901.

P2901.cob 10: JMN2901I-W '0' cannot be specified after '+' or '-' following an index-name. It is accepted as written.

Explanation

If the operator is "+", the value is obtained by adding the value following operator to the index-name value. If the operator is "-", the value is obtained by subtracting the value following the operator from the index-name value. 0 cannot be specified for a value following the operator.

JMN2902I-S

The '@1@' clause cannot be specified for the record description entry of a sort-merge file.

Parameter explanation

@1@ : CHARACTER TYPE or PRINTING POSITION.

Example

[P2902.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2902.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SRTFILE1 ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 SD SRTFILE1.
000011 01 SRTF1REC CHARACTER  TYPE MODE-1.
000012   02            PIC N(80).
000013 WORKING-STORAGE SECTION.
000014 01 WFS1        PIC X(2).
000015 PROCEDURE      DIVISION.
000016 END PROGRAM    P2902.

P2902.cob 11: JMN2902I-S The 'CHARACTER TYPE' clause cannot be specified for the record description entry of a sort-merge file.

Explanation

The sort-merge file is created internally by the COBOL runtime system. Although at least one record description entry is written after the sort-merge file description entry (level indicator SD), the input-output statement cannot be executed for the sort-merge file.

The CHARACTER TYPE clause or PRINTING POSITION clause specifies information for the print of the record. These clauses cannot be specified for the record description entry of a sort-merge file.

JMN2903I-S

'RECORD CONTAINS 0' cannot be specified in a sort-merge file description entry.

Example

[P2903.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2903.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SRTFILE1 ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 SD SRTFILE1
000011      RECORD CONTAINS 0.
000012 01 SRTF1REC.
000013   02            PIC N(80).
000014 WORKING-STORAGE SECTION.
000015 01 WFS1        PIC X(2).
000016 PROCEDURE      DIVISION.
000017 END PROGRAM    P2903.

P2903.cob 11: JMN2903I-S 'RECORD CONTAINS 0' cannot be specified in a sort-merge file description entry.

JMN2906I-S

Data-name '@1@' in the APPLY SAVED-AREA clause cannot be an external data item. The data-name is ignored.

Parameter explanation

@1@ : Data name that causes the error.

Example

[P2906.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2906.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001
000007       ORGANIZATION   IS SEQUENTIAL.
000008 I-O-CONTROL.
000009     APPLY SAVED-AREA  WSVAR ON SQFILE1.
000010 DATA           DIVISION.
000011 FILE            SECTION.
000012 FD SQFILE1.
000013 01 SQF1REC.
000014   02           PIC X(80).
000015 WORKING-STORAGE SECTION.
000016 01 WSVAR       PIC X(80) IS EXTERNAL.
000017 PROCEDURE      DIVISION.
000018 END PROGRAM    P2906.

P2906.cob 9: JMN2906I-S Data-name 'WSVAR' in the APPLY SAVED-AREA clause cannot be an external data item. The data-name is ignored.

Explanation

The APPLY SAVED-AREA clause guarantees the value of a data item over several conversations. However, the value of the external data item (the item that specifies EXTERNAL clause or item subordinate to it) is not guaranteed.

JMN2907I-S

The SUM clause can only be specified in an external decimal item, alphanumeric item, numeric edited item, alphanumeric edited item, and external floating-point item.

Example

[P2907.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2907.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD SQFILE1
000011       REPORT IS REP1.
000012 WORKING-STORAGE SECTION.
000013 01 CTLD         PIC 9(2).
000014 01 .
000015   02 WITM       PIC 9(2) OCCURS 10.
000016 REPORT          SECTION.
000017 RD REP1 PAGE 66
000018       CONTROL CTLD.
000019 01 TYPE CF CTLD.
000020   02 WSC1      PIC N(4) SUM WITM(2).
000021 PROCEDURE      DIVISION.
000022 END PROGRAM    P2907.

P2907.cob 20: JMN2907I-S The SUM clause can only be specified in an external decimal item, alphanumeric item, numeric edited item, alphanumeric edited item, and external floating-point item.

Explanation

The SUM clause specifies a sum counter. A sum counter is a numeric data item with an operational sign generated by the compiler.

JMN2908I-I

(CONF) The record length is assumed to be the value of the RECORD CONTAINS clause.

Example

[C2908.cob]
000001 @OPTIONS CONF(74)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID. C2908.
000004 ENVIRONMENT DIVISION.
000005 INPUT-OUTPUT SECTION.
000006 FILE-CONTROL.
000007     SELECT AFILE ASSIGN DD1.
000008 DATA DIVISION.
000009 FILE SECTION.
000010   FD AFILE
000011      RECORD CONTAINS 80.
000012   01 RECA.
000013     02 ED001 PIC X(40).
000014   01 RECB.
000015     02 ED002 PIC X(40).
000016 WORKING-STORAGE SECTION.
000017 END PROGRAM C2908.

C2908.cob 10: JMN2908I-I (CONF) The record length is assumed to be the value of the RECORD CONTAINS clause.

Explanation

CONF is effective when a program created according to the existing standard is changed to '85 ANSI COBOL. Specify CONF to indicate incompatibility between the old and new COBOL standards; otherwise, specify NOCONF. The compiler options CONF(68) and CONF(74) are effective only if the compiler option LANGLVL(85) is specified.

JMN2909I-I

(CONF) A relational operator appears just after the word 'NOT' in the abbreviated combined relation condition. The word 'NOT' assumed to be part of the relational operator.

Example

[P2909.cob]
000001 @OPTIONS CONF(68)
000002 IDENTIFICATION      DIVISION.
000003 PROGRAM-ID.         P2909.
000004 ENVIRONMENT         DIVISION.
000005 DATA                DIVISION.
000006 WORKING-STORAGE     SECTION.
000007 01  ED001           PIC 9(4).
000008 01  ED002           PIC 9(4).
000009 01  ED003           PIC 9(4).
000010 01  ED004           PIC 9(4).
000011 PROCEDURE           DIVISION.
000012*
000013     IF  ED001 > ED002 AND
000014                       NOT > ED003 OR ED004
000015         MOVE  ED001 TO ED002.
000016 END PROGRAM         P2909.

P2909.cob 14: JMN2909I-I (CONF) A relational operator appears just after the word 'NOT' in the abbreviated combined relation condition. The word 'NOT' assumed to be part of the relational operator.

Explanation

CONF is effective when a program created according to the existing standard is changed to '85 ANSI COBOL. Specify CONF to indicate incompatibility between the old and new COBOL standards; otherwise, specify NOCONF. The compiler options CONF(68) and CONF(74) are effective only if the compiler option LANGLVL(85) is specified.

JMN2911I-S

A relational operator is not specified or is missing.

Example

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

P2911.cob 19: JMN2911I-S A relational operator is not specified or is missing.

Explanation

One of the following relational operators is specified for the KEY phrase of the START statement.

  • IS EQUAL TO (IS =)

  • IS GREATER THAN (IS >)

  • IS NOT LESS THAN (IS NOT <)

  • IS GREATER THAN OR EQUAL TO (IS >=)

JMN2912I-S

The @1@ phrase of the START statement can only be specified for an indexed organization file.

Parameter explanation

@1@ : USING.

Example

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

P2912.cob 19: JMN2912I-S The USING phrase of the START statement can only be specified for an indexed organization file.

Explanation

An indexed organization file (file-identifier of ASSIGN clause is 'I-name') is specific to the OSIV series.

JMN2916I-S

When a file that is specified as a RELATIVE KEY clause is external, the data item of the RELATIVE KEY clause must be external.

Example

[P2916.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2916.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT RLFILE1 ASSIGN TO SYS001
000007       ORGANIZATION   IS RELATIVE
000008       RELATIVE KEY   IS WRKY.
000009 I-O-CONTROL.
000010 DATA           DIVISION.
000011 FILE            SECTION.
000012 FD RLFILE1 IS EXTERNAL.
000013 01 RLF1REC.
000014   02           PIC X(80).
000015 WORKING-STORAGE SECTION.
000016 01 WRKY        PIC 9(8) BINARY.
000017 PROCEDURE      DIVISION.
000018 END PROGRAM    P2916.

P2916.cob 8: JMN2916I-S When a file that is specified as a RELATIVE KEY clause is external, the data item of the RELATIVE KEY clause must be external.

Explanation

The external file (the file description entry that specifies the EXTERNAL clause) is allocated one storage area, and several programs in a run unit can refer to it.

Records in the relative file are processed by comparing items specified for the RELATIVE KEY clause (relative key items). If the file has an external attribute, the relative key item associated with the file should have the external attribute (the EXTERNAL clause).

JMN2920I-S

A 'CHARACTER TYPE' clause with an OR phrase cannot be specified for an elementary item.

Example

[P2920.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2920.
000003 ENVIRONMENT    DIVISION.
000004 CONFIGURATION   SECTION.
000005 SPECIAL-NAMES.
000006     PRINTING MODE PM1 FOR MOCS
000007     PRINTING MODE PM2 FOR SOCS.
000008 DATA           DIVISION.
000009 WORKING-STORAGE SECTION.
000010 01 WELM        PIC N(10)
000011                CHARACTER TYPE  PM1 OR
000012                                PM2.
000013 PROCEDURE      DIVISION.
000014 END PROGRAM    P2920.

P2920.cob 11: JMN2920I-S A 'CHARACTER TYPE' clause with an OR phrase cannot be specified for an elementary item.

Explanation

The CHARACTER TYPE clause with the OR phrase can be specified only in group items.

JMN2921I-S

Printing-mode-name '@1@' specified in the CHARACTER TYPE clause is undefined or defined multiple times.

Parameter explanation

@1@ : User-defined word that causes the error.

Example

[P2921.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2921.
000003 ENVIRONMENT    DIVISION.
000004 CONFIGURATION   SECTION.
000005 SPECIAL-NAMES.
000006     PRINTING MODE PM1 FOR MOCS
000007     PRINTING MODE PM1 FOR SOCS.
000008 DATA           DIVISION.
000009 WORKING-STORAGE SECTION.
000010 01 WELM        PIC N(10)
000011                CHARACTER TYPE  PM1.
000012 PROCEDURE      DIVISION.
000013 END PROGRAM    P2921.

P2921.cob 11: JMN2921I-S Printing-mode-name 'PM1' specified in the CHARACTER TYPE clause is undefined or defined multiple times.

Explanation

The printing-mode-name must not be associated with a PRINTING MODE clause in the SPECIAL-NAMES paragraph.

JMN2922I-S

A printing-mode-name with a 'FOR ALL' can only be specified for a group, alphabetic, alphanumeric, alphanumeric edited, external decimal, external boolean, external floating point, numeric edited, national, or national edited item.

Example

[P2922.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2922.
000003 ENVIRONMENT    DIVISION.
000004 CONFIGURATION   SECTION.
000005 SPECIAL-NAMES.
000006     PRINTING MODE PM1 FOR ALL.
000007 DATA           DIVISION.
000008 WORKING-STORAGE SECTION.
000009 01 NONDISP     PIC S9(9) BINARY
000010                CHARACTER TYPE PM1.
000011 PROCEDURE      DIVISION.
000012 END PROGRAM    P2922.

P2922.cob 10: JMN2922I-S A printing-mode-name with a 'FOR ALL' can only be specified for a group, alphabetic, alphanumeric, alphanumeric edited, external decimal, external boolean, external floating point, numeric edited, national, or national edited item.

JMN2923I-S

A printing-mode-name with a 'FOR MOCS' can only be specified for a group, national, or national edited item.

Example

[P2923.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2923.
000003 ENVIRONMENT    DIVISION.
000004 CONFIGURATION   SECTION.
000005 SPECIAL-NAMES.
000006     PRINTING MODE PM1 FOR MOCS.
000007 DATA           DIVISION.
000008 WORKING-STORAGE SECTION.
000009 01 NONDISP     PIC S9(9) BINARY
000010                CHARACTER TYPE PM1.
000011 PROCEDURE      DIVISION.
000012 END PROGRAM    P2923.

P2923.cob 10: JMN2923I-S A printing-mode-name with a 'FOR MOCS' can only be specified for a group, national, or national edited item.

JMN2924I-S

A printing-mode-name with 'FOR SOCS' can only be specified for a group, alphabetic, alphanumeric, alphanumeric edited, external decimal, external boolean, external floating point, or numeric edited item.

Example

[P2924.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2924.
000003 ENVIRONMENT    DIVISION.
000004 CONFIGURATION   SECTION.
000005 SPECIAL-NAMES.
000006     PRINTING MODE PM1 FOR SOCS.
000007 DATA           DIVISION.
000008 WORKING-STORAGE SECTION.
000009 01 WDX         PIC N(10)
000010                CHARACTER TYPE PM1.
000011 PROCEDURE      DIVISION.
000012 END PROGRAM    P2924.

P2924.cob 10: JMN2924I-S A printing-mode-name with 'FOR SOCS' can only be specified for a group, alphabetic, alphanumeric, alphanumeric edited, external decimal, external boolean, external floating point, or numeric edited item.

JMN2925I-S

A printing-mode-name with 'FOR ALL' cannot be specified for a CHARACTER TYPE clause with an OR phrase.

Example

[P2925.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2925.
000003 ENVIRONMENT    DIVISION.
000004 CONFIGURATION   SECTION.
000005 SPECIAL-NAMES.
000006     PRINTING MODE PM1 FOR MOCS
000007     PRINTING MODE PM2 FOR ALL.
000008 DATA           DIVISION.
000009 WORKING-STORAGE SECTION.
000010 01 WGRP        CHARACTER TYPE PM1 OR
000011                               PM2.
000012   02 WDX       PIC X(10).
000013   02 WDN       PIC N(10).
000014 PROCEDURE      DIVISION.
000015 END PROGRAM    P2925.

P2925.cob 10: JMN2925I-S A printing-mode-name with 'FOR ALL' cannot be specified for a CHARACTER TYPE clause with an OR phrase.

JMN2926I-S

When two or more printing-mode-names are specified, all FOR phrases for the printing-mode-names must be the same.

Example

[P2926.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2926.
000003 ENVIRONMENT    DIVISION.
000004 CONFIGURATION   SECTION.
000005 SPECIAL-NAMES.
000006     PRINTING MODE PM1 FOR MOCS
000007     PRINTING MODE PM2 FOR SOCS.
000008 DATA           DIVISION.
000009 WORKING-STORAGE SECTION.
000010 01 WGRP        CHARACTER TYPE PM1 PM2
000011                               DEPENDING ON WMODE.
000012   02 WDX       PIC X(10).
000013   02 WDN       PIC N(10).
000014 01 WMODE       PIC S9(4).
000015 PROCEDURE      DIVISION.
000016 END PROGRAM    P2926.

P2926.cob 10: JMN2926I-S When two or more printing-mode-names are specified, all FOR phrases for the printing-mode-names must be the same.

Explanation

If the printing-mode-name is specified two or more times in one CHARACTER TYPE clause, all FOR phrases of the PRINTING MODE clause in the SPECIAL-NAMES paragraph must be same MOCS, SOCS or ALL.

JMN2927I-S

The FOR phrases for printing-mode-names after an OR phrase must be different from those before the OR phrase.

Example

[P2927.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2927.
000003 ENVIRONMENT    DIVISION.
000004 CONFIGURATION   SECTION.
000005 SPECIAL-NAMES.
000006     PRINTING MODE PM1 FOR MOCS
000007     PRINTING MODE PM2 FOR MOCS.
000008 DATA           DIVISION.
000009 WORKING-STORAGE SECTION.
000010 01 WGRP        CHARACTER TYPE PM1 OR
000011                               PM2.
000012   02 WDX       PIC X(10).
000013   02 WDN       PIC N(10).
000014 01 WMODE       PIC S9(4).
000015 PROCEDURE      DIVISION.
000016 END PROGRAM    P2927.

P2927.cob 10: JMN2927I-S The FOR phrases for printing-mode-names after an OR phrase must be different from those before the OR phrase.

Explanation

If the printing-mode-name is specified two or more times in one CHARACTER TYPE clause, all FOR phrases of the PRINTING MODE clause in the SPECIAL-NAMES paragraph must be same MOCS, SOCS or ALL.

JMN2928I-S

A 'CHARACTER TYPE' clause with MODE-1, MODE-2, MODE-3, or a mnemonic-name cannot be specified for a record description entry containing an item that is specified for a 'CHARACTER TYPE' clause with a printing-mode-name.

Example

[P2928.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2928.
000003 ENVIRONMENT    DIVISION.
000004 CONFIGURATION   SECTION.
000005 SPECIAL-NAMES.
000006     PRINTING MODE PM1 FOR MOCS
000007     PRINTING MODE PM2 FOR SOCS.
000008 DATA           DIVISION.
000009 WORKING-STORAGE SECTION.
000010 01 WGRP        CHARACTER TYPE PM1 OR
000011                               PM2.
000012   02 WDX       PIC X(10).
000013   02 WDN       PIC N(10)
000014                CHARACTER TYPE MODE-1.
000015 01 WMODE       PIC S9(4).
000016 PROCEDURE      DIVISION.
000017 END PROGRAM    P2928.

P2928.cob 10: JMN2928I-S A 'CHARACTER TYPE' clause with MODE-1, MODE-2, MODE-3, or a mnemonic-name cannot be specified for a record description entry containing an item that is specified for a 'CHARACTER TYPE' clause with a printing-mode-name.

JMN2930I-S

[Solaris][Linux]
The data-name of the '@2@' phrase in the '@1@' clause must be an integer item defined in the WORKING-STORAGE, FILE, CONSTANT, or LINKAGE SECTION.

[Linux64]
The data-name of the '@2@' phrase in the '@1@' clause must be an integer item defined in the WORKING-STORAGE, LOCAL-STORAGE, FILE, CONSTANT, or LINKAGE SECTION.

Parameter explanation

@1@ : CHARACTER TYPE.

@2@ : DEPENDING ON.

Example

[P2930.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2930.
000003 ENVIRONMENT    DIVISION.
000004 CONFIGURATION   SECTION.
000005 SPECIAL-NAMES.
000006     PRINTING MODE PM1 FOR MOCS
000007     PRINTING MODE PM2 FOR MOCS.
000008 DATA           DIVISION.
000009 WORKING-STORAGE SECTION.
000010 01 WGRP        CHARACTER TYPE PM1 PM2
000011                               DEPENDING ON WMODE.
000012   02 WDX       PIC X(10).
000013   02 WDN       PIC N(10).
000014 01 WMODE       PIC X(4).
000015 PROCEDURE      DIVISION.
000016 END PROGRAM    P2930.
  • [Solaris][Linux]

    P2930.cob 11: JMN2930I-S The data-name of the 'DEPENDING ON' phrase in the 'CHARACTER TYPE' clause must be an integer item defined in the WORKING-STORAGE, FILE, CONSTANT, or LINKAGE SECTION.

  • [Linux64]

    P2930.cob 11: JMN2930I-S The data-name of the 'DEPENDING ON' phrase in the 'CHARACTER TYPE' clause must be an integer item defined in the WORKING-STORAGE, LOCAL-STORAGE, FILE, CONSTANT, or LINKAGE SECTION.

Explanation

When the CHARACTER TYPE clause specifies two or more printing-mode-names and the DEPENDING ON phrase, only the printing-mode-name at the position corresponding to the value of the data item specified for the DEPENDING ON phrase is effective. The data item specified for the DEPENDING ON phrase should be an integer item.

JMN2931I-S

If a CHARACTER TYPE clause with a DEPENDING ON phrase is specified in a record with an external attribute, then the data-name of the 'DEPENDING ON' phrase must also be an item with an external attribute in the same DATA DIVISION.

Example

[P2931.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2931.
000003 ENVIRONMENT    DIVISION.
000004 CONFIGURATION   SECTION.
000005 SPECIAL-NAMES.
000006     PRINTING MODE PM1 FOR MOCS
000007     PRINTING MODE PM2 FOR MOCS.
000008 DATA           DIVISION.
000009 WORKING-STORAGE SECTION.
000010 01 WGRP        EXTERNAL
000011                CHARACTER TYPE PM1 PM2
000012                               DEPENDING ON WMODE.
000013   02 WDX       PIC X(10).
000014   02 WDN       PIC N(10).
000015 01 WMODE       PIC S9(4).
000016 PROCEDURE      DIVISION.
000017 END PROGRAM    P2931.

P2931.cob 12: JMN2931I-S If a CHARACTER TYPE clause with a DEPENDING ON phrase is specified in a record with an external attribute, then the data-name of the 'DEPENDING ON' phrase must also be an item with an external attribute in the same DATA DIVISION.

Explanation

The external data record (data description entry for which the EXTERNAL clause is specified or the item subordinate to it) is allocated one storage area, and several programs in a run unit can refer to it.

When the CHARACTER TYPE clause with the DEPENDING ON phrase is specified in the external data record, the printing-mode-name applied to this record is decided depending on the value of the data item specified in the DEPENDING ON phrase. Thus, the data item specified in DEPENDING ON phrase should have the external attribute.

JMN2932I-S

If a CHARACTER TYPE clause with a DEPENDING ON phrase is specified in a record with a global attribute, then the data-name of the DEPENDING ON phrase must also be an item with a global attribute in the same DATA DIVISION.

Example

[P2932.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2932.
000003 ENVIRONMENT    DIVISION.
000004 CONFIGURATION   SECTION.
000005 SPECIAL-NAMES.
000006     PRINTING MODE PM1 FOR MOCS
000007     PRINTING MODE PM2 FOR MOCS.
000008 DATA           DIVISION.
000009 WORKING-STORAGE SECTION.
000010 01 WGRP        GLOBAL
000011                CHARACTER TYPE PM1 PM2
000012                               DEPENDING ON WMODE.
000013   02 WDX       PIC X(10).
000014   02 WDN       PIC N(10).
000015 01 WMODE       PIC S9(4).
000016 PROCEDURE      DIVISION.
000017 END PROGRAM    P2932.

P2932.cob 12: JMN2932I-S If a CHARACTER TYPE clause with a DEPENDING ON phrase is specified in a record with a global attribute, then the data-name of the DEPENDING ON phrase must also be an item with a global attribute in the same DATA DIVISION.

Explanation

The global data-name (the name of data item that specifies the GLOBAL clause or the item subordinate to it) can be referenced in a program with a defined name and all programs directly or indirectly contained in the defined program.

When the CHARACTER TYPE clause with the DEPENDING ON phrase is specified in the global data, the printing-mode-name applied to this record is decided depending on the value of the data item specified in the DEPENDING ON phrase. Thus, the data item specified in DEPENDING ON phrase should have the global attribute.

JMN2933I-S

The data-name in the CURSOR clause must be defined in the WORKING-STORAGE SECTION, it must be 4 or 6 bytes in length, and its usage must be DISPLAY.

Example

[P2933.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.     P2933.
000003 ENVIRONMENT     DIVISION.
000004 CONFIGURATION   SECTION.
000005 SPECIAL-NAMES.
000006        CURSOR IS CRS1.
000007 DATA            DIVISION.
000008 WORKING-STORAGE SECTION.
000009 01 CRS1         PIC 9(8) USAGE BINARY.
000010 PROCEDURE       DIVISION.
000011 END PROGRAM     P2933.

P2933.cob 6: JMN2933I-S The data-name in the CURSOR clause must be defined in the WORKING-STORAGE SECTION, it must be 4 or 6 bytes in length, and its usage must be DISPLAY.

Explanation

The CURSOR clause specifies a data item for passing the cursor position for an ACCEPT statement of the screen handling module.

JMN2934I-S

The data-name in the CRT STATUS clause must be defined in the WORKING-STORAGE SECTION, and it must be 3 bytes in length.

Example

[P2934.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.     P2934.
000003 ENVIRONMENT     DIVISION.
000004 CONFIGURATION   SECTION.
000005 SPECIAL-NAMES.
000006        CRT STATUS IS CRTST1.
000007 DATA            DIVISION.
000008 WORKING-STORAGE SECTION.
000009 01  CRTST1      PIC X(8).
000010 PROCEDURE       DIVISION.
000011 END PROGRAM     P2934.

P2934.cob 6: JMN2934I-S The data-name in the CRT STATUS clause must be defined in the WORKING-STORAGE SECTION, and it must be 3 bytes in length.

Explanation

The CRT STATUS clause specifies a data item that receives the screen input status of an ACCEPT statement of the screen handling module. A screen input status is a three byte character area used to indicate the result of an execution of an ACCEPT statement.

JMN2935I-W

The JUSTIFIED clause cannot be specified in a screen description entry with a FULL clause. The JUSTIFIED clause is ignored.

Example

[P2935.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.     P2935.
000003 ENVIRONMENT     DIVISION.
000004 DATA            DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 DD   PIC X(2).
000007 SCREEN          SECTION.
000008 01 A    FULL.
000009  02 B  PIC X(8) USING DD
000010            JUSTIFIED.
000011 PROCEDURE       DIVISION.
000012 END PROGRAM     P2935.

P2935.cob 10: JMN2935I-W The JUSTIFIED clause cannot be specified in a screen description entry with a FULL clause. The JUSTIFIED clause is ignored.

Explanation

When inputting data via an ACCEPT statement to a screen item specifying the FULL clause, the cursor is placed in the first character position of the screen item and ACCEPT terminator keystrokes are ignored until the entire screen item is filled. The alignment by the JUSTIFIED clause is not done.

JMN2936I-W

The @1@ clause cannot be specified for an item that has a PICTURE clause with a @2@ phrase. The @1@ clause is ignored.

Parameter explanation

@1@ : AUTO, FULL, or REQUIRED.

@2@ : FROM.

Explanation

An output item is a screen item which specifies a PICTURE clause with only a FROM phrase. The AUTO, FULL, and REQUIRED clauses cannot be specified in an output item because these clauses specify the input attribute of a screen item.

JMN2937I-S

The @1@ clause cannot be specified for an item that has a PICTURE clause with a @2@ phrase.

Parameter explanation

@1@ : PROMPT, SECURE or ZERO-FILL.

@2@ : FROM or USING.

Example

[P2937.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.     P2937.
000003 ENVIRONMENT     DIVISION.
000004 DATA            DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WSOU         PIC X(2).
000007 SCREEN          SECTION.
000008 01 SC1          PIC X(8) USING WSOU SECURE.
000009 PROCEDURE       DIVISION.
000010 END PROGRAM     P2937.

P2937.cob 8: JMN2937I-S The SECURE clause cannot be specified for an item that has a PICTURE clause with a USING phrase.

Explanation

The relationship between the PICTURE (PIC) clause of the elementary screen item (the independent areas on the screen) and the input-output attribute is as follows:

  • Only a TO phrase = An input item

  • Only a FROM phrase = An output item. An output item is a screen area to display data on the screen.

  • USING phrase, or both a FROM phrase and a TO phrase = An update item. An update item is a screen area used to obtain input from and display data upon the screen.

The clause that can be specified is different in the input-output attribute of the screen item.

JMN2938I-S

A BELL, BLANK, COLUMN, LINE, PICTURE or VALUE clause must be specified for the elementary item in the SCREEN SECTION.

Example

[P2938.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.     P2938.
000003 ENVIRONMENT     DIVISION.
000004 DATA            DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WSOU         PIC X(2).
000007 SCREEN          SECTION.
000008 01 SC1          AUTO.
000009 PROCEDURE       DIVISION.
000010 END PROGRAM     P2938.

P2938.cob 8: JMN2938I-S A BELL, BLANK, COLUMN, LINE, PICTURE or VALUE clause must be specified for the elementary item in the SCREEN SECTION.

Explanation

Elementary items in the SCREEN SECTION correspond to various independent areas on the screen. Either the BELL clause, the BLANK LINE clause, the COLUMN NUMBER clause, the LINE NUMBER clause, the PICTURE clause or the VALUE clause must be specified for an elementary item.

JMN2939I-S

The @1@ clause cannot be specified for the group item in the SCREEN SECTION.

Parameter explanation

@1@ : BELL, BLANK, COLUMN NUMBER, ERASE, LINE NUMBER, SIZE or VALUE.

Example

[P2939.cob]
000001 PROGRAM-ID.     P2939.
000002 ENVIRONMENT     DIVISION.
000003 DATA            DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01 WSOU         PIC X(2).
000006 SCREEN          SECTION.
000007 01 SC1 VALUE SPACE.
000008   02 SC1E       PIC X(8)  FROM  WSOU.
000009 PROCEDURE       DIVISION.
000010 END PROGRAM     P2939.

P2939.cob 7: JMN2939I-S The VALUE clause cannot be specified for the group item in the SCREEN SECTION.

Explanation

A clause is specified for the group item that can be specified only for an elementary item.

JMN2940I-S

'@2@' which is specified in @1@ must be an identifier or a literal.

Parameter explanation

@1@ : The FROM phrase of the PICTURE clause or the PROMPT clause.

@2@ : Word that causes the error.

Example

[P2940.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2940.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WTBL.
000007   02 TBL-EL OCCURS 10 INDEXED BY IDX.
000008     03 TBL-EL1    PIC 9(1).
000009     03 TBL-EL2    PIC 9(1).
000010 SCREEN SECTION.
000011 01 SC1          PIC 9(2) FROM IDX.
000012 PROCEDURE      DIVISION.
000013 END PROGRAM    P2940.

P2940.cob 11: JMN2940I-S 'IDX' which is specified in FROM phrase of the PICTURE clause must be an identifier or a literal.

JMN2941I-S

'@2@' that is specified in @1@ must be an identifier.

Parameter explanation

@1@ : TO phrase of PICTURE clause, USING phrase of PICTURE clause or CONTROL clause.

@2@ : Word that causes the error.

Example

[P2941.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2941.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 SCREEN          SECTION.
000006 01 SC1         PIC 9 USING "B".
000007 PROCEDURE      DIVISION.
000008 END PROGRAM    P2941.

P2941.cob 6: JMN2941I-S '"B"' that is specified in USING phrase of the PICTURE clause must be an identifier.

JMN2942I-S

'@2@' that is specified in @1@ must be an identifier or an integer.

Parameter explanation

@1@ : COLUMN NUMBER clause, LINE NUMBER clause or SIZE clause.

@2@ : Word that causes the error.

Example

[P2942.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2942.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WSOU        PIC X(1).
000007 SCREEN          SECTION.
000008 01 SC1         PIC X(1) FROM WSOU
000009                         LINE NUMBER "1".
000010 PROCEDURE      DIVISION.
000011 END PROGRAM    P2942.

P2942.cob 9: JMN2942I-S '"1"' that is specified in LINE NUMBER clause must be an identifier or an integer.

JMN2943I-S

Invalid word '@1@' is found. It is ignored, and the compiler skips to the next valid clause, paragraph, section or division.

Parameter explanation

@1@ : Word that causes the error.

Example

[P2943.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2943.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WSOU1       PIC X(1).
000007 01 WSOU2       PIC X(1).
000008 SCREEN SECTION.
000009 01 SC1         PIC X(1) FROM WSOU1 WSOU2.
000010 PROCEDURE DIVISION.
000011 END PROGRAM    P2943.

P2943.cob 9: JMN2943I-S Invalid word 'WSOU2' is found. It is ignored, and the compiler skips to the next valid clause, paragraph, section or division.

Explanation

This diagnostic message is output when an error is detected while analyzing the SCREEN SECTION of the DATA DIVISION, or while analyzing the PROCEDURE DIVISION header. Please review the syntax.

JMN2944I-S

The right parenthesis of the subscript or reference modification is not specified. It is ignored, and the compiler skips to the next valid clause, paragraph, section or division.

Example

[P2944.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.     P2944.
000003 ENVIRONMENT     DIVISION.
000004 DATA            DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 TBL.
000007   02 TBL1 OCCURS 10 INDEXED BY IX.
000008     03 T-NO     PIC 9(1).
000009 SCREEN          SECTION.
000010 01 SC1          PIC 9(1) FROM T-NO(IX.
000011 PROCEDURE       DIVISION.
000012 END PROGRAM     P2944.

P2944.cob 11: JMN2944I-S The right parenthesis of the subscript or reference modification is not specified. It is ignored, and the compiler skips to the next valid clause, paragraph, section or division.

JMN2945I-S

An integer must be specified after '+' or '-' following the index-name. It is ignored, and the compiler skips to the next valid clause, paragraph, section, or division.

Example

[P2945.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.     P2945.
000003 ENVIRONMENT     DIVISION.
000004 DATA            DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 TBL.
000007   02 TBL1 OCCURS 10 INDEXED BY IX.
000008     03 T-NO     PIC 9(1).
000009 SCREEN          SECTION.
000010 01 SC1          PIC 9(1) FROM T-NO(IX + 1.2).
000011 PROCEDURE       DIVISION.
000012 END PROGRAM     P2945.

P2945.cob 10: JMN2945I-S An integer must be specified after '+' or '-' following the index-name. It is ignored, and the compiler skips to the next valid clause, paragraph, section, or division.

Explanation

If the operator is "+", the value is obtained by adding the value following operator to the index-name value. If the operator is "-", the value is obtained by subtracting the value following the operator from the index-name value.

JMN2946I-S

The subscript must be an arithmetic expression, an index-name with optional +integer or -integer, or 'ALL'. It is ignored, and the compiler skips to the next valid clause, paragraph, section, or division.

Example

[P2946.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.     P2946.
000003 ENVIRONMENT     DIVISION.
000004 DATA            DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 TBL.
000007   02 TBL1 OCCURS 10 INDEXED BY IX.
000008    03 T-NO      PIC 9(1).
000009 SCREEN          SECTION.
000010 01 SC1          PIC 9(1) FROM T-NO("1").
000011 PROCEDURE       DIVISION.
000012 END PROGRAM     P2946.

P2946.cob 10: JMN2946I-S The subscript must be an arithmetic expression, an index-name with optional +integer or -integer, or 'ALL'. It is ignored, and the compiler skips to the next valid clause, paragraph, section, or division.

Explanation

Subscript is the value that represents the table element occurrence number. Subscripting is used when referencing an individual element of a table. A table is a data description entry with the OCCURS clause. Specifying ALL as a subscript passes all of the table elements of the dimension to the function as if they were specified from left to right in the order of occurrence.

JMN2947I-S

The name '@1@' is not unique. It is ignored, and the compiler skips to the next valid clause, paragraph, section or division.

Parameter explanation

@1@ : User-defined word which causes error.

Example

[P2947.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.     P2947.
000003 ENVIRONMENT     DIVISION.
000004 DATA            DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WSOU1        PIC 9(1).
000007 01 WSOU1        PIC 9(1).
000008 SCREEN          SECTION.
000009 01 SC1          PIC 9(1) FROM WSOU1.
000010 PROCEDURE       DIVISION.
000011 END PROGRAM     P2947.

P2947.cob 9: JMN2947I-S The name 'WSOU1' is not unique. It is ignored, and the compiler skips to the next valid clause, paragraph, section or division.

JMN2948I-E

The character that constructs the file-identifier is invalid, or the file-identifier name exceeds 8 characters. The name of file-identifier is assumed to be valid. If the name exceeds 8 characters, the first 8 characters are assumed to be valid.

Example

[P2948.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2948.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO DA_SYS001
000007       ORGANIZATION   IS SEQUENTIAL
000008       FILE STATUS    IS WFS1.
000009 I-O-CONTROL.
000010 DATA           DIVISION.
000011 FILE            SECTION.
000012 FD SQFILE1.
000013 01 SQF1REC.
000014   02           PIC X(80).
000015 WORKING-STORAGE SECTION.
000016 01 WFS1        PIC X(2).
000017 PROCEDURE      DIVISION.
000018 END PROGRAM    P2948.

P2948.cob 6: JMN2948I-E The character that constructs the file-identifier is invalid, or the file-identifier name exceeds 8 characters. The name of file-identifier is assumed to be valid. If the name exceeds 8 characters, the first 8 characters are assumed to be valid.

Explanation

A file-identifier-name is a name for identifying a file on storage medium. The file-identifier-name must be associated with a file-name in the ENVIRONMENT DIVISION FILE-CONTROL entry before the file can be used. The file-identifier-name is a character-string of eight characters or less, composed only of alphabetic characters and numeric characters. The first character of the name should be an alphabetic character.

JMN2949I-S

The file-identifier is invalid.

Example

[P2949.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2949.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT AFILE ASSIGN  ファイル名.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD AFILE.
000010 01 AREC         PIC X(80).
000011 PROCEDURE      DIVISION.
000012 END PROGRAM    P2949.

P2949.cob 6: JMN2949I-S The file-identifier is invalid.

Explanation

A file-identifier-name is a name for identifying a file on storage medium. The file-identifier-name must be associated with a file-name in the ENVIRONMENT DIVISION FILE-CONTROL entry before the file can be used. The file-identifier-name is a character-string of eight characters or less composed only of alphabetic characters and numeric characters. The first character of the name should be an alphabetic character.

JMN2950I-S

[Solaris][Linux]
Identifier '@2@' that is specified in @1@ must be defined in the FILE, WORKING-STORAGE, LINKAGE, BASED-STORAGE or CONSTANT SECTION. Ignored until the next valid clause, paragraph, section or division.

[Linux64]
Identifier '@2@' that is specified in @1@ must be defined in the FILE, WORKING-STORAGE, LOCAL-STORAGE, LINKAGE, BASED-STORAGE or CONSTANT SECTION. Ignored until the next valid clause, paragraph, section or division.

Parameter explanation

@1@ : FROM phrase of the PICTURE clause | PROMPT clause | CONTROL clause | SIZE clause | LINE NUMBER clause | COLUMN NUMBER clause.

@2@ : Word that causes the error.

Example

[P2950.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2950.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT RPT-FILE ASSIGN RPTFILE.
000007 I-O-CONTROL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD RPT-FILE
000011     REPORT IS RPT-1.
000012 REPORT SECTION.
000013 RD RPT-1
000014     PAGE LIMITS ARE 66 LINES.
000015 01 DE01 TYPE IS DE.
000016   02    LINE PLUS 1.
000017     03  COLUMN    1
000018                PIC X(80) VALUE ALL "---+---+".
000019 SCREEN          SECTION.
000020 01 WSC1        PIC X(80) FROM DE01.
000021 PROCEDURE      DIVISION.
000022 END PROGRAM    P2950.
  • [Solaris][Linux]

    P2950.cob 20: JMN2950I-S Identifier 'DE01' that is specified in FROM phrase of the PICTURE clause must be defined in the FILE, WORKING-STORAGE, LINKAGE, BASED-STORAGE or CONSTANT SECTION. Ignored until the next valid clause, paragraph, section or division.

  • [Linux64]

    P2950.cob 20: JMN2950I-S Identifier 'DE01' that is specified in FROM phrase of the PICTURE clause must be defined in the FILE, WORKING-STORAGE, LOCAL-STORAGE, LINKAGE, BASED-STORAGE or CONSTANT SECTION. Ignored until the next valid clause, paragraph, section or division.

JMN2951I-S

[Solaris][Linux]
Identifier '@2@' that is specified in @1@ must be defined in the FILE, WORKING-STORAGE, LINKAGE or BASED-STORAGE SECTION. It is ignored, and the compiler skips to the next valid clause, paragraph, section or division.

[Linux64]
Identifier '@2@' that is specified in @1@ must be defined in the FILE, WORKING-STORAGE, LOCAL-STORAGE, LINKAGE or BASED-STORAGE SECTION. It is ignored, and the compiler skips to the next valid clause, paragraph, section or division.

Parameter explanation

@1@ : TO phrase of PICTURE clause | USING phrase of PICTURE clause.

@2@ : Word which causes error.

Example

[P2951.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2951.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 CONSTANT        SECTION.
000006 01 CONST       PIC 9(2) VALUE 12.
000007 SCREEN SECTION.
000008 01 SC1         PIC 9(2) USING  CONST.
000009 PROCEDURE      DIVISION.
000010 END PROGRAM    P2951.
  • [Solaris][Linux]

    P2951.cob 8: JMN2951I-S Identifier 'CONST' that is specified in USING phrase of the PICTURE clause must be defined in the FILE, WORKING-STORAGE, LINKAGE or BASED-STORAGE SECTION. It is ignored, and the compiler skips to the next valid clause, paragraph, section or division.

  • [Linux64]

    P2951.cob 8: JMN2951I-S Identifier 'CONST' that is specified in USING phrase of the PICTURE clause must be defined in the FILE, WORKING-STORAGE, LOCAL-STORAGE, LINKAGE or BASED-STORAGE SECTION. It is ignored, and the compiler skips to the next valid clause, paragraph, section or division.

JMN2952I-S

The right parenthesis corresponding to the left parenthesis is not specified. It is ignored, and the compiler skips to the next valid clause, paragraph, section or division.

Example

[P2952.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2952.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WBUF        PIC X(20).
000007 01 WOFST       PIC 9(2).
000008 SCREEN SECTION.
000009 01 WSC1        PIC X(2) FROM WBUF((WOFST + 1 : 1) TO WBUF.
000010 PROCEDURE DIVISION.
000011 END PROGRAM    P2952.

P2952.cob 9: JMN2952I-S The right parenthesis corresponding to the left parenthesis is not specified. It is ignored, and the compiler skips to the next valid clause, paragraph, section or division.

JMN2953I-S

The '@1@' clause cannot be specified in a line sequential file.

Parameter explanation

@1@ : LINAGE.

Example

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

P2953.cob 11: JMN2953I-S The 'LINAGE' clause cannot be specified in a line sequential file.

Explanation

The LINAGE clause can be specified for only a print file without a FORMAT clause.

JMN2954I-S

[Solaris][Linux]
The data-name of the ASSIGN clause in file-name '@1@' must be an alphanumeric data-item that is less than 256 characters and defined in the WORKING-STORAGE SECTION or LINKAGE SECTION.

[Linux64]
The data-name of the ASSIGN clause in file-name '@1@' must be an alphanumeric data-item that is less than 256 characters and defined in the WORKING-STORAGE SECTION, LOCAL-STORAGE SECTION or LINKAGE SECTION.

Parameter explanation

@1@ : File name that causes the error.

Example

[P2954.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2954.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO FILENAME
000007       ORGANIZATION   IS SEQUENTIAL.
000008 DATA           DIVISION.
000009 FILE            SECTION.
000010 FD SQFILE1.
000011 01 SQF1REC.
000012   02           PIC X(80).
000013 WORKING-STORAGE SECTION.
000014 01 FILENAME    PIC N(100).
000015 PROCEDURE      DIVISION.
000016 END PROGRAM    P2954.
  • [Solaris][Linux]

    P2954.cob 10: JMN2954I-S The data-name of the ASSIGN clause in file-name 'SQFILE1' must be an alphanumeric data-item that is less than 256 characters and defined in the WORKING-STORAGE SECTION or LINKAGE SECTION.

  • [Linux64]

    P2954.cob 10: JMN2954I-S The data-name of the ASSIGN clause in file-name 'SQFILE1' must be an alphanumeric data-item that is less than 256 characters and defined in the WORKING-STORAGE SECTION, LOCAL-STORAGE SECTION or LINKAGE SECTION.

Explanation

The ASSIGN clause specifies the data-name associates a file-name with a physical file name. The data-name must be initialized with the physical file name before an OPEN statement can be executed.

The value representing the physical file name on the storage medium must be set to the data-name specified for the ASSIGN clause before the execution of the OPEN statement.

JMN2955I-S

The format of the reference modifier is invalid. It is ignored, and the compiler skips to the next valid clause, paragraph, section or division.

Example

[P2955.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2955.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WBUF        PIC X(20).
000007 SCREEN          SECTION.
000008 01 SC1         PIC X(10) FROM WBUF("13":10).
000009 PROCEDURE      DIVISION.
000010 END PROGRAM    P2955.

P2955.cob 8: JMN2955I-S The format of the reference modifier is invalid. It is ignored, and the compiler skips to the next valid clause, paragraph, section or division.

Explanation

Reference modification adds a reference modifier to the data-name or function-identifier. A reference modifier is written as follows:

  • One left parenthesis is written after the data-name or function-name.

  • The arithmetic expression that shows the high-order-end-character-position is described following the left parenthesis.

  • The arithmetic expression is followed by a colon(:).

  • The arithmetic expression that shows length in which the part is referred is described following the colon.

  • The right parenthesis follows the arithmetic expression.

A separator space can be included immediately before or after the colon. The colon must be included, even though the arithmetic expression that shows length can be omitted.

JMN2957I-S

The WITH phrase of the @1@ statement must be C, PASCAL, or STDCALL. The WITH phrase is ignored.

Parameter explanation

@1@ : CALL or ENTRY.

Example

[P2957.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2957.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 PNAME        PIC X(8) VALUE "P2957SUB".
000007 LINKAGE         SECTION.
000008 PROCEDURE      DIVISION.
000009     CALL "TC2CLKCB" WITH COBOL LINKAGE
000010                     USING PANEM.
000011     EXIT PROGRAM.
000012 END PROGRAM    P2957.

P2957.cob 9: JMN2957I-S The WITH phrase of the CALL statement must be C, PASCAL, or STDCALL. The WITH phrase is ignored.

Explanation

The WITH phrase indicates that the object program is called according to the specified calling conventions. If the WITH phrase is omitted, the COBOL calling convention is applied.

JMN2958I-S

The WITH phrase of the PROCEDURE DIVISION must be C, PASCAL, or STDCALL. The WITH phrase is ignored.

Example

[P2958.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.     P2958.
000003 ENVIRONMENT     DIVISION.
000004 DATA            DIVISION.
000005 WORKING-STORAGE SECTION.
000006 LINKAGE         SECTION.
000007 01 PARAM1       PIC X(8).
000008 PROCEDURE       DIVISION
000009                   WITH COBOL LINKAGE
000010                   USING PNAME2.
000011 END PROGRAM     P2958.

P2958.cob 9: JMN2958I-S The WITH phrase of the PROCEDURE DIVISION must be C, PASCAL, or STDCALL. The WITH phrase is ignored.

Explanation

The WITH phrase specifies the calling conventions for a called program. If the WITH phrase is omitted, the COBOL calling conventions are applied.

JMN2959I-S

The WITH phrase of the ENTRY statement must be the same as the WITH phrase of the PROCEDURE DIVISION. It is accepted as written.

Example

[P2959.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2959.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 LINKAGE         SECTION.
000006 01 LK1         PIC X(2).
000007 PROCEDURE      DIVISION
000008                WITH C LINKAGE
000009                USING LK1.
000010     EXIT PROGRAM.
000011*
000012     ENTRY "P2959ENT"
000013           WITH STDCALL.
000014 END PROGRAM    P2959.

P2959.cob 13: JMN2959I-S The WITH phrase of the ENTRY statement must be the same as the WITH phrase of the PROCEDURE DIVISION. It is accepted as written.

Explanation

The calling convention specified in the procedure division header of the outermost program and the calling convention specified in the WITH phrase of the ENTRY statement should be the same in the compilation unit.

JMN2960I-S

The AT phrase and the LINE or COLUMN phrase are mutually exclusive in the @1@ statement. The @2@ phrase is ignored.

Parameter explanation

@1@ : ACCEPT or DISPLAY.

@2@ : AT, LINE or COLUMN.

Example

[P2960.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2960.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 PNAME       PIC X(8) VALUE "P2960".
000007 PROCEDURE      DIVISION.
000008     DISPLAY PNAME AT 1010
000009                   AT LINE NUMBER 12.
000010     EXIT PROGRAM.
000011 END PROGRAM    P2960.

P2960.cob 9: JMN2960I-S The AT phrase and the LINE or COLUMN phrase are mutually exclusive in the DISPLAY statement. The LINE phrase is ignored.

Explanation

AT specifies the location of the item to be input on the physical screen. There are two formats for which the line and the row are specified respectively by the LINE NUBER clause and the COLUMN NUMBER clause, and the format specified by the numeric literal of four digits or six digits that show the line and the row. Both formats cannot be written at the same time.

JMN2961I-S

@2@ can only be specified once in the WITH phrase of the @1@ statement. The WITH phrase is ignored.

Parameter explanation

@1@ : ACCEPT or DISPLAY.

@2@ : AUTO, BACKGROUND-COLOR, BELL, BLANK, FOREGROUND-COLOR, FULL, GRID, HIGHLIGHT, LEFT-JUSTIFY, LEFTLIGHN, LOWLIGHT, OVERLINE, PROMPT, REQURED, REVERSE-VIDEO, RIGHT-JUSTIFY, SECURE, SIZE, SPACE-FILL, TRAILING-SIGN, UNDERLINE, UPDATE or ZERO-FILL.

Example

[P2961.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2961.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 PSTATE       PIC X(8).
000007 LINKAGE         SECTION.
000008 PROCEDURE      DIVISION.
000009     ACCEPT PSTATE WITH BACKGROUND-COLOR IS 0
000010                        FOREGROUND-COLOR IS 1
000011                        BACKGROUND-COLOR IS 3.
000012 END PROGRAM    P2961.

P2961.cob 11: JMN2961I-S BACKGROUND-COLOR can only be specified once in the WITH phrase of the ACCEPT statement. The WITH phrase is ignored.

JMN2962I-S

@2@ and @3@ are mutually exclusive in the WITH phrase of the @1@ statement. The WITH phrase is ignored.

Parameter explanation

@1@ : ACCEPT or DISPLAY.

@2@ : LOWLIGHT, HIGHLIGHT, LEFT-JUSTIFY or RIGHT-JUSTIFY.

@3@ : LOWLIGHT, HIGHLIGHT, LEFT-JUSTIFY or RIGHT-JUSTIFY.

Example

[P2962.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2962.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 PSTATE       PIC X(8).
000007 LINKAGE         SECTION.
000008 PROCEDURE      DIVISION.
000009     ACCEPT  PSTATE AT 1010
000010                    WITH AUTO.
000011     DISPLAY PSTATE WITH LOWLIGHT
000012                         HIGHLIGHT.
000013 END PROGRAM    P2962.

P2962.cob 12: JMN2962I-S HIGHLIGHT and LOWLIGHT are mutually exclusive in the WITH phrase of the DISPLAY statement. The WITH phrase is ignored.

Explanation

The following cannot be specified at the same time in the WITH phrase:

  • HIGHLIGHT and LOWLIGHT

  • LEFT-JUSTIFY and RIGHT-JUSTIFY

JMN2963I-S

@2@ cannot be specified in the WITH phrase of the @1@ statement. @2@ is ignored.

Parameter explanation

@1@ : ACCEPT or DISPLAY.

@2@ : BLANK, AUTO, FULL, LEFT-JUSTIFY, PROMPT, REQUIRED, RIGHT-JUSTIFY, SPACE-FILL, TRAILING-SIGN, UPDATE or ZERO-FILL

Example

[P2963.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2963.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 PSTATE       PIC X(8).
000007 LINKAGE         SECTION.
000008 PROCEDURE      DIVISION.
000009     ACCEPT  PSTATE AT 1010
000010                    WITH AUTO.
000011     DISPLAY PSTATE AT 1010
000012                    WITH AUTO.
000013     EXIT PROGRAM.
000014 END PROGRAM    P2963.

P2963.cob 12: JMN2963I-S AUTO cannot be specified in the WITH phrase of the DISPLAY statement. AUTO is ignored.

Explanation

BLANK cannot be specified in the WITH phrase of the ACCEPT statement of the screen handling module.

The following cannot be specified in the WITH phrase of the DISPLAY statement of the screen handling module:

  • AUTO

  • FULL

  • LEFT-JUSTIFY

  • PROMPT

  • RIGHT-JUSTIFY

  • REQUIRED

  • SECURE

  • SPACE-FILL

  • TRAILING-SIGN

  • UPDATE

  • ZERO-FILL

JMN2964I-S

@2@ is invalid in the WITH clause of the @1@ statement.

Parameter explanation

@1@ : ACCEPT or DISPLAY.

@2@ : BACKGROUND-COLOR, FOREGROUND-COLOR, BLANK, PROMPT or SIZE.

Example

[P2964.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2964.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 PSTATE       PIC X(8).
000007 LINKAGE         SECTION.
000008 PROCEDURE      DIVISION.
000009     DISPLAY PSTATE AT 1010
000010                    WITH BACKGROUND-COLOR .
000011     EXIT PROGRAM.
000012 END PROGRAM    P2964.

P2964.cob 10: JMN2964I-S BACKGROUND-COLOR is invalid in the WITH clause of the DISPLAY statement.

Explanation

This diagnostic message is output in the following cases:

  • The word following BLANK is neither SCREEN nor LINE.

  • The specification of BACKGROUND-COLOR/FOREGROUND-COLOR is not an integer.

  • The word following CONTROL is neither an identifier nor a literal.

  • The word following PROMPT is neither an identifier nor a literal.

  • The word following SIZE is neither an identifier nor an integer.

Please check the syntax.

JMN2965I-S

The @2@ phrase must be CRT in the @1@ statement with an AT, LINE, COLUMN, MODE, or WITH phrase.

Parameter explanation

@1@ : ACCEPT or DISPLAY.

@2@ : FROM or UPON.

Example

[P2965.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2965.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 PSTATE       PIC X(8).
000007 LINKAGE         SECTION.
000008 PROCEDURE      DIVISION.
000009     DISPLAY PSTATE AT 1010
000010                    UPON CONSOLE.
000011 END PROGRAM    P2965.

P2965.cob 10: JMN2965I-S The UPON phrase must be CRT in the DISPLAY statement with an AT, LINE, COLUMN, MODE, or WITH phrase.

JMN2966I-S

The data item in the SCREEN SECTION must be referenced as a data name.

Example

[P2966.cob]
000001 PROGRAM-ID.     P2966.
000002 ENVIRONMENT     DIVISION.
000003 DATA            DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01 WD1          PIC X(2) VALUE "AA".
000006 SCREEN          SECTION.
000007 01  HYO.
000008   02  HYO1      OCCURS 10 TIMES.
000009     03          PIC X(30) USING WD1.
000010 PROCEDURE DIVISION.
000011     DISPLAY HYO1.
000012 END PROGRAM     P2966.

P2966.cob 11: JMN2966I-S The data item in the SCREEN SECTION must be referenced as a data name.

Explanation

This diagnostic message is output when the screen data description entry corresponding to the data-name referred to in the ACCEPT statement or the DISPLAY statement is an item with an OCCURS clause or subordinate to an item with an OCCURS clause.

JMN2970I-S

'@1@’ cannot be used by a PROGRAM DEFINITION that contains the RECURSIVE attribute.

Parameter explanation

@1@ : ACCEPT statement and the DISPLAY statement that is used for screen handling.

Example

[P2970.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  P2970 IS RECURSIVE PROGRAM.
000003 DATA DIVISION.
000004 BASED-STORAGE SECTION.
000005 WORKING-STORAGE SECTION.
000006 01  REC-1.
000007   02  KEY-REC PIC XX.
000008   02  FILLER  PIC X(78).
000009 01  PT POINTER.
000010 PROCEDURE  DIVISION.
000011     ACCEPT  REC-1 FROM CRT.
000012 END PROGRAM  P2970.

P2970.cob 11: JMN2970I-S 'ACCEPT statement and DISPLAY statement for screen handling' cannot be used by a PROGRAM DEFINITION that contains the RECURSIVE attribute.

JMN2971I-S

COBOL words are limited to 30 characters each. The first 30 characters are used as the COBOL word.

Example

[P2971.cob]
000001 @OPTIONS ARITHMETIC(31)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     P2971.
000004 PROCEDURE       DIVISION.
000005     GO TO 1234567890123456789012345678901.
000006 123456789012345678901234567890.
000007 END PROGRAM     P2971.

P2971.cob 5: JMN2971I-S COBOL words are limited to 30 characters each. The first 30 characters are used as the COBOL word.

JMN2985I-S

A 'FROM', 'TO', or 'USING' phrase must be specified in the PICTURE clause of the screen description entry.

Example

[P2985.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.     P2985.
000003 ENVIRONMENT     DIVISION.
000004 DATA            DIVISION.
000005 WORKING-STORAGE SECTION.
000006 SCREEN          SECTION.
000007 01 SC1          PIC X(2).
000008 PROCEDURE       DIVISION.
000009 END PROGRAM     P2985.

P2985.cob 7: JMN2985I-S A 'FROM', 'TO', or 'USING' phrase must be specified in the PICTURE clause of the screen description entry.

Explanation

The PICTURE(PIC) clause in the screen data description entry (the data description entry declared in the SCREEN SECTION) must specify either of TO, FROM, or USING as follows:

  • TO phrase only = Declaration of input item. (An input item is a screen area used to accept data from the screen.)

  • FROM phrase only = Declaration of output item. (An output item is a screen area used to display data on the screen.)

  • USING phrase, or both of FROM phrase and TO phrase = Declaration of update item. (An update item is a screen area used to obtain input from and display data upon the screen.)

JMN2986I-S

The @1@ clause cannot be specified for the numeric item or numeric edited item in the SCREEN SECTION.

Parameter explanation

@1@ : SIZE.

Example

[P2986.cob]
000001 PROGRAM-ID.     P2986.
000002 ENVIRONMENT     DIVISION.
000003 DATA            DIVISION.
000004 WORKING-STORAGE SECTION.
000005 SCREEN           SECTION.
000006 01 SC1          PIC S9(4) SIZE IS 12.
000007 PROCEDURE       DIVISION.
000008 END PROGRAM     P2986.

P2986.cob 6: JMN2986I-S The SIZE clause cannot be specified for the numeric item or numeric edited item in the SCREEN SECTION.

JMN2988I-S

The data-name in the FORMAT clause specified for the presentation file of destination XAP or PRT must be 30 bytes or less in length.

Example

[P2988.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2988.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT PRFILE1 ASSIGN TO GS-S
000007
000008       SYMBOLIC DESTINATION  IS "XAP"
000009       FORMAT         IS WFMT
000010       GROUP          IS WGRP
000011       FILE STATUS    IS WFS1.
000012 I-O-CONTROL.
000013 DATA           DIVISION.
000014 FILE            SECTION.
000015 FD PRFILE1.
000016 01 PRF1REC.
000017   02           PIC X(80).
000018 WORKING-STORAGE SECTION.
000019 01 WFS1        PIC X(2).
000020 01 WFMT        PIC X(31).
000021 01 WGRP        PIC X(8).
000022 PROCEDURE      DIVISION.
000023 END PROGRAM    P2988.

P2988.cob 9: JMN2988I-S The data-name in the FORMAT clause specified for the presentation file of destination XAP or PRT must be 30 bytes or less in length.

JMN2993I-S

STRING statement or UNSTRING statement with CSV-FORMAT/TSV-FORMAT cannot be used when the DECIMAL-POINT IS COMMA clause is specified in the SPECIAL-NAMES paragraph.

Example

[P2993.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2993.
000003 ENVIRONMENT    DIVISION.
000004  CONFIGURATION  SECTION.
000005  SPECIAL-NAMES.
000006          DECIMAL-POINT IS COMMA.
000007 DATA           DIVISION.
000008  WORKING-STORAGE SECTION.
000009  01 WDATA01    PIC X(5).
000010  01 WDATA02    PIC X(5).
000011  01 WDATA03    PIC X(10).
000012  01 WDATA04    PIC 99,99.
000013 PROCEDURE      DIVISION.
000014     STRING WDATA01 WDATA02 INTO WDATA03
000015      BY CSV-FORMAT.
000016 END PROGRAM    P2993.

P2993.cob 14: JMN2993I-S STRING statement or UNSTRING statement with CSV-FORMAT/TSV-FORMAT cannot be used when the DECIMAL-POINT IS COMMA clause is specified in the SPECIAL-NAMES paragraph.

Explanation

Do not use 'DECIMAL-POINT IS COMMA'.

JMN2994I-S

Figurative constants other than SPACE cannot be specified in a STRING statement with CSV-FORMAT or TSV-FORMAT.

Example

[P2994.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2994.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005  WORKING-STORAGE SECTION.
000006  01 WDATA01    PIC X(4).
000007  01 WDATA02    PIC X(8).
000008 PROCEDURE      DIVISION.
000009     STRING WDATA01 ZERO INTO WDATA02
000010      BY CSV-FORMAT.
000011 END PROGRAM    P2994.

P2994.cob 9: JMN2994I-S Figurative constants other than SPACE cannot be specified in a STRING statement with CSV-FORMAT or TSV-FORMAT.

Explanation

The following figurative constants cannot be specified:

  • ZERO

  • HIGH-VALUE

  • LOW-VALUE

  • QUOTE

  • ALL literal

  • symbolic-character

JMN2996I-S

The length of the national item or national edited item defined in Encoding as UTF32 must be less than 536870911 characters. It is taken as 536870911 characters.

Explanation

[p2996.cob]
000001 @OPTIONS ENCODE(UTF8,UTF32)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     P2996.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01 N1           PIC N(536870912).
000008 PROCEDURE       DIVISION.
000009 END PROGRAM     P2996.

C2996.cob 7: JMN2996I-S The length of the national item or national edited item defined in Encoding as UTF32 must be less than 536870911 characters. It is taken as 536870911 characters.

JMN2999I-S

Invalid characters are specified in @1@. This statement is ignored.

Parameter explanation

@1@ : Program-name, entry-name or method-name

Explanation

Only the character expressible by Shift JIS code can be used in the program-name, secondary entry-name or method-name.