The method for modifying HDSYKBAP, which creates the target 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:
//HDSYKBAP JOB (ACCT#),'APPLY BC MANAGER', -----(1) // REGION=0M,CLASS=A, -----(2) // MSGLEVEL=(1,1),MSGCLASS=X,NOTIFY=&SYSUID -----(3) //********************************************************************* //* //* All Rights Reserved. Copyright (C) 2015, 2023, Hitachi, Ltd. //* //********************************************************************* //* //* This JCL executes SMP/E APPLY to create 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=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 APPLY and re-submit the JCL to //* complete. //* //********************************************************************* //APPLY 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 //HDSYLNKD DD DISP=SHR,DSN=&PFX..&VRM..HDSYLNKD //SMPCNTL DD * SET BDY(TGT1). APPLY SELECT( CHYKaaa /*adds the access control of copy groups.*/ -(6) ,CHYKbbb /*adds the access control of commands. */ -(6) ) CHECK -----(7) . /*