' ------------------------------------------------------
' 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>