ERLD - JCL d'exécution

   //*             - LOADING OF USER'S ERROR MESSAGES -
   //*
   //* ------------------------------------------------------
   //*
   //* THE ERLD PROCEDURE PERFORMS THE INITIAL LOADING OF USER
   //* DEFINED ERROR MESSAGES. THESE MESSAGES ARE OBTAINED
   //* FROM THE SEQUENTIAL OUTPUT FILE 'ERRORLABEL.TXT'
   //* RESULT OF RPP GENERATION (SIMILAR TO PAC GL FILE).
   //*
   //*
   //* INPUT :
   //*  -  USER IDENTIFICATION LINE (OPTIONAL)
   //* ------------------------------------------------------
   //*
   //BVPERLD  PROC BASE=$BASE,                CODE OF DEVPT DATABASE
   //         INDUN='$INDUN',           INDEX OF NON-VSAM USER FILES
   //         INDUV='$INDUV',               INDEX OF VSAM USER FILES
   //         GL='&&RPPGL',  USER ERROR MESSAGES SEQUENTIAL FILE DSN
   //*:       VSAMCAT='$VCAT',                     USER VSAM CATALOG
   //*:       SYSTCAT='$SCAT',                   SYSTEM VSAM CATALOG
   //         STEPLIB='$HLQ..SBVPMBR8',      LIBRARY OF LOAD-MODULES
   //         UWK=SYSDA,                                   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=&&ERLDMB,DISP=(,PASS),
   //            UNIT=&UWK,SPACE=(TRK,(5,1),RLSE),
   //            DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
   //DEFINE EXEC PGM=IDCAMS
   //*---------------------
   //*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
   //SYSPRINT DD SYSOUT=&OUT
   //SYSIN    DD DSN=&INDUN..&BASE.SY(DF&BASE.EM),DISP=SHR
   //PACL94 EXEC PGM=BVPACL94
   //*-----------------------
   //STEPLIB  DD DSN=&STEPLIB,DISP=SHR
   //         DD DSN=$BCOB,DISP=SHR
   //*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
   //*:        DD DSN=&SYSTCAT,DISP=SHR
   //SYSOUT   DD SYSOUT=&OUT
   //PAC7EM   DD DSN=&INDUV..&BASE.EM,DISP=SHR
   //PAC7GL   DD DSN=&GL,DISP=SHR
   //PAC7MB   DD DSN=&&ERLDMB,DISP=(OLD,DELETE)
   //PAC7IY   DD SYSOUT=&OUT
   //SYSUDUMP DD SYSOUT=&OUT

Vos commentaires