//* ------------------------------------------------------
//* VISUALAGE PACBASE
//*
//* ------------------------------------------------------
//* USERS MIGRATION
//*
//* ------------------------------------------------------
//*
//BVPMIUS PROC INDSV='$INDSV', INDEX OF SYSTEM VSAM FILES
// INDUV='$INDUV', INDEX OF USER VSAM FILES
// INDSN='$INDSN', INDEX OF NON VSAM FOR MIGRATION
//*: VSAMCAT='$VCAT', USER VSAM CATALOG
//*: SYSTCAT='$SCAT', SYSTEM VSAM CATALOG
// STEPLIB='$HLQ..SBVPMBR8', LIBRARY OF LOAD-MODULES
// SORTLIB='$BIBT', SORT LIBRARY
// USER=, USER CODE
// LSR='BLSR', LSR BATCH SYSTEM NAME
// OUT=$OUT, UTILITIES AND ERRORS OUTPUT CLASS
// OUTL=$OUT, OUTPUT CLASS OF REPORTS
// UWK=$UWK, WORK UNIT
// SPAMB='(TRK,(5,1),RLSE)', REQUEST FILE SPACE
// SPAMV='(TRK,(50,10),RLSE)', UPDT FILE SPACE
// SPAGY='(TRK,(50,10),RLSE)', UPDP FILE SPACE
// SPATD='(TRK,(50,10),RLSE)', CPSN FILE SPACE
// OUTFILE=, OUTPUT FILE MIGRATION
// VOLS='SER=$VOLUN', BACKUP VOLUME
// UNITS=$UNITUN, BACKUP UNIT
// SPAOT='(TRK,(500,80),RLSE)' OUTPUT FILE SPACE
//***************************************************************
//INPUT EXEC PGM=BVPTU001
//*-----------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
// DD DSN=$BCOB,DISP=SHR
//CARTE DD DDNAME=SYSIN
//PAC7MB DD DSN=&&MIUSMB,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)
//PRMSYS EXEC PGM=BVPRMSYS,PARM='&USER,&INDUV'
//*-------------------------------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
// DD DSN=$BCOB,DISP=SHR
//SYSOUT DD SYSOUT=&OUT
//PACRIN DD DSN=&INDSN..BVPSY(DFSYSEXT),DISP=SHR
//PACROU DD DSN=&&DFSYSEXT,DISP=(,PASS),SPACE=(TRK,1),
// UNIT=&UWK,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//DEFINE EXEC PGM=IDCAMS
//*---------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//SYSPRINT DD SYSOUT=&OUT
//SYSIN DD DSN=&&DFSYSEXT,DISP=(OLD,DELETE)
//MAXKEY EXEC PGM=IDCAMS
//*----------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//SYSPRINT DD SYSOUT=&OUT
//SYSPAF DD DSN=&INDUV..SYSEXT.&USER,DISP=SHR
//MAXKEY DD DSN=&INDSN..BVPSY(MAXKEY),DISP=SHR
//SYSIN DD DSN=&INDSN..BVPSY(REPRO999),DISP=SHR
//*
//PACX EXEC PGM=BVPACX,REGION=0K
//*-------------------------------
//*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR
//*: DD DSN=&VSAMCAT,DISP=SHR
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
// DD DSN=$BCOB,DISP=SHR
//SYSOUT DD SYSOUT=&OUT
//SYSOUX DD SYSOUT=&OUT
//SYSPRINT DD SYSOUT=&OUT
//PAC7AE DD DSN=&INDSV..BVPAE,DISP=SHR
//ANLSR DD DSN=&INDSV..BVPGN,DISP=SHR
//PAC7AN DD SUBSYS=(&LSR,'DDNAME=ANLSR','BUFND=40','BUFNI=30')
//ARLSR DD DSN=&INDSV..BVPGR,DISP=SHR
//PAC7AR DD SUBSYS=(&LSR,'DDNAME=ARLSR','BUFND=40')
//AYLSR DD DSN=&INDSV..BVPGY,DISP=SHR
//PAC7AY DD SUBSYS=(&LSR,'DDNAME=AYLSR','BUFND=40')
//GNLSR DD DSN=&INDSV..BVPGN,DISP=SHR
//PACGGN DD SUBSYS=(&LSR,'DDNAME=GNLSR','BUFND=10','BUFNI=10')
//GRLSR DD DSN=&INDSV..BVPGR,DISP=SHR
//PACGGR DD SUBSYS=(&LSR,'DDNAME=GRLSR','BUFND=10')
//GULSR DD DSN=&INDSV..BVPGU,DISP=SHR
//PACGGU DD SUBSYS=(&LSR,'DDNAME=GULSR','BUFND=10','BUFNI=10')
//PAC7PJ DD DUMMY
//PAC7IA DD SYSOUT=&OUTL
//PAC7DD DD SYSOUT=&OUTL
//PAC7ED DD SYSOUT=&OUTL
//PAC7EE DD SYSOUT=&OUTL
//PAC7EG DD SYSOUT=&OUTL
//PAC7EM DD SYSOUT=&OUTL
//PAC7EP DD SYSOUT=&OUTL
//PAC7EQ DD SYSOUT=&OUTL
//PAC7EU DD SYSOUT=&OUTL
//PAC7EZ DD SYSOUT=&OUTL
//PAC7CP DD DUMMY
//PAC7MA DD DUMMY
//PAC7ES DD DUMMY
//SYLSR DD DSN=&INDUV..SYSEXT.&USER,DISP=SHR
//SYSEXT DD SUBSYS=(&LSR,'DDNAME=SYLSR')
//PAC7MB DD DSN=&&MIUSMB,DISP=(OLD,DELETE,DELETE)
//PAC7BM DD DSN=&&PACXBM,DISP=(,DELETE),UNIT=&UWK,
// DCB=BLKSIZE=3440,SPACE=&SPAMB
//PAC7MM DD DSN=&&PACXMM,DISP=(,DELETE),UNIT=&UWK,
// SPACE=&SPAMV,
// DCB=(RECFM=FB,LRECL=113,BLKSIZE=11300)
//PAC7MJ DD DSN=&&PACXMJ,DISP=(,DELETE),UNIT=&UWK,
// SPACE=&SPAMV,
// DCB=(RECFM=FB,LRECL=158,BLKSIZE=6320)
//PAC7TE DD DSN=&&PACXTE,DISP=(,DELETE),UNIT=&UWK,
// SPACE=&SPATD,
// DCB=(RECFM=FB,LRECL=323,BLKSIZE=6460)
//PAC7RE DD DSN=&&PACXRE,DISP=(,DELETE),UNIT=&UWK,
// SPACE=&SPATD,
// DCB=(RECFM=FB,LRECL=36,BLKSIZE=6012)
//PAC7RM DD DSN=&&PACXRM,DISP=(,DELETE),UNIT=&UWK,
// SPACE=&SPATD,
// DCB=(RECFM=FB,LRECL=286,BLKSIZE=6292)
//PAC7RQ DD DSN=&&PAC7RQ,DISP=(,PASS),UNIT=&UWK,
// SPACE=&SPAMV,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//PAC7WD DD DSN=&&PACXWD,DISP=(,DELETE),UNIT=&UWK,
// SPACE=&SPATD,
// DCB=(RECFM=FB,LRECL=286,BLKSIZE=6292)
//SORTLIB DD DSN=&SORTLIB,DISP=SHR
//SORTWK01 DD UNIT=&UWK,SPACE=(CYL,(3,1),,CONTIG)
//SORTWK02 DD UNIT=&UWK,SPACE=(CYL,(3,1),,CONTIG)
//SORTWK03 DD UNIT=&UWK,SPACE=(CYL,(3,1),,CONTIG)
//PAC7MV DD DSN=&&MV,DISP=(,PASS),UNIT=&UWK,
// SPACE=&SPAMV,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//PAC7MR DD DSN=&&MR,DISP=(,PASS),UNIT=&UWK,
// SPACE=&SPAMV,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//PAC7MX DD DSN=&&MX,DISP=(,PASS),UNIT=&UWK,
// SPACE=&SPAMB,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//PAC7TD DD DSN=&&TD,DISP=(,PASS),UNIT=&UWK,
// SPACE=&SPATD,
// DCB=(RECFM=FB,LRECL=286,BLKSIZE=6292)
//PAC7GY DD DSN=&&GY,DISP=(,PASS),UNIT=&UWK,
// SPACE=&SPAGY,
// DCB=(RECFM=FB,LRECL=310,BLKSIZE=6200)
//PAC7UE DD DSN=&&UE,DISP=(,PASS),UNIT=&UWK,
// SPACE=&SPAMV,
// DCB=(RECFM=FB,LRECL=230,BLKSIZE=6440)
//SYSUDUMP DD SYSOUT=&OUT
//*
//PRMSYS EXEC PGM=BVPRMSYS,PARM='&USER,&INDUV',COND=EVEN
//*-----------------------------------------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
// DD DSN=$BCOB,DISP=SHR
//SYSOUT DD SYSOUT=&OUT
//PACRIN DD DSN=&INDSN..BVPSY(DLSYSEXT),DISP=SHR
//PACROU DD DSN=&&DLSYSEXT,DISP=(,PASS),SPACE=(TRK,1),
// UNIT=&UWK,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//DELETE EXEC PGM=IDCAMS,COND=EVEN
//*-------------------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//SYSPRINT DD SYSOUT=&OUT
//SYSIN DD DSN=&&DLSYSEXT,DISP=(OLD,DELETE)
//PLTYAU EXEC PGM=BVPLTYAU,COND=(4,LT,PACX)
//*----------------------------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
//*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR
//*: DD DSN=&VSAMCAT,DISP=SHR
//PAC7GY DD DSN=&&GY,DISP=(OLD,PASS)
//PAC7US DD DSN=&OUTFILE,DISP=(,CATLG),
// UNIT=&UNITS,VOL=&VOLS,
// SPACE=&SPAOT,
// DCB=(RECFM=FB,BLKSIZE=12000,LRECL=120)
//SYSPRINT DD SYSOUT=&OUT
//SYSOUT DD SYSOUT=&OUT
//SYSUDUMP DD SYSOUT=&OUT