' ------------------------------------------------------
' VISUALAGE PACBASE
'
' ------------------------------------------------------
' MIGRATION HELP
'
' ------------------------------------------------------
'
<job id=MIAM>
<script language="VBScript">
Dim MyProc
MyProc = "MIAM"
</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" , "PLTPAM"))
'------------------------------------
WshEnv("PAC7AE") = Rep_SKEL & "\AE"
WshEnv("PAC7AN") = Rep_BASE & "\AN"
WshEnv("PAC7AR") = Rep_BASE & "\AR"
WshEnv("PACGGN") = Rep_ABASE & "\AN"
WshEnv("PACGGR") = Rep_ABASE & "\AR"
WshEnv("PACGGU") = Rep_ABASE & "\GU"
WshEnv("PAC7MB") = Fic_Input
WshEnv("PAC7CK") = BVP_MiamCk
Call BvpEnv("PLTPAM","PAC7CS",Rep_USR & "\MIAMCSPE.txt")
Call BvpEnv("PLTPAM","PAC7NR",Rep_USR & "\MIAMNREP.txt")
Call BvpEnv("PLTPAM","PAC7NS",Rep_USR & "\MIAMSCRN.txt")
Call BvpEnv("PLTPAM","PAC7PM",Rep_USR & "\MIAMPMAC.txt")
Call BvpEnv("PLTPAM","PAC7RQ",Rep_USR & "\MIAMRQER.txt")
Call BvpEnv("PLTPAM","PAC7DD",Rep_USR & "\MIAMDDPM.txt")
Call BvpEnv("PLTPAM","PAC7DX",Rep_TMP & "\WDX.tmp")
Call RunCmdLog ("BVPLTPAM")
Call Err_Cod(Return , 0 , "PLTPAM")
Call Msg_Log (Array("1022" , "PLTPAP"))
'------------------------------------
WshEnv("PAC7AN") = Rep_BASE & "\AN"
WshEnv("PAC7AR") = Rep_BASE & "\AR"
WshEnv("PAC7MB") = Fic_Input
Call BvpEnv("PLTPAP","PAC7DX",Rep_TMP & "\WDX.tmp")
Call BvpEnv("PLTPAP","PAC7GY",Rep_USR & "\MIAMGY.txt")
Call BvpEnv("PLTPAP","PAC7UP",Rep_USR & "\MIAMUP.txt")
Call RunCmdLog ("BVPLTPAP")
Call Err_Cod(Return , 0 , "PLTPAP")
Call Msg_Log (Array("1024"))
'------------------------------------
Call DeleteFldr (Rep_TMP)
Call Msg_Log (Array("1023"))
'------------------------------------
Wscript.Quit (Return)
</script>
</job>