This sample job allocates a small-data-set-packing (SDSP) data
set. Ensure that the following parameters are changed. Refer to
Figure 1 for an example listing of the ALLOSDSP
member.
- Parameter
- Description
- ?SDSPCIS
- Defines the control interval size value for the data component
of the SDSP data set.
- ?SDSPUNT
- Defines the unit type of the migration level 1 volume for the
SDSP data set.
- ?SDSPVOL
- Defines the volume serial number of the migration level 1 volume
for the SDSP data set.
- ?UCATNAM
- Defines the name and password of the user catalog for the DFSMShsm data
sets.
- ?UID
- Defines the authorized user ID for the DFSMShsm-started
procedure. An authorized user ID must be from 1 to 7 characters long.
This ID is also used as the high-level qualifier for the DFSMShsm-managed
data sets.
Figure 1. Example Listing
of Member ALLOSDSP Part 1 of 2//ALLOSDSP JOB ?JOBPARM
//*
//*****************************************************************/
//* THIS SAMPLE JOB DEFINES AND INITIALIZES A SMALL-DATA-SET- */
//* PACKING DATA SET ON A MIGRATION LEVEL 1 VOLUME. */
//* */
//* THE DATA SET NAME IS REQUIRED TO BE ?UID.SMALLDS.V?SDSPVOL */
//* WHERE ?UID IS THE AUTHORIZED DFSMSHSM USER ID AND WHERE */
//* ?SDSPVOL IS THE VOLUME SERIAL NUMBER OF A MIGRATION LEVEL 1 */
//* VOLUME. */
//* */
//* (NOTE: UID AUTHORIZATION IS VALID IN A NON-FACILITY CLASS *//
//* ENVIRONMENT ONLY, OTHERWISE, FACILITY CLASS PROFILES WILL BE *//
//* USED FOR AUTHORIZATION CHECKING.) *//
//* */
//* */
//* AFTER YOU ALLOCATE THE SMALL-DATA-SET-PACKING DATA SET ON A */
//* MIGRATION LEVEL 1 VOLUME, YOU MUST SPECIFY THE */
//* SMALLDATASETPACKING PARAMETER ON THE SETSYS COMMAND IN THE */
//* ARCCMD__ PARMLIB MEMBER AND ON THE ADDVOL COMMAND FOR THE */
//* VOLUME THAT CONTAINS THE SMALL-DATA-SET-PACKING DATA SET. */
//* */
//* CHANGE THE PARAMETERS LISTED BELOW TO VALID VALUES FOR YOUR */
//* SYSTEM. */
//*****************************************************************/
//* PARAMETER - PARAMETER DESCRIPTION
//*
//* ?SDSPCIS - CONTROL INTERVAL SIZE VALUE FOR THE DATA COMPONENT
//* OF THE SDSP DATA SET. IF THE SDSP UNIT TYPE IS
//* 3350, REPLACE ?SDSPCIS WITH 16384. IF THE SDSP
//* UNIT TYPE IS 3380, REPLACE WITH 20480.
//* IF THE SDSP UNIT TYPE IS 3390, REPLACE WITH 26624.
//* ?SDSPUNT - UNIT TYPE FOR MIGRATION LEVEL 1 VOLUME TO
//* CONTAIN SMALL-DATA-SET-PACKING DATA SET.
//* ?SDSPVOL - VOLUME SERIAL OF THE MIGRATION LEVEL 1 VOLUME
//* TO CONTAIN SMALL-DATA-SET-PACKING DATA SET.
//* ?UID - AUTHORIZED USER ID (1 TO 7 CHARS) FOR THE DFSMShsm
//* START PROCEDURE, IN A NON FACILITY CLASS ENVIRONMENT.
//* USED AS THE HIGH-LEVEL QUALIFIER OF DFSMSHSM
//* DATA SETS.
//*
//* NOTE: ENSURE THAT THE SMALL-DATA-SET-PACKING DATA SET
//* IS NOT ALLOCATED ON AN SMS VOLUME. THE DATA SET
//* SHOULD BE DEFINED IN A STORAGE CLASS FILTER TO
//* EXCLUDE IT FROM AN SMS VOLUME AS THE OTHER DFSMShsm
//* DATA SETS ARE.
//*****************************************************************/
Figure 2. Example Listing of Member
ALLOSDSP Part 2 of 2//*****************************************************************/
//* CREATE A ONE-RECORD, SEQUENTIAL DATA SET TO BE USED LATER TO */
//* PRIME VSAM CLUSTERS DEFINED FOR DFSMSHSM. */
//*****************************************************************/
//*
//IEBDG EXEC PGM=IEBDG
//SYSPRINT DD SYSOUT=*
//PRIMER DD DSN=?UID.SDSP.PRIMER,DISP=(NEW,CATLG),UNIT=SYSDA,
// DCB=(RECFM=F,LRECL=200,BLKSIZE=200),SPACE=(TRK,(1))
//SYSIN DD *
DSD OUTPUT=(PRIMER)
FD NAME=A,LENGTH=44,STARTLOC=1,PICTURE=44, X
'Z9999999999999999999999999999999999999999999'
CREATE NAME=A
END
//STEP1 EXEC PGM=IDCAMS,REGION=512K
//SYSPRINT DD SYSOUT=*
//INPRIMER DD DSN=?UID.SDSP.PRIMER,DISP=(OLD,DELETE)
//SDSP1 DD UNIT=?SDSPUNT,VOL=SER=?SDSPVOL,DISP=SHR
//SYSIN DD *
DEFINE CLUSTER (NAME(?UID.SMALLDS.V?SDSPVOL) VOLUMES(?SDSPVOL) -
CYLINDERS(5 0) FILE(SDSP1) -
RECORDSIZE(2093 2093) FREESPACE(0 0) -
INDEXED KEYS(45 0) -
SPEED BUFFERSPACE(530432) -
UNIQUE NOWRITECHECK) -
DATA -
(CONTROLINTERVALSIZE(?SDSPCIS)) -
INDEX -
(CONTROLINTERVALSIZE(1024))
REPRO ODS('?UID.SMALLDS.V?SDSPVOL') INFILE(INPRIMER)