MIA4 - Execution JCL

   //* ------------------------------------------------------
   //*      VISUALAGE PACBASE
   //*
   //* ------------------------------------------------------
   //*       SERVER GENERATION
   //*
   //* ------------------------------------------------------
   //*
   //BVPMIA4  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
   //*:       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
   //         OUT='$OUT',              OUTPUT CLASS
   //         UWK=$UWK,                WORK UNIT
   //         SPAWK='(CYL,(50,10),RLSE)',  WORK FILE SPACE
   //         OUTFILE=,                    OUTPUT CONTROL COBOL FILE
   //         OUTFIL2=,                         OUTPUT COBOL C9 FILE
   //         SPAMB='(TRK,(5,1),RLSE)',           REQUEST FILE SPACE
   //         VOLS='SER=$VOLUN',                       BACKUP VOLUME
   //         UNITS=$UNITUN,                             BACKUP UNIT
   //         SPAOT='(CYL,(50,50))',               OUTPUT FILE SPACE
   //         SPAOU='(CYL,(100,100))',             OUTPUT FIL2 SPACE
   //         BUF=40,EXCPVR=0,RST=0,SRCH=0,
   //         MON=N,LOGA=0,FMTO=T,DBRC=$DBRC,IRLM=$IRLM,
   //         SPIE=0,TEST=0,NBA=,IN=,OUT1=,PRLD=,CKPTID=,DIRCA=000,
   //         PARDLI=1,STIMER=,CPUTIME=,OBA=,AGN=,IMSID=$IMSID,OPT=N
   //***************************************************************
   //INPUT  EXEC PGM=BVPTU001
   //*-----------------------
   //STEPLIB  DD DSN=&STEPLIB,DISP=SHR
   //         DD DSN=$BCOB,DISP=SHR
   //CARTE    DD DDNAME=SYSIN
   //PAC7MB   DD DSN=&&MIA4MB,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)
   //PRLFIL2  EXEC PGM=BVPRMSYS,PARM='&OUTFIL2'
   //*---------------------------------------
   //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=&&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=&INDSN..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=DFSRRC00,REGION=$REGSIZ,
   //        PARM=(DLI,BVPACA10,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
   //B7AN$BASE  DD DSN=&INDUV..&BASE.AN,DISP=SHR
   //B7AR$BASE  DD DSN=&INDUV..&BASE.AR,DISP=SHR
   //B7AJ$BASE  DD DSN=&INDUV..&BASE.AJ,DISP=SHR
   //B7AY$BASE  DD DSN=&INDUV..&BASE.AY,DISP=SHR
   //BVP7GR   DD DSN=&INDSV..BVPGR,DISP=SHR
   //BVP7GN   DD DSN=&INDSV..BVPGN,DISP=SHR
   //BVP7GU   DD DSN=&INDSV..BVPGU,DISP=SHR
   //PAC7ME   DD DSN=&&MIA4MB,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
   //PACA21  EXEC PGM=DFSRRC00,REGION=$REGSIZ,
   //        PARM=(DLI,BVPACA21,PACB$SUG,&BUF,
   //        &SPIE&TEST&EXCPVR&RST,&PRLD,
   //        &SRCH,&CKPTID,&MON,&LOGA,&FMTO,,,&DBRC,
   //        &IRLM),
   //        COND=(4,LT,PACA10)
   //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
   //BVP7GN   DD DSN=&INDSV..BVPGN,DISP=SHR
   //BVP7GR   DD DSN=&INDSV..BVPGR,DISP=SHR
   //BVP7GU   DD DSN=&INDSV..BVPGU,DISP=SHR
   //BVP7GK    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
   //*-----------------------------------------------
   //PACM4   EXEC PGM=DFSRRC00,REGION=$REGSIZ,
   //        PARM=(BMP,BVPACMM4,PACB$SUG,&IN,&OUT1,
   //        &OPT&SPIE&TEST&DIRCA,&PRLD,&STIMER,
   //        &CKPTID,
   //        &PARDLI,&CPUTIME,&NBA,&OBA,&IMSID,&AGN)
   //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
   //B7AJ$BASE  DD DUMMY
   //B7AN$BASE  DD DSN=&INDUV..&BASE.AN,DISP=SHR
   //B7AY$BASE  DD DSN=&INDUV..&BASE.AY,DISP=SHR
   //B7AR$BASE  DD DSN=&INDUV..&BASE.AR,DISP=SHR
   //BVP7GR   DD DSN=&INDSV..BVPGR,DISP=SHR
   //BVP7GN   DD DSN=&INDSV..BVPGN,DISP=SHR
   //BVP7GU   DD DSN=&INDSV..BVPGU,DISP=SHR
   //PAC7SS   DD DSN=&INDSV..BVPSS,DISP=SHR
   //PAC7EV   DD UNIT=&UWK,SPACE=(CYL,(20,5),RLSE),DCB=BLKSIZE=27820
   //PAC7EZ   DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=20000
   //PAC7GV   DD DSN=&&PAC7GV,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)
   //PAC7KV   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

Feedback