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
 

 

DD name access using multiple logical names

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

New User


Joined: 02 Feb 2010
Posts: 40
Location: Bangalore

PostPosted: Wed Apr 30, 2014 2:45 pm    Post subject: DD name access using multiple logical names
Reply with quote

JCL DD statement.
Code:
//FILE1  DD DSN=HLQ.FILE1,DISP=SHR


Code:
FILE-CONTROL.

SELECT   FILE1-SEQ                    ASSIGN          TO FILE1
                                      ACCESS MODE     IS SEQUENTIAL
                                      ORGANIZATION    IS INDEXED
                                      RECORD KEY      IS FILE1-SEQ-KEY
                                      STATUS          IS FILE1-SEQ-STATUS.

SELECT FILE1-DYN                      ASSIGN          TO FILE1
                                      ACCESS MODE     IS DYNAMIC
                                      ORGANIZATION    IS INDEXED
                                      RECORD KEY      IS FILE1-DYN-KEY         
                                      STATUS          IS FILE1-DYN-STATUS.


Code:
FILE SECTION.

FD   FILE1-SEQ           
     DATA RECORD IS FILE1-SEQ-RECORD.
01   FILE1-SEQ-RECORD.
      10  FILE1-SEQ-KEY       PIC X(09).
      10  FILLER              PIC X(91).

FD  FILE1-DYN           
    DATA RECORD IS FILE1-DYN-RECORD.
01  FILE1-DYN-RECORD.
     10  FILE1-DYN-KEY       PIC X(09).
     10  FILLER              PIC X(91).



Code:
PROCEDURE DIVISION.
 
 OPEN FILE1-SEQ           
 OPEN FILE1-DYN   


Both open were successful.

Also when we perform the read on both files it works correctly. i.e using FILE1-SEQ, you read sequentially and using FILE1-DYN you can read file randomly.

Can anyone help me to understand concept, how this works?
Back to top
View user's profile Send private message

Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8117
Location: East Dubuque, Illinois, USA

PostPosted: Wed Apr 30, 2014 4:17 pm    Post subject:
Reply with quote

What do you not understand? You are accessing the same file multiple times in different ways simultaneously. Nothing different than accessing two different files at the same time. Remember, each file you declare in COBOL has its own record pointer and buffers so FILE1-SEQ and FILE1-DYN are accessing the file independently of one another.

Note that if you update the file you may start experiencing problems.
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 Changeman get multiple "Browse C... elixir1986 Compuware & Other Tools 4 Fri Jul 14, 2017 1:48 am
No new posts How to write Specific Fields from Mul... Padhu SYNCSORT 6 Thu Jul 06, 2017 10:26 am
No new posts RFE: DB2 support for mixed case names. Pedro DB2 0 Tue Jul 04, 2017 1:32 am
No new posts find RACF group for access to spooled... jzhardy JCL & VSAM 1 Mon May 08, 2017 11:46 am
No new posts Unable to create multiple files using... mbattu COBOL Programming 3 Fri May 05, 2017 5:35 pm


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