//*
//      SET WORKHLQ=CPSI      <<<<< INPUT HLQ WORK DATASETS
//*
//*
//*     ATTENTION: PLEASE, DO NOT CHANGE THE FOLLOWING LINE!!!
//*
//      SET CLIENT=USCPSI01   <<<<< PLEASE, DO NOT CHANGE!!!
//*
//*
//*************************************************************
//*      DELETE DATASETS                                      *
//*************************************************************
//STEP1  EXEC PGM=IEFBR14
//DEL1   DD DSN=&WORKHLQ..CLIENT.SYSID,
//   DISP=(MOD,DELETE,DELETE),UNIT=SYSDA,SPACE=(TRK,0)
//DEL2   DD DSN=&WORKHLQ..LISTCAT.USERCATS,
//   DISP=(MOD,DELETE,DELETE),UNIT=SYSDA,SPACE=(TRK,0)
//DEL3   DD DSN=&WORKHLQ..LISTCAT.CMDS,
//   DISP=(MOD,DELETE,DELETE),UNIT=SYSDA,SPACE=(TRK,0)
//DEL4   DD DSN=&WORKHLQ..LISTCAT.CLUSTERS,
//   DISP=(MOD,DELETE,DELETE),UNIT=SYSDA,SPACE=(TRK,0)
//DEL5   DD DSN=&WORKHLQ..TURBO.OUTPUT,
//   DISP=(MOD,DELETE,DELETE),UNIT=SYSDA,SPACE=(TRK,0)
//*
//*
//*************************************************************
//*      CREATE REXX ROUTINE TO DISPLAY CLIENT AND SYSID      *
//*************************************************************
//STEP2  EXEC  PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1  DD  *,DLM=AA
/* REXX */
ARG P1
NUMERIC DIGITS 16
CVT_ADDRESS = C2D(STORAGE('10',4))
SMCA_ADDRESS = C2D(STORAGE(D2X(CVT_ADDRESS+X2D('C4')),4))
SMF_SYSID = STORAGE(D2X(SMCA_ADDRESS+X2D('10')),4)
SAY ' CLIENT_ID '||P1
SAY ' SYSID '||SMF_SYSID
EXIT
AA
//SYSUT2  DD DSN=&REXX1(RSYSID),DISP=(NEW,PASS),
//    UNIT=SYSDA,
//    DCB=(LRECL=80,BLKSIZE=80,RECFM=FB,DSORG=PO),
//    SPACE=(CYL,(30,20,1),RLSE)
//SYSIN   DD DUMMY
//*
//*
//*************************************************************
//*      EXECUTE REXX ROUTINE TO DISPLAY CLIENT AND SYSID     *
//*************************************************************
//STEP3  EXEC PGM=IKJEFT01,
//         PARM='RSYSID &CLIENT'
//SYSEXEC DD DSN=&REXX1,DISP=(OLD,DELETE)
//SYSTSPRT DD DSN=&WORKHLQ..CLIENT.SYSID,
//    DISP=(NEW,CATLG,DELETE),
//    UNIT=SYSDA,
//    DCB=(LRECL=133,BLKSIZE=0,RECFM=VBA,DSORG=PS,BUFNO=20),
//    SPACE=(CYL,(30,20),RLSE)
//SYSTSIN  DD DUMMY
//*
//*
//*************************************************************
//*      EXECUTE LISTCAT FOR USERCATALOGS                     *
//*************************************************************
//STEP4    EXEC PGM=IDCAMS
//SYSPRINT DD DSN=&WORKHLQ..LISTCAT.USERCATS,
//    DISP=(NEW,CATLG,DELETE),
//    UNIT=SYSDA,
//    DCB=(LRECL=133,BLKSIZE=0,RECFM=VBA,DSORG=PS,BUFNO=20),
//    SPACE=(CYL,(30,20),RLSE)
//SYSIN       DD *
      LISTCAT USERCATALOG
//*
//*
//*************************************************************
//*      CREATE REXX ROUTINE TO BUILD LISTCAT FOR CLUSTERS    *
//*************************************************************
//STEP5  EXEC  PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1  DD  *,DLM=AA
/* REXX */
ADDRESS TSO
"EXECIO *  DISKR  LISTUC (FINIS STEM LC."
C.1 = ''
I = 0
DO WHILE I < LC.0
   I = I + 1
   SAY 'SUBSTR(LC.I,2,16)=' SUBSTR(LC.I,2,16)
   IF (SUBSTR(LC.I,2,16) = 'USERCATALOG --- ')
   THEN
   DO
     SAY 'GOT IT'
     C.1 = " LISTC CAT('"||STRIP(SUBSTR(LC.I,17,44))||,
           "') CLUSTER DATA INDEX AIX ALL "
     SAY 'C.1=' C.1
     "EXECIO 1 DISKW LISTCMDS (STEM C."
   END
END
EXIT
AA
//SYSUT2  DD DSN=&REXX2(RLISTC),DISP=(NEW,PASS),
//    UNIT=SYSDA,
//    DCB=(LRECL=80,BLKSIZE=80,RECFM=FB,DSORG=PO),
//    SPACE=(CYL,(30,20,1),RLSE)
//SYSIN   DD DUMMY
//*
//*
//*************************************************************
//*      EXECUTE REXX ROUTINE TO BUILD LISCAT FOR CLUSTERS    *
//*************************************************************
//STEP6  EXEC PGM=IKJEFT01,
//         PARM='RLISTC'
//SYSEXEC DD DSN=&REXX2,DISP=(OLD,DELETE)
//LISTUC   DD DSN=&WORKHLQ..LISTCAT.USERCATS,
//    DISP=SHR
//LISTCMDS DD DSN=&WORKHLQ..LISTCAT.CMDS,
//    DISP=(NEW,CATLG,DELETE),
//    UNIT=SYSDA,
//    DCB=(LRECL=133,BLKSIZE=0,RECFM=VBA,DSORG=PS,BUFNO=20),
//    SPACE=(CYL,(30,20),RLSE)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD DUMMY
//*
//*
//*************************************************************
//*      EXECUTE LISTCAT FOR ALL CLUSTERS                     *
//*************************************************************
//STEP7    EXEC PGM=IDCAMS
//SYSPRINT DD DSN=&WORKHLQ..LISTCAT.CLUSTERS,
//    DISP=(NEW,CATLG,DELETE),
//    UNIT=SYSDA,
//    DCB=(LRECL=133,BLKSIZE=0,RECFM=VBA,DSORG=PS,BUFNO=20),
//    SPACE=(CYL,(30,20),RLSE)
//SYSIN    DD DSN=&WORKHLQ..LISTCAT.CMDS,DISP=OLD
//*
//*
//*************************************************************
//*      JOIN SYSID + LISTCATS                                *
//*************************************************************
//STEP8  EXEC  PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD DSN=&WORKHLQ..CLIENT.SYSID,DISP=SHR
//         DD DSN=&WORKHLQ..LISTCAT.USERCATS,DISP=SHR
//         DD DSN=&WORKHLQ..LISTCAT.CLUSTERS,DISP=SHR
//SYSUT2   DD DSN=&WORKHLQ..TURBO.OUTPUT,
//    DISP=(NEW,CATLG,DELETE),
//    UNIT=SYSDA,
//    DCB=(LRECL=133,BLKSIZE=0,RECFM=VBA,DSORG=PS,BUFNO=20),
//    SPACE=(CYL,(30,20),RLSE)
//SYSIN   DD DUMMY