//* ------------------------------------------------------
//* VISUALAGE PACBASE
//*
//* ------------------------------------------------------
//* BATCH MIGRATION
//*
//* ------------------------------------------------------
//*
//BVPMIBA PROC BASE=$BASE, CODE OF DEVPT DATABASE
// INDSV='$INDSV', INDEX OF SYSTEM VSAM FILES
// INDSN='$INDSN', INDEX OF SYSTEM NON VSAM FILE
// INDUV='$INDUV', INDEX OF USER VSAM FILES
//*: 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
// INPUTMIB=, PROGRAM/MACRO FILE
// INPUTSPE=, SPECIAL CHAR FILE
// OUTMIMA=, OUTPUT MIMA COMMAND
// OUTFILE=, OUTPUT FILE MIGRATION
// OUTGCP=, OUTPUT GCP COMMAND
// OUTGCO=, OUTPUT GCO COMMAND
// OUTGGC=, OUTPUT GGC COMMAND
// OUTGGS=, OUTPUT GGS COMMAND
// VOLS='SER=$VOLUN', BACKUP VOLUME
// UNITS=$UNITUN, BACKUP UNIT
// SPAOT='(TRK,(500,80),RLSE)', OUTPUT FILE SPACE
// SRTSPC='(100,10)' TEMPORARY SPACE
//***************************************************************
//INPUT EXEC PGM=BVPTU001
//*-----------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
// DD DSN=$BCOB,DISP=SHR
//CARTE DD DDNAME=SYSIN
//PAC7MB DD DSN=&&MIBAMB,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)
//PRLMIMA EXEC PGM=BVPRMSYS,PARM='&OUTMIMA'
//*---------------------------------------
//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=&&LIMIMA,DISP=(,PASS),SPACE=(TRK,1),
// UNIT=&UWK,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//LISMIMA EXEC PGM=IDCAMS
//*---------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//SYSPRINT DD SYSOUT=&OUT
//SYSIN DD DSN=&&LIMIMA,DISP=(OLD,DELETE)
//PRDMIMA EXEC PGM=BVPRMSYS,COND=(4,EQ,LISMIMA),PARM='&OUTMIMA'
//*-------------------------------------------------------
//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=&&DLMIMA,DISP=(,PASS),SPACE=(TRK,1),
// UNIT=&UWK,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//DELMIMA EXEC PGM=IDCAMS,COND=(4,EQ,LISMIMA)
//*----------------------------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//SYSPRINT DD SYSOUT=&OUT
//SYSIN DD DSN=&&DLMIMA,DISP=(OLD,DELETE)
//PRLGCP EXEC PGM=BVPRMSYS,PARM='&OUTGCP'
//*---------------------------------------
//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=&&LIGCP,DISP=(,PASS),SPACE=(TRK,1),
// UNIT=&UWK,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//LISGCP EXEC PGM=IDCAMS
//*---------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//SYSPRINT DD SYSOUT=&OUT
//SYSIN DD DSN=&&LIGCP,DISP=(OLD,DELETE)
//PRDGCP EXEC PGM=BVPRMSYS,COND=(4,EQ,LISGCP),PARM='&OUTGCP'
//*-------------------------------------------------------
//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=&&DLGCP,DISP=(,PASS),SPACE=(TRK,1),
// UNIT=&UWK,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//DELGCP EXEC PGM=IDCAMS,COND=(4,EQ,LISGCP)
//*----------------------------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//SYSPRINT DD SYSOUT=&OUT
//SYSIN DD DSN=&&DLGCP,DISP=(OLD,DELETE)
//PRLGCO EXEC PGM=BVPRMSYS,PARM='&OUTGCO'
//*---------------------------------------
//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=&&LIGCO,DISP=(,PASS),SPACE=(TRK,1),
// UNIT=&UWK,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//LISGCO EXEC PGM=IDCAMS
//*---------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//SYSPRINT DD SYSOUT=&OUT
//SYSIN DD DSN=&&LIGCO,DISP=(OLD,DELETE)
//PRDGCO EXEC PGM=BVPRMSYS,COND=(4,EQ,LISGCO),PARM='&OUTGCO'
//*-------------------------------------------------------
//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=&&DLGCO,DISP=(,PASS),SPACE=(TRK,1),
// UNIT=&UWK,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//DELGCO EXEC PGM=IDCAMS,COND=(4,EQ,LISGCO)
//*----------------------------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//SYSPRINT DD SYSOUT=&OUT
//SYSIN DD DSN=&&DLGCO,DISP=(OLD,DELETE)
//PRLGGC EXEC PGM=BVPRMSYS,PARM='&OUTGGC'
//*---------------------------------------
//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=&&LIGGC,DISP=(,PASS),SPACE=(TRK,1),
// UNIT=&UWK,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//LISGGC EXEC PGM=IDCAMS
//*---------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//SYSPRINT DD SYSOUT=&OUT
//SYSIN DD DSN=&&LIGGC,DISP=(OLD,DELETE)
//PRDGGC EXEC PGM=BVPRMSYS,COND=(4,EQ,LISGGC),PARM='&OUTGGC'
//*-------------------------------------------------------
//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=&&DLGGC,DISP=(,PASS),SPACE=(TRK,1),
// UNIT=&UWK,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//DELGGC EXEC PGM=IDCAMS,COND=(4,EQ,LISGGC)
//*----------------------------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//SYSPRINT DD SYSOUT=&OUT
//SYSIN DD DSN=&&DLGGC,DISP=(OLD,DELETE)
//PRLGGS EXEC PGM=BVPRMSYS,PARM='&OUTGGS'
//*---------------------------------------
//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=&&LIGGS,DISP=(,PASS),SPACE=(TRK,1),
// UNIT=&UWK,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//LISGGS EXEC PGM=IDCAMS
//*---------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//SYSPRINT DD SYSOUT=&OUT
//SYSIN DD DSN=&&LIGGS,DISP=(OLD,DELETE)
//PRDGGS EXEC PGM=BVPRMSYS,COND=(4,EQ,LISGGS),PARM='&OUTGGS'
//*-------------------------------------------------------
//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=&&DLGGS,DISP=(,PASS),SPACE=(TRK,1),
// UNIT=&UWK,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//DELGGS EXEC PGM=IDCAMS,COND=(4,EQ,LISGGS)
//*----------------------------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//SYSPRINT DD SYSOUT=&OUT
//SYSIN DD DSN=&&DLGGS,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=&INDUV..&BASE.AN,DISP=SHR
//PAC7AN DD SUBSYS=(&LSR,'DDNAME=ANLSR','BUFND=40','BUFNI=30')
//ARLSR DD DSN=&INDUV..&BASE.AR,DISP=SHR
//PAC7AR DD SUBSYS=(&LSR,'DDNAME=ARLSR','BUFND=40')
//AYLSR DD DSN=&INDUV..&BASE.AY,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
//PAC7MA DD DUMMY
//PAC7ES DD DUMMY
//SYLSR DD DSN=&INDUV..SYSEXT.&USER,DISP=SHR
//SYSEXT DD SUBSYS=(&LSR,'DDNAME=SYLSR')
//PAC7MB DD DSN=&&MIBAMB,DISP=(OLD,PASS)
//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=&&QR,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,&SRTSPC,,CONTIG)
//SORTWK02 DD UNIT=&UWK,SPACE=(CYL,&SRTSPC,,CONTIG)
//SORTWK03 DD UNIT=&UWK,SPACE=(CYL,&SRTSPC,,CONTIG)
//PAC7MV DD DSN=&&MV,DISP=(,DELETE),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)
//PAC7CP DD DUMMY
//PAC7GY DD DUMMY
//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)
//PACS92 EXEC PGM=BVPACS92,COND=(4,LT,PACX)
//*----------------------------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
//*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR
//*: DD DSN=&VSAMCAT,DISP=SHR
//PAC7ER DD DUMMY
//PAC7EE DD DUMMY
//PAC7QR DD DSN=&&QR,DISP=(OLD,PASS)
//PAC7RQ DD DSN=&&PACXRQ,DISP=(,PASS),
// UNIT=&UNITS,VOL=&VOLS,
// SPACE=&SPAMV,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//PAC7MZ DD DSN=&&PACXMB,DISP=(,PASS),
// UNIT=&UNITS,VOL=&VOLS,
// SPACE=&SPAMB,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//SORTWK01 DD UNIT=&UWK,SPACE=(CYL,(30,3),,CONTIG)
//SORTWK02 DD UNIT=&UWK,SPACE=(CYL,(30,3),,CONTIG)
//SORTWK03 DD UNIT=&UWK,SPACE=(CYL,(30,3),,CONTIG)
//SYSPRINT DD SYSOUT=&OUT
//SYSOUT DD SYSOUT=&OUT
//SYSUDUMP DD SYSOUT=&OUT
//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(DFSYSEX2),DISP=SHR
//PACROU DD DSN=&&DFSYSEX2,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=&&DFSYSEX2,DISP=(OLD,DELETE)
//MAXKEY EXEC PGM=IDCAMS
//*----------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//SYSPRINT DD SYSOUT=&OUT
//SYSPAF DD DSN=&INDUV..SYSEX2.&USER,DISP=SHR
//MAXKEY DD DSN=&INDSN..BVPSY(MAXKEY),DISP=SHR
//SYSIN DD DSN=&INDSN..BVPSY(REPRO999),DISP=SHR
//*
//PACX2 EXEC PGM=BVPACX,REGION=0K,COND=(4,LT,PACX)
//*------------------------------------------------
//*: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=&INDUV..&BASE.AN,DISP=SHR
//PAC7AN DD SUBSYS=(&LSR,'DDNAME=ANLSR','BUFND=40','BUFNI=30')
//ARLSR DD DSN=&INDUV..&BASE.AR,DISP=SHR
//PAC7AR DD SUBSYS=(&LSR,'DDNAME=ARLSR','BUFND=40')
//AYLSR DD DSN=&INDUV..&BASE.AY,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
//PAC7MA DD DUMMY
//PAC7ES DD DUMMY
//SYLSR DD DSN=&INDUV..SYSEX2.&USER,DISP=SHR
//SYSEXT DD SUBSYS=(&LSR,'DDNAME=SYLSR')
//PAC7MB DD DSN=&&PACXMB,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)
//PAC7CP DD DSN=&&CP,DISP=(,PASS),UNIT=&UWK,
// SPACE=&SPAMV,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//PAC7RQ DD DUMMY
//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,&SRTSPC,,CONTIG)
//SORTWK02 DD UNIT=&UWK,SPACE=(CYL,&SRTSPC,,CONTIG)
//SORTWK03 DD UNIT=&UWK,SPACE=(CYL,&SRTSPC,,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(DLSYSEX2),DISP=SHR
//PACROU DD DSN=&&DLSYSEX2,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=&&DLSYSEX2,DISP=(OLD,DELETE)
//PACS94 EXEC PGM=BVPACS94,COND=((4,LT,PACX),
// (4,LT,PACX2))
//*------------------------------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
//*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR
//*: DD DSN=&VSAMCAT,DISP=SHR
//PAC7CS DD DSN=&INPUTSPE,DISP=SHR
//PAC7RQ DD DSN=&&PACXRQ,DISP=(OLD,PASS)
//PAC7QR DD DSN=&&PAC7QR,DISP=(,PASS),UNIT=&UWK,
// SPACE=&SPAMV,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//SYSPRINT DD SYSOUT=&OUT
//SYSOUT DD SYSOUT=&OUT
//SYSUDUMP DD SYSOUT=&OUT
//PACS96 EXEC PGM=BVPACS96,COND=((4,LT,PACX),
// (4,LT,PACX2),(4,LT,PACS94))
//*------------------------------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
//*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR
//*: DD DSN=&VSAMCAT,DISP=SHR
//PAC7GY DD DSN=&&GY,DISP=(OLD,PASS)
//PAC7MB DD DSN=&&MIBAMB,DISP=(OLD,PASS)
//PAC7CS DD DSN=&INPUTSPE,DISP=SHR
//PAC7PM DD DSN=&INPUTMIB,DISP=SHR
//PAC7TA DD DSN=&&PAC7TA,DISP=(,PASS),
// UNIT=&UNITS,VOL=&VOLS,
// SPACE=&SPAOT,
// DCB=(RECFM=FB,BLKSIZE=27600,LRECL=400)
//PAC7MM DD DSN=&OUTMIMA,DISP=(,CATLG),UNIT=&UWK,
// SPACE=&SPAMB,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//PAC7MI DD DSN=&OUTGCP,DISP=(,CATLG),UNIT=&UWK,
// SPACE=&SPAMB,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//PAC7MO DD DSN=&OUTGCO,DISP=(,CATLG),UNIT=&UWK,
// SPACE=&SPAMB,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//PAC7MC DD DSN=&OUTGGC,DISP=(,CATLG),UNIT=&UWK,
// SPACE=&SPAMB,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//PAC7MS DD DSN=&OUTGGS,DISP=(,CATLG),UNIT=&UWK,
// SPACE=&SPAMB,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//PAC7NO DD DUMMY,AMP=AMORG
//SYSPRINT DD SYSOUT=&OUT
//SYSOUT DD SYSOUT=&OUT
//SYSUDUMP DD SYSOUT=&OUT
//PACS97 EXEC PGM=BVPACS97,COND=((4,LT,PACX),
// (4,LT,PACX2),(4,LT,PACS94))
//*------------------------------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
//*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR
//*: DD DSN=&VSAMCAT,DISP=SHR
//PAC7TA DD DSN=&&PAC7TA,DISP=(OLD,PASS)
//PAC7AT DD DSN=&&PAC7AT,DISP=(,PASS),
// UNIT=&UNITS,VOL=&VOLS,
// SPACE=&SPAOT,
// DCB=(RECFM=FB,BLKSIZE=27600,LRECL=400)
//SYSPRINT DD SYSOUT=&OUT
//SYSOUT DD SYSOUT=&OUT
//SYSUDUMP DD SYSOUT=&OUT
//PACS91 EXEC PGM=BVPACS91,COND=((4,LT,PACX),
// (4,LT,PACX2),(4,LT,PACS94))
//*--------------------------------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
//*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR
//*: DD DSN=&VSAMCAT,DISP=SHR
//PAC7AT DD DSN=&&PAC7AT,DISP=(OLD,PASS)
//PAC7TI DD DSN=&&PAC7TI,DISP=(,PASS),
// UNIT=&UNITS,VOL=&VOLS,
// SPACE=&SPAOT,
// DCB=(RECFM=FB,BLKSIZE=27600,LRECL=400)
//SORTWK01 DD UNIT=&UWK,SPACE=(CYL,(30,3),,CONTIG)
//SORTWK02 DD UNIT=&UWK,SPACE=(CYL,(30,3),,CONTIG)
//SORTWK03 DD UNIT=&UWK,SPACE=(CYL,(30,3),,CONTIG)
//SYSPRINT DD SYSOUT=&OUT
//SYSOUT DD SYSOUT=&OUT
//SYSUDUMP DD SYSOUT=&OUT
//PACS98 EXEC PGM=BVPACS98,COND=((4,LT,PACX),
// (4,LT,PACX2),(4,LT,PACS94))
//*-----------------------------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
//*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR
//*: DD DSN=&VSAMCAT,DISP=SHR
//ARLSR DD DSN=&INDUV..&BASE.AR,DISP=SHR
//PAC7AR DD SUBSYS=(&LSR,'DDNAME=ARLSR','BUFND=40')
//PAC7AE DD DSN=&INDSV..BVPAE,DISP=SHR
//PAC7RQ DD DSN=&&PAC7QR,DISP=(OLD,PASS)
//PAC7CP DD DSN=&&CP,DISP=(OLD,PASS)
//PAC7TI DD DSN=&&PAC7TI,DISP=(OLD,PASS)
//PAC7TG DD DSN=&OUTFILE,DISP=(,CATLG),
// UNIT=&UNITS,VOL=&VOLS,
// SPACE=&SPAOT,
// DCB=(RECFM=FB,BLKSIZE=27600,LRECL=400)
//SORTWK01 DD UNIT=&UWK,SPACE=(CYL,(30,3),,CONTIG)
//SORTWK02 DD UNIT=&UWK,SPACE=(CYL,(30,3),,CONTIG)
//SORTWK03 DD UNIT=&UWK,SPACE=(CYL,(30,3),,CONTIG)
//SYSPRINT DD SYSOUT=&OUT
//SYSOUT DD SYSOUT=&OUT
//SYSUDUMP DD SYSOUT=&OUT