TRDQ - JCL d'exécution

   ' ------------------------------------------------------
   '      VISUALAGE PACBASE
   '
   ' ------------------------------------------------------
   '
   '       CONVERSION OF DBD BLOCKS INTO SQL BLOCKS
   '
   ' ------------------------------------------------------
   '
   <job id=TRDQ>

   <script language="VBScript">
   Dim MyProc
   MyProc = "TRDQ"
   </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" , "PTUDQ1"))
   '------------------------------------
   WshEnv("PAC7MB") = Fic_Input
   Call BvpEnv("PTUDQ1","PAC7ME",Rep_TMP & "\WMB.tmp")
   Call RunCmdLog ("BVPTUDQ1")
   Call Err_Cod(Return , 0 , "PTUDQ1")

   Call Msg_Log (Array("1022" , "PACX"))
   '------------------------------------
   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"
   Call BvpEnv("PACX","PAC7MB",Rep_TMP & "\WMB.tmp")
   Call BvpEnv("PACX","PAC7BM",Rep_TMP & "\WBM.tmp")
   Call BvpEnv("PACX","PAC7WD",Rep_TMP & "\WWD.tmp")
   Call BvpEnv("PACX","PAC7MM",Rep_TMP & "\WMM.tmp")
   Call BvpEnv("PACX","PAC7MJ",Rep_TMP & "\WMJ.tmp")
   Call BvpEnv("PACX","PAC7TE",Rep_TMP & "\WTE.tmp")
   Call BvpEnv("PACX","PAC7RE",Rep_TMP & "\WRE.tmp")
   Call BvpEnv("PACX","PAC7RQ",Rep_TMP & "\NUL.tmp")
   Call BvpEnv("PACX","PAC7RM",Rep_TMP & "\WRM.tmp")
   Call BvpEnv("PACX","PAC7MA",Rep_TMP & "\NUL.tmp")
   Call BvpEnv("PACX","PAC7ES",Rep_TMP & "\NUL.tmp")
   Call BvpEnv("PACX","PAC7UE",Rep_TMP & "\WUE.tmp")
   Call BvpEnv("PACX","PAC7GY",Rep_TMP & "\NUL.tmp")
   Call BvpEnv("PACX","PAC7CP",Rep_TMP & "\NUL.tmp")
   Call BvpEnv("PACX","PAC7TD",Rep_TMP & "\WTD.tmp")
   Call BvpEnv("PACX","PAC7MV",Rep_TMP & "\WMV.tmp")
   Call BvpEnv("PACX","PAC7MR",Rep_TMP & "\WMR.tmp")
   Call BvpEnv("PACX","PAC7MX",Rep_TMP & "\WMX.tmp")
   Call BvpEnv("PACX","PAC7IA",Rep_USR & "\PACXIA.txt")
   Call BvpEnv("PACX","PAC7DD",Rep_USR & "\PACXDD.txt")
   Call BvpEnv("PACX","PAC7ED",Rep_TMP & "\WED.tmp")
   Call BvpEnv("PACX","PAC7EE",Rep_USR & "\PACXEE.txt")
   Call BvpEnv("PACX","PAC7EG",Rep_TMP & "\WEG.tmp")
   Call BvpEnv("PACX","PAC7EM",Rep_TMP & "\WEM.tmp")
   Call BvpEnv("PACX","PAC7EP",Rep_USR & "\PACXEP.txt")
   Call BvpEnv("PACX","PAC7EQ",Rep_USR & "\PACXEQ.txt")
   Call BvpEnv("PACX","PAC7EU",Rep_TMP & "\WEU.tmp")
   Call BvpEnv("PACX","PAC7EZ",Rep_USR & "\PACXEZ.txt")
   Call BvpEnv("PACX","SYSEXT",Rep_TMP & "\WSY.tmp")
   Call RunCmdLog ("BVPACX")
   If Return = 4 Then
   Call Msg_Log (Array("1030"))
   End If
   If Return = 8 Then
   Call Msg_Log (Array("1057"))
   End If
   Call Err_Cod(Return , 4 , "PACX")

   Call Msg_Log (Array("1022" , "PTUDQ3"))
   '------------------------------------
   WshEnv("PAC7MB") = Fic_Input
   Call BvpEnv("PTUDQ3","PAC7MV",Rep_USR & "\UPDATESQL.txt")
   Call BvpEnv("PTUDQ3","PAC7MX",Rep_TMP & "\WMV.tmp")
   Call RunCmdLog ("BVPTUDQ3")
   Call Err_Cod(Return , 0 , "PTUDQ3")

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

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

   </script>
   </job>

Vos commentaires