MIA1 - Script d'exécution

   ' ------------------------------------------------------
   '      VISUALAGE PACBASE
   '
   ' ------------------------------------------------------
   '        PROGRAM GENERATION
   '
   ' ------------------------------------------------------
   '
   <job id=MIA1>

   <script language="VBScript">
   Dim MyProc
   MyProc = "MIA1"
   </script>

   <script language="VBScript" src="INIT.vbs"/>

   <script language="VBScript">

   If c_error = 1 then Wscript.Quit (1) End If

   Dim CodLang
   If base = "ADMIN"  Then
   Call Msg_Log (Array("1028",base))
   Wscript.Quit (0)
   Else
    CodLang = WshShell.RegRead (Rep_SYS & "\GENLANG")
   End If

   Call Msg_Log (Array("1022" , "PACA10"))
   '------------------------------------
   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("PAC7ME") = Fic_Input
   Call BvpEnv("PACA10","PAC7MV",Rep_TMP & "\WMV.tmp")
   Call BvpEnv("PACA10","PAC7MG",Rep_TMP & "\WMG.tmp")
   Call RunCmdLog ("BVPACA10")
   Call Err_Cod(Return , 0 , "PACA10")

   Call Msg_Log (Array("1022" , "PACA20"))
   '------------------------------------
   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("PACGGK") = Rep_ABASE & "\GK"
   Call BvpEnv("PACA20","PAC7JG",Rep_TMP & "\WKC.tmp")
   Call BvpEnv("PACA20","PAC7KF",Rep_TMP & "\WKF.tmp")
   Call BvpEnv("PACA20","PAC7KU",Rep_TMP & "\WKU.tmp")
   Call BvpEnv("PACA20","PAC7MG",Rep_TMP & "\WMG.tmp")
   Call BvpEnv("PACA20","PAC7W1",Rep_TMP & "\NUL.tmp")
   Call RunCmdLog ("BVPACA20")
   Call Err_Cod(Return , 0 , "PACA20")

   Call Msg_Log (Array("1022" , "PACMM1"))
   '------------------------------------
   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("PAC7SC") = Rep_SKEL & "\SC" & CodLang
   Call BvpEnv("PACMM1","PAC7CA",Rep_TMP & "\WCA.tmp")
   Call BvpEnv("PACMM1","PAC7CM",Rep_TMP & "\WCM.tmp")
   Call BvpEnv("PACMM1","PAC7EP",Rep_TMP & "\WEP.tmp")
   Call BvpEnv("PACMM1","PAC7GI",Rep_TMP & "\NUL.tmp")
   Call BvpEnv("PACMM1","PAC7GP",Rep_TMP & "\WGP.tmp")
   Call BvpEnv("PACMM1","PAC7JG",Rep_TMP & "\WJG.tmp")
   Call BvpEnv("PACMM1","PAC7KC",Rep_TMP & "\WKC.tmp")
   Call BvpEnv("PACMM1","PAC7KP",Rep_TMP & "\WKP.tmp")
   Call BvpEnv("PACMM1","PAC7G1",Rep_TMP & "\WG1.tmp")
   Call BvpEnv("PACMM1","PAC7G2",Rep_USR & "\COBOL_MIA1.txt")
   Call BvpEnv("PACMM1","PAC7G3",Rep_USR & _
        "\CONTROL_COBOL_MIA1.txt")
   Call BvpEnv("PACMM1","PAC7WB",Rep_TMP & "\WWB.tmp")
   Call BvpEnv("PACMM1","PAC7WC",Rep_TMP & "\WWC.tmp")
   Call BvpEnv("PACMM1","PAC7WM",Rep_TMP & "\WWM.tmp")
   Call BvpEnv("PACMM1","PAC7WP",Rep_TMP & "\WWP.tmp")
   Call BvpEnv("PACMM1","PAC7W1",Rep_TMP & "\WW1.tmp")
   Call BvpEnv("PACMM1","PAC7W2",Rep_TMP & "\WW2.tmp")
   Call BvpEnv("PACMM1","PAC7W3",Rep_TMP & "\WW3.tmp")
   Call BvpEnv("PACMM1","PAC7W4",Rep_TMP & "\WW4.tmp")
   Call BvpEnv("PACMM1","PAC7W5",Rep_TMP & "\WW5.tmp")
   Call BvpEnv("PACMM1","PAC7W6",Rep_TMP & "\WW6.tmp")
   Call BvpEnv("PACMM1","PAC7IA",Rep_USR & "\MIA1IA.txt")
   Call RunCmdLog ("BVPACMM1")
   Call Err_Cod(Return , 0 , "PACMM1")

   Call Msg_Log (Array("1024"))
   '------------------------------------
   Call DeleteFldr (Rep_TMP)

   Call Msg_Log (Array("1023"))
   '------------------------------------
   Wscript.Quit (Return)

   </script>
   </job>

Vos commentaires