//* ------------------------------------------------------
//* VISUALAGE PACBASE
//*
//* ------------------------------------------------------
//* MACRO-STRUCTURES MIGRATION
//*
//* ------------------------------------------------------
//*
//BVPMIMA PROC BASE=$BASE, CODE OF VAPAC DATABASE
// INDSV='$INDSV', INDEX OF SYSTEM VSAM FILES
// INDSN='$INDSN', INDEX OF SYSTEM NO VSAM FILES
// INDUV='$INDUV', INDEX OF USER VSAM FILES
//*: VSAMCAT='$VCAT', VSAM USER CATALOG
//*: SYSTCAT='$SCAT', VSAM SYSTEM CATALOG
// PSBLIB='$PSBLIB', LIBRARY OF PSBS
// DBDLIB='$DBDLIB', LIBRARY OF DBDS
// RESLIB='$RESLIB', IMS RESLIB
// PROCLIB='$PRCLIB', IMS PROCLIB
// STEPLIB='$HLQ..SBVPMBR8', LOAD-MODULE LIBRARY
// SORTLIB='$BIBT', SORT LIBRARY
// OUT='$OUT', OUTPUT CLASS
// UWK=$UWK, WORK UNIT
// SPAWK='(CYL,(20,5),RLSE)', WORK FILE SPACE
// INPUTSPE=, SPECIAL CHAR FILE
// OUTFILE=, OUTPUT FILE MIGRATION
// SPAMB='(TRK,(5,1),RLSE)', REQUEST FILE SPACE
// VOLS='SER=$VOLUN', BACKUP VOLUME
// UNITS=$UNITUN, BACKUP UNIT
// SPAOT='(CYL,(50,50))', OUTPUT FILE SPACE
// BUF=40,EXCPVR=0,RST=0,SRCH=0,
// MON=N,LOGA=0,FMTO=T,DBRC=$DBRC,IRLM=$IRLM,
// SPIE=0,TEST=0,NBA=,IN=,OUT1=,PRLD=,CKPTID=,DIRCA=000,
// PARDLI=1,STIMER=,CPUTIME=,OBA=,AGN=,IMSID=$IMSID,OPT=N
//***************************************************************
//INPUT EXEC PGM=BVPTU001
//*-----------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
// DD DSN=$BCOB,DISP=SHR
//CARTE DD DDNAME=SYSIN
//PAC7MB DD DSN=&&MIMAMB,DISP=(,PASS),
// UNIT=&UWK,SPACE=&SPAMB,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//PRLFILE EXEC PGM=BVPRMSYS,PARM='&OUTFILE'
//*---------------------------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
// DD DSN=$BCOB,DISP=SHR
//SYSOUT DD SYSOUT=&OUT
//PACRIN DD DSN=&INDSN..BVPSY(LIOUTFIL),DISP=SHR
//PACROU DD DSN=&&LIFILE,DISP=(,PASS),SPACE=(TRK,1),
// UNIT=&UWK,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//LISFILE EXEC PGM=IDCAMS
//*---------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//SYSPRINT DD SYSOUT=&OUT
//SYSIN DD DSN=&&LIFILE,DISP=(OLD,DELETE)
//PRDFILE EXEC PGM=BVPRMSYS,COND=(4,EQ,LISFILE),PARM='&OUTFILE'
//*-------------------------------------------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
// DD DSN=$BCOB,DISP=SHR
//SYSOUT DD SYSOUT=&OUT
//PACRIN DD DSN=&INDSN..BVPSY(DLOUTFIL),DISP=SHR
//PACROU DD DSN=&&DLFILE,DISP=(,PASS),SPACE=(TRK,1),
// UNIT=&UWK,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//DELFILE EXEC PGM=IDCAMS,COND=(4,EQ,LISFILE)
//*----------------------------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//SYSPRINT DD SYSOUT=&OUT
//SYSIN DD DSN=&&DLFILE,DISP=(OLD,DELETE)
//*--------------------------------------------------------------
//PACA10 EXEC PGM=DFSRRC00,REGION=$REGSIZ,
// PARM=(DLI,BVPACA10,PACFIC$SUG,&BUF,
// &SPIE&TEST&EXCPVR&RST,&PRLD,
// &SRCH,&CKPTID,&MON,&LOGA,&FMTO,,,&DBRC,
// &IRLM)
//STEPLIB DD DSN=&RESLIB,DISP=SHR
// DD DSN=&STEPLIB,DISP=SHR
// DD DSN=$BCOB,DISP=SHR
//DFSRESLB DD DSN=&RESLIB,DISP=SHR
//IMS DD DSN=&PSBLIB,DISP=SHR
// DD DSN=&DBDLIB,DISP=SHR
//*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR
//*: DD DSN=&VSAMCAT,DISP=SHR
//SYSOUT DD SYSOUT=&OUT
//SYSOUX DD SYSOUT=&OUT
//DDSNAP DD SYSOUT=&OUT
//PROCLIB DD DSN=&PROCLIB,DISP=SHR
//IEFRDER DD DUMMY,
// DCB=(RECFM=VB,BLKSIZE=1920,LRECL=1916,BUFNO=2)
//SYSUDUMP DD SYSOUT=&OUT,DCB=(RECFM=FBA,LRECL=121,
// BLKSIZE=605),SPACE=(605,(500,500),RLSE,,ROUND)
//IMSUDUMP DD SYSOUT=&OUT,DCB=(RECFM=FBA,LRECL=121,
// BLKSIZE=605),SPACE=(605,(500,500),RLSE,,ROUND)
//IMSMON DD DUMMY
//DFSVSAMP DD DSN=&INDSN..BVPSY(DFSVSAM8),DISP=SHR
//BVP7AE DD DSN=&INDSV..BVPAE,DISP=SHR
//B7AN$BASE DD DSN=&INDUV..&BASE.AN,DISP=SHR
//B7AR$BASE DD DSN=&INDUV..&BASE.AR,DISP=SHR
//B7AJ$BASE DD DSN=&INDUV..&BASE.AJ,DISP=SHR
//B7AY$BASE DD DSN=&INDUV..&BASE.AY,DISP=SHR
//BVP7GR DD DSN=&INDSV..BVPGR,DISP=SHR
//BVP7GN DD DSN=&INDSV..BVPGN,DISP=SHR
//BVP7GU DD DSN=&INDSV..BVPGU,DISP=SHR
//PAC7ME DD DSN=&&MIMAMB,DISP=(OLD,PASS)
//PAC7MG DD DSN=&&PAC7MG,DISP=(,PASS),
// UNIT=&UNITS,VOL=&VOLS,
// SPACE=&SPAWK,
// DCB=(RECFM=FB,LRECL=153,BLKSIZE=15300)
//PAC7MV DD DSN=&&PAC7MV,DISP=(,PASS),
// UNIT=&UNITS,VOL=&VOLS,
// SPACE=&SPAWK,
// DCB=(RECFM=FB,LRECL=170,BLKSIZE=17000)
//SORTLIB DD DSN=&SORTLIB,DISP=SHR
//SORTWK01 DD UNIT=&UWK,SPACE=(CYL,2,,CONTIG)
//SORTWK02 DD UNIT=&UWK,SPACE=(CYL,2,,CONTIG)
//SORTWK03 DD UNIT=&UWK,SPACE=(CYL,2,,CONTIG)
//SYSPRINT DD SYSOUT=&OUT
//SYSOUT DD SYSOUT=&OUT
//PACA30 EXEC PGM=DFSRRC00,REGION=$REGSIZ,
// PARM=(DLI,BVPACA30,PACFIC$SUG,&BUF,
// &SPIE&TEST&EXCPVR&RST,&PRLD,
// &SRCH,&CKPTID,&MON,&LOGA,&FMTO,,,&DBRC,
// &IRLM),
// COND=(4,LT,PACA10)
//STEPLIB DD DSN=&RESLIB,DISP=SHR
// DD DSN=&STEPLIB,DISP=SHR
// DD DSN=$BCOB,DISP=SHR
//DFSRESLB DD DSN=&RESLIB,DISP=SHR
//IMS DD DSN=&PSBLIB,DISP=SHR
// DD DSN=&DBDLIB,DISP=SHR
//*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR
//*: DD DSN=&VSAMCAT,DISP=SHR
//DDSNAP DD SYSOUT=&OUT
//PROCLIB DD DSN=&PROCLIB,DISP=SHR
//IEFRDER DD DUMMY,
// DCB=(RECFM=VB,BLKSIZE=1920,LRECL=1916,BUFNO=2)
//SYSUDUMP DD SYSOUT=&OUT,DCB=(RECFM=FBA,LRECL=121,
// BLKSIZE=605),SPACE=(605,(500,500),RLSE,,ROUND)
//IMSUDUMP DD SYSOUT=&OUT,DCB=(RECFM=FBA,LRECL=121,
// BLKSIZE=605),SPACE=(605,(500,500),RLSE,,ROUND)
//IMSMON DD DUMMY
//DFSVSAMP DD DSN=&INDSN..BVPSY(DFSVSAM8),DISP=SHR
//BVP7AE DD DSN=&INDSV..BVPAE,DISP=SHR
//B7AN$BASE DD DSN=&INDUV..&BASE.AN,DISP=SHR
//B7AR$BASE DD DSN=&INDUV..&BASE.AR,DISP=SHR
//PAC7MG DD DSN=&&PAC7MG,DISP=(OLD,PASS)
//PAC7JG DD DSN=&&PAC7KC,DISP=(,PASS),
// UNIT=&UNITS,VOL=&VOLS,
// SPACE=&SPAWK,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=1600)
//PAC7KU DD DSN=&&PAC7KU,DISP=(,PASS),
// UNIT=&UNITS,VOL=&VOLS,
// SPACE=&SPAWK,
// DCB=(RECFM=FB,LRECL=260,BLKSIZE=26000)
//SORTLIB DD DSN=&SORTLIB,DISP=SHR
//SORTWK01 DD UNIT=&UWK,SPACE=(CYL,2,,CONTIG)
//SORTWK02 DD UNIT=&UWK,SPACE=(CYL,2,,CONTIG)
//SORTWK03 DD UNIT=&UWK,SPACE=(CYL,2,,CONTIG)
//SYSPRINT DD SYSOUT=&OUT
//SYSOUT DD SYSOUT=&OUT
//SYSUDUMP DD SYSOUT=&OUT
//*-----------------------------------------------
//PACMM EXEC PGM=DFSRRC00,REGION=$REGSIZ,
// PARM=(BMP,BVPACMM,PACB$SUG,&IN,&OUT1,
// &OPT&SPIE&TEST&DIRCA,&PRLD,&STIMER,
// &CKPTID,
// &PARDLI,&CPUTIME,&NBA,&OBA,&IMSID,&AGN)
//STEPLIB DD DSN=&RESLIB,DISP=SHR
// DD DSN=&STEPLIB,DISP=SHR
// DD DSN=$BCOB,DISP=SHR
//DFSRESLB DD DSN=&RESLIB,DISP=SHR
//IMS DD DSN=&PSBLIB,DISP=SHR
// DD DSN=&DBDLIB,DISP=SHR
//*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR
//*: DD DSN=&VSAMCAT,DISP=SHR
//SYSOUT DD SYSOUT=&OUT
//SYSOUX DD SYSOUT=&OUT
//DDSNAP DD SYSOUT=&OUT
//PROCLIB DD DSN=&PROCLIB,DISP=SHR
//IEFRDER DD DUMMY,
// DCB=(RECFM=VB,BLKSIZE=1920,LRECL=1916,BUFNO=2)
//SYSUDUMP DD SYSOUT=&OUT,DCB=(RECFM=FBA,LRECL=121,
// BLKSIZE=605),SPACE=(605,(500,500),RLSE,,ROUND)
//IMSUDUMP DD SYSOUT=&OUT,DCB=(RECFM=FBA,LRECL=121,
// BLKSIZE=605),SPACE=(605,(500,500),RLSE,,ROUND)
//IMSMON DD DUMMY
//DFSVSAMP DD DSN=&INDSN..BVPSY(DFSVSAM8),DISP=SHR
//BVP7AE DD DSN=&INDSV..BVPAE,DISP=SHR
//B7AJ$BASE DD DUMMY
//B7AN$BASE DD DSN=&INDUV..&BASE.AN,DISP=SHR
//B7AY$BASE DD DSN=&INDUV..&BASE.AY,DISP=SHR
//B7AR$BASE DD DSN=&INDUV..&BASE.AR,DISP=SHR
//BVP7GR DD DSN=&INDSV..BVPGR,DISP=SHR
//BVP7GN DD DSN=&INDSV..BVPGN,DISP=SHR
//BVP7GU DD DSN=&INDSV..BVPGU,DISP=SHR
//PAC7SC DD DSN=&INDSV..BVPSC,DISP=SHR
//PAC7CS DD DSN=&INPUTSPE,DISP=SHR
//PAC7EP DD UNIT=&UWK,SPACE=(TRK,(20,5),RLSE),DCB=BLKSIZE=27820
//PAC7GI DD DSN=&&PAC7GI,UNIT=&UWK,DCB=BLKSIZE=3440,
// SPACE=(TRK,(10,5),RLSE),DISP=(,DELETE)
//PAC7GP DD DSN=&&PAC7GP,UNIT=&UWK,DISP=(,PASS),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=12560),
// SPACE=(TRK,(20,5),RLSE)
//PAC7JG DD DSN=&&PAC7JG,DISP=(,PASS),UNIT=&UWK,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3440),
// SPACE=(TRK,(5,1),RLSE)
//PAC7KC DD DSN=&&PAC7KC,DISP=(OLD,PASS)
//PAC7KP DD UNIT=&UWK,SPACE=(TRK,(20,5),RLSE),DCB=BLKSIZE=27820
//PAC7RQ DD UNIT=&UWK,SPACE=(TRK,(20,5),RLSE),DCB=BLKSIZE=27800
//PAC7AT DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=27000
//PAC7TA DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=27000
//PAC7TT DD DSN=&OUTFILE,DISP=(,CATLG),
// UNIT=&UNITS,VOL=&VOLS,
// SPACE=&SPAOT,
// DCB=(RECFM=FB,BLKSIZE=27000,LRECL=1000)
//PAC7WA DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=25200
//PAC7WC DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=27820
//PAC7W1 DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=27820
//PAC7W2 DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=27820
//PAC7W3 DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=27820
//PAC7W4 DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=27180
//PAC7W5 DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=27820
//PAC7IA DD SYSOUT=&OUT
//SORTLIB DD DSN=&SORTLIB,DISP=SHR
//SORTWK01 DD UNIT=&UWK,SPACE=(CYL,3,,CONTIG)
//SORTWK02 DD UNIT=&UWK,SPACE=(CYL,3,,CONTIG)
//SORTWK03 DD UNIT=&UWK,SPACE=(CYL,3,,CONTIG)
//SYSPRINT DD SYSOUT=&OUT
//SYSOUT DD DUMMY
//SYSUDUMP DD SYSOUT=&OUT