UTOV - Script d'exécution

   ' ------------------------------------------------------
   '      VISUALAGE PACBASE
   '
   ' ------------------------------------------------------
   '                DETECTION OF OVERRIDES
   '
   ' ------------------------------------------------------
   '
   <job id=UTOV>

   <script language="VBScript">
   Dim MyProc
   MyProc = "UTOV"
   </script>

   <script language="VBScript" src="INIT.vbs"/>

   <script language="VBScript">

   If c_error = 1 then Wscript.Quit (1) End If

   Call Msg_Log (Array("1022" , "PTUOVR"))
   '------------------------------------
   WshEnv("PAC7AN") = Rep_BASE & "\AN"
   WshEnv("PAC7AR") = Rep_BASE & "\AR"
   WshEnv("PAC7AE") = Rep_SKEL & "\AE"
   Call BvpEnv("PTUOVR","PAC7ET",Rep_USR & "\UTOVET.txt")
   Call BvpEnv("PTUOVR","PAC7OV",Rep_USR & "\UTOVFILE.txt")
   Call BvpEnv("PTUOVR","PAC7PU",Rep_TMP & "\WPU.tmp")
   WshEnv("PAC7MB") = Fic_Input
   Call RunCmdLog ("BVPTUOVR")
   Call Err_Cod(Return , 0 , "PTUOVR")


   Call Msg_Log (Array("1022" , "PACF"))
   '------------------------------------
   WshEnv("PAC7AE") = Rep_SKEL & "\AE"
   WshEnv("PAC7MB") = Fic_Input
   Call BvpEnv("PACF","PAC7WD",Rep_TMP & "\WPU.tmp")
   Call BvpEnv("PACF","PAC7MV",Rep_USR & "\UTOVPUMV.txt")
   Call BvpEnv("PACF","PAC7GY",Rep_USR & "\UTOVPUGY.txt")
   Call RunCmdLog ("BVPACF")
   Call Err_Cod(Return , 0 , "PACF")

   Call Msg_Log (Array("1024"))
   Call DeleteFldr (Rep_TMP)
   '--------------------------------
   Call Msg_Log (Array("1023"))
   '------------------------------------
   Wscript.Quit (Return)

   </script>
   </job>

Vos commentaires