#!/bin/sh
#@(#)Mig RPP (R) ERUP BATCH PROCEDURE
# * ------------------------------------------------------
# * 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
# * ------------------------------------------------------
# *
# Parameter control
. $MIGDIR/system/proc/BVPINIT.ini
echo ""
echo "---------------------------------------------------------"
BVPMSG 1004 "ERUP"
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 PACL96 PAC7EM \ˋdirname $PACUSERS\ˋ/ERRMSGˋ
export PAC7EM
PAC7GL=ˋBVPENV PACL96 PAC7GL $PACTMP/WGLˋ
export PAC7GL
PAC7IU=ˋBVPENV PACL96 PAC7IU $PACUSERS/ERUPIUL96.txtˋ
export PAC7IU
PAC7IX=ˋBVPENV PACL96 PAC7IX $PACUSERS/ERUPIXL96.txtˋ
export PAC7IX
PAC7MB=$PACINPUT
export PAC7MB
BVPMSG 1009 "BVPACL96"
rtspac BVPACL96
RETURN=$?
case $RETURN in
0)
;;
8)
BVPMSG 1012 "BVPACL96"
BVPMSG 1014
BVPERR
BVPRMTMP
exit $RETURN
;;
*)
BVPMSG 1012 "BVPACL96"
BVPERR
BVPRMTMP
exit $RETURN
;;
esac
# ---------------------------------------------------------
BVPMSG 1010
BVPRMTMP
exit $RETURN