Regd Dynamic Organization in cobol .

sundeep_rajasekaran · New User Joined: 18 Feb 2005 Posts: 14

Hi,

My query is as follows:

I have a file to be accesed whic is of variable length. This was already coded in the program. No when i compile it it, it is giving me an error saying that it needs a recording mode of V and primary Key

THE ERROR MEASSAGE:
A "RECORDING MODE" clause was found for a file that did not have physical "SEQUENTIAL" organization. The "RECORDING MODE" clause was discarded.
The first integer of the "RECORD CONTAINS" clause for file "OPARS-TABLES" was different from the minimum calculated record size 18765. 18765 was assumed as the first integer.

This is the Assigning i have given in the FILE section

SELECT OPARS-TABLES
ORGANIZATION INDEXED
ACCESS DYNAMIC
RECORD KEY OPARS-TABLE-KEY
FILE STATUS WS-OPARS-STATUS
ASSIGN CIAFOPAR.

Ill alos attach the 3 copybooks that it is using:

OPARS6:
01 OPARS6-REC.
05 OPARS6-KEY.
10 OPARS6-FILLER PIC X(01).
10 OPARS6-TABLE-ID PIC X(03).
10 OPARS6-COMPANY-ID.
15 OPARS6-OPERATING-GROUP PIC X(01).
15 OPARS6-CONSOLIDATED-COMPANY PIC X(01).
15 OPARS6-COMPANY-CODE PIC X(01).
10 OPARS6-VERSION PIC X(04).
10 OPARS6-LOCATION-CODE.
15 OPARS6-PLANT-CODE PIC X(04).
15 OPARS6-SUBPLANT-CODE PIC X(03).
10 FILLER PIC X(52).
05 OPARS6-TABLE-HISTORY.
10 OPARS6-ACTION PIC X(01).
10 OPARS6-DATE-ESTABLISHED PIC X(06).
10 OPARS6-LAST-MAINT-DATE PIC X(06).
10 OPARS6-USER-ID PIC X(07).
10 OPARS6-SEQUENTIAL-GROUP-CODE PIC X(03).
10 OPARS6-PREVIOUS-ACTION PIC X(01).
05 OPARS6-FUNCTION.
10 OPARS6-ACT-NMBR-ENTRIES PIC 9(05).
10 OPARS6-SYS-DOC-REFERENCE PIC X(08).
10 OPARS6-USER-DOC-REFERENCE PIC X(12).
10 OPARS6-FUNCTION-FIXED.
15 OPARS6-EXPLODED-HIERARCHY.
20 OPARS6-TABLE-78-KEY.
22 OPARS6-COMPANY-IDX.
25 OPARS6-OPERATING-GROUP PIC X(01).
25 OPARS6-CONSOLIDATED-COMPANY PIC X(01).
25 OPARS6-COMPANY-CODE PIC X(01).
22 OPARS6-LOCATION-CODEX.
25 OPARS6-PLT-CODE PIC X(04).
25 OPARS6-SUBPLT-CODE PIC X(03).
20 OPARS6-OPERATING-REGION PIC X(01).
20 OPARS6-ENTITY-CODE PIC X(02).
20 OPARS6-STATE PIC X(02).
20 OPARS6-JURISDICTION-CODE PIC X(02).
20 OPARS6-OPTION-A PIC X(04).
20 OPARS6-OPTION-B PIC X(04).
20 OPARS6-OPTION-C PIC X(02).
20 OPARS6-REPORTING-REGION PIC X(02).
15 OPARS6-CONTROL-DATES.
20 OPARS6-START-DATE.
25 OPARS6-VERSION-YEAR PIC X(02).
25 OPARS6-VERSION-MONTH PIC X(02).
20 OPARS6-END-DATE.
25 OPARS6-VERSION-YEAR PIC X(02).
25 OPARS6-VERSION-MONTH PIC X(02).
15 OPARS6-NAME-TITLE PIC X(50).

