ERUP - JCL d'exécution

   //*             - USER'S ERROR MESSAGES UPDATING -
   //*
   //* ------------------------------------------------------
   //*
   //* THE ERUP PROCEDURE UPDATES THE USER-DEFINED ERROR
   //* MESSAGE FILE. THESE MESSAGES ARE OBTAINED FROM THE
   //* SEQUENTIAL OUTPUT FILE OF THE RPP GENERATION
   //* ERRORLABEL.TXT OR FROM TRANSACTIONS FOR ERROR
   //* MESSAGE DELETIONS AT THE ENTITY LEVEL.
   //*
   //* INPUT :
   //*  -  USER IDENTIFICATION LINE (REQUIRED)
   //*  -  COMMAND LINE :
   //*  COL 1  : "D"    TRANSACTION CODE (DELETION)
   //*  COL 2  :  ENTITY TYPE; SAME AS IN CHOICE FIELD.
   //*            "O "   SCREEN
   //*            "D "   DATA STRUCTURE
   //*            "S "   SEGMENT
   //*  COL 4  : (6 CAR.) ENTITY CODE
   //* ------------------------------------------------------
   //*
   //BVPERUP  PROC BASE=$BASE,                CODE OF DEVPT DATABASE
   //         INDSN='$INDSN',         INDEX OF NON-VSAM SYSTEM 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=$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=&&ERUPMB,DISP=(,PASS),
   //            UNIT=&UWK,SPACE=(TRK,(5,1),RLSE),
   //            DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
   //VERIFY EXEC PGM=IDCAMS
   //*---------------------
   //*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
   //SYSPRINT DD SYSOUT=&OUT
   //PAC7EM   DD DSN=&INDUV..&BASE.EM,DISP=SHR
   //SYSIN    DD DSN=&INDSN..BVPSY(VERIFEM),DISP=SHR
   //PACL96 EXEC PGM=BVPACL96
   //*-----------------------
   //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
   //PAC7IU   DD SYSOUT=&OUT
   //PAC7IX   DD SYSOUT=&OUT
   //PAC7MB   DD DSN=&&ERUPMB,DISP=(OLD,DELETE)
   //SYSUDUMP DD SYSOUT=&OUT

Vos commentaires