MIBU - JCL d'exécution

   //* ------------------------------------------------------
   //*      VISUALAGE PACBASE
   //*
   //* ------------------------------------------------------
   //*                 BATCH MIGRATION
   //*
   //* ------------------------------------------------------
   //*
   //BVPMIBU  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
   //         LSR='BLSR',                      LSR BATCH SYSTEM NAME
   //         OUT=$OUT,            UTILITIES AND ERRORS OUTPUT CLASS
   //         UWK=$UWK,                                    WORK UNIT
   //         GYFILE=,                                  USER FILE GY
   //         INPUTSPE=,                           SPECIAL CHAR FILE
   //         OUTFILE=,                        OUTPUT FILE MIGRATION
   //         VOLS='SER=$VOLUN',                       BACKUP VOLUME
   //         UNITS=$UNITUN,                             BACKUP UNIT
   //         SPAMV='(CYL,(50,10),RLSE)',            WORK FILE SPACE
   //         SPAOT='(CYL,(50,10),RLSE)',          OUTPUT FILE SPACE
   //         SRTSPC='(100,10)'                      TEMPORARY SPACE
   //***************************************************************
   //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)
   //PACS9D EXEC PGM=BVPACS9D
   //*------------------------------------------
   //STEPLIB  DD DSN=&STEPLIB,DISP=SHR
   //*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR
   //*:        DD DSN=&VSAMCAT,DISP=SHR
   //PAC7GY   DD DSN=&GYFILE,DISP=SHR
   //PAC7QR   DD DSN=&&QR,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
   //PACS9E EXEC PGM=BVPACS9E
   //*------------------------------------------
   //STEPLIB  DD DSN=&STEPLIB,DISP=SHR
   //*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR
   //*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR
   //*:        DD DSN=&VSAMCAT,DISP=SHR
   //PAC7QR   DD DSN=&&QR,DISP=(OLD,DELETE)
   //PAC7SL   DD DSN=&SPLTFILE,DISP=SHR
   //PAC7RQ   DD DSN=&&RQ,DISP=(,PASS),UNIT=&UWK,
   //            SPACE=&SPAMV,
   //            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
   //PACS94 EXEC PGM=BVPACS94
   //*------------------------------------------
   //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=&&RQ,DISP=(OLD,DELETE)
   //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
   //*------------------------------------------
   //STEPLIB  DD DSN=&STEPLIB,DISP=SHR
   //*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR
   //*:        DD DSN=&VSAMCAT,DISP=SHR
   //PAC7GY   DD DSN=&GYFILE,DISP=SHR
   //PAC7MB   DD DUMMY
   //PAC7CS   DD DSN=&INPUTSPE,DISP=SHR
   //PAC7PM   DD DUMMY
   //PAC7TA   DD DSN=&&PAC7TA,DISP=(,PASS),
   //         UNIT=&UNITS,VOL=&VOLS,
   //         SPACE=&SPAOT,
   //         DCB=(RECFM=FB,BLKSIZE=27600,LRECL=400)
   //PAC7MM   DD DUMMY
   //PAC7MI   DD DUMMY
   //PAC7MO   DD DUMMY
   //PAC7MC   DD DUMMY
   //PAC7MS   DD DUMMY
   //PAC7NO   DD DUMMY,AMP=AMORG
   //SYSPRINT DD SYSOUT=&OUT
   //SYSOUT   DD SYSOUT=&OUT
   //SYSUDUMP DD SYSOUT=&OUT
   //PACS97 EXEC PGM=BVPACS97
   //*------------------------------------------
   //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
   //*--------------------------------------------
   //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)
   //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)
   //SYSPRINT DD SYSOUT=&OUT
   //SYSOUT   DD SYSOUT=&OUT
   //SYSUDUMP DD SYSOUT=&OUT
   //PACS98 EXEC PGM=BVPACS98
   //*-----------------------------------------
   //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 DUMMY
   //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

Vos commentaires