Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 

Gui Status Basic List

Former Member
0 Kudos

Hello,

I have a seleccion screen and after the user inputs the values i make a select and with that i make a list using the function Display_Basic_List. What i want to know is how i can change the gui status when the list shows up.

Thanks,

Ricardo

2 REPLIES 2

former_member188685
Active Contributor
0 Kudos

Hi,

using the option 'excluding'

set pf-status 'STAT' excluding 'OKCODE'. or

set pf-status 'STAT' excluding extab.

extab is table of type sy-ucomm , it holds all okcodes to be deleted/excluded from status.

Regards

vijay

0 Kudos

This may give you some idea.



data: fieldtab like dfies occurs 0 with header line.

* Field Catalog
data: begin of imarafc occurs 0,
      fieldtext(50) type c,
      end of imarafc.

* Data
data: begin of imaradt occurs 0.
        include structure mara.
data: check(1) type c.
data: end of imaradt.

* Selected Records
data: begin of iseltab occurs 0.
        include structure mara.
data: end of iseltab.

data: iconbutton(20) type c.

select-options: s_matnr for mara-matnr.


start-of-selection.

* Get Data
  select * into corresponding fields of table imaradt
                from mara
                     where matnr in s_matnr.

* Get the field table for table
  call function 'GET_FIELDTAB'
       exporting
            langu    = sy-langu
            tabname  = 'MARA'
            withtext = 'X'
       tables
            fieldtab = fieldtab
       exceptions
            others   = 1.

* Build field labels into field catalog
  loop at fieldtab.
    clear imarafc.
    imarafc-fieldtext = fieldtab-fieldtext.
    append imarafc.
  endloop.

<b>* Build button 2
  write icon_display as icon to iconbutton.
  concatenate iconbutton 'Display' into iconbutton
                     separated by space.</b>



* Throw ALV
  call function 'DISPLAY_BASIC_LIST'
    exporting
     basic_list_title           = 'This is the title'
     file_name                  = 'TEST'
     head_line1                 = 'This is heading 1'
     head_line2                 = 'This is heading 2'
*   HEAD_LINE3                 = ' '
*   HEAD_LINE4                 = ' '
     foot_note1                 = 'This is foot 1'
     foot_note2                 = 'This is foot 2'
*   FOOT_NOTE3                 = ' '
*   LAY_OUT                    = 0
<b>     dyn_pushbutton_text1       = 'Hey'         " Buttons
     dyn_pushbutton_text2       = iconbutton</b>
*   DYN_PUSHBUTTON_TEXT3       =
*   DYN_PUSHBUTTON_TEXT4       =
*   DYN_PUSHBUTTON_TEXT5       =
*   DYN_PUSHBUTTON_TEXT6       =
*   DATA_STRUCTURE             = ' '
     current_report             = 'ZRICH_0001'  " Save Display Variant
*   LIST_LEVEL                 = ' '
*   ADDITIONAL_OPTIONS         = ' '
*   WORD_DOCUMENT              =
*   APPLICATION                =
*   OLDVALUES                  = ' '
*   NO_ALV_GRID                = 'X'
      alv_marker                 = 'CHECK'      " Selection field
* IMPORTING
*   RETURN_CODE                =
    tables
      data_tab                   = imaradt      " Data
      fieldname_tab              = imarafc      " Column Headings
      select_tab                 = iseltab      " Selected Rows
*   ERROR_TAB                  =
*   RECEIVERS                  =
* EXCEPTIONS
*   DOWNLOAD_PROBLEM           = 1
*   NO_DATA_TAB_ENTRIES        = 2
*   TABLE_MISMATCH             = 3
*   PRINT_PROBLEMS             = 4
*   OTHERS                     = 5
            .

<b>  case sy-ucomm.
    when 'BUT1'.
      write:/ 'Button 1 was pressed'.
    when 'BUT2'.
      write:/ 'Button 2 was pressed'.

  endcase.</b>


Regards,

RIch Heilman