//UNVRECV  JOB CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1),NOTIFY=&SYSUID, 
//             COND=(0,NE),REGION=(0M) 
//********************************************************************* 
//* (C) COPYRIGHT 2000-2020 STONEBRANCH, INC.  ALL RIGHTS RESERVED. 
//* 
//* STONEBRANCH, INC. 
//* UNIVERSAL PRODUCTS 
//* 
//* UNVRECV 
//* 
//* DESCRIPTION 
//* ----------- 
//* PERFORM A TSO RECEIVE ON THE TRANSMITTED DISTRIBUTION DATA SET 
//* AND A DFHSMdss RESTORE TO PREPARE FOR INSTALLATION. 
//* 
//* ALL STEPS MUST END WITH RC 0. 
//* 
//* MODIFICATIONS 
//* ------------- 
//* 1  MODIFY THE JOB STATEMENT TO MEET LOCAL REQUIREMENTS. 
//* 
//* 2  CHANGE ALL '#HLQ' TO THE HIGH-LEVEL QUALIFIER OF THE 
//*    UNIVERSAL PRODUCTS DATA SETS. 
//* 
//* 3  CHANGE ALL '#VOLSER' TO THE VOLUME SERIAL NAME ON WHICH TO 
//*    ALLOCATE THE DISTRIBUTION DATA SETS. 
//********************************************************************* 
//* 
//DEL00    EXEC PGM=IDCAMS 
//SYSPRINT DD SYSOUT=* 
//SYSIN    DD * 
  DELETE #HLQ.UNV.V7R2M0.DIST 
  SET MAXCC=0 
/* 
//* 
//********************************************************************* 
//* RECEIVE DISTRIBUTION FILE 
//********************************************************************* 
//RECV     EXEC PGM=IKJEFT01 
//SYSLBC   DD  DISP=SHR,DSN=SYS1.BRODCAST 
//SYSPROC  DD  DUMMY 
//SYSPRINT DD  SYSOUT=* 
//SYSTSPRT DD  SYSOUT=* 
//SYSTERM  DD  SYSOUT=* 
//SYSTSIN  DD  * 
  RECEIVE INDA('#HLQ.UNV.V7R2M0.DIST.XMIT') 
    DA('#HLQ.UNV. V7R2M0.DIST') + 
    UNIT(SYSALLDA) VOL(#VOLSER) + 
    CYL SPACE(750 100) RELEASE 
/* 
//* 
//DEL01    EXEC PGM=IDCAMS 
//SYSPRINT DD SYSOUT=* 
//SYSIN    DD * 
  DELETE #HLQ.UNV.V7R2M0.INSTALL.UNLD 
  DELETE #HLQ.UNV.V7R2M0.SMPMCS 
  DELETE #HLQ.UNV.V7R2M0.TUAG720.* 
  DELETE #HLQ.UNV.V7R2M0.TUBR720.* 
  DELETE #HLQ.UNV.V7R2M0.TUCM720.* 
  DELETE #HLQ.UNV.V7R2M0.TUDM720.* 
  DELETE #HLQ.UNV.V7R2M0.TUEC720.* 
  DELETE #HLQ.UNV.V7R2M0.TUEM720.* 
  DELETE #HLQ.UNV.V7R2M0.TUNV720.* 
  DELETE #HLQ.UNV.V7R2M0.TUSD620.* 
  DELETE #HLQ.UNV.V7R2M0.TUSP620.* 
  DELETE #HLQ.UNV.V7R2M0.TUTL720.* 
  DELETE #HLQ.UNV.V7R2M0.TUXD720.* 
  DELETE #HLQ.UNV.V7R2M0.UUBR720.* 
  DELETE #HLQ.UNV.V7R2M0.UUCM720.* 
  DELETE #HLQ.UNV.V7R2M0.UUDM720.* 
  DELETE #HLQ.UNV.V7R2M0.UUEM720.* 
  DELETE #HLQ.UNV.V7R2M0.UUNV720.* 
  DELETE #HLQ.UNV.V7R2M0.UUTL720.* 
  SET MAXCC=0 
/* 
//* 
//********************************************************************* 
//* RESTORE BACKUP  
//********************************************************************* 
//RESTORE  EXEC PGM=ADRDSSU 
//IN1      DD DISP=SHR, 
//            DSN=#HLQ.UNV.V7R2M0.DIST 
//OUT1     DD DISP=SHR, 
//            UNIT=SYSALLDA,VOL=SER=#VOLSER 
//SYSPRINT DD SYSOUT=* 
//SYSIN    DD * 
  RESTORE INDD(IN1) - 
          DS(INCL(**)) - 
          OUTDD(OUT1) - 
          CATALOG - 
          RENAMEUNCONDITIONAL(SBI.**,#HLQ.**) 
/* 
//* 
//DEL02    EXEC PGM=IDCAMS 
//SYSPRINT DD SYSOUT=* 
//SYSIN    DD * 
  DELETE #HLQ.UNV.V7R2M0.INSTALL 
  SET MAXCC=0 
/* 
//* 
//********************************************************************* 
//* RELOAD INSTALL JCL LIBRARY FROM SEQUENTIAL BACKUP 
//********************************************************************* 
//RELOAD   EXEC PGM=IEBCOPY 
//IN1      DD DISP=OLD, 
//            DSN=#HLQ.UNV.V7R2M0.INSTALL.UNLD 
//OUT1     DD DSN=#HLQ.UNV.V7R2M0.INSTALL, 
//            DISP=(,CATLG), 
//            DCB=(DSORG=PO,RECFM=FB,LRECL=80,BLKSIZE=3120), 
//            SPACE=(TRK,(15,10,10)), 
//            UNIT=SYSALLDA,VOL=SER=#VOLSER 
//SYSUT3   DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 
//SYSUT4   DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 
//SYSPRINT DD SYSOUT=* 
//SYSIN    DD * 
  COPY I=(IN1),O=OUT1 
/* 
//*