' ------------------------------------------------------
' VISUALAGE PACBASE
'
' ------------------------------------------------------
' BATCH MIGRATION
'
' ------------------------------------------------------
'
<job id=MIBA>
<script language="VBScript">
Dim MyProc
MyProc = "MIBA"
</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" , "PACX"))
'------------------------------------
WshEnv("PAC7AE") = Rep_SKEL & "\AE"
WshEnv("PAC7AN") = Rep_BASE & "\AN"
WshEnv("PAC7AR") = Rep_BASE & "\AR"
WshEnv("PAC7AY") = Rep_BASE & "\AY"
WshEnv("PACGGN") = Rep_ABASE & "\AN"
WshEnv("PACGGR") = Rep_ABASE & "\AR"
WshEnv("PACGGU") = Rep_ABASE & "\GU"
WshEnv("PAC7MB") = Fic_Input
Call BvpEnv("PACX","PAC7BM",Rep_TMP & "\WBM.tmp")
Call BvpEnv("PACX","PAC7WD",Rep_TMP & "\WWD.tmp")
Call BvpEnv("PACX","PAC7MM",Rep_TMP & "\WMM.tmp")
Call BvpEnv("PACX","PAC7MJ",Rep_TMP & "\WMJ.tmp")
Call BvpEnv("PACX","PAC7TE",Rep_TMP & "\WTE.tmp")
Call BvpEnv("PACX","PAC7RE",Rep_TMP & "\WRE.tmp")
Call BvpEnv("PACX","PAC7RQ",Rep_TMP & "\WQR.tmp")
Call BvpEnv("PACX","PAC7RM",Rep_TMP & "\WRM.tmp")
Call BvpEnv("PACX","PAC7MA",Rep_TMP & "\NUL.tmp")
Call BvpEnv("PACX","PAC7ES",Rep_TMP & "\NUL.tmp")
Call BvpEnv("PACX","PAC7CP",Rep_TMP & "\NULCP.tmp")
Call BvpEnv("PACX","PAC7UE",Rep_TMP & "\WUE.tmp")
Call BvpEnv("PACX","PAC7GY",Rep_TMP & "\NUL.tmp")
Call BvpEnv("PACX","PAC7TD",Rep_TMP & "\WTD.tmp")
Call BvpEnv("PACX","PAC7MV",Rep_TMP & "\WMV.tmp")
Call BvpEnv("PACX","PAC7MR",Rep_TMP & "\WMR.tmp")
Call BvpEnv("PACX","PAC7MX",Rep_TMP & "\WMX.tmp")
Call BvpEnv("PACX","PAC7IA",Rep_USR & "\PACXIA.txt")
Call BvpEnv("PACX","PAC7DD",Rep_USR & "\PACXDD.txt")
Call BvpEnv("PACX","PAC7ED",Rep_TMP & "\WED.tmp")
Call BvpEnv("PACX","PAC7EE",Rep_USR & "\PACXEE.txt")
Call BvpEnv("PACX","PAC7EG",Rep_TMP & "\WEG.tmp")
Call BvpEnv("PACX","PAC7EM",Rep_TMP & "\WEM.tmp")
Call BvpEnv("PACX","PAC7EP",Rep_USR & "\PACXEP.txt")
Call BvpEnv("PACX","PAC7EQ",Rep_USR & "\PACXEQ.txt")
Call BvpEnv("PACX","PAC7EU",Rep_TMP & "\WEU.tmp")
Call BvpEnv("PACX","PAC7EZ",Rep_USR & "\PACXEZ.txt")
Call BvpEnv("PACX","SYSEXT",Rep_TMP & "\WSY.tmp")
Call RunCmdLog ("BVPACX")
If Return = 4 Then
Call Msg_Log (Array("1030"))
End If
If Return = 8 Then
Call Msg_Log (Array("1057"))
End If
Call Err_Cod(Return , 4 , "PACX")
Call Msg_Log (Array("1022" , "PACS92"))
'------------------------------------
Call BvpEnv("PACS92","PAC7QR",Rep_TMP & "\WQR.tmp")
Call BvpEnv("PACS92","PAC7RQ",Rep_TMP & "\WPACXRQ.tmp")
Call BvpEnv("PACS92","PAC7ER",Rep_TMP & "\NUL.tmp")
Call BvpEnv("PACS92","PAC7MZ",Rep_TMP & "\WMB.tmp")
Call RunCmdLog ("BVPACS92")
Call Err_Cod(Return , 0 , "PACS92")
Call Msg_Log (Array("1022" , "PACX"))
'------------------------------------
WshEnv("PAC7AE") = Rep_SKEL & "\AE"
WshEnv("PAC7AN") = Rep_BASE & "\AN"
WshEnv("PAC7AR") = Rep_BASE & "\AR"
WshEnv("PAC7AY") = Rep_BASE & "\AY"
WshEnv("PACGGN") = Rep_ABASE & "\AN"
WshEnv("PACGGR") = Rep_ABASE & "\AR"
WshEnv("PACGGU") = Rep_ABASE & "\GU"
Call BvpEnv("PACX","PAC7MB",Rep_TMP & "\WMB.tmp")
Call BvpEnv("PACX","PAC7BM",Rep_TMP & "\WBM.tmp")
Call BvpEnv("PACX","PAC7WD",Rep_TMP & "\WWD.tmp")
Call BvpEnv("PACX","PAC7MM",Rep_TMP & "\WMM.tmp")
Call BvpEnv("PACX","PAC7MJ",Rep_TMP & "\WMJ.tmp")
Call BvpEnv("PACX","PAC7TE",Rep_TMP & "\WTE.tmp")
Call BvpEnv("PACX","PAC7RE",Rep_TMP & "\WRE.tmp")
Call BvpEnv("PACX","PAC7RQ",Rep_TMP & "\NUL.tmp")
Call BvpEnv("PACX","PAC7RM",Rep_TMP & "\WRM.tmp")
Call BvpEnv("PACX","PAC7MA",Rep_TMP & "\NUL.tmp")
Call BvpEnv("PACX","PAC7ES",Rep_TMP & "\NUL.tmp")
Call BvpEnv("PACX","PAC7UE",Rep_TMP & "\WUE.tmp")
Call BvpEnv("PACX","PAC7CP",Rep_TMP & "\WCP.tmp")
Call BvpEnv("PACX","PAC7GY",Rep_TMP & "\WGY.tmp")
Call BvpEnv("PACX","PAC7TD",Rep_TMP & "\WTD.tmp")
Call BvpEnv("PACX","PAC7MV",Rep_TMP & "\WMV.tmp")
Call BvpEnv("PACX","PAC7MR",Rep_TMP & "\WMR.tmp")
Call BvpEnv("PACX","PAC7MX",Rep_TMP & "\WMX.tmp")
Call BvpEnv("PACX","PAC7IA",Rep_USR & "\PACX2IA.txt")
Call BvpEnv("PACX","PAC7DD",Rep_USR & "\PACX2DD.txt")
Call BvpEnv("PACX","PAC7ED",Rep_TMP & "\WED.tmp")
Call BvpEnv("PACX","PAC7EE",Rep_USR & "\PACX2EE.txt")
Call BvpEnv("PACX","PAC7EG",Rep_TMP & "\WEG.tmp")
Call BvpEnv("PACX","PAC7EM",Rep_TMP & "\WEM.tmp")
Call BvpEnv("PACX","PAC7EP",Rep_USR & "\PACX2EP.txt")
Call BvpEnv("PACX","PAC7EQ",Rep_USR & "\PACX2EQ.txt")
Call BvpEnv("PACX","PAC7EU",Rep_TMP & "\WEU.tmp")
Call BvpEnv("PACX","PAC7EZ",Rep_USR & "\PACX2EZ.txt")
Call BvpEnv("PACX","SYSEXT",Rep_TMP & "\WSY2.tmp")
Call RunCmdLog ("BVPACX")
If Return = 4 Then
Call Msg_Log (Array("1030"))
End If
If Return = 8 Then
Call Msg_Log (Array("1057"))
End If
Call Err_Cod(Return , 4 , "PACX")
Call Msg_Log (Array("1022" , "PACS94"))
'------------------------------------
WshEnv("PAC7CS") = BVP_MibaCs
Call BvpEnv("PACS94","PAC7RQ",Rep_TMP & "\WPACXRQ.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"))
'------------------------------------
Call BvpEnv("PACS96","PAC7GY",Rep_TMP & "\WGY.tmp")
WshEnv("PAC7CS") = BVP_MibaCs
WshEnv("PAC7PM") = MIAMPMAC
WshEnv("PAC7MB") = Fic_Input
Call BvpEnv("PACS96","PAC7TA",Rep_TMP & "\WTA.tmp")
Call BvpEnv("PACS96","PAC7MM",Rep_USR & "\MIMA.txt")
Call BvpEnv("PACS96","PAC7MI",Rep_USR & "\MIA1.txt")
Call BvpEnv("PACS96","PAC7MO",Rep_USR & "\MIA2.txt")
Call BvpEnv("PACS96","PAC7MC",Rep_USR & "\MIA3.txt")
Call BvpEnv("PACS96","PAC7MS",Rep_USR & "\MIA4.txt")
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 & "\WCP.tmp")
Call BvpEnv("PACS98","PAC7TI",Rep_TMP & "\WTI.tmp")
Call BvpEnv("PACS98","PAC7RQ",Rep_TMP & "\WPAC7QR.tmp")
Call BvpEnv("PACS98","PAC7TG",Rep_USR & "\MIBA.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>