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.