IBM Mainframe Forum

Hi,

One urgent help required.

I need to create a JCL which will receive multiple datasets at one go. (this will be a replace of TSO Receive command). In TSO receive for multiple datasets command need to be executed multiple times.

Can somebody help me out in creating that JCL where using Control Card I can receive multiple datasets, at one go, from another mainframe?

Control card can be used to get the names of the input datasets to be received.

Also another requirement is, the order in which the datasets xmitted, should not affect the order in which it was received. (i.e.) we should be able to receive the datasets in any order.

I have managed to write one where one dataset can be received (as shown below). But can somebody help me out in receiving multiple at one go?

I would be really obliged if somebody can help me on this regard.

//RCVJOB JOB (AYANRCV)
//*
//*
//RECV EXEC PGM=IKJEFT01,DYNAMNBR=20
//DDINP DD DISP=SHR,DSN=HLQ.INPUT.XMIT
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
RECEIVE +
INDDNAME(DDINP) +
NODISPLAY +
NONAMES
DATASET(HLQ.AYAN.TARGET)
/*

The XMIT command will store 1, and only 1, data set in an output data set.

If you want to send multiple data sets in 1 data set, try to use the ADRDSSU DUMP command to generate a container data set containing multiple data sets, XMIT the container data set, then use RECEIVE to restore the container data set, and ADRDSSU to restore the data sets in the container data set.

In fact, follow this script!

• Use ADRDSSU to create the container data set.
• Use TERSE or AMATERSE to compress the ADRDSSU container data set.
• Forget XMIT/RECEIVE, just transport the compressed container data set.
• Use TERSE or AMATERSE to expand the compressed container data set.
• Use ADRDSSU to extract the data sets from the container data set.

I've never tried this. I can imagine all sorts of issues trying to restore data sets that were SMS managed on the source system.

Thanks for your reply Steve.

I basically want to receive multiple PDS.

Can this be done using Control Card? Can the multiple datasets, which will be received, be mentioned in the control card?

You were told quite clearly you cannot do this in quite the way you seem to think it can be done.

If you insist on the XMIT/RECEIVE solution, you must XMIT each PDS data set to a unique container data set, transport each container data set, and then RECEIVE each container data set, one at a time. There is no shortcut.

What's wrong with



And for what it's worth, the XMIT command can store two datasets into an XMIT dataset, the actual data and a message dataset.If you look at XM on "that" system, you'll see that I use this to create a Windows batch file that allows me to restore PDS members with the z/OS date.

steve-myers wrote:The XMIT command will store 1, and only 1, data set in an output data set.

If you want to send multiple data sets in 1 data set, try to use the ADRDSSU DUMP command to generate a container data set containing multiple data sets, XMIT the container data set, then use RECEIVE to restore the container data set, and ADRDSSU to restore the data sets in the container data set.

In fact, follow this script!

• Use ADRDSSU to create the container data set.
• Use TERSE or AMATERSE to compress the ADRDSSU container data set.
• Forget XMIT/RECEIVE, just transport the compressed container data set.
• Use TERSE or AMATERSE to expand the compressed container data set.
• Use ADRDSSU to extract
  the data sets from the container data set.

I've never tried this. I can imagine all sorts of issues trying to restore data sets that were SMS managed on the source system.

Thanks for your input Steve. I have few subsequent questions on this. I know ADRDSSU can dump (copy) multiple datasets into one. But my question is would it be able to do the vice versa, i.e. would ADRDSSU will be able to restore that single datasets into multiple ones? In that case how would I mention separate target dataset so that original ones get restored properly?

When you say transport the dataset are you talking about the following TSO command?
TSO Receive DA('dataset name')

By "transport" I meant some mechanism to copy data; tape, shared DASD, FTP, XMIT via JESx, Network data mover, what have you. There are many choices. XMIT/RECEIVE is OK. I use it quite a bit myself for small data sets, but I do not regard it as very satisfactory for large data sets since it does not compress data.

Recovering a data set from an ADRDSSU dump data set is a matter of running ADRDSSU with the correct control statements. I am not an ADRDSSU expert. Around 1988 it left a very unsatisfactory taste in my mouth, in terms of its capabilities, performance and usability. I custom wrote a program to replace its intended primary use at the time, which was to copy large numbers of sequential data sets. Since then I have avoided it like the plague.

I will concede many of my colleagues in this forum appear to think well of it.

If you use ADRDSSU to dump / copy multiple data sets (sequential, PDS, or VSAM), the original data sets can be restored (individually or in any combination). The restored data sets can retain the original data set names or be given new data set names as needed. The DFSMS bookshelf has a manual on ADRDSSU, giving the MANY options to copy / dump as well as restore data sets. There are some restrictions (for example, note carefully the manual comments on copying the ADRDSSU data set), but overall the utility works quite well -- we used it to create and restore disaster recovery data sets successfully quite a number of times.