Quantcast
Channel: SCN: Message List
Viewing all articles
Browse latest Browse all 8734

Re: need to fetch data in f4 help in module pool

$
0
0

Hi Sankil,

 

You can refer the below code.

 

DATA: LT_RETURN TYPE STANDARD TABLE OF DDSHRETVAL,
         LS_RETURN LIKE LINE OF LT_RETURN.

 

* Fetch the House Bank Account Names
   SELECT BUKRS HBKID HKTID TEXT1
     INTO TABLE LT_T012T
     FROM T012T
    WHERE (LT_CONDITION).
   IF SY-SUBRC = 0.
     SORT LT_T012T BY HKTID.
   ENDIF.

   CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
     EXPORTING
       RETFIELD        = 'HKTID'
       DYNPPROG     = SY-REPID
       DYNPNR          = SY-DYNNR
       DYNPROFIELD     = 'REGUO-HKTID'
       VALUE_ORG       = 'S'
     TABLES
       VALUE_TAB         = LT_T012T
       RETURN_TAB      = LT_RETURN
     EXCEPTIONS
       PARAMETER_ERROR = 1
       NO_VALUES_FOUND = 2
       OTHERS          = 3.
   IF SY-SUBRC <> 0.
     MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
             WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
   ENDIF.


READ TABLE LT_RETURN INTO LS_RETURN INDEX 1.
    IF REGUO-HBKID NE LS_RETURN-FIELDVAL.
     LS_DYNPREAD-FIELDNAME  = LS_RETURN-RETFIELD.
     LS_DYNPREAD-FIELDVALUE = LS_RETURN-FIELDVAL.
     APPEND LS_DYNPREAD TO LT_DYNPREAD.
     CLEAR LS_DYNPREAD.

     LS_DYNPREAD-FIELDNAME = 'REGUO-HKTID'.
     LS_DYNPREAD-FIELDVALUE SPACE.
     APPEND LS_DYNPREAD TO LT_DYNPREAD.
     CLEAR LS_DYNPREAD.


* Fill House Bank account details
       CALL FUNCTION 'DYNP_VALUES_UPDATE'
         EXPORTING
           DYNAME               = SY-CPROG
           DYNUMB               = SY-DYNNR
         TABLES
           DYNPFIELDS           = LT_DYNPREAD
         EXCEPTIONS
           INVALID_ABAPWORKAREA = 1
           INVALID_DYNPROFIELD  = 2
           INVALID_DYNPRONAME   = 3
           INVALID_DYNPRONUMMER = 4
           INVALID_REQUEST      = 5
           NO_FIELDDESCRIPTION  = 6
           UNDEFIND_ERROR       = 7
           OTHERS               = 8.
       IF SY-SUBRC <> 0.
         MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
                 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
       ENDIF.

ENDIF.


Viewing all articles
Browse latest Browse all 8734


<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>