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

How to change the column title for custom F4 help(internal table)

$
0
0

Hi Experts,

 

As per title, how do I change the column title for custom F4 help.

This F4 help is build by internal table.

Now the column title is F0001 & F0002, I want to change the F0001 & F0002 to something else.

Please help.

 

Below is my code.

 

TYPES: BEGIN OF gty_number,
           num  TYPE char4,
           text TYPE char30,
        END OF gty_number.

DATA: gtt_number TYPE STANDARD TABLE OF gty_number.
DATA: gwa_number  TYPE gty_number.

SELECT-OPTIONS: s_number FOR gwa_number NO INTERVALS..

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_number-low.
   PERFORM f_number_f4.

************************************************************************
* FORM f_number_f4                                               *
* Build F4 search help for number                                      *
************************************************************************
FORM f_number_f4.

   DATA: ltt_fieldtab TYPE STANDARD TABLE OF dfies,
         lwa_fieldtab TYPE dfies.

   FREE: gtt_number, ltt_fieldtab.

   gwa_number-num    = '01'.
   gwa_number-text   = 'Diagnosis in progress'.
   APPEND gwa_number TO gtt_number.

   gwa_number-num    = '02'.
   gwa_number-text   = 'Estimated approval pending'.
   APPEND gwa_number TO gtt_number.

   gwa_number-num    = '03'.
   gwa_number-text   = 'Waiting for spare part'.
   APPEND gwa_number TO gtt_number.

   gwa_number-num    = '04'.
   gwa_number-text   = 'Ready for repair'.
   APPEND gwa_number TO gtt_number.

   gwa_number-num    = '05'.
   gwa_number-text   = 'On going repair'.
   APPEND gwa_number TO gtt_number.


   CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
     EXPORTING
       retfield     = 'NUM'
       dynpprog     = sy-repid
       dynpnr       = sy-dynnr
       dynprofield  = 'S_NUMBER'
       window_title = 'Number'
       value_org    = 'S'
     TABLES
       value_tab    = gtt_number.

   CLEAR gwa_number.

ENDFORM.                    "f_number_f4


Warm regards

Ice


Viewing all articles
Browse latest Browse all 8526

Trending Articles



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