//* ------------------------------------------------------
//* 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