MIMA - JCL d'exécution

   //* ------------------------------------------------------
   //*      VISUALAGE PACBASE
   //*
   //* ------------------------------------------------------
   //*             MACRO-STRUCTURES MIGRATION
   //*
   //* ------------------------------------------------------
   //*
   //BVPMIMA PROC BASE=$BASE,                 CODE OF VAPAC DATABASE
   //         INDSV='$INDSV',             INDEX OF VSAM SYSTEM FILES
   //         INDSN='$INDSN',         INDEX OF NON VSAM SYSTEM FILES
   //         INDUV='$INDUV',               INDEX OF USER VSAM FILES
   //*:       SYSTCAT='$SCAT',                   SYSTEM VSAM CATALOG
   //         STEPLIB='$HLQ..SBVPMBR8',      LIBRARY OF LOAD-MODULES
   //         INPUTSPE=,                           SPECIAL CHAR FILE
   //         OUTFILE=,                        OUTPUT FILE MIGRATION
   //         SPAOT='(CYL,(50,50))',               OUTPUT FILE SPACE
   //         VOLS='SER=$VOLUN',                       BACKUP VOLUME
   //         UNITS=$UNITUN,                             BACKUP UNIT
   //         SPAWK='(CYL,(20,5),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=&&MIMAMB,DISP=(,PASS),
   //            UNIT=&UWK,SPACE=(TRK,(5,1),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=&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)
   //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=&INDSV..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=&&MIMAMB,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
   //PACA30 EXEC PGM=BVPACA30,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=&INDSV..BVPAE,DISP=SHR
   //PAC7MG   DD DSN=&&PAC7MG,DISP=(OLD,PASS)
   //PAC7JG   DD DSN=&&PAC7KC,DISP=(,PASS),
   //            UNIT=&UNITS,VOL=&VOLS,
   //            SPACE=&SPAWK,
   //            DCB=(RECFM=FB,LRECL=80,BLKSIZE=1600)
   //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
   //PACMM  EXEC PGM=BVPACMM,COND=((4,LT,PACA10),
   //      (4,LT,PACA30))
   //*-------------------------------------------
   //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=&INDSV..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')
   //PAC7SC   DD DSN=&INDSV..BVPSC,DISP=SHR
   //PAC7CS   DD DSN=&INPUTSPE,DISP=SHR
   //PAC7EP   DD UNIT=&UWK,SPACE=(TRK,(20,5),RLSE),DCB=BLKSIZE=27820
   //PAC7GI   DD DSN=&&PAC7GI,UNIT=&UWK,DCB=BLKSIZE=3440,
   //            SPACE=(TRK,(10,5),RLSE),DISP=(,DELETE)
   //PAC7GP   DD DSN=&&PAC7GP,UNIT=&UWK,DISP=(,PASS),
   //            DCB=(RECFM=FB,LRECL=80,BLKSIZE=12560),
   //            SPACE=(TRK,(20,5),RLSE)
   //PAC7JG   DD DSN=&&PAC7JG,DISP=(,PASS),UNIT=&UWK,
   //            DCB=(RECFM=FB,LRECL=80,BLKSIZE=3440),
   //            SPACE=(TRK,(5,1),RLSE)
   //PAC7KC   DD DSN=&&PAC7KC,DISP=(OLD,PASS)
   //PAC7KP   DD UNIT=&UWK,SPACE=(TRK,(20,5),RLSE),DCB=BLKSIZE=27820
   //PAC7RQ   DD UNIT=&UWK,SPACE=(TRK,(20,5),RLSE),DCB=BLKSIZE=27800
   //PAC7AT   DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=27000
   //PAC7TA   DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=27000
   //PAC7TT   DD DSN=&OUTFILE,DISP=(,CATLG),
   //            UNIT=&UNITS,VOL=&VOLS,
   //            SPACE=&SPAOT,
   //            DCB=(RECFM=FB,BLKSIZE=27000,LRECL=1000)
   //PAC7WA   DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=25200
   //PAC7WC   DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=27820
   //PAC7W1   DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=27820
   //PAC7W2   DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=27820
   //PAC7W3   DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=27820
   //PAC7W4   DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=27180
   //PAC7W5   DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=27820
   //PAC7IA   DD SYSOUT=&OUT
   //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 DUMMY
   //SYSUDUMP DD SYSOUT=&OUT

Vos commentaires