#!/bin/sh
#@(#)VA Pac xxx xxx (R) MIBJ BATCH PROCEDURE
# * ------------------------------------------------------
# * VISUALAGE PACBASE
# *
# * ------------------------------------------------------
# * ARCHIVED JOURNAL MIGRATION
# *
# * ------------------------------------------------------
# *
# Parameter control
. $PACDIR/system/proc/BVPINIT.ini
echo ""
echo "---------------------------------------------------------"
BVPMSG 1004 "MIBJ"
echo " =============="
BVPMSG 1047 "$BVPBASE"
BVPMSG 1005 "$PACDIR/config/$1"
BVPMSG 1006 "$PACTMP"
BVPMSG 1073 "$PACUSERS"
BVPMSG 1007 "$PACINPUT"
echo "---------------------------------------------------------"
echo ""
BVPPAUSE
BVPMKDIR
# ---------------------------------------------------------
PAC7RN=ˋBVPENV PACS9B PAC7RN \ˋdirname $PACUSERS\ˋ/MIAMNREPˋ
export PAC7RN
PAC7NT=ˋBVPENV PACS9B PAC7NT /dev/nullˋ
export PAC7NT
PAC7NR=ˋBVPENV PACS9B PAC7NR $PACTMP/WNRˋ
export PAC7NR
BVPMSG 1009 "BVPACS9B"
rtspac BVPACS9B
RETURN=$?
case $RETURN in
0)
;;
*)
BVPMSG 1012 "BVPACS9B"
BVPMSG 1025
BVPERR
BVPRMTMP
exit $RETURN
;;
esac
# ---------------------------------------------------------
PAC7NS=ˋBVPENV PACS9C PAC7NS \ˋdirname $PACUSERS\ˋ/MIAMNMIGˋ
export PAC7NS
PAC7NM=ˋBVPENV PACS9C PAC7NM /dev/nullˋ
export PAC7NM
PAC7NO=ˋBVPENV PACS9C PAC7NO $PACTMP/WNOˋ
export PAC7NO
BVPMSG 1009 "BVPACS9C"
rtspac BVPACS9C
RETURN=$?
case $RETURN in
0)
;;
*)
BVPMSG 1012 "BVPACS9C"
BVPMSG 1025
BVPERR
BVPRMTMP
exit $RETURN
;;
esac
# ---------------------------------------------------------
. $PACDIR/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
. $PACDIR/config/$1/PACSAVPJ.ini
PAC7DD=ˋBVPENV PACSJR PAC7DD $PACUSERS/MIBJDDSJR.txtˋ
export PAC7DD
PAC7EE=ˋBVPENV PACSJR PAC7EE $PACUSERS/MIBJEESJR.txtˋ
export PAC7EE
PAC7MB=$PACINPUT
export PAC7MB
PAC7PJ=ˋBVPENV PACSJR PAC7PJ $PACSAVPJˋ
export PAC7PJ
PAC7RQ=ˋBVPENV PACSJR PAC7RQ $PACTMP/WRQˋ
export PAC7RQ
BVPMSG 1009 "BVPACSJR"
rtspac BVPACSJR
RETURN=$?
case $RETURN in
0)
;;
4)
BVPMSG 1012 "BVPACSJR"
;;
8)
BVPMSG 1012 "BVPACSJR"
BVPMSG 1014
BVPERR
BVPRMTMP
exit $RETURN
;;
*)
BVPMSG 1012 "BVPACSJR"
BVPMSG 1025
BVPERR
BVPRMTMP
exit $RETURN
;;
esac
# ---------------------------------------------------------
. $PACDIR/config/$1/PAC7AE.ini
. $PACDIR/config/$1/PAC7AN.ini
. $PACDIR/config/$1/PAC7AR.ini
PAC7MB=$PACINPUT
export PAC7MB
PAC7FU=ˋBVPENV PACS93 PAC7FU $PACTMP/WFUˋ
export PAC7FU
PAC7RQ=ˋBVPENV PACS93 PAC7RQ $PACTMP/WRQˋ
export PAC7RQ
PAC7QR=ˋBVPENV PACS93 PAC7QR $PACTMP/WQRˋ
export PAC7QR
PAC7SL=ˋBVPENV PACS93 PAC7SL \ˋdirname $PACUSERS\ˋ/SPLITLIBˋ
export PAC7SL
BVPMSG 1009 "BVPACS93"
rtspac BVPACS93
RETURN=$?
case $RETURN in
0)
;;
*)
BVPMSG 1012 "BVPACS93"
BVPMSG 1025
BVPERR
BVPRMTMP
exit $RETURN
;;
esac
# ---------------------------------------------------------
PAC7QR=ˋBVPENV PACS25 PAC7QR $PACTMP/WQRˋ
export PAC7QR
PAC7RQ=ˋBVPENV PACS25 PAC7RQ $PACTMP/WRQ25ˋ
export PAC7RQ
BVPMSG 1009 "BVPACS25"
rtspac BVPACS25
RETURN=$?
case $RETURN in
0)
;;
*)
BVPMSG 1012 "BVPACS25"
BVPMSG 1025
BVPERR
BVPRMTMP
exit $RETURN
;;
esac
# ---------------------------------------------------------
PAC7NR=ˋBVPENV PACS9A PAC7NR $PACTMP/WNRˋ
export PAC7NR
PAC7QR=ˋBVPENV PACS9A PAC7QR $PACTMP/WRQ25ˋ
export PAC7QR
PAC7RQ=ˋBVPENV PACS9A PAC7RQ $PACTMP/WRQˋ
export PAC7RQ
BVPMSG 1009 "BVPACS9A"
rtspac BVPACS9A
RETURN=$?
case $RETURN in
0)
;;
*)
BVPMSG 1012 "BVPACS9A"
BVPMSG 1025
BVPERR
BVPRMTMP
exit $RETURN
;;
esac
# ---------------------------------------------------------
PAC7QR=ˋBVPENV PACS92 PAC7QR $PACTMP/WQRˋ
export PAC7QR
PAC7RQ=ˋBVPENV PACS92 PAC7RQ $PACTMP/WRQˋ
export PAC7RQ
PAC7MZ=ˋBVPENV PACS92 PAC7MZ $PACTMP/WMBˋ
export PAC7MZ
PAC7ER=ˋBVPENV PACS92 PAC7ER /dev/nullˋ
export PAC7ER
PAC7EE=ˋBVPENV PACS92 PAC7EE /dev/nullˋ
export PAC7EE
BVPMSG 1009 "BVPACS92"
rtspac BVPACS92
RETURN=$?
case $RETURN in
0)
;;
*)
BVPMSG 1012 "BVPACS92"
BVPMSG 1025
BVPERR
BVPRMTMP
exit $RETURN
;;
esac
# ---------------------------------------------------------
. $PACDIR/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
PAC7BM=ˋBVPENV PACX PAC7BM $PACTMP/WBMˋ
export PAC7BM
PAC7CP=ˋBVPENV PACX PAC7CP $PACTMP/WCPˋ
export PAC7CP
PAC7DD=ˋBVPENV PACX PAC7DD $PACUSERS/PACXDD.txtˋ
export PAC7DD
PAC7ED=ˋBVPENV PACX PAC7ED $PACTMP/WEDˋ
export PAC7ED
PAC7EE=ˋBVPENV PACX PAC7EE $PACUSERS/PACXEE.txtˋ
export PAC7EE
PAC7EG=ˋBVPENV PACX PAC7EG $PACTMP/WEGˋ
export PAC7EG
PAC7EM=ˋBVPENV PACX PAC7EM $PACTMP/WEMˋ
export PAC7EM
PAC7EP=ˋBVPENV PACX PAC7EP $PACUSERS/PACXEP.txtˋ
export PAC7EP
PAC7EQ=ˋBVPENV PACX PAC7EQ $PACUSERS/PACXEQ.txtˋ
export PAC7EQ
PAC7ES=ˋBVPENV PACX PAC7ES /dev/nullˋ
export PAC7ES
PAC7EU=ˋBVPENV PACX PAC7EU $PACTMP/WEUˋ
export PAC7EU
PAC7EZ=ˋBVPENV PACX PAC7EZ $PACUSERS/PACXEZ.txtˋ
export PAC7EZ
PAC7GY=ˋBVPENV PACX PAC7GY $PACTMP/WGYˋ
export PAC7GY
PAC7IA=ˋBVPENV PACX PAC7IA $PACUSERS/PACXIA.txtˋ
export PAC7IA
PAC7MA=ˋBVPENV PACX PAC7MA /dev/nullˋ
export PAC7MA
PAC7MB=ˋBVPENV PACX PAC7MB $PACTMP/WMBˋ
export PAC7MB
PAC7MM=ˋBVPENV PACX PAC7MM $PACTMP/WMMˋ
export PAC7MM
PAC7MJ=ˋBVPENV PACX PAC7MJ $PACTMP/WMJˋ
export PAC7MJ
PAC7MR=ˋBVPENV PACX PAC7MR $PACTMP/WMRˋ
export PAC7MR
PAC7MX=ˋBVPENV PACX PAC7MX $PACTMP/WMXˋ
export PAC7MX
PAC7RE=ˋBVPENV PACX PAC7RE $PACTMP/WREˋ
export PAC7RE
PAC7RM=ˋBVPENV PACX PAC7RM $PACTMP/WRMˋ
export PAC7RM
PAC7RQ=ˋBVPENV PACX PAC7RQ /dev/nullˋ
export PAC7RQ
PAC7TD=ˋBVPENV PACX PAC7TD $PACTMP/WTDˋ
export PAC7TD
PAC7TE=ˋBVPENV PACX PAC7TE $PACTMP/WTEˋ
export PAC7TE
PAC7UE=ˋBVPENV PACX PAC7UE $PACTMP/WUEˋ
export PAC7UE
PAC7WD=ˋBVPENV PACX PAC7WD $PACTMP/WWDˋ
export PAC7WD
SYSEXT=ˋBVPENV PACX SYSEXT $PACTMP/WSYˋ
export SYSEXT
BVPMSG 1009 "BVPACX"
rtspac BVPACX
RETURN=$?
case $RETURN in
0)
;;
4)
BVPMSG 1012 "BVPACX"
;;
8)
BVPMSG 1012 "BVPACX"
BVPMSG 1014
BVPERR
BVPRMTMP
exit $RETURN
;;
*)
BVPMSG 1012 "BVPACX"
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
# ---------------------------------------------------------
PAC7MB=ˋBVPENV PACS96 PAC7MB $PACTMP/WFUˋ
export PAC7MB
PAC7GY=ˋBVPENV PACS96 PAC7GY $PACTMP/WGYˋ
export PAC7GY
PAC7NO=ˋBVPENV PACS96 PAC7NO $PACTMP/WNOˋ
export PAC7NO
PAC7CS=ˋBVPENV PACS96 PAC7CS \ˋdirname $PACUSERS\ˋ/MIAMCSPEˋ
export PAC7CS
PAC7PM=ˋBVPENV PACS96 PAC7PM \ˋdirname $PACUSERS\ˋ/MIAMPMACˋ
export PAC7PM
PAC7TA=ˋBVPENV PACS96 PAC7TA $PACTMP/WTAˋ
export PAC7TA
PAC7MM=ˋBVPENV PACS96 PAC7MM $PACUSERS/INPUTMIMAˋ
export PAC7MM
PAC7MI=ˋBVPENV PACS96 PAC7MI $PACUSERS/INPUTMIA1ˋ
export PAC7MI
PAC7MO=ˋBVPENV PACS96 PAC7MO $PACUSERS/INPUTMIA2ˋ
export PAC7MO
PAC7MC=ˋBVPENV PACS96 PAC7MC $PACUSERS/INPUTMIA3ˋ
export PAC7MC
PAC7MS=ˋBVPENV PACS96 PAC7MS $PACUSERS/INPUTMIA4ˋ
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 PAC7TA $PACTMP/WTIˋ
export PAC7TI
BVPMSG 1009 "BVPACS91"
rtspac BVPACS91
RETURN=$?
case $RETURN in
0)
;;
*)
BVPMSG 1012 "BVPACS91"
BVPMSG 1025
BVPERR
BVPRMTMP
exit $RETURN
;;
esac
# ---------------------------------------------------------
. $PACDIR/config/$1/PAC7AE.ini
PAC7CP=ˋBVPENV PACS98 PAC7CP $PACTMP/WCPˋ
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