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