#!/bin/sh
#@(#)Mig RPP (R) MIMA BATCH PROCEDURE
# * ------------------------------------------------------
# * IBM RATIONAL PROGRAMMING PATTERNS (RPP)
# *
# * ------------------------------------------------------
# * MACRO-STRUCTURES MIGRATION
# *
# * ------------------------------------------------------
# *
# Parameter control
. $MIGDIR/system/proc/BVPINIT.ini
echo ""
echo "---------------------------------------------------------"
BVPMSG 1004 "MIMA"
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/PAC7AY.ini
. $PACDIR/config/$1/PACGGN.ini
. $PACDIR/config/$1/PACGGR.ini
. $PACDIR/config/$1/PACGGU.ini
PAC7ME=$PACINPUT
export PAC7ME
PAC7MG=ˋBVPENV PACA10 PAC7MG $PACTMP/WMGˋ
export PAC7MG
PAC7MV=ˋBVPENV PACA10 PAC7MV $PACTMP/WMVˋ
export PAC7MV
BVPMSG 1009 "BVPACA10"
rtspac BVPACALL BVPACA10
RETURN=$?
case $RETURN in
0)
;;
*)
BVPMSG 1012 "BVPACA10"
BVPMSG 1025
BVPERR
BVPRMTMP
exit $RETURN
;;
esac
# ---------------------------------------------------------
. $MIGDIR/config/$1/PAC7AE.ini
. $PACDIR/config/$1/PAC7AN.ini
. $PACDIR/config/$1/PAC7AR.ini
PAC7JG=ˋBVPENV PACA30 PAC7JG $PACTMP/WKCˋ
export PAC7JG
PAC7KU=ˋBVPENV PACA30 PAC7KU $PACTMP/WKUˋ
export PAC7KU
PAC7MG=ˋBVPENV PACA30 PAC7MG $PACTMP/WMGˋ
export PAC7MG
BVPMSG 1009 "BVPACA30"
rtspac BVPACALL BVPACA30
RETURN=$?
case $RETURN in
0)
;;
*)
BVPMSG 1012 "BVPACA30"
BVPMSG 1025
BVPERR
BVPRMTMP
exit $RETURN
;;
esac
# ---------------------------------------------------------
. $MIGDIR/config/$1/PAC7AE.ini
. $PACDIR/config/$1/PAC7AN.ini
. $PACDIR/config/$1/PAC7AR.ini
. $PACDIR/config/$1/PAC7AY.ini
. $PACDIR/config/$1/PACGGN.ini
. $PACDIR/config/$1/PACGGR.ini
. $PACDIR/config/$1/PACGGU.ini
. $MIGDIR/config/$1/SQUEL.ini
PAC7CS=ˋBVPENV PACMM PAC7CS \ˋdirname $PACUSERS\ˋ/MIAMCSPEˋ
export PAC7CS
PAC7EP=ˋBVPENV PACMM PAC7EP $PACTMP/WEPˋ
export PAC7EP
PAC7GI=ˋBVPENV PACMM PAC7GI $PACTMP/WGIˋ
export PAC7GI
PAC7GP=ˋBVPENV PACMM PAC7KC $PACTMP/WGPˋ
export PAC7GP
PAC7JG=ˋBVPENV PACMM PAC7JG $PACTMP/WJGˋ
export PAC7JG
PAC7KC=ˋBVPENV PACMM PAC7KC $PACTMP/WKCˋ
export PAC7KC
PAC7KP=ˋBVPENV PACMM PAC7KP $PACTMP/WKPˋ
export PAC7KP
PAC7RQ=ˋBVPENV PACMM PAC7RQ $PACTMP/WRQˋ
export PAC7RQ
PAC7AT=ˋBVPENV PACMM PAC7AT $PACTMP/WATˋ
export PAC7AT
PAC7TA=ˋBVPENV PACMM PAC7TA $PACTMP/WTAˋ
export PAC7TA
PAC7TT=ˋBVPENV PACMM PAC7TT $PACUSERS/MIMA.cblgenˋ
export PAC7TT
PAC7WA=ˋBVPENV PACMM PAC7WA $PACTMP/WWAˋ
export PAC7WA
PAC7WC=ˋBVPENV PACMM PAC7WC $PACTMP/WWCˋ
export PAC7WC
PAC7W1=ˋBVPENV PACMM PAC7W1 $PACTMP/WW1ˋ
export PAC7W1
PAC7W2=ˋBVPENV PACMM PAC7W2 $PACTMP/WW2ˋ
export PAC7W2
PAC7W3=ˋBVPENV PACMM PAC7W3 $PACTMP/WW3ˋ
export PAC7W3
PAC7W4=ˋBVPENV PACMM PAC7W4 $PACTMP/WW4ˋ
export PAC7W4
PAC7W5=ˋBVPENV PACMM PAC7W5 $PACTMP/WW5ˋ
export PAC7W5
PAC7IA=ˋBVPENV PACMM PAC7IA $PACUSERS/MIMAIA.txtˋ
export PAC7IA
BVPMSG 1009 "BVPACMM"
rtspac BVPACMM
RETURN=$?
case $RETURN in
12)
BVPMSG 1012 "BVPACMM"
BVPMSG 1025
BVPERR
BVPRMTMP
exit $RETURN
;;
*)
;;
esac
# ---------------------------------------------------------
BVPMSG 1010
BVPRMTMP
exit $RETURN