** SAP ABAP SM30 排序处理**
FIELD-SYMBOLS : , .
<VIM_TOTAL_KEY> <VIM_XTOTAL_KEY> with KEY
根据表 DD03L 找到表字段所位置 ,算出位置及长度
ASSIGN EXTRACT+3(18) TO .
ASSIGN EXTRACT+21(1) TO .
SORT EXTRACT STABLE BY .
SM30 数据导入的刷新
MODIFY ZTSD032B FROM TABLE LT_DATA[] .
IF SY-SUBRC = 0 .
MESSAGE S000(SU) WITH '数据导入成功!' .
DATA : LV_VNAME TYPE STRING .
LV_VNAME = '(ZSD032B)GS_HEAD' .
ASSIGN (LV_VNAME) TO FIELD-SYMBOL(<FS>) .
IF SY-SUBRC = 0 .
<FS> = 'ZSD032B' .
<FS>+30 = 'IMPORT' .
LEAVE TO SCREEN 0 .
ENDIF.
-
PERFORM FRM_GET_DATA .
-
PERFORM FRM_CALL_VIEW(ZMM149M) USING 'U'. ENDIF .
调用 sm30 函数调整 :
CALL FUNCTION ‘VIEW_MAINTENANCE_CALL’
EXPORTING
ACTION = ‘U’
VIEW_NAME = ‘ZTSD032B’.
IF SY-SUBRC = 0 .
IF GS_HEAD-OPRNO = 'IMPORT' AND GS_HEAD-TABLENAME = 'ZSD032B' .
CLEAR GS_HEAD .
CALL FUNCTION 'VIEW_MAINTENANCE_CALL'
EXPORTING
ACTION = 'U'
VIEW_NAME = 'ZTSD032B'.
ENDIF.
ENDIF.
sm30 更新字段
&---------------------------------------------------------------------
*& 包含 ZBC_I_SM30_LOG
&---------------------------------------------------------------------
DEFINE assign_field.
ASSIGN COMPONENT &1 OF STRUCTURE <ls_maintview> TO <lv_field>.
IF sy-subrc = 0.
IF <lv_field> IS ASSIGNED.
<lv_field> = &2.
ENDIF.
ENDIF.
END-OF-DEFINITION.
FORM create_entry.
FIELD-SYMBOLS:
<ls_maintview> TYPE any,
<lv_field> TYPE any.
CHECK x_header-maintview IS NOT INITIAL.
ASSIGN (x_header-maintview) TO <ls_maintview>.
CHECK sy-subrc = 0.
CHECK <ls_maintview> IS ASSIGNED.
assign_field ‘CREATED_DATE’ sy-datum.
assign_field ‘CREATED_TIME’ sy-uzeit.
assign_field ‘CREATED_USER’ sy-uname.
ENDFORM.
FORM change_entry.
DATA:
lo_data TYPE REF TO data,
lv_tabix TYPE sy-tabix.
FIELD-SYMBOLS:
<ls_maintview> TYPE any,
<lv_field> TYPE any.
IF x_header-maintview IS NOT INITIAL.
CREATE DATA lo_data TYPE (x_header-maintview).
IF lo_data IS BOUND.
ASSIGN lo_data->* TO <ls_maintview>.
ENDIF.
IF <ls_maintview> IS ASSIGNED.
IF = ‘U’.
LOOP AT total.
READ TABLE extract WITH KEY <vim_xtotal_key>.
IF sy-subrc = 0.
lv_tabix = sy-tabix.
ELSE.
CONTINUE.
ENDIF.
IF = ‘U’.
CLEAR <ls_maintview>.
MOVE-CORRESPONDING <vim_total_struc> TO <ls_maintview>.
assign_field ‘CHANGED_DATE’ sy-datum.
assign_field ‘CHANGED_TIME’ sy-uzeit.
assign_field ‘CHANGED_USER’ sy-uname.
MOVE-CORRESPONDING <ls_maintview> TO <vim_total_struc>.
MODIFY total.
extract = total.
MODIFY extract INDEX lv_tabix.
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
ENDIF.
sy-subrc = 0.
ENDFORM.