...
| Panel |
|---|
//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
/*
//* |
...