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