×

Loading...
Ad by
  • 推荐 OXIO 加拿大高速网络，最低月费仅$40. 使用推荐码 RCR37MB 可获得一个月的免费服务
Ad by
  • 推荐 OXIO 加拿大高速网络，最低月费仅$40. 使用推荐码 RCR37MB 可获得一个月的免费服务

@

continue...

42channel(Channel)
Dim conn As Connection
Dim cmd As Command
Dim Stmt As String

Set conn = New ADODB.Connection
Set cmd = New ADODB.Command

conn.Open "DSN=DOWNLOADS;Uid=***;PWD=***"
cmd.CommandTimeout = 110
cmd.ActiveConnection = conn

'Stmt = "insert into yao.trgfile (addin) values('n')"
Stmt = "CALL QSYS.QCMDEXC1 ('call yao/addlib', 0000000015.00000)"


cmd.Prepared = True
cmd.CommandText = Stmt
cmd.Execute

conn.Close
Set cmd = Nothing
Set conn = Nothing
(#2596996@0)
Last Updated: 2005-11-8
This post has been archived. It cannot be replied.
Report

Replies, comments and Discussions:

  • 工作学习 / 专业知识杂谈 / please help me to solve this problem, I am tring to call a cl program on AS/400 from Window platform, I used two methods, however, none of them works -42channel(Channel); 2005-11-8 {706} (#2596994@0)
    method 1: I use addtrgPF to a file, which invoke the cl program, when a record is inserted in the file, the cl program is supposed to be invoked.

    result 1: when I inserted a record to a file in AS400 platform , the CL program could be invoked properly, however, when the inserting is done from window platform, the record has been inserted into the file, however, the cl program can not be invoked. I tried two way to insert the record from window, one is to append member to that file, the other is to exactly using the SQL insert statement by using VB.

    Method2: I called the stored procedure to call the cl program from windown platform by using VB, it does not work.
    my part code is as following:
    • continue... -42channel(Channel); 2005-11-8 {564} (#2596996@0)
      Dim conn As Connection
      Dim cmd As Command
      Dim Stmt As String

      Set conn = New ADODB.Connection
      Set cmd = New ADODB.Command

      conn.Open "DSN=DOWNLOADS;Uid=***;PWD=***"
      cmd.CommandTimeout = 110
      cmd.ActiveConnection = conn

      'Stmt = "insert into yao.trgfile (addin) values('n')"
      Stmt = "CALL QSYS.QCMDEXC1 ('call yao/addlib', 0000000015.00000)"


      cmd.Prepared = True
      cmd.CommandText = Stmt
      cmd.Execute

      conn.Close
      Set cmd = Nothing
      Set conn = Nothing
    • continue.. -42channel(Channel); 2005-11-8 {399} (#2597006@0)
      the insert statement works well, however the QSYS.QCMDEXC statement does not work, it is said "syntax error or access viloation"

      My questiones:

      Method1 : why I can not invoke the cl program from window platform even the record has been inserted?

      Method2: I could not figure out any syntax error from theshort statement, does it mean other further meaning?

      I appreciate any suggestion!
    • method1: check JOBD of default USRPRF used, make sure LIBL is correct -mssg(Wild_Killer); 2005-11-8 (#2597054@0)
      • could you please explain that clearly? I do not use the *libl, when I did addpftrg command, I specified the file and invoked program in my library instead of *libl. do you mean I have to use the *libl -42channel(Channel); 2005-11-8 (#2597131@0)
        • talk to sys admin if you have no authority to change it. -mssg(Wild_Killer); 2005-11-8 (#2597141@0)
          • I can do that, however, I have not got your point, could you explain clearly? I very appreciate that. -42channel(Channel); 2005-11-8 (#2597161@0)
            • every active job has USRPRF / JOBD / LIBL. look up SPLF in outq QEZJOBLOG -mssg(Wild_Killer); 2005-11-8 (#2597171@0)

More Topics

  • For those of you, who don’t believe that we have technology to control the weather or cause earth quacks, please watch this video.
  • 美国考古博士生分析激光雷达数据发现失踪的千年玛雅古城
  • Yann LeCun最新公开表示：今年诺贝尔奖颁给AI，是诺奖委员会感到压力的结果，需要承认深度学习的影响。化学奖塞不下更多人，所以只能选了物理, 颁给Hinton和Hopefield勉强合理. 获奖成果玻尔兹曼机和Hopefield网络现在完全无用(completely useless)。
  • Nobel Prize-Winner on AI 'Existential Threat' 辛顿认为我们也许很快就失去对AI的控制。这东西在20年内可能超过人类。
  • CO2 is known as the gas of life according to this Harvard professor - the more CO2 we have the more life there can be on the planet.
    • 枫下论坛主坛 /  工作学习 /  专业知识杂谈