ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 动态SQL语句

动态SQL语句

原创 Linux操作系统 作者:kingzmh 时间:2011-09-11 20:39:02 0 删除 编辑
LET g_sql = "UPDATE ",g_dbs_new CLIPPED,"apa_file ",
       " SET apa35f=?,apa35=?,apa73=? ",  
       "WHERE apa01= ? AND apa41='Y' AND apa42='N' "
  PREPARE t310_str4 FROM g_sql
  IF STATUS THEN
     CALL cl_err('change dbs_3 error',status,1)
     LET g_success='N'
     EXIT FOREACH
  END IF
  #add by danny 020312 期末調匯(A008)
  #modify 030310 NO.A048
  IF g_apz.apz27 = 'Y' AND l_apa13 != g_aza.aza17 THEN
     CALL s_g_np('2',l_apa00,m_apg.apg04,'') RETURNING l_amt3
  ELSE
     LET l_amt3 = l_apa34 - l_amt2
  END IF
  EXECUTE t310_str4 USING l_amtf2,l_amt2,l_amt3,m_apg.apg04
  IF SQLCA.SQLCODE OR SQLCA.SQLERRD[3] = 0 THEN
     CALL cl_err(m_apg.apg04,SQLCA.SQLCODE,1)
     LET g_success='N'
     EXIT FOREACH
  END IF

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/13348279/viewspace-707189/,如需转载,请注明出处,否则将追究法律责任。

上一篇: 没有了~
下一篇: 没有了~
请登录后发表评论 登录
全部评论

注册时间:2011-09-11

  • 博文量
    1
  • 访问量
    2556