#!/bin/sh
#@(#)VA Pac xxx xxx (R) MIA3 BATCH PROCEDURE
# * ------------------------------------------------------
# * VISUALAGE PACBASE
# *
# * ------------------------------------------------------
# * CLIENT GENERATION
# *
# * ------------------------------------------------------
# *
# Parameter control
. $PACDIR/system/proc/BVPINIT.ini
echo ""
echo "---------------------------------------------------------"
BVPMSG 1004 "MIA3"
echo " =============="
BVPMSG 1047 "$BVPBASE"
BVPMSG 1005 "$PACDIR/config/$1"
BVPMSG 1006 "$PACTMP"
BVPMSG 1073 "$PACUSERS"
BVPMSG 1007 "$PACINPUT"
echo "---------------------------------------------------------"
echo ""
BVPPAUSE
BVPMKDIR
# ---------------------------------------------------------
. $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
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
# ---------------------------------------------------------
. $PACDIR/config/$1/PAC7AE.ini
. $PACDIR/config/$1/PAC7AN.ini
. $PACDIR/config/$1/PAC7AR.ini
. $PACDIR/config/$1/PACGGK.ini
. $PACDIR/config/$1/PACGGN.ini
. $PACDIR/config/$1/PACGGR.ini
. $PACDIR/config/$1/PACGGU.ini
PAC7JG=ˋBVPENV PACA20 PAC7JG $PACTMP/WKCˋ
export PAC7JG
PAC7KF=ˋBVPENV PACA20 PAC7KF $PACTMP/WKFˋ
export PAC7KF
PAC7KU=ˋBVPENV PACA20 PAC7KU $PACTMP/WKUˋ
export PAC7KU
PAC7MG=ˋBVPENV PACA20 PAC7MG $PACTMP/WMGˋ
export PAC7MG
PAC7W1=ˋBVPENV PACA20 PAC7W1 /dev/nullˋ
export PAC7W1
BVPMSG 1009 "BVPACA20"
rtspac BVPACALL BVPACA20
RETURN=$?
case $RETURN in
0)
;;
*)
BVPMSG 1012 "BVPACA20"
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/PACGGN.ini
. $PACDIR/config/$1/PACGGR.ini
. $PACDIR/config/$1/PACGGU.ini
. $PACDIR/config/$1/SQUEL.ini
PAC7EG=ˋBVPENV PACMM3 PAC7EG $PACTMP/WEGˋ
export PAC7EG
PAC7EZ=ˋBVPENV PACMM3 PAC7EZ $PACTMP/WEZˋ
export PAC7EZ
PAC7GG=ˋBVPENV PACMM3 PAC7GG $PACTMP/WGGˋ
export PAC7GG
PAC7JG=ˋBVPENV PACMM3 PAC7JG $PACTMP/WJGˋ
export PAC7JG
PAC7KC=ˋBVPENV PACMM3 PAC7KC $PACTMP/WKCˋ
export PAC7KC
PAC7KG=ˋBVPENV PACMM3 PAC7KG $PACTMP/WKGˋ
export PAC7KG
PAC7G1=ˋBVPENV PACMM3 PAC7G1 $PACTMP/WG1ˋ
export PAC7G1
PAC7G2=ˋBVPENV PACMM3 PAC7G2 $PACUSERS/COBOL_MIA3.txtˋ
export PAC7G2
PAC7G3=ˋBVPENV PACMM3 PAC7G3 $PACUSERS/CONTROL_COBOL_MIA3.txtˋ
export PAC7G3
PAC7W1=ˋBVPENV PACMM3 PAC7W1 $PACTMP/WW1ˋ
export PAC7W1
PAC7W2=ˋBVPENV PACMM3 PAC7W2 $PACTMP/WW2ˋ
export PAC7W2
PACM2P=ˋBVPENV PACMM3 PACM2P $PACTMP/W2Pˋ
export PACM2P
PACM2W=ˋBVPENV PACMM3 PACM2W $PACTMP/W2Wˋ
export PACM2W
PAC2GP=ˋBVPENV PACMM3 PAC2GP $PACTMP/WGPˋ
export PAC2GP
PAC2GW=ˋBVPENV PACMM3 PAC2GW $PACTMP/WGWˋ
export PAC2GW
PAC780=ˋBVPENV PACMM3 PAC780 $PACTMP/W80ˋ
export PAC780
PAC7IA=ˋBVPENV PACMM3 PAC7IA $PACUSERS/MIA3IA.txtˋ
export PAC7IA
BVPMSG 1009 "BVPACMM3"
rtspac BVPACMM3
RETURN=$?
case $RETURN in
12)
BVPMSG 1012 "BVPACMM3"
BVPMSG 1025
BVPERR
BVPRMTMP
exit $RETURN
;;
*)
;;
esac
# ---------------------------------------------------------
BVPMSG 1010
BVPRMTMP
exit $RETURN