//* ------------------------------------------------------
//* VISUALAGE PACBASE
//*
//* ------------------------------------------------------
//* ARCHIVED JOURNAL MIGRATION
//*
//* ------------------------------------------------------
//*
//BVPMIBJ 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
// INDUN='$INDUN', INDEX OF USER NO 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
// USER=, USER CODE
// OUT='$OUT', OUTPUT CLASS
// OUTL='$OUT', PRINT OUTPUT CLASS
// UWK=$UWK, WORK UNIT
// SPAMB='(TRK,(5,1),RLSE)', REQUEST FILE SPACE
// SPAMV='(CYL,(100,10),RLSE)', SPACE OF UPDT FILE
// SPAGY='(CYL,(100,10),RLSE)', SPACE OF UPDP FILE
// SPATD='(CYL,(100,10),RLSE)', SPACE OF CPSN FILE
// NRFILE=, NOT RETRIEVED ENTITIES FILE
// NSFILE=, NOT MIGRATED SCREEN FILE
// NTFILE=, NOT RETRIEVED ENTITIES USER FILE
// NMFILE=, MIGRATED MODE USER FILE
// SPLTFILE=, SPLITTING LIBRARIES 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
// VOLS='SER=$VOLUN', BACKUP VOLUME
// UNITS=$UNITUN, BACKUP UNIT
// SPAOT='(TRK,(500,80),RLSE)', OUTPUT FILE SPACE
// SRTSPC='(100,10)', TEMPORARY SPACE
// BUF=40,SPIE=0,TEST=0,EXCPVR=0,RST=0,PRLD=,SRCH=0,
// CKPTID=,MON=N,LOGA=0,FMTO=T,DBRC=$DBRC,IRLM=$IRLM
//***************************************************************
//INPUT EXEC PGM=BVPTU001
//*-----------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
// DD DSN=$BCOB,DISP=SHR
//CARTE DD DDNAME=SYSIN
//PAC7MB DD DSN=&&MIBJMB,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(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=&INDSN..BVPSY(MAXKEY),DISP=SHR
//SYSIN DD DSN=&INDSN..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=&INDSN..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=&INDSN..BVPSY(MAXKEY),DISP=SHR
//SYSIN DD DSN=&INDSN..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
//PACSJR EXEC PGM=DFSRRC00,REGION=$REGSIZ,
// PARM=(DLI,BVPACSJR,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
//BVP7GN DD DSN=&INDSV..BVPGN,DISP=SHR
//BVP7GR DD DSN=&INDSV..BVPGR,DISP=SHR
//BVP7GU DD DSN=&INDSV..BVPGU,DISP=SHR
//B7AR$BASE DD DSN=&INDUV..&BASE.AR,DISP=SHR
//B7AN$BASE DD DSN=&INDUV..&BASE.AN,DISP=SHR
//PAC7PJ DD DSN=&INDUN..&BASE.PJ(0),DISP=SHR
//PAC7MB DD DSN=&&MIBJMB,DISP=(OLD,PASS)
//PAC7RQ DD DSN=&&RQJR,DISP=(,PASS),
// UNIT=&UNITS,VOL=&VOLS,
// SPACE=&SPAMV,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//PAC7DD DD SYSOUT=&OUT
//PAC7EE DD SYSOUT=&OUT
//SYSPRINT DD SYSOUT=&OUT
//SYSOUT DD SYSOUT=&OUT
//SYSUDUMP DD SYSOUT=&OUT
//PACS93 EXEC PGM=DFSRRC00,REGION=$REGSIZ,
// PARM=(DLI,BVPACS93,PACFIC$SUG,&BUF,
// &SPIE&TEST&EXCPVR&RST,&PRLD,
// &SRCH,&CKPTID,&MON,&LOGA,&FMTO,,,&DBRC,
// &IRLM),
// COND=(4,LT,PACSJR)
//*--------------------------------------
//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
//B7AR$BASE DD DSN=&INDUV..&BASE.AR,DISP=SHR
//B7AN$BASE DD DSN=&INDUV..&BASE.AN,DISP=SHR
//PAC7MB DD DSN=&&MIBJMB,DISP=(OLD,PASS)
//PAC7SL DD DSN=&SPLTFILE,DISP=SHR
//PAC7RQ DD DSN=&&RQJR,DISP=(OLD,PASS)
//PAC7MB DD DSN=&&MIBJMB,DISP=(OLD,PASS)
//PAC7QR DD DSN=&&QR,DISP=(,PASS),UNIT=&UWK,
// SPACE=&SPAMV,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//PAC7FU DD DSN=&&MIBJFU,DISP=(,PASS),
// UNIT=&UWK,SPACE=&SPAMB,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
// 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
//PACS25 EXEC PGM=BVPACS25,COND=(4,LT,PACSJR)
//*------------------------------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
//*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR
//*: DD DSN=&VSAMCAT,DISP=SHR
//PAC7QR DD DSN=&&QR,DISP=(OLD,PASS)
//PAC7RQ DD DSN=&&RQ25,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
//PACS9A EXEC PGM=BVPACS9A,COND=(4,LT,PACSJR)
//*------------------------------------------
//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=&&RQ25,DISP=(OLD,PASS)
//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=&INDSN..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,PACSJR)
//*------------------------------------------
//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=&&RQ,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=DFSRRC00,REGION=$REGSIZ,
// PARM=(DLI,BVPACX,PACFIC$SUG,&BUF,
// &SPIE&TEST&EXCPVR&RST,&PRLD,
// &SRCH,&CKPTID,&MON,&LOGA,&FMTO,,,&DBRC,
// &IRLM),
// COND=(4,LT,PACSJR)
//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
//B7AY$BASE DD DSN=&INDUV..&BASE.AY,DISP=SHR
//BVP7GN DD DSN=&INDSV..BVPGN,DISP=SHR
//BVP7GR DD DSN=&INDSV..BVPGR,DISP=SHR
//BVP7GU DD DSN=&INDSV..BVPGU,DISP=SHR
//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
//SYSEXT DD DSN=&INDSV..SYSEX2.&USER,DISP=SHR
//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)
//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)
//PAC7CP DD DSN=&&CP,DISP=(,PASS),UNIT=&UWK,
// SPACE=&SPAMV,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//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',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,PACX2),(4,LT,PACSJR))
//*----------------------------------------
//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,PACX2),(4,LT,PACSJR),(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,PASS)
//PAC7MB DD DSN=&&MIBJFU,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)
//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=&INDSN..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,PACX2),(4,LT,PACSJR),(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,PACX2),(4,LT,PACSJR),(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=DFSRRC00,REGION=$REGSIZ,
// PARM=(DLI,BVPACS98,PACFIC$SUG,&BUF,
// &SPIE&TEST&EXCPVR&RST,&PRLD,
// &SRCH,&CKPTID,&MON,&LOGA,&FMTO,,,&DBRC,
// &IRLM),
// COND=((4,LT,PACX2),(4,LT,PACSJR),(4,LT,PACS94))
//*------------------------------------------------------
//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
//B7AR$BASE DD DSN=&INDUV..&BASE.AR,DISP=SHR
//PAC7CP DD DSN=&&CP,DISP=(OLD,PASS)
//PAC7RQ DD DSN=&&PAC7QR,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