MIBA - Script d'exécution

   #!/bin/sh
   #@(#)VA Pac xxx xxx (R) MIBA BATCH PROCEDURE
   # * ------------------------------------------------------
   # *      VISUALAGE PACBASE
   # *
   # * ------------------------------------------------------
   # *                 BATCH MIGRATION
   # *
   # * ------------------------------------------------------
   # *
   # Parameter control
   . $PACDIR/system/proc/BVPINIT.ini
   echo ""
   echo "---------------------------------------------------------"
   BVPMSG 1004 "MIBA"
   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
   PAC7BM=ˋBVPENV PACX PAC7BM $PACTMP/WBMˋ
   export PAC7BM
   PAC7CP=ˋBVPENV PACX PAC7CP /dev/nullˋ
   export PAC7CP
   PAC7DD=ˋBVPENV PACX PAC7DD $PACUSERS/PACXDD.txtˋ
   export PAC7DD
   PAC7ED=ˋBVPENV PACX PAC7ED $PACTMP/WEDˋ
   export PAC7ED
   PAC7EE=ˋBVPENV PACX PAC7EE $PACUSERS/PACXEE.txtˋ
   export PAC7EE
   PAC7EG=ˋBVPENV PACX PAC7EG $PACTMP/WEGˋ
   export PAC7EG
   PAC7EM=ˋBVPENV PACX PAC7EM $PACTMP/WEMˋ
   export PAC7EM
   PAC7EP=ˋBVPENV PACX PAC7EP $PACUSERS/PACXEP.txtˋ
   export PAC7EP
   PAC7EQ=ˋBVPENV PACX PAC7EQ $PACUSERS/PACXEQ.txtˋ
   export PAC7EQ
   PAC7ES=ˋBVPENV PACX PAC7ES /dev/nullˋ
   export PAC7ES
   PAC7EU=ˋBVPENV PACX PAC7EU $PACTMP/WEUˋ
   export PAC7EU
   PAC7EZ=ˋBVPENV PACX PAC7EZ $PACUSERS/PACXEZ.txtˋ
   export PAC7EZ
   PAC7GY=ˋBVPENV PACX PAC7GY /dev/nullˋ
   export PAC7GY
   PAC7IA=ˋBVPENV PACX PAC7IA $PACUSERS/PACXIA.txtˋ
   export PAC7IA
   PAC7MA=ˋBVPENV PACX PAC7MA /dev/nullˋ
   export PAC7MA
   PAC7MB=$PACINPUT
   export PAC7MB
   PAC7MM=ˋBVPENV PACX PAC7MM $PACTMP/WMMˋ
   export PAC7MM
   PAC7MJ=ˋBVPENV PACX PAC7MJ $PACTMP/WMJˋ
   export PAC7MJ
   PAC7MR=ˋBVPENV PACX PAC7MR $PACTMP/WMRˋ
   export PAC7MR
   PAC7MX=ˋBVPENV PACX PAC7MX $PACTMP/WMXˋ
   export PAC7MX
   PAC7RE=ˋBVPENV PACX PAC7RE $PACTMP/WREˋ
   export PAC7RE
   PAC7RM=ˋBVPENV PACX PAC7RM $PACTMP/WRMˋ
   export PAC7RM
   PAC7RQ=ˋBVPENV PACX PAC7RQ $PACTMP/WQRˋ
   export PAC7RQ
   PAC7TD=ˋBVPENV PACX PAC7TD $PACTMP/WTDˋ
   export PAC7TD
   PAC7TE=ˋBVPENV PACX PAC7TE $PACTMP/WTEˋ
   export PAC7TE
   PAC7UE=ˋBVPENV PACX PAC7UE $PACTMP/WUEˋ
   export PAC7UE
   PAC7WD=ˋBVPENV PACX PAC7WD $PACTMP/WWDˋ
   export PAC7WD
   SYSEXT=ˋBVPENV PACX SYSEXT $PACTMP/WSYˋ
   export SYSEXT
   BVPMSG 1009 "BVPACX"
   rtspac BVPACX
   RETURN=$?
   case $RETURN in
   0)
    ;;
   4)
    BVPMSG 1012 "BVPACX"
    ;;
   8)
    BVPMSG 1012 "BVPACX"
    BVPMSG 1014
    BVPERR
    BVPRMTMP
    exit $RETURN
    ;;
   *)
    BVPMSG 1012 "BVPACX"
    BVPMSG 1025
    BVPERR
    BVPRMTMP
    exit $RETURN
    ;;
   esac
   # ---------------------------------------------------------
   PAC7QR=ˋBVPENV PACS92 PAC7QR $PACTMP/WQRˋ
   export PAC7QR
   PAC7RQ=ˋBVPENV PACS92 PAC7RQ $PACTMP/WRQˋ
   export PAC7RQ
   PAC7MZ=ˋBVPENV PACS92 PAC7MZ $PACTMP/WMBˋ
   export PAC7MZ
   PAC7ER=ˋBVPENV PACS92 PAC7ER /dev/nullˋ
   export PAC7ER
   PAC7EE=ˋBVPENV PACS92 PAC7EE /dev/nullˋ
   export PAC7EE
   BVPMSG 1009 "BVPACS92"
   rtspac BVPACS92
   RETURN=$?
   case $RETURN in
   0)
    ;;
   *)
    BVPMSG 1012 "BVPACS92"
    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
   PAC7BM=ˋBVPENV PACX PAC7BM $PACTMP/WBMˋ
   export PAC7BM
   PAC7CP=ˋBVPENV PACX PAC7CP $PACTMP/WCPˋ
   export PAC7CP
   PAC7DD=ˋBVPENV PACX PAC7DD $PACUSERS/PACX2DD.txtˋ
   export PAC7DD
   PAC7ED=ˋBVPENV PACX PAC7ED $PACTMP/WEDˋ
   export PAC7ED
   PAC7EE=ˋBVPENV PACX PAC7EE $PACUSERS/PACX2EE.txtˋ
   export PAC7EE
   PAC7EG=ˋBVPENV PACX PAC7EG $PACTMP/WEGˋ
   export PAC7EG
   PAC7EM=ˋBVPENV PACX PAC7EM $PACTMP/WEMˋ
   export PAC7EM
   PAC7EP=ˋBVPENV PACX PAC7EP $PACUSERS/PACX2EP.txtˋ
   export PAC7EP
   PAC7EQ=ˋBVPENV PACX PAC7EQ $PACUSERS/PACX2EQ.txtˋ
   export PAC7EQ
   PAC7ES=ˋBVPENV PACX PAC7ES /dev/nullˋ
   export PAC7ES
   PAC7EU=ˋBVPENV PACX PAC7EU $PACTMP/WEUˋ
   export PAC7EU
   PAC7EZ=ˋBVPENV PACX PAC7EZ $PACUSERS/PACX2EZ.txtˋ
   export PAC7EZ
   PAC7GY=ˋBVPENV PACX PAC7GY $PACTMP/WGYˋ
   export PAC7GY
   PAC7IA=ˋBVPENV PACX PAC7IA $PACUSERS/PACX2IA.txtˋ
   export PAC7IA
   PAC7MA=ˋBVPENV PACX PAC7MA /dev/nullˋ
   export PAC7MA
   PAC7MB=ˋBVPENV PACX PAC7MB $PACTMP/WMBˋ
   export PAC7MB
   PAC7MM=ˋBVPENV PACX PAC7MM $PACTMP/WMMˋ
   export PAC7MM
   PAC7MJ=ˋBVPENV PACX PAC7MJ $PACTMP/WMJˋ
   export PAC7MJ
   PAC7MR=ˋBVPENV PACX PAC7MR $PACTMP/WMRˋ
   export PAC7MR
   PAC7MX=ˋBVPENV PACX PAC7MX $PACTMP/WMXˋ
   export PAC7MX
   PAC7RE=ˋBVPENV PACX PAC7RE $PACTMP/WREˋ
   export PAC7RE
   PAC7RM=ˋBVPENV PACX PAC7RM $PACTMP/WRMˋ
   export PAC7RM
   PAC7RQ=ˋBVPENV PACX PAC7RQ /dev/nullˋ
   export PAC7RQ
   PAC7TD=ˋBVPENV PACX PAC7TD $PACTMP/WTDˋ
   export PAC7TD
   PAC7TE=ˋBVPENV PACX PAC7TE $PACTMP/WTEˋ
   export PAC7TE
   PAC7UE=ˋBVPENV PACX PAC7UE $PACTMP/WUEˋ
   export PAC7UE
   PAC7WD=ˋBVPENV PACX PAC7WD $PACTMP/WWDˋ
   export PAC7WD
   SYSEXT=ˋBVPENV PACX SYSEXT $PACTMP/WSY2ˋ
   export SYSEXT
   BVPMSG 1009 "BVPACX"
   rtspac BVPACX
   RETURN=$?
   case $RETURN in
   0)
    ;;
   4)
    BVPMSG 1012 "BVPACX"
    ;;
   8)
    BVPMSG 1012 "BVPACX"
    BVPMSG 1014
    BVPERR
    BVPRMTMP
    exit $RETURN
    ;;
   *)
    BVPMSG 1012 "BVPACX"
    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
   # ---------------------------------------------------------
   PAC7MB=$PACINPUT
   export PAC7MB
   PAC7GY=ˋBVPENV PACS96 PAC7GY $PACTMP/WGYˋ
   export PAC7GY
   PAC7CS=ˋBVPENV PACS96 PAC7CS \ˋdirname $PACUSERS\ˋ/MIAMCSPEˋ
   export PAC7CS
   PAC7PM=ˋBVPENV PACS96 PAC7PM \ˋdirname $PACUSERS\ˋ/MIAMPMACˋ
   export PAC7PM
   PAC7TA=ˋBVPENV PACS96 PAC7TA $PACTMP/WTAˋ
   export PAC7TA
   PAC7MM=ˋBVPENV PACS96 PAC7MM $PACUSERS/INPUTMIMAˋ
   export PAC7MM
   PAC7MI=ˋBVPENV PACS96 PAC7MI $PACUSERS/INPUTMIA1ˋ
   export PAC7MI
   PAC7MO=ˋBVPENV PACS96 PAC7MO $PACUSERS/INPUTMIA2ˋ
   export PAC7MO
   PAC7MC=ˋBVPENV PACS96 PAC7MC $PACUSERS/INPUTMIA3ˋ
   export PAC7MC
   PAC7MS=ˋBVPENV PACS96 PAC7MS $PACUSERS/INPUTMIA4ˋ
   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 PAC7TA $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 $PACTMP/WCPˋ
   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