#!/bin/sh
#@(#)Mig RPP (R) MIBU BATCH PROCEDURE
# * ------------------------------------------------------
# * IBM RATIONAL PROGRAMMING PATTERNS (RPP)
# *
# * ------------------------------------------------------
# * BATCH MIGRATION
# *
# * ------------------------------------------------------
# *
# Parameter control
. $MIGDIR/system/proc/BVPINIT.ini
echo ""
echo "---------------------------------------------------------"
BVPMSG 1004 "MIBU"
echo " =============="
BVPMSG 1047 "$BVPBASE"
BVPMSG 1005 "$PACDIR/config/$1"
BVPMSG 1006 "$PACTMP"
BVPMSG 1073 "$PACUSERS"
BVPMSG 1007 "$PACINPUT"
echo "---------------------------------------------------------"
echo ""
BVPPAUSE
BVPMKDIR
# ---------------------------------------------------------
PAC7GY=$PACINPUT
export PAC7GY
PAC7QR=ˋBVPENV PACS9D PAC7QR $PACTMP/WQRˋ
export PAC7QR
BVPMSG 1009 "BVPACS9D"
rtspac BVPACS9D
RETURN=$?
case $RETURN in
0)
;;
*)
BVPMSG 1012 "BVPACS9D"
BVPMSG 1025
BVPERR
BVPRMTMP
exit $RETURN
;;
esac
# ---------------------------------------------------------
PAC7QR=ˋBVPENV PACS9E PAC7QR $PACTMP/WQRˋ
export PAC7QR
PAC7SL=ˋBVPENV PACS9E PAC7SL \ˋdirname $PACUSERS\ˋ/SPLITLIBˋ
export PAC7SL
PAC7RQ=ˋBVPENV PACS9E PAC7RQ $PACTMP/WRQˋ
export PAC7RQ
BVPMSG 1009 "BVPACS9E"
rtspac BVPACS9E
RETURN=$?
case $RETURN in
0)
;;
*)
BVPMSG 1012 "BVPACS9E"
BVPMSG 1025
BVPERR
BVPRMTMP
exit $RETURN
;;
esac
# ---------------------------------------------------------
PAC7CS=ˋBVPENV PACS94 PAC7CS \ˋdirname $PACUSERS\ˋ/MIAMCSPEˋ
export PAC7CS
PAC7RQ=ˋBVPENV PACS94 PAC7RQ $PACTMP/WRQˋ
export PAC7RQ
PAC7QR=ˋBVPENV PACS94 PAC7QR $PACTMP/WQRˋ
export PAC7QR
BVPMSG 1009 "BVPACS94"
rtspac BVPACS94
RETURN=$?
case $RETURN in
0)
;;
*)
BVPMSG 1012 "BVPACS94"
BVPMSG 1025
BVPERR
BVPRMTMP
exit $RETURN
;;
esac
# ---------------------------------------------------------
PAC7GY=$PACINPUT
export PAC7GY
PAC7MB=ˋBVPENV PACS96 PAC7MB /dev/nullˋ
export PAC7MB
PAC7CS=ˋBVPENV PACS96 PAC7CS \ˋdirname $PACUSERS\ˋ/MIAMCSPEˋ
export PAC7CS
PAC7PM=ˋBVPENV PACS96 PAC7PM /dev/nullˋ
export PAC7PM
PAC7TA=ˋBVPENV PACS96 PAC7TA $PACTMP/WTAˋ
export PAC7TA
PAC7MM=ˋBVPENV PACS96 PAC7MM /dev/nullˋ
export PAC7MM
PAC7MI=ˋBVPENV PACS96 PAC7MI /dev/nullˋ
export PAC7MI
PAC7MO=ˋBVPENV PACS96 PAC7MO /dev/nullˋ
export PAC7MO
PAC7MC=ˋBVPENV PACS96 PAC7MC /dev/nullˋ
export PAC7MC
PAC7MS=ˋBVPENV PACS96 PAC7MS /dev/nullˋ
export PAC7MS
BVPMSG 1009 "BVPACS96"
rtspac BVPACS96
RETURN=$?
case $RETURN in
0)
;;
*)
BVPMSG 1012 "BVPACS96"
BVPMSG 1025
BVPERR
BVPRMTMP
exit $RETURN
;;
esac
# ---------------------------------------------------------
PAC7AT=ˋBVPENV PACS97 PAC7AT $PACTMP/WATˋ
export PAC7AT
PAC7TA=ˋBVPENV PACS97 PAC7TA $PACTMP/WTAˋ
export PAC7TA
BVPMSG 1009 "BVPACS97"
rtspac BVPACS97
RETURN=$?
case $RETURN in
0)
;;
*)
BVPMSG 1012 "BVPACS97"
BVPMSG 1025
BVPERR
BVPRMTMP
exit $RETURN
;;
esac
# ---------------------------------------------------------
PAC7AT=ˋBVPENV PACS91 PAC7AT $PACTMP/WATˋ
export PAC7AT
PAC7TI=ˋBVPENV PACS91 PAC7TI $PACTMP/WTIˋ
export PAC7TI
BVPMSG 1009 "BVPACS91"
rtspac BVPACS91
RETURN=$?
case $RETURN in
0)
;;
*)
BVPMSG 1012 "BVPACS91"
BVPMSG 1025
BVPERR
BVPRMTMP
exit $RETURN
;;
esac
# ---------------------------------------------------------
. $MIGDIR/config/$1/PAC7AE.ini
. $PACDIR/config/$1/PAC7AR.ini
PAC7CP=ˋBVPENV PACS98 PAC7CP /dev/nullˋ
export PAC7CP
PAC7TI=ˋBVPENV PACS98 PAC7TI $PACTMP/WTIˋ
export PAC7TI
PAC7RQ=ˋBVPENV PACS98 PAC7RQ $PACTMP/WQRˋ
export PAC7RQ
PAC7TG=ˋBVPENV PACS98 PAC7TG $PACUSERS/${BVPPROC}.ta2ˋ
export PAC7TG
BVPMSG 1009 "BVPACS98"
rtspac BVPACS98
RETURN=$?
case $RETURN in
0)
;;
*)
BVPMSG 1012 "BVPACS98"
BVPMSG 1025
BVPERR
BVPRMTMP
exit $RETURN
;;
esac
# ---------------------------------------------------------
BVPMSG 1010
BVPRMTMP
exit $RETURN