Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Regd Dynamic Organization in cobol .

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
sundeep_rajasekaran
Warnings : 1

New User


Joined: 18 Feb 2005
Posts: 14

PostPosted: Fri Feb 18, 2005 1:44 pm    Post subject: Regd Dynamic Organization in cobol .
Reply with quote


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
Back to top
View user's profile Send private message

mmwife

Super Moderator


Joined: 30 May 2003
Posts: 1592

PostPosted: Sun Feb 20, 2005 12:39 am    Post subject:
Reply with quote

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:
Quote:

... it is giving me an error saying that it needs a recording mode of V and primary Key ...
But the msg you quote says the "RECORDING MODE" clause was discarded????

Clarifying these issues may result in some replies of interest to you.
Back to top
View user's profile Send private message
sundeep_rajasekaran
Warnings : 1

New User


Joined: 18 Feb 2005
Posts: 14

PostPosted: Tue Feb 22, 2005 4:36 pm    Post subject: hi MMWIFE.. i got the answer for the query..
Reply with quote

sorry for the vagueness,

Thanks
Sundeep
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts SQL query not working in Cobol program. CuriousMainframer COBOL Programming 14 Wed Feb 22, 2017 5:56 pm
No new posts Execute TSO ACF commands from COBOL-I... supreethi.srid TSO/ISPF 0 Tue Feb 21, 2017 5:19 pm
No new posts Mainframe Interview Questions CICS,CO... akshathan Mainframe Interview Questions 6 Thu Feb 09, 2017 6:38 pm
No new posts Submit job from Cobol with input data abdulrafi COBOL Programming 4 Wed Feb 01, 2017 12:41 pm
No new posts Dynamic array request/response contai... Suja.Sai CICS 2 Tue Jan 24, 2017 11:37 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us