To Sort Table Maintenance Before Display.

Hey, I’m a Functional Consultant so hopefully my code is not too woeful.  I created a cluster view using transaction SE54.  The records were not sorted, so I created a variation on the code above but tried to keep it generic so I can use the same module for any table to sort the underlying view by the primary index (a.k.a. key).

*&      Module  SORT_EXTRACT_BY_KEY  OUTPUT
*&---------------------------------------------------------------------*
*       Sort tables by the primary index when drilling down from SM34  *
*       view created using SE54                                        *
*----------------------------------------------------------------------*
MODULE sort_extract_by_key OUTPUT.
  TYPES:
    BEGIN OF lty_sortfield,
      name     TYPE fieldname,
      flg_desc TYPE char1,
    END OF lty_sortfield.
  DATA:
    lt_dd03l     TYPE STANDARD TABLE OF dd03l, "Data dictionary table fields
    ls_dd03l     LIKE LINE OF lt_dd03l,
    lt_sortfield TYPE STANDARD TABLE OF lty_sortfield, "Sort fields
    ls_sortfield LIKE LINE OF lt_sortfield,
    dref_struct  TYPE REF TO data,
    dref_table   TYPE REF TO data.
  FIELD-SYMBOLS:
    <fs_xfrom> TYPE x,              "Hexadecimal value of from value
    <fs_xto>   TYPE x,              "Hexadecimal value of to value
    <fs_struc> TYPE any,            "View being processed
    <fs_table> TYPE STANDARD TABLE. "View table
* Do not update when creating new lines
  IF NOT sy-ucomm = 'NEWL'.
* The view name must be available & there must be key fields
* The field worked in my testing but may not in every scenario
    CHECK: view_name IS NOT INITIAL. 
* Dynamically assign view to field symbol
    CREATE DATA dref_struct TYPE (view_name).
    ASSIGN dref_struct->* TO <fs_struc>.
    CREATE DATA dref_table TYPE STANDARD TABLE OF (view_name).
    ASSIGN dref_table->* TO <fs_table>.
* Transfer hexadecimal extract to view table
    APPEND INITIAL LINE TO <fs_table> ASSIGNING <fs_struc>.
    REFRESH: <fs_table>.
    LOOP AT extract.
      APPEND INITIAL LINE TO <fs_table> ASSIGNING <fs_xto> CASTING.
      ASSIGN extract TO <fs_xfrom> CASTING.
      <fs_xto> = <fs_xfrom>.
    ENDLOOP.
* Sort the table by the primary index
    REFRESH: lt_dd03l, lt_sortfield.
* Firstly, get the primary index fields
    SELECT fieldname position
      FROM dd03l
      INTO CORRESPONDING FIELDS OF TABLE lt_dd03l
      WHERE tabname    = view_name
        AND keyflag    = 'X'.
*       AND fieldname NE 'MANDT'. "No issues in testing if MANDT included
    SORT lt_dd03l BY position.
* Build an internal table containing the fields
    LOOP AT lt_dd03l INTO ls_dd03l.
      ls_sortfield-name     = ls_dd03l-fieldname.
      ls_sortfield-flg_desc = space.
      APPEND ls_sortfield TO lt_sortfield.
    ENDLOOP.

* Sort the internal table (type ANY so can't specify the fields)
    CALL FUNCTION 'C140_TABLE_DYNAMIC_SORT'
      EXPORTING
        i_flg_not_case_sensitive = 'X'
      TABLES
        i_sortfield_tab          = lt_sortfield
        x_tab                    = <fs_table>
      EXCEPTIONS
        sortfieldtab_too_big     = 1
        OTHERS                   = 2.
* Transfer the sorted values back to the original tab in hexadecimal
    REFRESH extract[].
    LOOP AT <fs_table> ASSIGNING <fs_struc>.
      APPEND INITIAL LINE TO extract ASSIGNING <fs_xto> CASTING.
      ASSIGN <fs_struc> TO <fs_xfrom> CASTING.
      <fs_xto> = <fs_xfrom>.
    ENDLOOP.
  ENDIF.
ENDMODULE.