MIBA - Execution JCL

   //* ------------------------------------------------------
   //*      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

Feedback