MVSFORUMS.com

butta_mvs · Beginner Joined: 17 Aug 2003 Posts: 22 Topics: 18

How to read members of a PDS thruogh COBOL pgm.In my cobol iwant to process all members of PDs.How can i do it.

Babu

raggop · Beginner Joined: 05 Feb 2003 Posts: 19 Topics: 3

Use an utility like IEBPTPCH to dump the PDS members onto a single dataset and then process that dataset thru your Cobol pgm.

raghu

butta_mvs · Beginner Joined: 17 Aug 2003 Posts: 22 Topics: 18

Hi
actually my question is how to access files dynamically in cobol.
for example say a file consists the list of data files.i want to process all these data files.

kolusu · Posted: Mon Mar 01, 2004 2:03 pm Post subject:

butta_mvs,

Cobol does not offer any mechanism to read the PDS members directly. As Raghu mention you can flatten the PDS into a sequential file using IEBPTPCH and read it in your cobol pgm. Search for IEBPTPCH in the JCl forum and you will find example JCL to run IEBPTPCH.

The other option is if you know all the PDS member names then you can simply concatenate them to the Input DD as follows:

superk · Advanced Joined: 19 Dec 2002 Posts: 684 Topics: 5

While Kolusu rests up from his vacation (don't you hate coming back after an extended period of time off), I'd like to offer some suggestions as to how you might approach this problem and come up with a resolution on your own. Since I'm not a programmer, I can't offer much help with specific COBOL code.

I would consider how I could handle this requirement outside of the COBOL environment. Am I familiar with Assembler? The assembler language can read the PDS directory index and easily perform dynamic allocations to specific members within a PDS all day long. Certainly I can easily obtain a member list in a flat-file format (some suggestions have already been given), or I could consider using ISPF Library Management Services that are specifically designed to deal with PDS files (LMMLIST, LMSTATS, etc.).

For dynamic allocation, I could always call a TSO "ALLOC" command and a TSO "FREE" command from virtually any programming environment. I would consider using the "BPXWDYN" dynamic allocation routine (I believe this was originally developed for use in COBOL).

A few items to consider.

ofer71 · Posted: Thu Mar 04, 2004 9:36 am Post subject:

Hi

You can issue the LISTDS TSO command from cobol, using the COB2TSO example.

O.
________
Ford Orion specifications

SureshKumar · Intermediate Joined: 23 Jan 2003 Posts: 211 Topics: 21

Butta_mvs,
You can do this real simple in Cobol if using version COBOL for OS/390 & VM 2.2.2
and above. We now have some pretty cool functions PUTENV & GETENV to allocate and process files dynamically. It also handles PDS very well. I had not tested PDS before but for your requirement I coded one and it looked fine to me. You need to go thru little bit of reading about how to use these dynamic call - look into manuals for LE, its hard to cover different scnarios here. i am just pasing you the concept I picked up from an article in NASPA.com.

Basic requirement

kolusu · Posted: Thu Mar 04, 2004 2:21 pm Post subject:

Butta_mvs,

I completely forgot that I promised to post my cobol code. Sorry about that. Here is a sample cobol code which will read a pds member and just display the contents of the member. You can tweak the program according to your needs.

Phantom · Posted: Thu Jul 29, 2004 2:02 am Post subject:

Hi,

Can someone list down the pros & cons between the two solutions provided above.

1. The one that uses PUTENV (provided by sureshkumar).
2. The one which uses BPXWDYN (calls to SVC99) (provided by Kolusu).

Which one is efficient, secure, reliable. etc.....

Thanks a lot for the help and guidance,
Phantom

kolusu · Posted: Thu Jul 29, 2004 4:31 am Post subject:

Phantom,

On any given day I would prefer BPXWDYN to PUTENV, and I am not telling this because I proposed the solution using BPXWDYN.

some of the reasons as to why I don't prefer PUTENV are:

Phantom · Posted: Thu Jul 29, 2004 7:40 am Post subject:

Thanks for the clarification Kolusu,

Regards,
Phantom

slade · Posted: Thu Jul 29, 2004 6:25 pm Post subject:

You can access a PDS directory from a COBOL pgm. If you provide a DD card using the PDS DSN w/o a member name and open the file in the pgm, you can read the dir blks as a recfm=u PS dataset with a blksize of 256.

Then you can use the BPXWDYN or PUTENV code to process each member found in the directory. I've written COBOL code to do this. If anyone is interested let me know how to contact you and I'll send you a copy.

Regards, Jack.

cobcurious · Beginner Joined: 04 Oct 2003 Posts: 68 Topics: 25

Hi slade,
Can u please send me across the code which you have written ?
Thanks
Cobcurious

naveen_mehatak@hotmail.co · Beginner Joined: 11 Apr 2007 Posts: 6 Topics: 0

kolusu · Posted: Thu Apr 12, 2007 1:10 pm Post subject: