#!/bin/sh
#@(#)Mig RPP (R) ERLD BATCH PROCEDURE
# * ------------------------------------------------------
# * 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
# * ------------------------------------------------------
# *
# Parameter control
. $MIGDIR/system/proc/BVPINIT.ini
echo ""
echo "---------------------------------------------------------"
BVPMSG 1004 "ERLD"
echo " =============="
BVPMSG 1047 "$BVPBASE"
BVPMSG 1005 "$PACDIR/config/$1"
BVPMSG 1006 "$PACTMP"
BVPMSG 1073 "$PACUSERS"
BVPMSG 1007 "$PACINPUT"
echo "---------------------------------------------------------"
echo ""
BVPPAUSE
BVPMKDIR
# ---------------------------------------------------------
PAC7LG=ˋBVPENV PTUSGL PAC7LG /dev/nullˋ
export PAC7LG
if [ "$PAC7LG" = "/dev/null" ]
then
PAC7LG=$PACTMP/WLG
touch $PAC7LG
else
if [ ! -f "$PAC7LG" ]
then
BVPMSG 1034 $PAC7LG
RETURN=1
BVPRMTMP
exit $RETURN
fi
fi
PAC7GL=ˋBVPENV PTUSGL PAC7GL $PACTMP/WGLˋ
export PAC7GL
BVPMSG 1009 "BVPTUSGL"
rtspac BVPTUSGL
RETURN=$?
case $RETURN in
0)
;;
*)
BVPMSG 1012 "BVPTUSGL"
BVPERR
BVPRMTMP
exit $RETURN
;;
esac
# ---------------------------------------------------------
PAC7EM=ˋBVPENV PACL94 PAC7EM \ˋdirname $PACUSERS\ˋ/ERRMSGˋ
export PAC7EM
PAC7GL=ˋBVPENV PACL94 PAC7GL $PACTMP/WGLˋ
export PAC7GL
PAC7IY=ˋBVPENV PACL94 PAC7IY $PACUSERS/ERLDIYL94.txtˋ
export PAC7IY
PAC7MB=$PACINPUT
export PAC7MB
BVPMSG 1009 "BVPACL94"
rtspac BVPACL94
RETURN=$?
case $RETURN in
0)
;;
8)
BVPMSG 1012 "BVPACL94"
BVPMSG 1014
BVPERR
BVPRMTMP
exit $RETURN
;;
*)
BVPMSG 1012 "BVPACL94"
BVPERR
BVPRMTMP
exit $RETURN
;;
esac
# ---------------------------------------------------------
BVPMSG 1010
BVPRMTMP
exit $RETURN