Merge All PDS member

Jake anderson

unread,

May 12, 2014, 9:47:57 AM5/12/14

to

Hello All,

I am looking for a sample REXX code which can merge all the 20 member of a
PDS into 1 member n same PDS.
Could someone share a sample code ?

Jake

----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to LIST...@VM.MARIST.EDU with the message: INFO TSO-REXX

Binyamin Dissen

unread,

May 12, 2014, 10:17:57 AM5/12/14

to

On Mon, 12 May 2014 19:17:41 +0530 Jake anderson <justmai...@GMAIL.COM>
wrote:

:>I am looking for a sample REXX code which can merge all the 20 member of a

:>PDS into 1 member n same PDS.
:>Could someone share a sample code ?

How would you do it in another language?

--
Binyamin Dissen <bdi...@dissensoftware.com>
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel

Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

Lizette Koehler

unread,

May 12, 2014, 10:18:49 AM5/12/14

to

Jake,

What do you mean by MERGE? And why use REXX? What is the problem you are trying to solve?

You can always set up an IEBGENER with SYSUT1 being the input PDS with each MEMBER specified to a SYSUT2 being the output PDS Member you want

//STEP1 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=PDS(MEMB1)
// DD DISP=SHR,DSN=PDS(MEMB2)
.... More member specifications
//SYSUT2 DD DISP=SHR,DSN=NEWPDS(OUTMEMB)
//SYSIN DD DUMMY

Lizette

Robert Zenuk

unread,

May 12, 2014, 10:27:19 AM5/12/14

to

I have a batch REXX EXEC called PDS2SEQ. It is too big to post. If interested, send me a note OFF-LIST and I will send you a copy. I already sent Jake a copy. It uses LMMLIST against a PDSIN DD, accepts all valid ISPF member wildcarding (including "*" for all) and will merge selected members into a sequential output. The SEQOUT DD can be pointed at a new SEQ DSN or a member of any PDS. The second parm is to force IEBUPDTE format.

Here is the sample JCL:

//jobcard...
//PDS2SEQ EXEC PGM=IKJEFT01,PARM='PDS2SEQ * NO'
//*PDS2SEQ EXEC PGM=IKJEFT01,PARM='PDS2SEQ * IEBUPDTE'
//SYSEXEC DD DSN=your.exec.pds,DISP=SHR
//ISPPLIB DD DSN=your.ISPPLIB,DISP=SHR
//ISPSLIB DD DSN=your.ISPSLIB,DISP=SHR
//ISPMLIB DD DSN=you.ISPMLIB,DISP=SHR
//ISPTLIB DD DDNAME=ISPTABL
// DD DSN=SYS1.ISPTLIB,DISP=SHR
//ISPTABL DD LIKE=your.ISPTLIB,UNIT=VIO,DSORG=PO
//ISPPROF DD LIKE=your.ISPTLIB,UNIT=VIO,DSORG=PO
//ISPLOG DD SYSOUT=*,RECFM=VA,LRECL=125
//SYSTSPRT DD SYSOUT=*
//DIAGMSGS DD SYSOUT=*
//SYSTSIN DD DUMMY
//PDSIN DD DSN=input.pds,DISP=SHR
//SEQOUT DD DSN=output.file.or.pds.member,DISP=(,CATLG),DSORG=PS,
// LRECL=80,SPACE=(CYL,(50,1),RLSE)

Rob

-----Original Message-----
From: Jake anderson <justmai...@GMAIL.COM>
To: TSO-REXX <TSO-...@VM.MARIST.EDU>
Sent: Mon, May 12, 2014 6:47 am
Subject: Merge All PDS member

Hello All,
I am looking for a sample REXX code which can merge all the 20 member of a

DS into 1 member n same PDS.

ould someone share a sample code ?
Jake
----------------------------------------------------------------------

or TSO-REXX subscribe / signoff / archive access instructions,

Walter Pachl

unread,

May 12, 2014, 10:28:12 AM5/12/14

to

I had a pair of Rexx programs which helped me carry PDS Contents from TSO to my PC

TSO COLLALL / REXX COLLSEP

Essentially that separated the members with the member names
(that's where Rexx came in)
Also it limited the size of the produced collections.
--
Walter Pachl

Jake anderson

unread,

May 12, 2014, 10:55:24 AM5/12/14

to

Thank you Rob and Walter.

On Mon, May 12, 2014 at 7:57 PM, Walter Pachl
<christel....@chello.at>wrote:

Ze'ev Atlas

unread,

May 12, 2014, 12:01:12 PM5/12/14

to

�I use good old IEBPTPCH
//******************************************************************************
//* IEBPTPCH TO MERGE PDS MEMBERS TO A PS FILE
//******************************************************************************
//STEP01�� EXEC IEBPTPCH
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUT1 DD DSN=INPUT.PDS.FILE,DISP=SHR
//SYSUT2 DD DSN=OUTPUT.PS.FILE,DISP=SHR
//SYSIN DD *
�PRINT TYPORG=PO
/*
//
�

Output contains:
MEMBER NAME MEMBNAME

And could be parsed using the tag�MEMBER NAME�� in first column (unless your members contain this tag

Ze'ev Atlas

�
From: Walter Pachl <christel....@CHELLO.AT>
To: TSO-...@VM.MARIST.EDU
Sent: Monday, May 12, 2014 10:27 AM
Subject: Re: [TSO-REXX] Merge All PDS member

Adrian Stern

unread,

May 12, 2014, 12:05:32 PM5/12/14

to

Walter, ftp will do that for you you know

Adrian G Stern

+44 (0)744 347 3312
adrian...@gmail.com

-----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On Behalf Of Walter Pachl
Sent: den 12 maj 2014 15:27
To: TSO-...@VM.MARIST.EDU
Subject: Re: [TSO-REXX] Merge All PDS member