MIBU - Script d'exécution

   #!/bin/sh
   #@(#)VA Pac xxx xxx (R) MIBU BATCH PROCEDURE
   # * ------------------------------------------------------
   # *      VISUALAGE PACBASE
   # *
   # * ------------------------------------------------------
   # *                 BATCH MIGRATION
   # *
   # * ------------------------------------------------------
   # *
   # Parameter control
   . $PACDIR/system/proc/BVPINIT.ini
   echo ""
   echo "---------------------------------------------------------"
   BVPMSG 1004 "MIBU"
   echo "                        =============="
   BVPMSG 1047 "$BVPBASE"
   BVPMSG 1005 "$PACDIR/config/$1"
   BVPMSG 1006 "$PACTMP"
   BVPMSG 1073 "$PACUSERS"
   BVPMSG 1007 "$PACINPUT"
   echo "---------------------------------------------------------"
   echo ""
   BVPPAUSE
   BVPMKDIR
   # ---------------------------------------------------------
   PAC7GY=$PACINPUT
   export PAC7GY
   PAC7QR=ˋBVPENV PACS9D PAC7QR $PACTMP/WQRˋ
   export PAC7QR
   BVPMSG 1009 "BVPACS9D"
   rtspac BVPACS9D
   RETURN=$?
   case $RETURN in
   0)
    ;;
   *)
    BVPMSG 1012 "BVPACS9D"
    BVPMSG 1025
    BVPERR
    BVPRMTMP
    exit $RETURN
    ;;
   esac
   # ---------------------------------------------------------
   PAC7QR=ˋBVPENV PACS9E PAC7QR $PACTMP/WQRˋ
   export PAC7QR
   PAC7SL=ˋBVPENV PACS9E PAC7SL \ˋdirname $PACUSERS\ˋ/SPLITLIBˋ
   export PAC7SL
   PAC7RQ=ˋBVPENV PACS9E PAC7RQ $PACTMP/WRQˋ
   export PAC7RQ
   BVPMSG 1009 "BVPACS9E"
   rtspac BVPACS9E
   RETURN=$?
   case $RETURN in
   0)
    ;;
   *)
    BVPMSG 1012 "BVPACS9E"
    BVPMSG 1025
    BVPERR
    BVPRMTMP
    exit $RETURN
    ;;
   esac
   # ---------------------------------------------------------
   PAC7CS=ˋBVPENV PACS94 PAC7CS \ˋdirname $PACUSERS\ˋ/MIAMCSPEˋ
   export PAC7CS
   PAC7RQ=ˋBVPENV PACS94 PAC7RQ $PACTMP/WRQˋ
   export PAC7RQ
   PAC7QR=ˋBVPENV PACS94 PAC7QR $PACTMP/WQRˋ
   export PAC7QR
   BVPMSG 1009 "BVPACS94"
   rtspac BVPACS94
   RETURN=$?
   case $RETURN in
   0)
    ;;
   *)
    BVPMSG 1012 "BVPACS94"
    BVPMSG 1025
    BVPERR
    BVPRMTMP
    exit $RETURN
    ;;
   esac
   # ---------------------------------------------------------
   PAC7GY=$PACINPUT
   export PAC7GY
   PAC7MB=ˋBVPENV PACS96 PAC7MB /dev/nullˋ
   export PAC7MB
   PAC7CS=ˋBVPENV PACS96 PAC7CS \ˋdirname $PACUSERS\ˋ/MIAMCSPEˋ
   export PAC7CS
   PAC7PM=ˋBVPENV PACS96 PAC7PM /dev/nullˋ
   export PAC7PM
   PAC7TA=ˋBVPENV PACS96 PAC7TA $PACTMP/WTAˋ
   export PAC7TA
   PAC7MM=ˋBVPENV PACS96 PAC7MM /dev/nullˋ
   export PAC7MM
   PAC7MI=ˋBVPENV PACS96 PAC7MI /dev/nullˋ
   export PAC7MI
   PAC7MO=ˋBVPENV PACS96 PAC7MO /dev/nullˋ
   export PAC7MO
   PAC7MC=ˋBVPENV PACS96 PAC7MC /dev/nullˋ
   export PAC7MC
   PAC7MS=ˋBVPENV PACS96 PAC7MS /dev/nullˋ
   export PAC7MS
   BVPMSG 1009 "BVPACS96"
   rtspac BVPACS96
   RETURN=$?
   case $RETURN in
   0)
    ;;
   *)
    BVPMSG 1012 "BVPACS96"
    BVPMSG 1025
    BVPERR
    BVPRMTMP
    exit $RETURN
    ;;
   esac
   # ---------------------------------------------------------
   PAC7AT=ˋBVPENV PACS97 PAC7AT $PACTMP/WATˋ
   export PAC7AT
   PAC7TA=ˋBVPENV PACS97 PAC7TA $PACTMP/WTAˋ
   export PAC7TA
   BVPMSG 1009 "BVPACS97"
   rtspac BVPACS97
   RETURN=$?
   case $RETURN in
   0)
    ;;
   *)
    BVPMSG 1012 "BVPACS97"
    BVPMSG 1025
    BVPERR
    BVPRMTMP
    exit $RETURN
    ;;
   esac
   # ---------------------------------------------------------
   PAC7AT=ˋBVPENV PACS91 PAC7AT $PACTMP/WATˋ
   export PAC7AT
   PAC7TI=ˋBVPENV PACS91 PAC7TI $PACTMP/WTIˋ
   export PAC7TI
   BVPMSG 1009 "BVPACS91"
   rtspac BVPACS91
   RETURN=$?
   case $RETURN in
   0)
    ;;
   *)
    BVPMSG 1012 "BVPACS91"
    BVPMSG 1025
    BVPERR
    BVPRMTMP
    exit $RETURN
    ;;
   esac
   # ---------------------------------------------------------
   . $PACDIR/config/$1/PAC7AE.ini
   . $PACDIR/config/$1/PAC7AR.ini
   PAC7CP=ˋBVPENV PACS98 PAC7CP /dev/nullˋ
   export PAC7CP
   PAC7TI=ˋBVPENV PACS98 PAC7TI $PACTMP/WTIˋ
   export PAC7TI
   PAC7RQ=ˋBVPENV PACS98 PAC7RQ $PACTMP/WQRˋ
   export PAC7RQ
   PAC7TG=ˋBVPENV PACS98 PAC7TG $PACUSERS/${BVPPROC}.ta2ˋ
   export PAC7TG
   BVPMSG 1009 "BVPACS98"
   rtspac BVPACS98
   RETURN=$?
   case $RETURN in
   0)
    ;;
   *)
    BVPMSG 1012 "BVPACS98"
    BVPMSG 1025
    BVPERR
    BVPRMTMP
    exit $RETURN
    ;;
   esac
   # ---------------------------------------------------------
   BVPMSG 1010
   BVPRMTMP
   exit $RETURN

Vos commentaires