HDSRS2DF (defining the distribution library and target library)

The following numbers correspond to the numbers appearing on the right side of the sample JCL.

(1) to (3)

Modify the JOB statement in accordance with the installation environment.

(4)

Change the prefix for the SMP/E dataset name, target library name, and distribution library name from HDSRS to HTC1.RS.

(5) to (10)

Change the prefix for the SMP/E dataset name from HDSRS to HTC1.RS.

(11)

Change the volume allocated to SMPTLIB from #smp01 to SMP001.

(12) to (23)

Change the prefix for the target library name from HDSRS to HTC1.RS.

(24) to (29)

Change the prefix of the distribution library name from HDSRS to HTC1.RS.

//HDSRS2DF JOB (ACCT#),'DO THE DDDEFS',                       -----(1)
//             REGION=0M,CLASS=A,                             -----(2)
//             MSGLEVEL=(1,1),MSGCLASS=X,NOTIFY=&SYSUID       -----(3)
//*********************************************************************
//*
//* All Rights Reserved.
//* Copyright (C) 2024, 2026, Hitachi Vantara, Ltd.
//*
//*********************************************************************
//*
//* This JCL executes SMP/E DDDEF for the distribution libraries and
//* the target libraries.
//*
//* Instructions:
//* 1) Modify the JOB statement to match your environment.
//* 2) Modify the following values to match your environment:
//*
//*            Value         Description
//*           --------   --------------------------------
//*           GIMSMP     Installation SMP/E program
//   SET  PFX=HDSRS      Prefix of SMP files                  -----(4)
//   SET  VRM=Vnnnnnn    Second level name (VER REL MOD)
//*           #smp01     DASD volume serial for SMPTLIB
//*
//* 3) Submit the JCL to begin execution of SMP/E DDDEF.
//*
//*********************************************************************
//S1       EXEC PGM=GIMSMP
//SMPCSI   DD  DISP=SHR,DSN=&PFX..SMPCSI.CSI
//SMPOUT   DD  SYSOUT=*
//SMPRPT   DD  SYSOUT=*
//SMPLIST  DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//SMPWRK1  DD  UNIT=SYSDA,
//             SPACE=(3120,(0364,0380,500)),
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)
//SMPWRK2  DD  UNIT=SYSDA,
//             SPACE=(3120,(0364,0380,500)),
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)
//SMPWRK3  DD  UNIT=SYSDA,
//             SPACE=(3120,(0364,0380,500)),
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)
//SMPWRK4  DD  UNIT=SYSDA,
//             SPACE=(3120,(0364,0380,500)),
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)
//SMPWRK6  DD  UNIT=SYSDA,
//             SPACE=(3120,(0364,0380,500)),
//             DCB=(RECFM=FB,BLKSIZE=3120)
//SYSUT1   DD  UNIT=SYSDA,SPACE=(3120,(0380,0760))
//SYSUT2   DD  UNIT=SYSDA,SPACE=(3120,(0380,0760))
//SYSUT3   DD  UNIT=SYSDA,SPACE=(3120,(0380,0760))
//SYSUT4   DD  UNIT=SYSDA,SPACE=(3120,(0038,0100)),
//             DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB)
//* The following data sets would likely be specified in a
//* cataloged procedure customized for a particular customer.
//SMPPTS   DD  DISP=SHR,DSN=&PFX..SMPPTS
//SMPLOG   DD  DISP=MOD,DSN=&PFX..SMPLOG
//SMPLOGA  DD  DISP=MOD,DSN=&PFX..SMPLOGA
//SMPCSI   DD  DISP=SHR,DSN=&PFX..SMPCSI.CSI
//GLOBAL   DD  DISP=SHR,DSN=&PFX..SMPCSI.CSI
//TGT1     DD  DISP=SHR,DSN=&PFX..SMPCSI.CSI
//DLIB1    DD  DISP=SHR,DSN=&PFX..SMPCSI.CSI
//* SMP/E control record input
//SMPCNTL  DD  *
SET        BDY(GLOBAL).
UCLIN.
ADD        GLOBALZONE ZONEINDEX(
           (DLIB1,HDSRS.SMPCSI.CSI,DLIB),                     -----(5)
           (TGT1,HDSRS.SMPCSI.CSI,TARGET))                    -----(6)
           SREL(Z038).
