修改信贷限额函数详解编程语言

SELECT SINGLE * INTO CORRESPONDING FIELDS OF gs_knkk 
         FROM knkk WHERE kunnr = gs_zsds003-kunnr AND kkber = gs_zsds003-kkber. 
      IF sy-subrc = 0. 
        gv_upd = 'U'. 
      ELSE. 
        gv_upd = 'I'. 
      ENDIF. 
 
      SELECT SINGLE * INTO CORRESPONDING FIELDS OF gs_knka 
        FROM knka WHERE kunnr = gs_zsds003-kunnr. 
 
      gs_knkk-kunnr = gs_zsds003-kunnr. 
      gs_knkk-knkli = gs_zsds003-kunnr. 
      gs_knkk-kkber = gs_zsds003-kkber. 
      gs_knkk-klimk = gs_zsds003-klimk. 
      gs_knkk-erdat = sy-uname. 
      gs_knkk-ctlpc = gs_zsds003-ctlpc. 
 
 
      CALL FUNCTION 'CREDITLIMIT_CHANGE' 
        EXPORTING 
          i_knka   = gs_knka 
          i_knkk   = gs_knkk 
          upd_knka = '0' 
          upd_knkk = gv_upd 
*         XNEUA    = ' ' 
*         XREFL    = ' ' 
          yknka    = gv_knka 
          yknkk    = gv_knkk. 
      IF sy-subrc = 0. 
        mesgadd:'RETURN' 'S', 
                'MESSAGE' '信贷更新成功！'. 
      ELSE. 
        mesgadd:'RETURN' 'E', 
                'MESSAGE' '信贷更新失败！'. 
      ENDIF.