//* ------------------------------------------------------
//* IBM RATIONAL PROGRAMMING PATTERNS (RPP)
//*
//* ------------------------------------------------------
//* - 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 (REQUIRED)
//* COL 2 : "*"
//* COL 28 : " " OR "F" LANGUAGE CODE
//* ------------------------------------------------------
//*
//BVPERLD PROC BASE=$BASE, CODE OF DEVPT DATABASE
// INDMV='$INDMV', INDEX OF VSAM FOR MIGRATION
// INDMN='$INDMN', INDEX OF NON 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=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)
//PRMSYS EXEC PGM=BVPRMSYS,PARM='&BASE,&INDMV'
//*-------------------------------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
// DD DSN=$BCOB,DISP=SHR
//SYSOUT DD SYSOUT=&OUT
//PACRIN DD DSN=&INDMN..BVPSY(DFMIGEM),DISP=SHR
//PACROU DD DSN=&&DFMIGEM,DISP=(,PASS),SPACE=(TRK,1),
// UNIT=&UWK,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//DEFINE EXEC PGM=IDCAMS
//*---------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//SYSPRINT DD SYSOUT=&OUT
//SYSIN DD DSN=&&DFMIGEM,DISP=(OLD,DELETE)
//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=&INDMV..&BASE..MIGEM,DISP=SHR
//PAC7GL DD DSN=&GL,DISP=SHR
//PAC7MB DD DSN=&&ERLDMB,DISP=(OLD,DELETE)
//PAC7IY DD SYSOUT=&OUT
//SYSUDUMP DD SYSOUT=&OUT