z12-10

*&---------------------------------------------------------------------*
*& Report  Z12_10
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  Z12_10 line-SIZE 60 LINE-COUNT 10(2).
TOP-OF-PAGE.
WRITE : sy-title, 100'page no:' .
uline.
WRITE:/'enjoy abap',sy-datum.
ULINE at /(20).

end-of-PAGE.
ULINE.

WRITE : 30'page no:' ,sy-pagno.

START-OF-SELECTION.
set PF-STATUS 'test'.
WRITE 'click the button'.

format HOTSPOT on COLOR 7.
WRITE :/'clik this line'.
FORMAT HOTSPOT OFF COLOR OFF.

AT LINE-SELECTION.
  WRITE:'secondary list'.
  WRITE:/'sy-ucomm=',sy-ucomm.

  at USER-COMMAND.
    CASE sy-ucomm.
      when 'fc1'.
        LEAVE program.
        ENDCASE.

 

 

*&---------------------------------------------------------------------*
*& REPORT  Z12_20
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  Z12_20.

tables:sflight.
   DATA: GT_SELTAB TYPE  TABLE OF RSPARAMS WITH HEADER LINE.
   DATA: GS_REPORT(40) TYPE C.

   GS_REPORT = 'Z12-10'.

   CLEAR GT_SELTAB.
   GT_SELTAB-SELNAME = 'SEL_CARR'.
   GT_SELTAB-KIND = 'S'.
   GT_SELTAB-SIGN = 'I'.
   GT_SELTAB-OPTION = ' EQ'.
   GT_SELTAB-LOW = 'AA'.
   APPEND GT_SELTAB.

   SUBMIT (GS_REPORT)
    WITH SELECTION-TABLE GT_SELTAB
   AND RETURN.