ADD        DDDEF(SMPPTS)
           DA(HDSRS.SMPPTS)                                   -----(7)
           OLD.
ADD        DDDEF(SMPLOG)
           DA(HDSRS.SMPLOG)                                   -----(8)
           MOD.
ADD        DDDEF(SMPLOGA)
           DA(HDSRS.SMPLOGA)                                  -----(9)
           MOD.
ADD        DDDEF(SMPTLIB)
           DSPREFIX(HDSRS.TM)                                 -----(10)
           VOLUME(#smp01)                                     -----(11)
           UNIT(3390)
           CYL
           SPACE(5,5)
           DIR(200)
           DSNTYPE(PDS).
ADD        DDDEF(HDSRSAMT)
           DA(HDSRS.Vnnnnnn.HDSRSAMT)                         -----(12)
           OLD.
ADD        DDDEF(HDSRLNKT)
           DA(HDSRS.Vnnnnnn.HDSRLNKT)                         -----(13)
           OLD.
ADD        DDDEF(HDSRLPAT)
           DA(HDSRS.Vnnnnnn.HDSRLPAT)                         -----(14)
           OLD.
ADD        DDDEF(HDSRPRCT)
           DA(HDSRS.Vnnnnnn.HDSRPRCT)                         -----(15)
           OLD.
ADD        DDDEF(HDSREXET)
           DA(HDSRS.Vnnnnnn.HDSREXET)                         -----(16)
           OLD.
ADD        DDDEF(HDSREXVT)
           DA(HDSRS.Vnnnnnn.HDSREXVT)                         -----(17)
           OLD.
ENDUCL.
SET        BDY(TGT1).
UCLIN.
ADD        TARGETZONE(TGT1)
           RELATED(DLIB1)
           SREL(Z038).
ADD        DDDEF(HDSRSAMT)
           DA(HDSRS.Vnnnnnn.HDSRSAMT)                         -----(18)
           OLD.
ADD        DDDEF(HDSRLNKT)
           DA(HDSRS.Vnnnnnn.HDSRLNKT)                         -----(19)
           OLD.
ADD        DDDEF(HDSRLPAT)
           DA(HDSRS.Vnnnnnn.HDSRLPAT)                         -----(20)
           OLD.
ADD        DDDEF(HDSRPRCT)
           DA(HDSRS.Vnnnnnn.HDSRPRCT)                         -----(21)
           OLD.
ADD        DDDEF(HDSREXET)
           DA(HDSRS.Vnnnnnn.HDSREXET)                         -----(22)
           OLD.
ADD        DDDEF(HDSREXVT)
           DA(HDSRS.Vnnnnnn.HDSREXVT)                         -----(23)
           OLD.
ENDUCL.
SET        BDY(DLIB1).
UCLIN.
ADD        DLIBZONE(DLIB1)
           RELATED(TGT1)
           SREL(Z038).
ADD        DDDEF(HDSRSAMD)
           DA(HDSRS.Vnnnnnn.HDSRSAMD)                         -----(24)
           OLD.
ADD        DDDEF(HDSRLNKD)
           DA(HDSRS.Vnnnnnn.HDSRLNKD)                         -----(25)
           OLD.
ADD        DDDEF(HDSRLPAD)
           DA(HDSRS.Vnnnnnn.HDSRLPAD)                         -----(26)
           OLD.
ADD        DDDEF(HDSRPRCD)
           DA(HDSRS.Vnnnnnn.HDSRPRCD)                         -----(27)
           OLD.
ADD        DDDEF(HDSREXED)
           DA(HDSRS.Vnnnnnn.HDSREXED)                         -----(28)
           OLD.
ADD        DDDEF(HDSREXVD)
           DA(HDSRS.Vnnnnnn.HDSREXVD)                         -----(29)
           OLD.
ENDUCL.
SET        BDY(GLOBAL).
LIST       ALLZONES
           DDDEF.
/*
//