查询：
DATA: gv_dbs TYPE char30 VALUE 'XXXXXXXX'. "数据库连接名称
DATA:gt_ztclaim_2 TYPE TABLE OF ztclaim_2.
DATA:gs_ztclaim_2 TYPE ztclaim_2.TRY.EXEC SQL.CONNECT TO :GV_DBSENDEXEC.EXEC SQL PERFORMING frm_build_ztclaim_2.SELECT *INTO :gs_ztclaim_2from ztclaim_2ENDEXEC.
ENDTRY.FORM frm_build_ztclaim_2.IF gs_ztclaim_2 IS NOT INITIAL.APPEND gs_ztclaim_2 TO gt_ztclaim_2.ENDIF.
ENDFORM.删除：
LOOP AT LT_DATA INTO DATA(LS_DATA).READ TABLE gt_role INTO DATA(ls_role) WITH KEY personid_ext = ls_data-personid_extBINARY SEARCH.IF sy-subrc EQ 0.EXEC SQL.DELETE from HCM_PA_EMP_ROLEWHERE PERSONID_EXT = :ls_data-personid_extENDEXEC.ENDIF.ENDLOOP.
增加：EXEC SQL.INSERT INTO HCM_PA_EMP_ROLE(PERSONID_EXT,PERNR,ASSIGN_PART,JOB_INDICATOR,PLANS,ZJSBM,ZJSMS,APPROVER,APPROVER_PLANS )VALUES (:LS_DATA-PERSONID_EXT,:LS_DATA-PERNR:LV_PERNR_NULL,:LS_DATA-ASSIGN_PART,:LS_DATA-JOB_INDICATOR,:LS_DATA-PLANS:LV_PLANS_NULL,:LS_DATA-ZJSBM,:LS_DATA-ZJSMS,:LS_DATA-APPROVER,:LS_DATA-APPROVER_PLANS:LV_APPROVER_PLANS_NULL )ENDEXEC.
断开连接：EXEC SQL.ROLLBACK WORK.DISCONNECT :gv_dbsENDEXEC.
