MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Identifying a VSAM file in a COBOL pgm

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Application Programming
View previous topic :: View next topic  
Author Message
vkphani
Intermediate


Joined: 05 Sep 2003
Posts: 483
Topics: 48

PostPosted: Sat Nov 22, 2003 1:24 am    Post subject: Identifying a VSAM file in a COBOL pgm Reply with quote

Hi,

Assume that a COBOL pgm is accessing a VSAM file.
By looking at that COBOL pgm, how can we know that it is accessing a VSAM file.

Paneendra.
Back to top
View user's profile Send private message Send e-mail
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose

PostPosted: Sat Nov 22, 2003 7:32 am    Post subject: Reply with quote

Paneendra,

VSAM Cluster such as KSDS,RRDS can be easily found from the FD clause in the program.For a RRDS in the FD section you will find

Code:

ORGANIZATION IS RELATIVE
ACCESS IS RANDOM/DYNAMIC


which will will identify the file as VSAM RRDS

Similarly for KSDS you will find

Code:

ORGANIZATION IS INDEXED
ACCESS IS DYNAMIC/RANDOM


But you really cannot identify an ESDS file just by looking at the program. ESDS file has FD section similar to regular sequential file

Code:

ORGANIZATION IS SEQUENTIAL
ACCESS IS SEQUENTIAL


If you have the JCL which is running the program , then look at the properties of the file assigned to the ddname(ASSIGN TO DDNAME) in the program in 3.4 listing.

Hope this helps...

cheers

kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
RonB
Beginner


Joined: 02 Dec 2002
Posts: 93
Topics: 0
Location: Orlando, FL

PostPosted: Sun Nov 23, 2003 3:34 pm    Post subject: Reply with quote

Actually, you can tell if an ESDS file is being used because the SELECT clause must specify ASSIGN TO AS-xxxx ( note the 'AS' prefix on the assign-name ).

Ron
_________________
A computer once beat me at chess, but it was no match for me at kick boxing.
Back to top
View user's profile Send private message
vkphani
Intermediate


Joined: 05 Sep 2003
Posts: 483
Topics: 48

PostPosted: Sun Nov 23, 2003 10:41 pm    Post subject: Reply with quote

Kolusu,

For normal flat file also we can use ORGANIZATION as RELATIVE or SEQUENTIAL.
In that case how can we identify?
Back to top
View user's profile Send private message Send e-mail
slade
Intermediate


Joined: 07 Feb 2003
Posts: 266
Topics: 1
Location: Edison, NJ USA

PostPosted: Mon Nov 24, 2003 3:16 am    Post subject: Reply with quote

Hi Paneendra,

It
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Application Programming All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group