Filter
Top Products
method over the first would be the total flexibility available in creating the tape
input to IEBUPDTE and the JCL necessary to execute this MVS utility. The
advantage of the first method is its ease of implementation.
In order to write an ICCF procedure to create a ″SYSIN″ format tape for the
execution of IEBUPDTE, you will need to answer questions such as the following:
•
How much data will be moved on each execution of the procedure?
•
How large will the new PDS have to be to hold this data?
•
On what device type and volume serial will the PDS reside?
•
What will the data set name be for the new PDS?
•
What block size should be used on the new PDS?
The sample ICCF procedure which follows assumes that you will create a PDS
corresponding to each ICCF library. It therefore unloads a single ICCF library
each time it is invoked. When the procedure is executed you will be prompted for
the ICCF library number you wish to unload, the TSO/E user ID, user-supplied
name, and descriptive qualifier for the data set name of the new PDS, and the
device type and volume serial on which the new PDS will reside. The block size
for the new PDS will be 800 bytes, and 50 tracks with 10 directory blocks will be
used to define the new PDS. The procedure creates an ICCF member named
IEBUPDTE which is a DITTO card to tape job to be submitted to a batch partition
for execution. The tape created by this job will be used on an MVS system to
create a new PDS with the contents of the ICCF library.
Sample ICCF Procedure
************************************************************************
*
* This is an example of an ICCF procedure which could be used to
* create an MVS IEBUPDTE jobstream on tape which will create a PDS
* containing the members from an ICCF library.
*
* It creates an ICCF member named IEBUPDTE which is a DITTO card to
* tape job to be submitted to batch for execution.
*
************************************************************************
/LOAD DTSPROCS
/OPTION SAVE RESET
&&OPTIONS 00000000
&&LABEL TAG1
&&TYPE ENTER THE ICCF LIBRARY NUMBER YOU WISH TO UNLOAD
&&READ &&PARAMS
&&IF &&PARAM1 EQ ′′&&GOTO -TAG1
&&SET &&VARBL1 &&PARAM1
&&SET &&VARBL2 &&USERID
&&SET &&VARBL3 ′ LIB&&PARAM1′
&&SET &&VARBL4 ′ DATA′
&&TYPE ENTER THE TSO/E USER ID FOR THE PDS TO BE CREATED
&&TYPE THE DEFAULT WILL BE &&VARBL2
&&READ &&PARAMS
&&IF &&PARAM1 EQ ′′ &&GOTO TAG2
&&SET &&VARBL2 &&PARAM1
&&LABEL TAG2
&&TYPE ENTER THE USER-SUPPLIED NAME FOR THE PDS TO BE CREATED
&&TYPE THE DEFAULT WILL BE ICCF.&&VARBL3
&&READ &&PARAMS
164 VSE to OS/390 Migration Workbook