TABLES sscrfields.

*--------------------------------------------------------------*

*Selection-Screen

*--------------------------------------------------------------*

SELECTION-SCREEN:

      PUSHBUTTON /2(40) button1 USER-COMMAND but1,

      PUSHBUTTON /2(40) button2 USER-COMMAND but2.

*--------------------------------------------------------------*

*At Selection-Screen

*--------------------------------------------------------------*

AT SELECTION-SCREEN.

  CASE sscrfields.

    WHEN 'BUT1'.

      MESSAGE 'Button 1 was clicked' TYPE 'I'.

    WHEN 'BUT2'.

      MESSAGE 'Button 2 was clicked' TYPE 'I'.

  ENDCASE.

*--------------------------------------------------------------*

*Initialization

*--------------------------------------------------------------*

INITIALIZATION.

  button1 = 'Button 1'.

  button2 = 'Button 2'. 
 
Serkan AKKAVAK
Bilgisayar Mühendisi
serkurumsal@yandex.com