#!/bin/sh
#@(#)Mig RPP (R) MIAM BATCH PROCEDURE
# * ------------------------------------------------------
# * IBM RATIONAL PROGRAMMING PATTERNS (RPP)
# *
# * ------------------------------------------------------
# * MIGRATION HELP
# *
# * ------------------------------------------------------
# *
# Parameter control
. $MIGDIR/system/proc/BVPINIT.ini
echo ""
echo "---------------------------------------------------------"
BVPMSG 1004 "MIAM"
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
PAC7CK=ˋBVPENV PLTPAM PAC7CK $MIGDIR/system/skel/BVPAMIAMˋ
export PAC7CK
PAC7CS=ˋBVPENV PLTPAM PAC7CS \ˋdirname $PACUSERS\ˋ/MIAMCSPEˋ
export PAC7CS
PAC7NR=ˋBVPENV PLTPAM PAC7NR \ˋdirname $PACUSERS\ˋ/MIAMNREPˋ
export PAC7NR
PAC7NS=ˋBVPENV PLTPAM PAC7NS \ˋdirname $PACUSERS\ˋ/MIAMNMIGˋ
export PAC7NS
PAC7PM=ˋBVPENV PLTPAM PAC7PM \ˋdirname $PACUSERS\ˋ/MIAMPMACˋ
export PAC7PM
PAC7DX=ˋBVPENV PLTPAM PAC7DX $PACTMP/WDXˋ
export PAC7DX
PAC7RQ=ˋBVPENV PLTPAM PAC7RQ $PACUSERS/MIAMRQERˋ
export PAC7RQ
PAC7DD=ˋBVPENV PLTPAM PAC7DD $PACUSERS/MIAMDDPAM.txtˋ
export PAC7DD
BVPMSG 1009 "BVPLTPAM"
rtspac BVPLTPAM
RETURN=$?
case $RETURN in
0)
;;
*)
BVPMSG 1012 "BVPLTPAM"
BVPMSG 1025
BVPERR
BVPRMTMP
exit $RETURN
;;
esac
# ---------------------------------------------------------
. $PACDIR/config/$1/PAC7AN.ini
. $PACDIR/config/$1/PAC7AR.ini
PAC7MB=$PACINPUT
export PAC7MB
PAC7DX=ˋBVPENV PLTPAP PAC7DX $PACTMP/WDXˋ
export PAC7DX
PAC7GY=ˋBVPENV PLTPAP PAC7GY $PACUSERS/MIAMGYˋ
export PAC7GY
PAC7UP=ˋBVPENV PLTPAP PAC7UP $PACUSERS/MIAMUPˋ
export PAC7UP
BVPMSG 1009 "BVPLTPAP"
rtspac BVPLTPAP
RETURN=$?
case $RETURN in
0)
;;
*)
BVPMSG 1012 "BVPLTPAP"
BVPMSG 1025
BVPERR
BVPRMTMP
exit $RETURN
;;
esac
# ---------------------------------------------------------
BVPMSG 1010
BVPRMTMP
exit $RETURN