//
//
//
//***************************************************************
//VERIFY EXEC PGM=IDCAMS
//*---------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//*:
//SYSPRINT DD SYSOUT=&OUT
//PAC7AE
//PAC7AN
//PAC7AR
//PAC7AY
//SYSIN
//
//
//
//PTU918 EXEC PGM=BVPTU918
//*-----------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//*:
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
//
//SYSOUT
//SYSOUX
//SYSPRINT DD SYSOUT=&OUT
//SYSUDUMP DD SYSOUT=&OUT
//PAC7AE
//ANLSR
//PAC7AN
//ARLSR
//PAC7AR
//AYLSR
//PAC7AY
//PAC7PJ
//PAC7JP
//
//
//PAC7ET
Reprise du fichier PP (PP25)
PP25 - Présentation générale
Principe
Cette procédure permet de reprendre le fichier PP image séquentielle de
l'environnement de production (PEI) de la version 2.0 ou 2.5 et met à jour la
Base de Développement de la version installée.
Condition d'exécution
182
VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client
LSR='BLSR',
OLDPJ=,
UWK=$UWK
DD DSN=&SYSTCAT,DISP=SHR
DD DSN=&INDSV..BVPAE,DISP=SHR
DD DSN=&INDUV..&BASE.AN,DISP=SHR
DD DSN=&INDUV..&BASE.AR,DISP=SHR
DD DSN=&INDUV..&BASE.AY,DISP=SHR
DD DSN=&INDSN..BVPSY(VERIFAE),DISP=SHR
DD DSN=&INDSN..BVPSY(VERIFAN),DISP=SHR
DD DSN=&INDSN..BVPSY(VERIFAR),DISP=SHR
DD DSN=&INDSN..BVPSY(VERIFAY),DISP=SHR
DD DSN=&VSAMCAT,DISP=SHR
DD DSN=$BCOB,DISP=SHR
DD SYSOUT=&OUT
DD SYSOUT=&OUT
DD DSN=&INDSV..BVPAE,DISP=SHR
DD DSN=&INDUV..&BASE.AN,DISP=SHR
DD SUBSYS=(&LSR,'DDNAME=ANLSR','BUFND=40','BUFNI=30')
DD DSN=&INDUV..&BASE.AR,DISP=SHR
DD SUBSYS=(&LSR,'DDNAME=ARLSR','BUFND=40')
DD DSN=&INDUV..&BASE.AY,DISP=SHR
DD SUBSYS=(&LSR,'DDNAME=AYLSR','BUFND=40')
DD DSN=&OLDPJ,DISP=SHR
DD DSN=&&NEWPJ,DISP=(,CATLG),UNIT=&UWK,
SPACE=(TRK,(300,80),RLSE),
DCB=(RECFM=FB,LRECL=170,BLKSIZE=27880)
DD SYSOUT=&OUT
LSR BATCH SYSTEM NAME
DS NAME OF OLD PJ
WORK UNIT