HDSYKDAC (creating distribution libraries for REVERSE RESYNC protection function)

The method for modifying HDSYKCAC, which creates the distribution library for the extended access control function, is explained below.

The following numbers correspond to the numbers appearing on the right side of the sample JCL. Modify the underlined parts in the sample JCL as follows:

(1)-(3)

Modify the JOB text to match the installation environment.

(4)

Change the prefix for the dataset name from HDSYK to HTC1.BCM.

(5)

Change the volume allocated to the SMP/E dataset from #smp01 to SMP001.

(6)

When SMP/E ACCEPT is completed successfully, deleted the CHECK operand (changed to a comment) and re-execute the job.

//HDSYKDAC JOB (ACCT#),'ACCEPT BC MANAGER',                   -----(1)
//             REGION=0M,CLASS=A,                             -----(2)
//             MSGLEVEL=(1,1),MSGCLASS=X,NOTIFY=&SYSUID       -----(3)
//*********************************************************************
//*
//* All Rights Reserved. Copyright (C) 2022, 2023, Hitachi, Ltd.
//*
//*********************************************************************
//*
//* This JCL executes SMP/E ACCEPT to create the distribution 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=HDSYK      Prefix of SMP files                  -----(4)
//   SET  VRM=Vnnnnnn    Second level name (VER REL MOD)
//   SET  VSN=#smp01     DASD volume serial for SMPTLIB       -----(5)
//*
//* 3) Submit the JCL and make sure that no error occurs.
//* 4) Remove CHECK operand from ACCEPT and re-submit the JCL to
//*    complete.
//*
//*********************************************************************
//ACCEPT   EXEC PGM=GIMSMP
//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
//SMPTLIB  DD  DISP=SHR,UNIT=3390,VOL=SER=&VSN
//SMPHOLD  DD  DUMMY
//SMPSCDS  DD  DISP=SHR,DSN=&PFX..SMPSCDS
//SMPMTS   DD  DISP=SHR,DSN=&PFX..SMPMTS
//SMPSTS   DD  DISP=SHR,DSN=&PFX..SMPSTS
//SYSLIB   DD  DISP=SHR,DSN=SYS1.MACLIB
//         DD  DISP=SHR,DSN=&PFX..SMPMTS
//HDSYLNKT DD  DISP=SHR,DSN=&PFX..&VRM..HDSYLNKT
//SMPCNTL  DD  *
SET        BDY(DLIB1).
ACCEPT     SELECT(
              CHYKccc  /* adds the reverse resync protect function. */
                 )                            
           CHECK                                              -----(6)
           .
/*