' ------------------------------------------------------
' VISUALAGE PACBASE
'
' ------------------------------------------------------
' BATCH MIGRATION
'
' ------------------------------------------------------
'
<job id=MIBU>
<script language="VBScript">
Dim MyProc
MyProc = "MIBU"
</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" , "PACS9D"))
'------------------------------------
WshEnv("PAC7GY") = Fic_Input
If Not FSO.FileExists(WshEnv("PAC7GY")) Then
Call Msg_Log (Array("1004" , "PAC7GY"))
Msg = Nls_Lib
EndJob (1)
Wscript.Quit (1)
End If
Call BvpEnv("PACS9D","PAC7QR",Rep_TMP & "\WQR.tmp")
Call RunCmdLog ("BVPACS9D")
Call Err_Cod(Return , 0 , "PACS9D")
Call Msg_Log (Array("1022" , "PACS9E"))
'------------------------------------
Call BvpEnv("PACS9E","PAC7QR",Rep_TMP & "\WQR.tmp")
WshEnv("PAC7SL") = SPLITLIB
Call BvpEnv("PACS9E","PAC7RQ",Rep_TMP & "\WRQ.tmp")
Call RunCmdLog ("BVPACS9E")
Call Err_Cod(Return , 0 , "PACS9E")
Call Msg_Log (Array("1022" , "PACS94"))
'------------------------------------
WshEnv("PAC7CS") = BVP_MibaCs
Call BvpEnv("PACS94","PAC7RQ",Rep_TMP & "\WRQ.tmp")
Call BvpEnv("PACS94","PAC7QR",Rep_TMP & "\WPAC7QR.tmp")
Call RunCmdLog ("BVPACS94")
WshVolEnv("RC") = Return
If Return = 12 Then
Call Msg_Log (Array("1070"))
End If
Call Err_Cod(Return , 0 , "PACS94")
Call Msg_Log (Array("1022" , "PACS96"))
'------------------------------------
WshEnv("PAC7GY") = Fic_Input
WshEnv("PAC7CS") = BVP_MibaCs
Call BvpEnv("PACS96","PAC7TA",Rep_TMP & "\WTA.tmp")
Call BvpEnv("PACS96","PAC7MB",Rep_TMP & "\NUL.tmp")
Call BvpEnv("PACS96","PAC7MC",Rep_TMP & "\WMC.tmp")
Call BvpEnv("PACS96","PAC7MI",Rep_TMP & "\WMI.tmp")
Call BvpEnv("PACS96","PAC7MM",Rep_TMP & "\WMM.tmp")
Call BvpEnv("PACS96","PAC7MO",Rep_TMP & "\WMO.tmp")
Call BvpEnv("PACS96","PAC7MS",Rep_TMP & "\WMS.tmp")
WshEnv("PAC7PM") = MIAMPMAC
Call RunCmdLog ("BVPACS96")
Call Err_Cod(Return , 0 , "PACS96")
Call Msg_Log (Array("1022" , "PACS97"))
'------------------------------------
Call BvpEnv("PACS97","PAC7AT",Rep_TMP & "\WAT.tmp")
Call BvpEnv("PACS97","PAC7TA",Rep_TMP & "\WTA.tmp")
Call RunCmdLog ("BVPACS97")
Call Err_Cod(Return , 0 , "PACS97")
Call Msg_Log (Array("1022" , "PACS91"))
'------------------------------------
Call BvpEnv("PACS91","PAC7AT",Rep_TMP & "\WAT.tmp")
Call BvpEnv("PACS91","PAC7TI",Rep_TMP & "\WTI.tmp")
Call RunCmdLog ("BVPACS91")
Call Err_Cod(Return , 0 , "PACS91")
Call Msg_Log (Array("1022" , "PACS98"))
'------------------------------------
WshEnv("PAC7AE") = Rep_SKEL & "\AE"
WshEnv("PAC7AR") = Rep_BASE & "\AR"
Call BvpEnv("PACS98","PAC7CP",Rep_TMP & "\NUL.tmp")
Call BvpEnv("PACS98","PAC7TI",Rep_TMP & "\WTI.tmp")
Call BvpEnv("PACS98","PAC7RQ",Rep_TMP & "\WPAC7QR.tmp")
Call BvpEnv("PACS98","PAC7TG",Rep_USR & "\MIBU.ta2")
Call RunCmdLog ("BVPACS98")
Call Err_Cod(Return , 0 , "PACS98")
Call Msg_Log (Array("1024"))
'------------------------------------
Call DeleteFldr (Rep_TMP)
Call Msg_Log (Array("1023"))
'------------------------------------
Wscript.Quit (Return)
</script>
</job>