MIAM - Execution Script

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

Feedback