//
//*--------------------------------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
//*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR
//*:
//PAC7AT
//PAC7TI
//
//
//
//SORTWK01 DD UNIT=&UWK,SPACE=(CYL,&SRTSPC,,CONTIG)
//SORTWK02 DD UNIT=&UWK,SPACE=(CYL,&SRTSPC,,CONTIG)
//SORTWK03 DD UNIT=&UWK,SPACE=(CYL,&SRTSPC,,CONTIG)
//SYSPRINT DD SYSOUT=&OUT
//SYSOUT
//SYSUDUMP DD SYSOUT=&OUT
//PACS98 EXEC PGM=BVPACS98,COND=((4,LT,PACS21),
//
//*-----------------------------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
//*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR
//*:
//ARLSR
//PAC7AR
//PAC7AE
//PAC7RQ
//PAC7TI
//PAC7TG
//
//
//
//SORTWK01 DD UNIT=&UWK,SPACE=(CYL,&SRTSPC,,CONTIG)
//SORTWK02 DD UNIT=&UWK,SPACE=(CYL,&SRTSPC,,CONTIG)
//SORTWK03 DD UNIT=&UWK,SPACE=(CYL,&SRTSPC,,CONTIG)
//SYSPRINT DD SYSOUT=&OUT
//SYSOUT
//SYSUDUMP DD SYSOUT=&OUT
MIBJ - Migration Journal
MIBJ - Présentation générale
Principe
La procédure de migration des mouvements du journal (MIBJ) s'applique au
fichier journal archivé du référentiel. Elle met en forme des fichiers qui
serviront de base aux outils de migration
v
bibliothèques, etc.
v
sélectionnés.
262
VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client
(4,LT,PACX2))
DD DSN=&VSAMCAT,DISP=SHR
DD DSN=&&PAC7AT,DISP=(OLD,DELETE)
DD DSN=&&PAC7TI,DISP=(,PASS),
UNIT=&UNITS,VOL=&VOLS,
SPACE=&SPAOT,
DCB=(RECFM=FB,BLKSIZE=27600,LRECL=400)
DD SYSOUT=&OUT
(4,LT,PACX2))
DD DSN=&VSAMCAT,DISP=SHR
DD DSN=&INDUV..&BASE.AR,DISP=SHR
DD SUBSYS=(&LSR,'DDNAME=ARLSR','BUFND=40')
DD DSN=&INDSV..BVPAE,DISP=SHR
DD DSN=&OUTSPLT,DISP=SHR
DD DSN=&&PAC7TI,DISP=(OLD,DELETE)
DD DSN=&OUTFILE,DISP=(,CATLG),
UNIT=&UNITS,VOL=&VOLS,
SPACE=&SPAOT,
DCB=(RECFM=FB,BLKSIZE=27600,LRECL=400)
DD SYSOUT=&OUT
Elle permet de sélectionner le journal dans une plage de dates, sessions,
Elle permet d'extraire du référentiel les entités des mouvements