SAP OSS에 등록하여 답을 받아서 처리했습니다.

* 3000번 화면소스

PROCESS BEFORE OUTPUT.
*---------------------------------------------------------------------*
*       Setzt PFSTATUS und fuehrt Bildmodifikationen durch.           *
*---------------------------------------------------------------------*
  MODULE BEFORE_OUTPUT.
  CALL SUBSCREEN subscreen_empl INCLUDING empl_prog empl_dynnr.
  MODULE ASSIGN_TC3000.
  MODULE VARIATION_TC.
  MODULE P9026_SORT. "정렬 변경

* MODULE P9026_SORT. "정렬 변경
MODULE P9026_SORT OUTPUT.
  DATA: BEGIN OF list9026 OCCURS 10.
          INCLUDE STRUCTURE p9026.
  DATA: END OF list9026.
  DATA: BEGIN OF out9026 OCCURS 10.
          INCLUDE STRUCTURE p9026.
  DATA: END OF out9026.
*
  DATA  contract_tab TYPE padce_pernr_tab.                     "QNUCE
  DATA  contract_wa  TYPE padce_pernr_tab_line.                "QNUCE
*
  CALL FUNCTION 'HR_CHECK_EVENT_SUPP'
       IMPORTING
            event_supp = evsup
       EXCEPTIONS
            OTHERS     = 1.
*
* IF EVSUP EQ YES.                                       "XFYAHRK033360
  IF evsup EQ yes AND sy-subrc EQ 0.   "XFYAHRK033360

    CLEAR list9026. REFRESH list9026.
    CLEAR out9026.  REFRESH out9026.

    PERFORM move_psindex_to_inftytab(sapfp50p) TABLES list9026.  "QNUCE

    LOOP AT list9026.
      MOVE-CORRESPONDING list9026 TO out9026.
      APPEND out9026.
    ENDLOOP.

    SORT out9026 BY pernr fname begda DESCENDING infty ASCENDING seqnr
    ASCENDING.
    PERFORM move_inftytab_to_psindex(sapfp50p) TABLES out9026.
    DESCRIBE TABLE out9026 LINES lines_out.                 "XFYK008494
  ENDIF.
*
ENDMODULE.                 " P9026_SORT  OUTPUT