//* ------------------------------------------------------
//* IBM RATIONAL PROGRAMMING PATTERNS (RPP)
//*
//* ------------------------------------------------------
//* BATCH MIGRATION
//*
//* ------------------------------------------------------
//*
//BVPMIBR PROC BASE=$BASE, CODE OF DEVPT 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
//*: 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='(CYL,(50,50),RLSE)', UPDT FILE SPACE
// SPAGY='(CYL,(150,150),RLSE)', UPDP FILE SPACE
// SPAOT='(CYL,(100,100),RLSE)', OUTPUT FILE SPACE
// SPATD='(CYL,(150,150),RLSE)', CPSN FILE SPACE
// NRFILE=, NOT RETRIEVED ENTITIES FILE
// NSFILE=, NOT MIGRATED SCREEN FILE
// NTFILE=, NOT RETRIEVED ENTITIES USER FILE
// NMFILE=, MIGRATED MODE USER FILE
// 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
// OUTDUPL=, OUTPUT DUPLICATE ENTITIES
// OUTEXCL=, OUTPUT EXCLUDED ENTITIES
// OUTSPLT=, OUTPUT MIBJ SPLITTING LIBRARIES
// OUTMIG=, OUTPUT NOT MIGRATED ENTITIES
// VOLS='SER=$VOLMN', BACKUP VOLUME
// UNITS=$UNITMN, BACKUP UNIT
// SRTSPC='(150,150)' TEMPORARY SPACE
//***************************************************************
//INPUT EXEC PGM=BVPTU001
//*-----------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
// DD DSN=$BCOB,DISP=SHR
//CARTE DD DDNAME=SYSIN
//PAC7MB DD DSN=&&MIBRMB,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=&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)
//PRLMIMA EXEC PGM=BVPRMSYS,PARM='&OUTMIMA'
//*---------------------------------------
//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=&&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=&INDMN..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=&INDMN..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=&INDMN..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=&INDMN..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=&INDMN..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=&INDMN..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=&INDMN..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=&INDMN..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=&INDMN..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)
//PRLDUPL EXEC PGM=BVPRMSYS,PARM='&OUTDUPL'
//*---------------------------------------
//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=&&LIDUPL,DISP=(,PASS),SPACE=(TRK,1),
// UNIT=&UWK,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//LISDUPL EXEC PGM=IDCAMS
//*---------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//SYSPRINT DD SYSOUT=&OUT
//SYSIN DD DSN=&&LIDUPL,DISP=(OLD,DELETE)
//PRDDUPL EXEC PGM=BVPRMSYS,COND=(4,EQ,LISDUPL),PARM='&OUTDUPL'
//*-------------------------------------------------------
//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=&&DLDUPL,DISP=(,PASS),SPACE=(TRK,1),
// UNIT=&UWK,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//DELDUPL EXEC PGM=IDCAMS,COND=(4,EQ,LISDUPL)
//*----------------------------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//SYSPRINT DD SYSOUT=&OUT
//SYSIN DD DSN=&&DLDUPL,DISP=(OLD,DELETE)
//PRLEXCL EXEC PGM=BVPRMSYS,PARM='&OUTEXCL'
//*---------------------------------------
//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=&&LIEXCL,DISP=(,PASS),SPACE=(TRK,1),
// UNIT=&UWK,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//LISEXCL EXEC PGM=IDCAMS
//*---------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//SYSPRINT DD SYSOUT=&OUT
//SYSIN DD DSN=&&LIEXCL,DISP=(OLD,DELETE)
//PRDEXCL EXEC PGM=BVPRMSYS,COND=(4,EQ,LISEXCL),PARM='&OUTEXCL'
//*-------------------------------------------------------
//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=&&DLEXCL,DISP=(,PASS),SPACE=(TRK,1),
// UNIT=&UWK,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//DELEXCL EXEC PGM=IDCAMS,COND=(4,EQ,LISEXCL)
//*----------------------------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//SYSPRINT DD SYSOUT=&OUT
//SYSIN DD DSN=&&DLEXCL,DISP=(OLD,DELETE)
//PRLSPLT EXEC PGM=BVPRMSYS,PARM='&OUTSPLT'
//*---------------------------------------
//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=&&LISPLT,DISP=(,PASS),SPACE=(TRK,1),
// UNIT=&UWK,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//LISSPLT EXEC PGM=IDCAMS
//*---------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//SYSPRINT DD SYSOUT=&OUT
//SYSIN DD DSN=&&LISPLT,DISP=(OLD,DELETE)
//PRDSPLT EXEC PGM=BVPRMSYS,COND=(4,EQ,LISSPLT),PARM='&OUTSPLT'
//*-------------------------------------------------------
//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=&&DLSPLT,DISP=(,PASS),SPACE=(TRK,1),
// UNIT=&UWK,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//DELSPLT EXEC PGM=IDCAMS,COND=(4,EQ,LISSPLT)
//*----------------------------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//SYSPRINT DD SYSOUT=&OUT
//SYSIN DD DSN=&&DLSPLT,DISP=(OLD,DELETE)
//PRLMIG EXEC PGM=BVPRMSYS,PARM='&OUTMIG'
//*---------------------------------------
//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=&&LIMIG,DISP=(,PASS),SPACE=(TRK,1),
// UNIT=&UWK,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//LISMIG EXEC PGM=IDCAMS
//*---------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//SYSPRINT DD SYSOUT=&OUT
//SYSIN DD DSN=&&LIMIG,DISP=(OLD,DELETE)
//PRDMIG EXEC PGM=BVPRMSYS,COND=(4,EQ,LISMIG),PARM='&OUTMIG'
//*-------------------------------------------------------
//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=&&DLMIG,DISP=(,PASS),SPACE=(TRK,1),
// UNIT=&UWK,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//DELMIG EXEC PGM=IDCAMS,COND=(4,EQ,LISMIG)
//*----------------------------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//SYSPRINT DD SYSOUT=&OUT
//SYSIN DD DSN=&&DLMIG,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=&INDMN..BVPSY(DFMIAMNR),DISP=SHR
//PACROU DD DSN=&&DFMIAMNR,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=&&DFMIAMNR,DISP=(OLD,DELETE)
//MAXKEY EXEC PGM=IDCAMS
//*----------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//SYSPRINT DD SYSOUT=&OUT
//SYSPAF DD DSN=&INDUV..MIAMNR.&USER,DISP=SHR
//MAXKEY DD DSN=&INDMN..BVPSY(MAXKEY),DISP=SHR
//SYSIN DD DSN=&INDMN..BVPSY(REPRO999),DISP=SHR
//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=&INDMN..BVPSY(DFMIBXNO),DISP=SHR
//PACROU DD DSN=&&DFMIBXNO,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=&&DFMIBXNO,DISP=(OLD,DELETE)
//MAXKEY EXEC PGM=IDCAMS
//*----------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//SYSPRINT DD SYSOUT=&OUT
//SYSPAF DD DSN=&INDUV..MIBXNO.&USER,DISP=SHR
//MAXKEY DD DSN=&INDMN..BVPSY(MAXKEY),DISP=SHR
//SYSIN DD DSN=&INDMN..BVPSY(REPRO999),DISP=SHR
//PACS9B EXEC PGM=BVPACS9B
//*-----------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
//*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR
//*: DD DSN=&VSAMCAT,DISP=SHR
//PAC7RN DD DSN=&NRFILE,DISP=SHR
//PAC7NT DD DSN=&NTFILE,DISP=SHR
//PAC7NR DD DSN=&INDUV..MIAMNR.&USER,DISP=SHR
//SORTWK01 DD UNIT=&UWK,SPACE=(CYL,(30,1),,CONTIG)
//SORTWK02 DD UNIT=&UWK,SPACE=(CYL,(30,1),,CONTIG)
//SORTWK03 DD UNIT=&UWK,SPACE=(CYL,(30,1),,CONTIG)
//SYSPRINT DD SYSOUT=&OUT
//SYSOUT DD SYSOUT=&OUT
//SYSUDUMP DD SYSOUT=&OUT
//PACS9C EXEC PGM=BVPACS9C
//*-----------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
//*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR
//*: DD DSN=&VSAMCAT,DISP=SHR
//PAC7NS DD DSN=&NSFILE,DISP=SHR
//PAC7NM DD DSN=&NMFILE,DISP=SHR
//PAC7NO DD DSN=&INDUV..MIBXNO.&USER,DISP=SHR
//SORTWK01 DD UNIT=&UWK,SPACE=(CYL,(30,1),,CONTIG)
//SORTWK02 DD UNIT=&UWK,SPACE=(CYL,(30,1),,CONTIG)
//SORTWK03 DD UNIT=&UWK,SPACE=(CYL,(30,1),,CONTIG)
//SYSPRINT DD SYSOUT=&OUT
//SYSOUT DD SYSOUT=&OUT
//SYSUDUMP DD SYSOUT=&OUT
//PACS21 EXEC PGM=BVPACS21
//*-----------------------
//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')
//PAC7MB DD DSN=&&MIBRMB,DISP=(OLD,PASS)
//PAC7RQ DD DSN=&&QR,DISP=(,PASS),
// UNIT=&UNITS,VOL=&VOLS,
// SPACE=&SPAMV,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//PAC7DD DD SYSOUT=&OUT
//SYSPRINT DD SYSOUT=&OUT
//SYSOUT DD SYSOUT=&OUT
//SYSUDUMP DD SYSOUT=&OUT
//PACS9A EXEC PGM=BVPACS9A,COND=(4,LT,PACS21)
//*------------------------------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
//*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR
//*: DD DSN=&VSAMCAT,DISP=SHR
//PAC7NR DD DSN=&INDUV..MIAMNR.&USER,DISP=SHR
//PAC7QR DD DSN=&&QR,DISP=(OLD,DELETE)
//PAC7RQ DD DSN=&&RQ,DISP=(,PASS),
// UNIT=&UNITS,VOL=&VOLS,
// SPACE=&SPAMV,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//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)
//SYSPRINT DD SYSOUT=&OUT
//SYSOUT DD SYSOUT=&OUT
//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=&INDMN..BVPSY(DLMIAMNR),DISP=SHR
//PACROU DD DSN=&&DLMIAMNR,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=&&DLMIAMNR,DISP=(OLD,DELETE)
//PACS92 EXEC PGM=BVPACS92,COND=(4,LT,PACS21)
//*------------------------------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
//*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR
//*: DD DSN=&VSAMCAT,DISP=SHR
//PAC7QR DD DSN=&&RQ,DISP=(OLD,DELETE)
//PAC7RQ DD DSN=&&PACXRQ,DISP=(,PASS),
// UNIT=&UNITS,VOL=&VOLS,
// SPACE=&SPAMV,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//PAC7ER DD DSN=&OUTDUPL,DISP=(,CATLG),
// UNIT=&UNITS,VOL=&VOLS,
// SPACE=&SPAMV,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//PAC7EE DD DSN=&&EE,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=&SPAMV,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//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)
//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=&INDMN..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=&INDMN..BVPSY(MAXKEY),DISP=SHR
//SYSIN DD DSN=&INDMN..BVPSY(REPRO999),DISP=SHR
//*
//PACX2 EXEC PGM=BVPACX,REGION=0K,COND=(4,LT,PACS21)
//*--------------------------------------------------
//*: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=&INDMV..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=&SPAMV
//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)
//PAC7WD DD DSN=&&PACXWD,DISP=(,DELETE),UNIT=&UWK,
// SPACE=&SPATD,
// DCB=(RECFM=FB,LRECL=286,BLKSIZE=6292)
//PAC7MV DD DUMMY
//PAC7MR DD DUMMY
//PAC7MX DD DUMMY
//PAC7RQ DD DUMMY
//PAC7TD DD DUMMY
//PAC7UE DD DUMMY
//PAC7CP DD DSN=&&CP,DISP=(,PASS),UNIT=&UWK,
// SPACE=&SPAMV,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//PAC7GY DD DSN=&&GY,DISP=(,PASS),UNIT=&UWK,
// SPACE=&SPAGY,
// DCB=(RECFM=FB,LRECL=310,BLKSIZE=6200)
//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)
//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=&INDMN..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,PACS21),
// (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,DELETE)
//PAC7QR DD DSN=&OUTSPLT,DISP=(,CATLG),
// UNIT=&UNITS,VOL=&VOLS,
// 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,PACS21),
// (4,LT,PACX2),(4,LT,PACS94))
//*--------------------------------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
//*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR
//*: DD DSN=&VSAMCAT,DISP=SHR
//PAC7NO DD DSN=&INDUV..MIBXNO.&USER,DISP=SHR
//PAC7GY DD DSN=&&GY,DISP=(OLD,DELETE)
//PAC7MB DD DSN=&&MIBRMB,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=&SPAMV,VOL=&VOLS,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//PAC7MI DD DSN=&OUTGCP,DISP=(,CATLG),UNIT=&UWK,
// SPACE=&SPAMV,VOL=&VOLS,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//PAC7MO DD DSN=&OUTGCO,DISP=(,CATLG),UNIT=&UWK,
// SPACE=&SPAMV,VOL=&VOLS,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//PAC7MC DD DSN=&OUTGGC,DISP=(,CATLG),UNIT=&UWK,
// SPACE=&SPAMV,VOL=&VOLS,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//PAC7MS DD DSN=&OUTGGS,DISP=(,CATLG),UNIT=&UWK,
// SPACE=&SPAMV,VOL=&VOLS,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//SYSPRINT DD SYSOUT=&OUT
//SYSOUT DD SYSOUT=&OUT
//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=&INDMN..BVPSY(DLMIBXNO),DISP=SHR
//PACROU DD DSN=&&DLMIBXNO,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=&&DLMIBXNO,DISP=(OLD,DELETE)
//PACS97 EXEC PGM=BVPACS97,COND=((4,LT,PACS21),
// (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,DELETE)
//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,PACS21),
// (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,DELETE)
//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,&SRTSPC,,CONTIG)
//SORTWK02 DD UNIT=&UWK,SPACE=(CYL,&SRTSPC,,CONTIG)
//SORTWK03 DD UNIT=&UWK,SPACE=(CYL,&SRTSPC,,CONTIG)
//SYSPRINT DD SYSOUT=&OUT
//SYSOUT DD SYSOUT=&OUT
//SYSUDUMP DD SYSOUT=&OUT
//PACS98 EXEC PGM=BVPACS98,COND=((4,LT,PACS21),
// (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=&INDMV..BVPAE,DISP=SHR
//PAC7CP DD DSN=&&CP,DISP=(OLD,PASS)
//PAC7RQ DD DSN=&OUTSPLT,DISP=SHR
//PAC7TI DD DSN=&&PAC7TI,DISP=(OLD,DELETE)
//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,&SRTSPC,,CONTIG)
//SORTWK02 DD UNIT=&UWK,SPACE=(CYL,&SRTSPC,,CONTIG)
//SORTWK03 DD UNIT=&UWK,SPACE=(CYL,&SRTSPC,,CONTIG)
//SYSPRINT DD SYSOUT=&OUT
//SYSOUT DD SYSOUT=&OUT
//SYSUDUMP DD SYSOUT=&OUT
//PACS9F EXEC PGM=BVPACS9F,COND=((4,LT,PACS21),
// (4,LT,PACX2),(4,LT,PACS98),(4,LT,PACS94))
//*-----------------------------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
//*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR
//*: DD DSN=&VSAMCAT,DISP=SHR
//PAC7MB DD DSN=&&MIBRMB,DISP=(OLD,PASS)
//PAC7NR DD DSN=&NRFILE,DISP=SHR
//PAC7NT DD DSN=&NTFILE,DISP=SHR
//PAC7EE DD DSN=&&EE,DISP=(OLD,DELETE)
//PAC7EX DD DSN=&OUTEXCL,DISP=(,CATLG),
// UNIT=&UNITS,VOL=&VOLS,
// SPACE=&SPAOT,
// DCB=(RECFM=FB,BLKSIZE=6160,LRECL=80)
//SORTWK01 DD UNIT=&UWK,SPACE=(CYL,&SRTSPC,,CONTIG)
//SORTWK02 DD UNIT=&UWK,SPACE=(CYL,&SRTSPC,,CONTIG)
//SORTWK03 DD UNIT=&UWK,SPACE=(CYL,&SRTSPC,,CONTIG)
//SYSPRINT DD SYSOUT=&OUT
//SYSOUT DD SYSOUT=&OUT
//SYSUDUMP DD SYSOUT=&OUT
//PACS9G EXEC PGM=BVPACS9G,COND=((4,LT,PACS21),
// (4,LT,PACX2),(4,LT,PACS98),(4,LT,PACS94))
//*-----------------------------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
//*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR
//*: DD DSN=&VSAMCAT,DISP=SHR
//PAC7MB DD DSN=&&MIBRMB,DISP=(OLD,PASS)
//PAC7NM DD DSN=&NMFILE,DISP=SHR
//PAC7MN DD DSN=&OUTMIG,DISP=(,CATLG),
// UNIT=&UNITS,VOL=&VOLS,
// SPACE=&SPAOT,
// DCB=(RECFM=FB,BLKSIZE=6160,LRECL=80)
//SYSPRINT DD SYSOUT=&OUT
//SYSOUT DD SYSOUT=&OUT
//SYSUDUMP DD SYSOUT=&OUT