MVSFORUMS.com

[nbdtrjk]

Is there any job that actually opens a PDS and reads all members of PDS (to pick up a certain field from each member in the PDS)

Take a example.
i Have two members(S1 and S2) in S1 i have the value of
A1
A2
A3
B1

In S2 having the value of
B1
B2
B3
A1

I want A1 string to be picked from Only S1 members and B1 string to be picked from S2 members.This what my requirement in a Single JCLs...

[kolusu]

nbdtrjk,

1.Flatten the PDS using IEBPTPCH and then run it thru sort.

2. If your shop has file-aid then you can copy all the members which has the A1, b1 string
[code:1:b99830c4f0]
$$DD01 COPYMEM IF=(1,0,C
_________________
Kolusu
www.linkedin.com/in/kolusu

[semigeezer]

I don't understand the requirement. What causes you to select these things from particular members? Is it because it is the 1st record? The record that preceeds some other value? You need to be much more specific in your requirement.

[Steve Coalbran]

Continuing the assumption that if the first record in any member of your 'from-library' is either A1 or B1 then copy that member to a second 'to-library'...
Use SUPERC - ISPF Option 3.15, run in batch or foreground
I set up a PDS with two members as you defined. Substitute your own input library here.

[kolusu]

Steve Coalbran,

I would add IDPFX option for the SEARCH so that the results have the Name prefixed for all the search strings, so that it is easier to format in rexx.

[Steve Coalbran]

Hi Kolusu,
Thanks - good tip - I hadn't used that one before - I will in future!

/Steve

[Steve Coalbran]

Well, that would also change the solution which is rather more REXXy than before.
Here's a possible exec...