MERT - Script d'exécution

   #!/bin/sh
   #@(#)VA Pac xxx xxx (R) MERT BATCH PROCEDURE
   # * ------------------------------------------------------
   # *      VISUALAGE PACBASE
   # *
   # * ------------------------------------------------------
   # *           - MERISE ENTITY TRANSFORMATION   -
   # * ------------------------------------------------------
   # *
   # Parameter control
   . $PACDIR/system/proc/BVPINIT.ini
   echo ""
   echo "---------------------------------------------------------"
   BVPMSG 1004 "MERT"
   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
   SYSPAF=ˋBVPENV PAFMER SYSPAF $PACTMP/WSYˋ
   export SYSPAF
   PAC7UR=ˋBVPENV PAFMER PAC7UR $PACTMP/WURˋ
   export PAC7UR
   PAC7EJ=ˋBVPENV PAFMER PAC7EJ $PACUSERS/MERT1EJ.txtˋ
   export PAC7EJ
   PAC7ET=ˋBVPENV PAFMER PAC7ET $PACUSERS/MERT1ET.txtˋ
   export PAC7ET
   PAC7DD=ˋBVPENV PAFMER PAC7DD $PACUSERS/MERT1DD.txtˋ
   export PAC7DD
   BVPMSG 1009 "BVPAFMER"
   rtspac BVPAFMER
   RETURN=$?
   case $RETURN in
   0)
    ;;
   *)
    BVPMSG 1012 "BVPAFMER"
    BVPMSG 1025
    BVPERR
    BVPRMTMP
    exit $RETURN
    ;;
   esac
   # ---------------------------------------------------------
   PAC7UR=ˋBVPENV PTUMER PAC7UR $PACTMP/WURˋ
   export PAC7UR
   PAC7GY=ˋBVPENV PTUMER PAC7GY $PACUSERS/MERTGYˋ
   export PAC7GY
   PAC7EJ=ˋBVPENV PTUMER PAC7EJ $PACUSERS/MERT2EJ.txtˋ
   export PAC7EJ
   PAC7ET=ˋBVPENV PTUMER PAC7ET $PACUSERS/MERT2ET.txtˋ
   export PAC7ET
   PAC7DD=ˋBVPENV PTUMER PAC7DD $PACUSERS/MERT2DD.txtˋ
   export PAC7DD
   BVPMSG 1009 "BVPTUMER"
   rtspac BVPTUMER
   RETURN=$?
   case $RETURN in
   0)
    ;;
   *)
    BVPMSG 1012 "BVPTUMER"
    BVPMSG 1025
    BVPERR
    BVPRMTMP
    exit $RETURN
    ;;
   esac
   BVPMSG 1010
   BVPRMTMP
   exit $RETURN

Vos commentaires