//* ------------------------------------------------------
//* IBM RATIONAL PROGRAMMING PATTERNS (RPP)
//*
//* ------------------------------------------------------
//* CLIENT GENERATION
//*
//* ------------------------------------------------------
//*
//BVPMIA3 PROC BASE=$BASE, CODE OF VAPAC DATABASE
// INDSV='$INDSV', INDEX OF VSAM SYSTEM FILES
// INDUV='$INDUV', INDEX OF USER VSAM FILES
// INDMV='$INDMV', INDEX OF VSAM FOR MIGRATION
// INDMN='$INDMN', INDEX OF NON VSAM FOR MIGRATION
//*: SYSTCAT='$SCAT', SYSTEM VSAM CATALOG
// STEPLIB='$HLQ..SBVPMBR8', LIBRARY OF LOAD-MODULES
// OUTFILE=, OUTPUT CONTROL COBOL FILE
// OUTFIL2=, OUTPUT COBOL C9 FILE
// SPAOT='(CYL,(50,50))', OUTPUT FILE SPACE
// SPAOU='(CYL,(100,100))', OUTPUT FIL2 SPACE
// VOLS='SER=$VOLMN', BACKUP VOLUME
// UNITS=$UNITMN, BACKUP UNIT
// SPAWK='(CYL,(50,10),RLSE)', WORK FILE SPACE
// SORTLIB='$BIBT', SORT LIBRARY
// LSR='BLSR', LSR BATCH SYSTEM NAME
// UWK=$UWK, WORK UNIT
// OUT=$OUT OUTPUT CLASS
//***************************************************************
//INPUT EXEC PGM=BVPTU001
//*-----------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
// DD DSN=$BCOB,DISP=SHR
//CARTE DD DDNAME=SYSIN
//PAC7MB DD DSN=&&MIA3MB,DISP=(,PASS),
// UNIT=&UWK,SPACE=(CYL,(10,10),RLSE),
// 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=&INDMN..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=&INDMN..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)
//PRLFIL2 EXEC PGM=BVPRMSYS,PARM='&OUTFIL2'
//*---------------------------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
// DD DSN=$BCOB,DISP=SHR
//SYSOUT DD SYSOUT=&OUT
//PACRIN DD DSN=&INDMN..BVPSY(LIOUTFIL),DISP=SHR
//PACROU DD DSN=&&LIFIL2,DISP=(,PASS),SPACE=(TRK,1),
// UNIT=&UWK,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//LISFIL2 EXEC PGM=IDCAMS
//*---------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//SYSPRINT DD SYSOUT=&OUT
//SYSIN DD DSN=&&LIFIL2,DISP=(OLD,DELETE)
//PRDFIL2 EXEC PGM=BVPRMSYS,COND=(4,EQ,LISFIL2),PARM='&OUTFIL2'
//*-------------------------------------------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
// DD DSN=$BCOB,DISP=SHR
//SYSOUT DD SYSOUT=&OUT
//PACRIN DD DSN=&INDMN..BVPSY(DLOUTFIL),DISP=SHR
//PACROU DD DSN=&&DLFIL2,DISP=(,PASS),SPACE=(TRK,1),
// UNIT=&UWK,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//DELFIL2 EXEC PGM=IDCAMS,COND=(4,EQ,LISFIL2)
//*----------------------------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//SYSPRINT DD SYSOUT=&OUT
//SYSIN DD DSN=&&DLFIL2,DISP=(OLD,DELETE)
//PACA10 EXEC PGM=BVPACA10
//*-----------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
// DD DSN=$BCOB,DISP=SHR
//* DD DSN=$DFHEXC,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')
//PAC7AJ DD DUMMY
//PAC7AE DD DSN=&INDMV..BVPAE,DISP=SHR
//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')
//PAC7ME DD DSN=&&MIA3MB,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
//SYSUDUMP DD SYSOUT=&OUT
//PACA20 EXEC PGM=BVPACA20,COND=(4,LT,PACA10)
//*------------------------------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
// DD DSN=$BCOB,DISP=SHR
//* DD DSN=$DFHEXC,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')
//PAC7AE DD DSN=&INDMV..BVPAE,DISP=SHR
//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')
//PACGGK DD DSN=&INDSV..BVPGK,DISP=SHR
//PAC7JG DD DSN=&&PAC7KC,DISP=(,PASS),
// UNIT=&UNITS,VOL=&VOLS,
// SPACE=&SPAWK,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=1600)
//PAC7KF DD UNIT=&UWK,SPACE=(CYL,(20,5),RLSE),DCB=BLKSIZE=27820
//PAC7MG DD DSN=&&PAC7MG,DISP=(OLD,PASS)
//PAC7W1 DD DUMMY
//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
//PACM3 EXEC PGM=BVPACMM3,COND=((4,LT,PACA10),
// (4,LT,PACA20))
//*-------------------------------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
// DD DSN=$BCOB,DISP=SHR
//* DD DSN=$DFHEXC,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')
//PAC7AE DD DSN=&INDMV..BVPAE,DISP=SHR
//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')
//PAC7SS DD DSN=&INDMV..BVPSS,DISP=SHR
//PAC7EG DD UNIT=&UWK,SPACE=(CYL,(20,5),RLSE),DCB=BLKSIZE=27820
//PAC7EZ DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=20000
//PAC7GG DD DSN=&&PAC7GG,UNIT=&UWK,DISP=(,PASS),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=12560),
// SPACE=(CYL,(20,5),RLSE)
//PAC7JG DD DSN=&&PAC7JG,DISP=(,PASS),UNIT=&UWK,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3440),
// SPACE=(CYL,(5,1),RLSE)
//PAC7KC DD DSN=&&PAC7KC,DISP=(OLD,PASS)
//PAC7KG DD UNIT=&UWK,SPACE=(CYL,(20,5),RLSE),DCB=BLKSIZE=27820
//PAC7G1 DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=20000
//PAC7G2 DD DSN=&OUTFIL2,DISP=(,CATLG),
// UNIT=&UNITS,VOL=&VOLS,
// SPACE=&SPAOU,
// DCB=(RECFM=FB,BLKSIZE=12560,LRECL=80)
//PAC7G3 DD DSN=&OUTFILE,DISP=(,CATLG),
// UNIT=&UNITS,VOL=&VOLS,
// SPACE=&SPAOT,
// DCB=(RECFM=FB,BLKSIZE=20000,LRECL=200)
//PACM2W DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=20000
//PACM2P DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=20000
//PAC2GW DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=20000
//PAC2GP DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=20000
//PAC780 DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=20000
//PAC7W1 DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=26000
//PAC7W2 DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=26000
//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