//PAC7AN
//ARLSR
//PAC7AR
//AYLSR
//PAC7AY
//GNLSR
//PACGGN
//GRLSR
//PACGGR
//GYLSR
//PACGGY
//GULSR
//PACGGU
//PAC7DC
//PAC7IE
//PAC7IF
//PAC7ME
//PAC7MV
//PAC7RB
//PAC7RY
//SYSUDUMP DD SYSOUT=&OUT
Reprise de la Base de Développement (PC25)
PC25 - Présentation générale
Principe
La procédure (PC25) permet de reprendre le fichier PC issu de la sauvegarde
de l'ancienne Base de Développement en un fichier PC nouveau format.
Condition d'exécution
Aucune.
Edition obtenue
Cette procédure édite un compte-rendu donnant le nombre de manuels
transformés en rapports, le code de la nouvelle Base de Développement et le
nombre d'enregistrements en sortie du fichier PC.
Résultat obtenu
Le résultat de cette procédure est une image séquentielle de la Base de
Développement au nouveau format. Ce nouveau fichier PC doit servir
d'entrée à l'étape obligatoire suivante : la réorganisation.
150
VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client
DD SUBSYS=(&LSR,'DDNAME=ANLSR','BUFND=40','BUFNI=30')
DD DSN=&INDSV..BVPGR,DISP=SHR
DD SUBSYS=(&LSR,'DDNAME=ARLSR','BUFND=40')
DD DSN=&INDSV..BVPGY,DISP=SHR
DD SUBSYS=(&LSR,'DDNAME=AYLSR','BUFND=40')
DD DSN=&INDSV..BVPGN,DISP=SHR
DD SUBSYS=(&LSR,'DDNAME=GNLSR','BUFND=10','BUFNI=10')
DD DSN=&INDSV..BVPGR,DISP=SHR
DD SUBSYS=(&LSR,'DDNAME=GRLSR','BUFND=10')
DD DSN=&INDSV..BVPGY,DISP=SHR
DD SUBSYS=(&LSR,'DDNAME=GYLSR','BUFND=10')
DD DSN=&INDSV..BVPGU,DISP=SHR
DD SUBSYS=(&LSR,'DDNAME=GULSR','BUFND=10','BUFNI=10')
DD DUMMY
DD SYSOUT=&OUTL
DD SYSOUT=&OUTL
DD DSN=&&PAC7ME,DISP=(OLD,DELETE)
DD DSN=&&PAC7MV,DISP=(OLD,DELETE)
DD DUMMY
DD DUMMY