MIAM - JCL d'exécution

   //* ------------------------------------------------------
   //*      IBM RATIONAL PROGRAMMING PATTERNS (RPP)
   //*
   //* ------------------------------------------------------
   //*                 MIGRATION HELP
   //*
   //* ------------------------------------------------------
   //*
   //BVPMIAM  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
   //         LSR='BLSR',                      LSR BATCH SYSTEM NAME
   //         OUT=$OUT,                                 OUTPUT CLASS
   //         INPARAM=,                             PARAMETER'S FILE
   //         OUTCSPE=,                       SPECIAL CARACTERS FILE
   //         OUTNREP=,                  NOT RETRIEVED ENTITIES FILE
   //         OUTNMIG=,     PROGRAMS OR SCREENS WITH ONLY DEF OR -CE
   //         OUTPMAC=,                     MACROS WITHOUT TYPE FILE
   //         OUTRQER=,                                  ERRORS FILE
   //         OUTGY=,                                        GY FILE
   //         OUTUP=,                              MANDATORY GY FILE
   //         VOLS='SER=$VOLMN',                       BACKUP VOLUME
   //         UNITS=$UNITMN,                             BACKUP UNIT
   //         UWK=$UWK,                                    WORK UNIT
   //         SPAMB='(TRK,(5,1),RLSE)',           REQUEST FILE SPACE
   //         SPAOT='(TRK,(500,80),RLSE)'          OUTPUT FILE SPACE
   //***************************************************************
   //INPUT  EXEC PGM=BVPTU001
   //*-----------------------
   //STEPLIB  DD DSN=&STEPLIB,DISP=SHR
   //         DD DSN=$BCOB,DISP=SHR
   //CARTE    DD DDNAME=SYSIN
   //PAC7MB   DD DSN=&&MIAMMB,DISP=(,PASS),
   //            UNIT=&UWK,SPACE=&SPAMB,
   //            DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
   //PRLCSPE  EXEC PGM=BVPRMSYS,PARM='&OUTCSPE'
   //*---------------------------------------
   //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=&&LICSPE,DISP=(,PASS),SPACE=(TRK,1),
   //          UNIT=&UWK,
   //          DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
   //LISCSPE  EXEC PGM=IDCAMS
   //*---------------------
   //*:STEPCAT  DD DSN=&VSAMCAT,DISP=SHR
   //SYSPRINT DD SYSOUT=&OUT
   //SYSIN    DD DSN=&&LICSPE,DISP=(OLD,DELETE)
   //PRDCSPE  EXEC PGM=BVPRMSYS,COND=(4,EQ,LISCSPE),PARM='&OUTCSPE'
   //*-------------------------------------------------------
   //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=&&DLCSPE,DISP=(,PASS),SPACE=(TRK,1),
   //          UNIT=&UWK,
   //          DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
   //DELCSPE  EXEC PGM=IDCAMS,COND=(4,EQ,LISCSPE)
   //*----------------------------------------
   //*:STEPCAT  DD DSN=&VSAMCAT,DISP=SHR
   //SYSPRINT DD SYSOUT=&OUT
   //SYSIN    DD DSN=&&DLCSPE,DISP=(OLD,DELETE)
   //PRLNREP  EXEC PGM=BVPRMSYS,PARM='&OUTNREP'
   //*---------------------------------------
   //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=&&LINREP,DISP=(,PASS),SPACE=(TRK,1),
   //          UNIT=&UWK,
   //          DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
   //LISNREP  EXEC PGM=IDCAMS
   //*---------------------
   //*:STEPCAT  DD DSN=&VSAMCAT,DISP=SHR
   //SYSPRINT DD SYSOUT=&OUT
   //SYSIN    DD DSN=&&LINREP,DISP=(OLD,DELETE)
   //PRDNREP  EXEC PGM=BVPRMSYS,COND=(4,EQ,LISNREP),PARM='&OUTNREP'
   //*-------------------------------------------------------
   //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=&&DLNREP,DISP=(,PASS),SPACE=(TRK,1),
   //          UNIT=&UWK,
   //          DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
   //DELNREP  EXEC PGM=IDCAMS,COND=(4,EQ,LISNREP)
   //*----------------------------------------
   //*:STEPCAT  DD DSN=&VSAMCAT,DISP=SHR
   //SYSPRINT DD SYSOUT=&OUT
   //SYSIN    DD DSN=&&DLNREP,DISP=(OLD,DELETE)
   //PRLNMIG  EXEC PGM=BVPRMSYS,PARM='&OUTNMIG'
   //*---------------------------------------
   //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=&&LINMIG,DISP=(,PASS),SPACE=(TRK,1),
   //          UNIT=&UWK,
   //          DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
   //LISNMIG  EXEC PGM=IDCAMS
   //*---------------------
   //*:STEPCAT  DD DSN=&VSAMCAT,DISP=SHR
   //SYSPRINT DD SYSOUT=&OUT
   //SYSIN    DD DSN=&&LINMIG,DISP=(OLD,DELETE)
   //PRDNMIG  EXEC PGM=BVPRMSYS,COND=(4,EQ,LISNMIG),PARM='&OUTNMIG'
   //*-------------------------------------------------------
   //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=&&DLNMIG,DISP=(,PASS),SPACE=(TRK,1),
   //          UNIT=&UWK,
   //          DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
   //DELNMIG  EXEC PGM=IDCAMS,COND=(4,EQ,LISNMIG)
   //*----------------------------------------
   //*:STEPCAT  DD DSN=&VSAMCAT,DISP=SHR
   //SYSPRINT DD SYSOUT=&OUT
   //SYSIN    DD DSN=&&DLNMIG,DISP=(OLD,DELETE)
   //PRLPMAC  EXEC PGM=BVPRMSYS,PARM='&OUTPMAC'
   //*---------------------------------------
   //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=&&LIPMAC,DISP=(,PASS),SPACE=(TRK,1),
   //          UNIT=&UWK,
   //          DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
   //LISPMAC  EXEC PGM=IDCAMS
   //*---------------------
   //*:STEPCAT  DD DSN=&VSAMCAT,DISP=SHR
   //SYSPRINT DD SYSOUT=&OUT
   //SYSIN    DD DSN=&&LIPMAC,DISP=(OLD,DELETE)
   //PRDPMAC  EXEC PGM=BVPRMSYS,COND=(4,EQ,LISPMAC),PARM='&OUTPMAC'
   //*-------------------------------------------------------
   //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=&&DLPMAC,DISP=(,PASS),SPACE=(TRK,1),
   //          UNIT=&UWK,
   //          DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
   //DELPMAC  EXEC PGM=IDCAMS,COND=(4,EQ,LISPMAC)
   //*----------------------------------------
   //*:STEPCAT  DD DSN=&VSAMCAT,DISP=SHR
   //SYSPRINT DD SYSOUT=&OUT
   //SYSIN    DD DSN=&&DLPMAC,DISP=(OLD,DELETE)
   //PRLRQER  EXEC PGM=BVPRMSYS,PARM='&OUTRQER'
   //*---------------------------------------
   //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=&&LIRQER,DISP=(,PASS),SPACE=(TRK,1),
   //          UNIT=&UWK,
   //          DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
   //LISRQER  EXEC PGM=IDCAMS
   //*---------------------
   //*:STEPCAT  DD DSN=&VSAMCAT,DISP=SHR
   //SYSPRINT DD SYSOUT=&OUT
   //SYSIN    DD DSN=&&LIRQER,DISP=(OLD,DELETE)
   //PRDRQER  EXEC PGM=BVPRMSYS,COND=(4,EQ,LISRQER),PARM='&OUTRQER'
   //*-------------------------------------------------------
   //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=&&DLRQER,DISP=(,PASS),SPACE=(TRK,1),
   //          UNIT=&UWK,
   //          DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
   //DELRQER  EXEC PGM=IDCAMS,COND=(4,EQ,LISRQER)
   //*----------------------------------------
   //*:STEPCAT  DD DSN=&VSAMCAT,DISP=SHR
   //SYSPRINT DD SYSOUT=&OUT
   //SYSIN    DD DSN=&&DLRQER,DISP=(OLD,DELETE)
   //PRLGY  EXEC PGM=BVPRMSYS,PARM='&OUTGY'
   //*---------------------------------------
   //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=&&LIGY,DISP=(,PASS),SPACE=(TRK,1),
   //          UNIT=&UWK,
   //          DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
   //LISGY  EXEC PGM=IDCAMS
   //*---------------------
   //*:STEPCAT  DD DSN=&VSAMCAT,DISP=SHR
   //SYSPRINT DD SYSOUT=&OUT
   //SYSIN    DD DSN=&&LIGY,DISP=(OLD,DELETE)
   //PRDGY  EXEC PGM=BVPRMSYS,COND=(4,EQ,LISGY),PARM='&OUTGY'
   //*-------------------------------------------------------
   //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=&&DLGY,DISP=(,PASS),SPACE=(TRK,1),
   //          UNIT=&UWK,
   //          DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
   //DELGY  EXEC PGM=IDCAMS,COND=(4,EQ,LISGY)
   //*----------------------------------------
   //*:STEPCAT  DD DSN=&VSAMCAT,DISP=SHR
   //SYSPRINT DD SYSOUT=&OUT
   //SYSIN    DD DSN=&&DLGY,DISP=(OLD,DELETE)
   //PRLUP  EXEC PGM=BVPRMSYS,PARM='&OUTUP'
   //*---------------------------------------
   //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=&&LIUP,DISP=(,PASS),SPACE=(TRK,1),
   //          UNIT=&UWK,
   //          DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
   //LISUP  EXEC PGM=IDCAMS
   //*---------------------
   //*:STEPCAT  DD DSN=&VSAMCAT,DISP=SHR
   //SYSPRINT DD SYSOUT=&OUT
   //SYSIN    DD DSN=&&LIUP,DISP=(OLD,DELETE)
   //PRDUP  EXEC PGM=BVPRMSYS,COND=(4,EQ,LISUP),PARM='&OUTUP'
   //*-------------------------------------------------------
   //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=&&DLUP,DISP=(,PASS),SPACE=(TRK,1),
   //          UNIT=&UWK,
   //          DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
   //DELUP  EXEC PGM=IDCAMS,COND=(4,EQ,LISUP)
   //*----------------------------------------
   //*:STEPCAT  DD DSN=&VSAMCAT,DISP=SHR
   //SYSPRINT DD SYSOUT=&OUT
   //SYSIN    DD DSN=&&DLUP,DISP=(OLD,DELETE)
   //PLTPAM EXEC PGM=BVPLTPAM
   //*-----------------------
   //STEPLIB  DD DSN=&STEPLIB,DISP=SHR
   //*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR
   //*:        DD DSN=&VSAMCAT,DISP=SHR
   //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')
   //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')
   //PAC7MB   DD DSN=&&MIAMMB,DISP=(OLD,PASS)
   //PAC7CK   DD DSN=&INPARAM,DISP=SHR
   //PAC7CS   DD DSN=&OUTCSPE,DISP=(,CATLG),
   //         UNIT=&UNITS,VOL=&VOLS,
   //         SPACE=&SPAOT,
   //         DCB=(RECFM=FB,BLKSIZE=6160,LRECL=80)
   //PAC7NR   DD DSN=&OUTNREP,DISP=(,CATLG),
   //         UNIT=&UNITS,VOL=&VOLS,
   //         SPACE=&SPAOT,
   //         DCB=(RECFM=FB,BLKSIZE=6160,LRECL=80)
   //PAC7NS   DD DSN=&OUTNMIG,DISP=(,CATLG),
   //         UNIT=&UNITS,VOL=&VOLS,
   //         SPACE=&SPAOT,
   //         DCB=(RECFM=FB,BLKSIZE=6160,LRECL=80)
   //PAC7PM   DD DSN=&OUTPMAC,DISP=(,CATLG),
   //         UNIT=&UNITS,VOL=&VOLS,
   //         SPACE=&SPAOT,
   //         DCB=(RECFM=FB,BLKSIZE=500,LRECL=50)
   //PAC7RQ   DD DSN=&OUTRQER,DISP=(,CATLG),
   //         UNIT=&UNITS,VOL=&VOLS,
   //         SPACE=&SPAOT,
   //         DCB=(RECFM=FB,BLKSIZE=15000,LRECL=150)
   //PAC7DX   DD DSN=&&DX,DISP=(,PASS),
   //            UNIT=&UWK,SPACE=&SPAMB,
   //            DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
   //PAC7DD   DD SYSOUT=&OUT
   //SYSPRINT DD SYSOUT=&OUT
   //SYSOUT   DD SYSOUT=&OUT
   //SYSUDUMP DD SYSOUT=&OUT
   //PLTPAP EXEC PGM=BVPLTPAP
   //*-----------------------
   //STEPLIB  DD DSN=&STEPLIB,DISP=SHR
   //*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR
   //*:        DD DSN=&VSAMCAT,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')
   //PAC7MB   DD DSN=&&MIAMMB,DISP=(OLD,PASS)
   //PAC7DX   DD DSN=&&DX,DISP=(OLD,PASS)
   //PAC7GY   DD DSN=&OUTGY,DISP=(,CATLG),
   //         UNIT=&UNITS,VOL=&VOLS,
   //         SPACE=&SPAOT,
   //         DCB=(RECFM=FB,BLKSIZE=31000,LRECL=310)
   //PAC7UP   DD DSN=&OUTUP,DISP=(,CATLG),
   //         UNIT=&UNITS,VOL=&VOLS,
   //         SPACE=&SPAOT,
   //         DCB=(RECFM=FB,BLKSIZE=31000,LRECL=310)
   //SORTLIB  DD DSN=&SORTLIB,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

Vos commentaires