Selection Screen

SELECTION-SCREEN : BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS: S_MBLNR FOR MSEG-MBLNR MATCHCODE OBJECT MBLNR  "F4
                S_MJAHR FOR MSEG-MJAHR,
                S_ZEILE FOR MSEG-ZEILE,
SELECTION-SCREEN END OF BLOCK B1.


------------------------------------------------------------------

SELECTION-SCREEN END OF BLOCK B1.
INITIALIZATION.
AT SELECTION-SCREEN OUTPUT.

GET PARAMETER ID 'WRK' FIELD P_WERKS.
  LOOP AT SCREEN.
    IF SCREEN-NAME = 'P_WERKS'.
      SCREEN-INPUT = '0'.
      MODIFY SCREEN .
    ENDIF.
ENDLOOP.

AT SELECTION-SCREEN.
  AUTHORITY-CHECK OBJECT 'M_BEST_WRK'
       ID 'WERKS'     FIELD   P_WERKS
       ID 'ACTVT'     FIELD '76'.
  IF SY-SUBRC <> 0.
    MESSAGE E138(ZMS)."'No Authorization' TYPE 'E'.
  ENDIF.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_TRINO-LOW.
  PERFORM F4_TRINO.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_TRINO-HIGH.
  PERFORM F4_TRINO.

START-OF-SELECTION.

*------------------------------------------------------------------*
*     select statment                                              *
*------------------------------------------------------------------*

  SELECT  * FROM ZFMS_TRHR               " Rail Trip Header Table
            INTO TABLE I_RLTRHR
            WHERE TRINO  IN  S_TRINO
            AND   WERKS  EQ  P_WERKS
            AND   PCDAT IN   S_PCDAT.

Structures with Internal Tables

REPORT    zstr4_09  MESSAGE-ID  zstr_msg_09.
TABLES:spfli,  sflight.
TYPES:  BEGIN  OF  ty_spfli,
                carrid  TYPE  spfli-carrid,
                connid  TYPE  spfli-connid,
                cityfrom  TYPE  spfli-cityfrom,
                cityfto  TYPE  spfli-cityfrom,
            END  OF  ty_spfli.

TYPES:  BEGIN  OF  ty_sfli,
                carrid  TYPE  sflight-carrid,
                connid  TYPE  sflight-connid,
                fldate  TYPE  sflight-fldate,
                seatsmax  TYPE  sflight-seatsmax,
                seatsocc  TYPE  sflight-seatsocc,
            END  OF  ty_sfli.

DATA:  it_spfli  TYPE  TABLE  OF  ty_spfli,
            wa_spfli  LIKE  LINE  OF  it_spfli,
            it_sfli  TYPE  TABLE  OF  ty_sfli,
            wa_sflight  LIKE  LINE  OF  it_sfli,
            seatsfree  TYPE  i.

SELECTION-SCREEN  BEGIN  OF  BLOCK  b1  WITH  FRAME  TITLE  text-001.
SELECT-OPTIONS:  p_carrid  FOR  spfli-carrid.
SELECTION-SCREEN  END  OF  BLOCK  b1.
SELECTION-SCREEN  BEGIN  OF  BLOCK    b2  WITH  FRAME  TITLE  text-002.
PARAMETERS:  p_spfli  RADIOBUTTON  GROUP  g1  DEFAULT  'X',
                        p_sflig  RADIOBUTTON  GROUP  g1.
SELECTION-SCREEN  END  OF  BLOCK  b2.
CONSTANTS  mark  VALUE  'X'.

IF  mark  =  p_spfli.
    SELECT  carrid  connid  cityfrom  cityto  FROM  spfli  INTO  TABLE  it_spfli  WHERE  carrid  IN  p_carrid.
    IF  sy-subrc  =  0.
        MESSAGE  i002.
        LOOP  AT  it_spfli  INTO  wa_spfli.
            WRITE:/  wa_spfli-carrid,wa_spfli-connid.
        ENDLOOP.
    ELSE.
        MESSAGE  'No  Records  Found!'  TYPE  'I'.
        MESSAGE  s001.
    ENDIF.
ELSEIF  mark  =  p_sflig.
    SELECT  *  FROM  sflight  INTO  CORRESPONDING  FIELDS  OF  TABLE  it_sfli  WHERE  carrid  IN  p_carrid.
    IF  sy-subrc  =  0.
        MESSAGE  'Records  are  being  fetced...  PLz.  click  continue'  TYPE  'i'.
        LOOP  AT  it_sfli  INTO  wa_sflight.
            seatsfree  =  wa_sflight-seatsmax  -  wa_sflight-seatsocc.
            WRITE:/  wa_sflight-carrid,wa_sflight-connid,wa_sflight-fldate,
                            wa_sflight-seatsmax,wa_sflight-seatsocc,seatsfree.
        ENDLOOP.
    ELSE.
        MESSAGE  'No  Records  Found!'  TYPE  'I'.
        MESSAGE  s001.
    ENDIF.
ENDIF.