Go to any page of a report directly from the selection-screen

By Joyjit Ghosh, IBM India

Code:
*&----------------------------------------------------------------*
*& Report  Z_DEMO_JG
*&
*&----------------------------------------------------------------*
*& Go to any page of a list directly form selection screen
*&----------------------------------------------------------------*
REPORT  z_demo_jg LINE-SIZE 80 LINE-COUNT 50
                                     NO STANDARD PAGE HEADING.
TABLES: sflight.
* Type declaration
TYPES : BEGIN OF ty_flight,
         carrid(19) TYPE c,
         connid(18) TYPE c,
         fldate LIKE sflight-fldate,
         fldate1(14) TYPE c,
         planetype(13) TYPE c,
        END OF ty_flight.
* Data declaration
DATA: i_flight TYPE STANDARD TABLE OF ty_flight,
      w_flight TYPE ty_flight.
DATA: field(50) TYPE c.
DATA: part1(30) TYPE c,
      part2(30) TYPE c.
DATA: l_counter TYPE i.
* Selection screen
SELECT-OPTIONS: s_carrid FOR sflight-carrid.
PARAMETERS: p_page TYPE int3.
START-OF-SELECTION.
* Fetch data from sflight table
  SELECT carrid
         connid
         fldate
         planetype
   FROM sflight
  INTO CORRESPONDING FIELDS OF TABLE i_flight
  WHERE carrid IN s_carrid.
  CHECK sy-subrc = 0.
* Display final data
  PERFORM display_data.
TOP-OF-PAGE.
* Display report header
  PERFORM display_column_name.

*&----------------------------------------------------------------*
*&      Form  display_column_name
*&----------------------------------------------------------------*
*       Display column header
*-----------------------------------------------------------------*
*       None
*-----------------------------------------------------------------*
FORM display_column_name .

  WRITE: /10 'Program name:', sy-repid.
  WRITE: /10 'Page no:', sy-pagno.
* Store report header texts
  w_flight-carrid = 'Airline Code'(001).
  w_flight-connid = 'Flight Connection'(002).
  w_flight-fldate1 = 'Flight date'(003).
  w_flight-planetype = 'Aircraft Type'(004).
* Display report header
  SKIP.
  ULINE.
  FORMAT INTENSIFIED ON COLOR 1.
  WRITE: 1 sy-vline,
         2 w_flight-carrid,
         21 sy-vline,
         22 w_flight-connid,
         40 sy-vline,
         41 w_flight-fldate1,
         55 sy-vline,
         56 w_flight-planetype,
         80 sy-vline.
  ULINE.
ENDFORM.                    " display_column_name
*&----------------------------------------------------------------*
*&      Form  display_data
*&----------------------------------------------------------------*
*       Display flight data
*-----------------------------------------------------------------*
*       None
*------------------------------------------------------------------*
FORM display_data .

  CLEAR w_flight.
* Display report final data
  LOOP AT i_flight INTO w_flight.
    w_flight-fldate1 = w_flight-fldate.
    FORMAT INTENSIFIED ON COLOR 2.
    WRITE: 1 sy-vline,
           2 w_flight-carrid,
           21 sy-vline,
           22 w_flight-connid,
           40 sy-vline,
           41 w_flight-fldate1,
           55 sy-vline,
           56 w_flight-planetype,
           80 sy-vline.
    ULINE.
  ENDLOOP.
  IF p_page IS NOT INITIAL.
*   Check whether any page exist with the number entered
*   in the selection screen
    READ LINE 1 OF PAGE p_page.
    IF sy-subrc = 0.
*     If exist then scroll down to that page
      SCROLL LIST TO PAGE p_page LINE 1 .
    ELSE.
*     Otherwise display information message and continue
*     processing
      MESSAGE i000(z_zzz_ca_messages)
          WITH 'Page number does not exist'(001).
    ENDIF.
  ENDIF.
ENDFORM.                    " display_data

Screen shots: 

Input:

 

Output:

 

Input:

Output:

Please send us your feedback/suggestions at webmaster@SAPTechnical.COM 

HomeContribute About Us Privacy Terms Of Use • Disclaimer • SafeCompanies: Advertise on SAPTechnical.COM | Post JobContact Us  

Graphic Design by Round the Bend Wizards

footer image footer image