OPARS7:
******************************************************************
* OPARS8 COPYBOOK DEFINES THE FIELDS OF THE OPARS *
* TABLE 8 *
* *
* COPYBOOK : OPARS8 *
* VSAM : VARIABLE LENGTH *
* : A PRIMARY KEY (70) *
* : *
* LRECL : 323 *
* ============================================================== *
******************************************************************
01 OPARS8-REC.
05 OPARS8-KEY.
10 FILLER PIC X(01).
10 OPARS8-TABLE-ID PIC X(03).
10 OPARS8-COMPANY-ID.
15 OPARS8-OPERATING-GROUP PIC X(01).
15 OPARS8-CONSOL-COMPANY PIC X(01).
15 OPARS8-COMPANY-CODE PIC X(01).
10 OPARS8-VERSION PIC X(04).
10 OPARS8-FUNCTION-CODE PIC X(07).
10 FILLER PIC X(52).
05 OPARS8-TABLE-HISTORY.
10 OPARS8-ACTION PIC X(01).
10 OPARS8-DATE-ESTABLISHED PIC X(06).
10 OPARS8-LAST-MAINT-DATE PIC X(06).
10 OPARS8-USER-ID PIC X(07).
10 OPARS8-SEQUENTIAL-GROUP-CODE PIC X(03).
10 OPARS8-PREVIOUS-ACTION PIC X(01).
05 OPARS8-FUNCTION.
10 OPARS8-ACTUAL-NBR-ENTRIES PIC 9(05).
10 OPARS8-SYSTEM-DOC-REFERENCE PIC X(08).
10 OPARS8-USER-DOC-REFERENCE PIC X(12).
10 OPARS8-FUNCTION-FIXED.
15 OPARS8-EXPLODED-ACCOUNT-INFO.
20 OPARS8-ACCOUNT-CODE PIC X(07).
20 OPARS8-FCC-ACCOUNT PIC X(07).
20 OPARS8-PUC-ACCOUNT PIC X(07).
20 OPARS8-SEC-ACCOUNT PIC X(07).
20 OPARS8-ACCOUNT-TYPE PIC X(03).
15 OPARS8-ADDITIONAL-ACCOUNT-INFO.
20 OPARS8-ALLOCATION-SWITCH PIC X(01).
20 OPARS8-USER-REFERENCE PIC X(12).
15 OPARS8-CONTROL-INDICATORS.
20 OPARS8-AMPS-INCLUDE PIC X(01).
20 OPARS8-ARMS-INCLUDE REDEFINES
OPARS8-AMPS-INCLUDE PIC X(01).
20 OPARS8-FILLER REDEFINES
OPARS8-AMPS-INCLUDE PIC X(01).
15 OPARS8-SACS-ACCOUNT PIC X(06).
15 OPARS8-CONTROL-DATES.
20 OPARS8-START-DATE.
25 OPARS8-VERSION-YEAR PIC X(02).
25 OPARS8-VERSION-MONTH PIC X(02).
20 OPARS8-END-DATE.
25 OPARS8-VERSION-YEAR PIC X(02).
25 OPARS8-VERSION-MONTH PIC X(02).
15 OPARS8-COMPANY-VALIDATIONS.
20 OPARS8-REQUIRED-ACTION PIC X(02).
20 OPARS8-COMPANY-VALIDTN OCCURS 30 TIMES
25 OPARS8-CONSOL-COMPANY PIC X(01).
25 OPARS8-COMPANY-CODE PIC X(01).
15 OPARS8-NAME-TITLE PIC X(50).
15 OPARS8-FRS-CONTROL-INDICATORS.
20 OPARS8-SUMMARY-LEVEL-TYPE PIC X(01).
20 OPARS8-SIGN-REVERSAL-IND PIC X(01).
20 OPARS8-INCURRED-DISTRIB-TYPE PIC X(01)
20 OPARS8-ITRS-INCLUDE-IND PIC X(01).
15 OPARS8-PBC-INFO.
20 OPARS8-PBC-SUMMARY-ACCT PIC X(07).
20 OPARS8-PBC-LEAD-SCHEDULE PIC X(05).
20 OPARS8-PBC-SUBLEAD-SCHED PIC X(05).
20 OPARS8-PBC-METHOD-TYPE PIC X(01).
20 OPARS8-PBC-PRELIM-SCOPE PIC 9V99.
20 OPARS8-PBC-FINAL-SCOPE PIC 9V99.
20 OPARS8-PBC-VARIANCE PIC 9V99.
20 OPARS8-PBC-RESPONSE-CODE PIC X(02).

OPARS9:
******************************************************************
* OPARS9 COPYBOOK DEFINES THE FIELDS OF THE OPARS *
* TABLE 9 IN ORDER TO CREATE OLIF4910 - TABLE 110 *
* *
* COPYBOOK : OPARS9 *
* VSAM : VARIABLE LENGTH *
* : A PRIMARY KEY (70) *
* : *
* LRECL : 889 *
* ============================================================== *
* TLR 04/24/97 CR233 ADDED DEFINITION FOR START AND END *
* DATES. *
******************************************************************
01 OPARS9-REC.
05 OPARS9-KEY.
10 FILLER PIC X.
10 OPARS9-TABLE-ID PIC X(03).
10 OPARS9-COMPANY-ID.
15 OPARS9-OPERATING-GROUP PIC X.
15 OPARS9-CONSOLIDATED-COMPANY PIC X.
15 OPARS9-COMPANY-CODE PIC X.
10 OPARS9-VERSION PIC X(04).
10 OPARS9-ORG-ENTITY PIC X(04).
10 FILLER PIC X(55).
05 FILLER PIC X(49).
05 OPARS9-BUDGET-CENTER PIC X(04).
05 OPARS9-CORPORATE-BUDGET-CENTER PIC X(04).
05 FILLER PIC X(04).
05 OPARS9-START-DATE.
10 OPARS9-START-YY PIC X(02).
10 OPARS9-START-MM PIC X(02).
05 OPARS9-END-DATE.
10 OPARS9-END-YY PIC X(02).
10 OPARS9-END-MM PIC X(02).
05 FILLER PIC X(750).

kINDLY LET ME KNOW AS TO HOW TO COMPILE THIS CODE AND WHAT KIND OF ORGANIZATOIN I CAN USE.

Kinldy mail me at sundeep_rajasekaran@infosys.com

mmwife · Super Moderator Joined: 30 May 2003 Posts: 1592

Hi Sundeep,

You didn't provide the JCL (i.e. DD stmt) nor the FD for the file in question. Also OPARS-TABLE-KEY doesn't appear in any of the cbks you provide.
In your 1st sentence you say:

sundeep_rajasekaran · New User Joined: 18 Feb 2005 Posts: 14

sorry for the vagueness,

Thanks
Sundeep