Echange Mouvements Mb Entre Base 2.N Et 3.N (Mb25); Mb25 - Présentation Générale - IBM VisualAge Pacbase Guide D'installation

//
//
//PAC7MV
//
//
//PAC7MW
//
//
//PAC7MX
//
//
//PAC7MY
//
//
//PACA15 EXEC PGM=BVPACA15,
//
//*----------------------------------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
//
//*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR
//*:
//SYSOUT
//PAC7AE
//PAC7AJ
//ANLSR
//PAC7AN
//ARLSR
//PAC7AR
//AYLSR
//PAC7AY
//GNLSR
//PACGGN
//GRLSR
//PACGGR
//GYLSR
//PACGGY
//GULSR
//PACGGU
//PAC7DC
//PAC7IE
//PAC7IF
//PAC7ME
//PAC7MV
//PAC7RB
//PAC7RY
//SYSUDUMP DD SYSOUT=&OUT

Echange mouvements MB entre base 2.n et 3.n (MB25)

MB25 - Présentation générale
Principe
SPACE=&SPAMB,
DCB=(RECFM=FB,LRECL=372,BLKSIZE=27156)
DD DSN=&&PAC7MV,DISP=(,PASS),UNIT=&UWK,
SPACE=&SPAMB,
DCB=(RECFM=FB,LRECL=170,BLKSIZE=6120)
DD DISP=(,DELETE),UNIT=&UWK,
SPACE=&SPAMB,
DCB=(RECFM=FB,LRECL=170,BLKSIZE=6120)
DD DISP=(,DELETE),UNIT=&UWK,
SPACE=&SPAMB,
DCB=(RECFM=FB,LRECL=748,BLKSIZE=26928)
DD DISP=(,DELETE),UNIT=&UWK,
SPACE=&SPAMB,
DCB=(RECFM=FB,LRECL=748,BLKSIZE=26928)
COND=((0,NE,PTU922),(0,NE,PAF900))
DD DSN=$BCOB,DISP=SHR
DD DSN=&VSAMCAT,DISP=SHR
DD SYSOUT=&OUT
DD DSN=&INDSV..BVPAE,DISP=SHR
DD DSN=&INDSV..BVPGJ,DISP=SHR
DD DSN=&INDSV..BVPGN,DISP=SHR
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
Chapitre 7. Reprises et échanges entre bases 2.n et 3.n
201