ERUP - Execution JCL

   //* ------------------------------------------------------
   //*      IBM RATIONAL PROGRAMMING PATTERNS (RPP)
   //*
   //* ------------------------------------------------------
   //*             - 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)
   //*  COL 2  : "*"
   //*  COL 28 : " " OR "F" LANGUAGE CODE
   //*  -  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
   //         INDMV='$INDMV',            INDEX OF VSAM FOR MIGRATION
   //         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)
   //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=&INDMV..&BASE..MIGEM,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

Feedback