MIBU - Execution Script

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

Feedback