MIMA - Execution Script

   #!/bin/sh
   #@(#)VA Pac xxx xxx (R) MIMA BATCH PROCEDURE
   # * ------------------------------------------------------
   # *      VISUALAGE PACBASE
   # *
   # * ------------------------------------------------------
   # *             MACRO-STRUCTURES MIGRATION
   # *
   # * ------------------------------------------------------
   # *
   # Parameter control
   . $PACDIR/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
   # ---------------------------------------------------------
   . $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
   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
   # ---------------------------------------------------------
   . $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
   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

Feedback