Compare PS and PDS and write Matched members to a PDS

brahmanandarm · New User Joined: 15 Jun 2009 Posts: 28 Location: bangalore

Hi All,

(1)I have a PS of record lenght 8 (Member names)
Record format . . . : FB
Record length . . . : 8
Example of member names
ABCLOAD1
XYZLOAD2
FDALOAD2
ACNDBIND
COMPSORT
SORTJCLD

(2)I have a PDS of Members.
Record format . . . : FB
Record length . . . : 80
Example of PDS members
ABCLOAD1
XYZLOAD2
FDALOAD2
ACNDBIND
COMPSORT
SORTJCLD

I need to compare (1)file(PS) with (2)file(PDS) and write the matched members to (3) New PDS.

Escapa · Posted: Mon Mar 15, 2010 3:04 pm

below rexx code will give the members of the pds in stem

superk · Posted: Mon Mar 15, 2010 3:14 pm

Sambhaji, I think the OP just wants to compare two lists of member names and write only the names that match to the output.

Escapa · Posted: Mon Mar 15, 2010 3:35 pm

brahmanandarm · New User Joined: 15 Jun 2009 Posts: 28 Location: bangalore

Hi All,

I am new to Rexx

Can you give the JCL

As stated about
Input
File1_PS: ABC.Members.PS
File2_PDS: ABC.Members.PDS

OPUTPUT:
File3_PDS: ABC.Members.PDS.NEW.

Note: I would need the Matched members to be copied from (File2) to (File3) PDS.

superk · Posted: Mon Mar 15, 2010 4:14 pm

brahmanandarm, I don't understand why you're talking about REXX. Is there a reason why you can't just create a single IEBCOPY to copy all of the members shown in FILE1 from FILE2 to FILE3. Any unmatched member just won't be copied.