#!/bin/sh
#@(#)VA Pac xxx xxx (R) MIA1 BATCH PROCEDURE
# * ------------------------------------------------------
# * VISUALAGE PACBASE
# *
# * ------------------------------------------------------
# * PROGRAM GENERATION
# *
# * ------------------------------------------------------
# *
# Parameter control
. $PACDIR/system/proc/BVPINIT.ini
echo ""
echo "---------------------------------------------------------"
BVPMSG 1004 "MIA1"
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/PAC7AY.ini
. $PACDIR/config/$1/PACGGN.ini
. $PACDIR/config/$1/PACGGR.ini
. $PACDIR/config/$1/PACGGU.ini
. $PACDIR/config/$1/SQUEL.ini
PAC7CA=ˋBVPENV PACMM1 PAC7CA $PACTMP/WCAˋ
export PAC7CA
PAC7CM=ˋBVPENV PACMM1 PAC7CM $PACTMP/WCMˋ
export PAC7CM
PAC7EP=ˋBVPENV PACMM1 PAC7EP $PACTMP/WEPˋ
export PAC7EP
PAC7GI=ˋBVPENV PACMM1 PAC7GI /dev/nullˋ
export PAC7GI
PAC7GP=ˋBVPENV PACMM1 PAC7GP $PACTMP/WGPˋ
export PAC7GP
PAC7JG=ˋBVPENV PACMM1 PAC7JG $PACTMP/WJGˋ
export PAC7JG
PAC7KC=ˋBVPENV PACMM1 PAC7KC $PACTMP/WKCˋ
export PAC7KC
PAC7KP=ˋBVPENV PACMM1 PAC7KP $PACTMP/WKPˋ
export PAC7KP
PAC7G1=ˋBVPENV PACMM1 PAC7G1 $PACTMP/WG1ˋ
export PAC7G1
PAC7G2=ˋBVPENV PACMM1 PAC7G2 $PACUSERS/COBOL_MIA1.txtˋ
export PAC7G2
PAC7G3=ˋBVPENV PACMM1 PAC7G3 $PACUSERS/CONTROL_COBOL_MIA1.txtˋ
export PAC7G3
PAC7WB=ˋBVPENV PACMM1 PAC7WB $PACTMP/WWBˋ
export PAC7WB
PAC7WC=ˋBVPENV PACMM1 PAC7WC $PACTMP/WWCˋ
export PAC7WC
PAC7WM=ˋBVPENV PACMM1 PAC7WM $PACTMP/WWMˋ
export PAC7WM
PAC7WP=ˋBVPENV PACMM1 PAC7WP $PACTMP/WWPˋ
export PAC7WP
PAC7W1=ˋBVPENV PACMM1 PAC7W1 $PACTMP/WW1ˋ
export PAC7W1
PAC7W2=ˋBVPENV PACMM1 PAC7W2 $PACTMP/WW2ˋ
export PAC7W2
PAC7W3=ˋBVPENV PACMM1 PAC7W3 $PACTMP/WW3ˋ
export PAC7W3
PAC7W4=ˋBVPENV PACMM1 PAC7W4 $PACTMP/WW4ˋ
export PAC7W4
PAC7W5=ˋBVPENV PACMM1 PAC7W5 $PACTMP/WW5ˋ
export PAC7W5
PAC7W6=ˋBVPENV PACMM1 PAC7W6 $PACTMP/WW6ˋ
export PAC7W6
PAC7IA=ˋBVPENV PACMM1 PAC7IA $PACUSERS/MIA1IA.txtˋ
export PAC7IA
BVPMSG 1009 "BVPACMM1"
rtspac BVPACMM1
RETURN=$?
case $RETURN in
12)
BVPMSG 1012 "BVPACMM1"
BVPMSG 1025
BVPERR
BVPRMTMP
exit $RETURN
;;
*)
;;
esac
# ---------------------------------------------------------
BVPMSG 1010
BVPRMTMP
exit $RETURN