' ------------------------------------------------------
' VISUALAGE PACBASE
'
' ------------------------------------------------------
' CLIENT GENERATION
'
' ------------------------------------------------------
'
<job id=MIA3>
<script language="VBScript">
Dim MyProc
MyProc = "MIA3"
</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","PAC7KU",Rep_TMP & "\WKU.tmp")
Call BvpEnv("PACA20","PAC7KF",Rep_TMP & "\WKF.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" , "PACMM3"))
'------------------------------------
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("PAC7SS") = Rep_SKEL & "\SS" & CodLang
Call BvpEnv("PACMM3","PAC7EG",Rep_TMP & "\WEG.tmp")
Call BvpEnv("PACMM3","PAC7EZ",Rep_TMP & "\WEZ.tmp")
Call BvpEnv("PACMM3","PAC7GG",Rep_TMP & "\WGG.tmp")
Call BvpEnv("PACMM3","PAC7JG",Rep_TMP & "\WJG.tmp")
Call BvpEnv("PACMM3","PAC7KC",Rep_TMP & "\WKC.tmp")
Call BvpEnv("PACMM3","PAC7KG",Rep_TMP & "\WKG.tmp")
Call BvpEnv("PACMM3","PAC7G1",Rep_TMP & "\WG1.tmp")
Call BvpEnv("PACMM3","PAC7G2",Rep_USR & "\COBOL_MIA3.txt")
Call BvpEnv("PACMM3","PAC7G3",Rep_USR & _
"\CONTROL_COBOL_MIA3.txt")
Call BvpEnv("PACMM3","PAC7W1",Rep_TMP & "\WW1.tmp")
Call BvpEnv("PACMM3","PAC7W2",Rep_TMP & "\WW2.tmp")
Call BvpEnv("PACMM3","PACM2P",Rep_TMP & "\W2P.tmp")
Call BvpEnv("PACMM3","PACM2W",Rep_TMP & "\W2W.tmp")
Call BvpEnv("PACMM3","PAC2GP",Rep_TMP & "\WGP.tmp")
Call BvpEnv("PACMM3","PAC2GW",Rep_TMP & "\WGW.tmp")
Call BvpEnv("PACMM3","PAC780",Rep_TMP & "\W80.tmp")
Call BvpEnv("PACMM3","PAC7IA",Rep_USR & "\MIA3IA.txt")
Call RunCmdLog ("BVPACMM3")
Call Err_Cod(Return , 0 , "PACMM3")
Call Msg_Log (Array("1024"))
'------------------------------------
Call DeleteFldr (Rep_TMP)
Call Msg_Log (Array("1023"))
'------------------------------------
Wscript.Quit (Return)
</script>
</job>