#!/bin/sh
#@(#)Mig RPP (R) MERT BATCH PROCEDURE
# * ------------------------------------------------------
# * IBM RATIONAL PROGRAMMING PATTERNS (RPP)
# *
# * ------------------------------------------------------
# * - MERISE ENTITY TRANSFORMATION -
# * ------------------------------------------------------
# *
# Parameter control
. $MIGDIR/system/proc/BVPINIT.ini
echo ""
echo "---------------------------------------------------------"
BVPMSG 1004 "MERT"
echo " =============="
BVPMSG 1047 "$BVPBASE"
BVPMSG 1005 "$PACDIR/config/$1"
BVPMSG 1006 "$PACTMP"
BVPMSG 1073 "$PACUSERS"
BVPMSG 1007 "$PACINPUT"
echo "---------------------------------------------------------"
echo ""
BVPPAUSE
BVPMKDIR
# ---------------------------------------------------------
. $MIGDIR/config/$1/PAC7AE.ini
. $PACDIR/config/$1/PAC7AN.ini
. $PACDIR/config/$1/PAC7AR.ini
. $PACDIR/config/$1/PACGGN.ini
. $PACDIR/config/$1/PACGGR.ini
. $PACDIR/config/$1/PACGGU.ini
PAC7MB=$PACINPUT
export PAC7MB
SYSPAF=ˋBVPENV PAFMER SYSPAF $PACTMP/WSYˋ
export SYSPAF
PAC7UR=ˋBVPENV PAFMER PAC7UR $PACTMP/WURˋ
export PAC7UR
PAC7EJ=ˋBVPENV PAFMER PAC7EJ $PACUSERS/MERT1EJ.txtˋ
export PAC7EJ
PAC7ET=ˋBVPENV PAFMER PAC7ET $PACUSERS/MERT1ET.txtˋ
export PAC7ET
PAC7DD=ˋBVPENV PAFMER PAC7DD $PACUSERS/MERT1DD.txtˋ
export PAC7DD
BVPMSG 1009 "BVPAFMER"
rtspac BVPAFMER
RETURN=$?
case $RETURN in
0)
;;
*)
BVPMSG 1012 "BVPAFMER"
BVPMSG 1025
BVPERR
BVPRMTMP
exit $RETURN
;;
esac
# ---------------------------------------------------------
PAC7UR=ˋBVPENV PTUMER PAC7UR $PACTMP/WURˋ
export PAC7UR
PAC7GY=ˋBVPENV PTUMER PAC7GY $PACUSERS/MERTGYˋ
export PAC7GY
PAC7EJ=ˋBVPENV PTUMER PAC7EJ $PACUSERS/MERT2EJ.txtˋ
export PAC7EJ
PAC7ET=ˋBVPENV PTUMER PAC7ET $PACUSERS/MERT2ET.txtˋ
export PAC7ET
PAC7DD=ˋBVPENV PTUMER PAC7DD $PACUSERS/MERT2DD.txtˋ
export PAC7DD
BVPMSG 1009 "BVPTUMER"
rtspac BVPTUMER
RETURN=$?
case $RETURN in
0)
;;
*)
BVPMSG 1012 "BVPTUMER"
BVPMSG 1025
BVPERR
BVPRMTMP
exit $RETURN
;;
esac
BVPMSG 1010
BVPRMTMP
exit $RETURN