MIA4 - Execution Script

   #!/bin/sh
   #@(#)VA Pac xxx xxx (R) MIA4 BATCH PROCEDURE
   # * ------------------------------------------------------
   # *      VISUALAGE PACBASE
   # *
   # * ------------------------------------------------------
   # *       SERVER GENERATION
   # *
   # * ------------------------------------------------------
   # *
   # Parameter control
   . $PACDIR/system/proc/BVPINIT.ini
   echo ""
   echo "---------------------------------------------------------"
   BVPMSG 1004 "MIA4"
   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
   PAC7EV=ˋBVPENV PACMM4 PAC7EV $PACTMP/WEVˋ
   export PAC7EV
   PAC7EZ=ˋBVPENV PACMM4 PAC7EZ $PACTMP/WEZˋ
   export PAC7EZ
   PAC7GV=ˋBVPENV PACMM4 PAC7GV $PACTMP/WGVˋ
   export PAC7GV
   PAC7JG=ˋBVPENV PACMM4 PAC7JG $PACTMP/WJGˋ
   export PAC7JG
   PAC7KC=ˋBVPENV PACMM4 PAC7KC $PACTMP/WKCˋ
   export PAC7KC
   PAC7KV=ˋBVPENV PACMM4 PAC7KV $PACTMP/WKVˋ
   export PAC7KV
   PAC7G1=ˋBVPENV PACMM4 PAC7G1 $PACTMP/WG1ˋ
   export PAC7G1
   PAC7G2=ˋBVPENV PACMM4 PAC7G2 $PACUSERS/COBOL_MIA4.txtˋ
   export PAC7G2
   PAC7G3=ˋBVPENV PACMM4 PAC7G3 $PACUSERS/CONTROL_COBOL_MIA4.txtˋ
   export PAC7G3
   PAC7W1=ˋBVPENV PACMM4 PAC7W1 $PACTMP/WW1ˋ
   export PAC7W1
   PAC7W2=ˋBVPENV PACMM4 PAC7W2 $PACTMP/WW2ˋ
   export PAC7W2
   PACM2P=ˋBVPENV PACMM4 PACM2P $PACTMP/W2Pˋ
   export PACM2P
   PACM2W=ˋBVPENV PACMM4 PACM2W $PACTMP/W2Wˋ
   export PACM2W
   PAC2GP=ˋBVPENV PACMM4 PAC2GP $PACTMP/WGPˋ
   export PAC2GP
   PAC2GW=ˋBVPENV PACMM4 PAC2GW $PACTMP/WGWˋ
   export PAC2GW
   PAC780=ˋBVPENV PACMM4 PAC780 $PACTMP/W80ˋ
   export PAC780
   PAC7IA=ˋBVPENV PACMM4 PAC7IA $PACUSERS/MIA4IA.txtˋ
   export PAC7IA
   BVPMSG 1009 "BVPACMM4"
   rtspac BVPACMM4
   RETURN=$?
   case $RETURN in
   12)
    BVPMSG 1012 "BVPACMM4"
    BVPMSG 1025
    BVPERR
    BVPRMTMP
    exit $RETURN
    ;;
   *)
    ;;
   esac
   # ---------------------------------------------------------
   BVPMSG 1010
   BVPRMTMP
   exit $RETURN

Feedback