Monday, 6 January 2014

F4 Help in Module Pool


TYPES: BEGIN OF GTY_F4_EBELP,

  EBELN TYPE EBELN,
  EBELP TYPE EBELP,
  END OF GTY_F4_EBELP.

DATA: IT_F4_EBELP TYPE TABLE OF GTY_F4_EBELP.


PROCESS ON VALUE-REQUEST.

  FIELD GS_RR_HDR-IMGRP MODULE CREATE_LIST.
  FIELD GS_RR_HDR-EBELP MODULE F4_EBELP.

MODULE F4_EBELP INPUT.



  SELECT

       EBELN
       EBELP
       FROM EKPO
       INTO CORRESPONDING FIELDS OF TABLE IT_F4_EBELP
       WHERE EBELN EQ GS_RR_HDR-EBELN.

  SORT IT_F4_EBELP BY EBELP.


  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

    EXPORTING
*   DDIC_STRUCTURE         = ' '
      RETFIELD               = 'EBELP'
*   PVALKEY                = ' '
     DYNPPROG               = SY-CPROG
     DYNPNR                 = SY-DYNNR
     DYNPROFIELD            =  'GS_RR_HDR-EBELP'
*   STEPL                  = 0
*   WINDOW_TITLE           =
*   VALUE                  = ' '
 VALUE_ORG              = 'S'
*   MULTIPLE_CHOICE        = ' '
*   DISPLAY                = ' '
*   CALLBACK_PROGRAM       = ' '
*   CALLBACK_FORM          = ' '
*   CALLBACK_METHOD        =
*   MARK_TAB               =
* IMPORTING
*   USER_RESET             =
    TABLES
      VALUE_TAB              = IT_F4_EBELP
*   FIELD_TAB              =
*   RETURN_TAB             =
*   DYNPFLD_MAPPING        =
* EXCEPTIONS
*   PARAMETER_ERROR        = 1
*   NO_VALUES_FOUND        = 2
*   OTHERS                 = 3
            .
  IF SY-SUBRC <> 0.
* Implement suitable error handling here
  ENDIF.
ENDMODULE.                 " F4_EBELP  INPUT


No comments:

Post a Comment