MERT - Execution JCL

   ' ------------------------------------------------------
   '      VISUALAGE PACBASE
   '
   ' ------------------------------------------------------
   '           - MERISE ENTITY TRANSFORMATION   -
   ' ------------------------------------------------------
   '
   <job id=MERT>

   <script language="VBScript">
   Dim MyProc
   MyProc = "MERT"
   </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" , "PAFMER"))
   '------------------------------------
   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("PAFMER","PAC7UR",Rep_TMP & "\WUR.tmp")
   CalL BvpEnv("PAFMER","SYSPAF",Rep_TMP & "\SYSPAF.tmp")
   Call BvpEnv("PAFMER","PAC7EJ",Rep_USR & "\MERT1EJ.txt")
   Call BvpEnv("PAFMER","PAC7ET",Rep_USR & "\MERT1ET.txt")
   Call BvpEnv("PAFMER","PAC7DD",Rep_USR & "\MERT1DD.txt")
   Call RunCmdLog ("BVPAFMER")
   Call Err_Cod(Return , 0 , "PAFMER")

   Call Msg_Log (Array("1022" , "PTUMER"))
   '------------------------------------
   Call BvpEnv("PTUMER","PAC7UR",Rep_TMP & "\WUR.tmp")
   Call BvpEnv("PTUMER","PAC7GY",Rep_USR & "\MERTGY.txt")
   Call BvpEnv("PTUMER","PAC7EJ",Rep_USR & "\MERT2EJ.txt")
   Call BvpEnv("PTUMER","PAC7ET",Rep_USR & "\MERT2ET.txt")
   Call BvpEnv("PTUMER","PAC7DD",Rep_USR & "\MERT2DD.txt")
   Call RunCmdLog ("BVPTUMER")
   Call Err_Cod(Return , 0 , "PTUMER")

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

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

   </script>
   </job>

Feedback