MIAM - Execution Script

   #!/bin/sh
   #@(#)VA Pac xxx xxx (R) MIAM BATCH PROCEDURE
   # * ------------------------------------------------------
   # *      VISUALAGE PACBASE
   # *
   # * ------------------------------------------------------
   # *                 MIGRATION HELP
   # *
   # * ------------------------------------------------------
   # *
   # Parameter control
   . $PACDIR/system/proc/BVPINIT.ini
   echo ""
   echo "---------------------------------------------------------"
   BVPMSG 1004 "MIAM"
   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/PACGGN.ini
   . $PACDIR/config/$1/PACGGR.ini
   . $PACDIR/config/$1/PACGGU.ini
   PAC7MB=$PACINPUT
   export PAC7MB
   PAC7CK=ˋBVPENV PLTPAM PAC7CK $PACDIR/system/skel/BVPAMIAMˋ
   export PAC7CK
   PAC7CS=ˋBVPENV PLTPAM PAC7CS \ˋdirname $PACUSERS\ˋ/MIAMCSPEˋ
   export PAC7CS
   PAC7NR=ˋBVPENV PLTPAM PAC7NR \ˋdirname $PACUSERS\ˋ/MIAMNREPˋ
   export PAC7NR
   PAC7NS=ˋBVPENV PLTPAM PAC7NS \ˋdirname $PACUSERS\ˋ/MIAMNMIGˋ
   export PAC7NS
   PAC7PM=ˋBVPENV PLTPAM PAC7PM \ˋdirname $PACUSERS\ˋ/MIAMPMACˋ
   export PAC7PM
   PAC7DX=ˋBVPENV PLTPAM PAC7DX $PACTMP/WDXˋ
   export PAC7DX
   PAC7RQ=ˋBVPENV PLTPAM PAC7RQ $PACUSERS/MIAMRQERˋ
   export PAC7RQ
   PAC7DD=ˋBVPENV PLTPAM PAC7DD $PACUSERS/MIAMDDPAM.txtˋ
   export PAC7DD
   BVPMSG 1009 "BVPLTPAM"
   rtspac BVPLTPAM
   RETURN=$?
   case $RETURN in
   0)
    ;;
   *)
    BVPMSG 1012 "BVPLTPAM"
    BVPMSG 1025
    BVPERR
    BVPRMTMP
    exit $RETURN
    ;;
   esac
   # ---------------------------------------------------------
   . $PACDIR/config/$1/PAC7AN.ini
   . $PACDIR/config/$1/PAC7AR.ini
   PAC7MB=$PACINPUT
   export PAC7MB
   PAC7DX=ˋBVPENV PLTPAP PAC7DX $PACTMP/WDXˋ
   export PAC7DX
   PAC7GY=ˋBVPENV PLTPAP PAC7GY $PACUSERS/MIAMGYˋ
   export PAC7GY
   PAC7UP=ˋBVPENV PLTPAP PAC7UP $PACUSERS/MIAMUPˋ
   export PAC7UP
   BVPMSG 1009 "BVPLTPAP"
   rtspac BVPLTPAP
   RETURN=$?
   case $RETURN in
   0)
    ;;
   *)
    BVPMSG 1012 "BVPLTPAP"
    BVPMSG 1025
    BVPERR
    BVPRMTMP
    exit $RETURN
    ;;
   esac
   # ---------------------------------------------------------
   BVPMSG 1010
   BVPRMTMP
   exit $RETURN

Feedback