sap abap program for Use Simple ALV Functions to Make Reporting Easy

*&---------------------------------------------------------------------*
*& Report  ZBC_ALV_EXAMPLE                                             *
*&                                                                     *
*&---------------------------------------------------------------------*
* This program explains how we can use simple ALV functions to make    *
* reporting easy and looks pretty
************************************************************************
* Programmer        : Venkat Reddy           ETA                       *
* Date              : 10/02/04                                         *
************************************************************************
* Maintenance Log                                                      *
*----------------------------------------------------------------------*
* Changed By      Date         Transport#   Description                *
*------------ ---------------------------------------------------------*
* Venkat Reddy    10/02/04     EGD913575    Changed program to avoid   *
*----------------------------------------------------------------------*
REPORT  ZBC_ALV_EXAMPLE.

************************************************************************
*                 D-A-T-A  D-E-C-L-A-R-A-T-I-O-N-S                     *
************************************************************************
tables:  sflight.

**-- TYPE-POOLS Definition
**Includes the types and constants of a type group. Since the types and
*constants specified in a type group have global validity, you cannot
*use the statement within a FORM or FUNCTION.
type-pools: slis.
PARAMETERS: P_VARI LIKE DISVARIANT-VARIANT.

**-- ALV variables
*****- Field Catalog structure
data: ls_fieldcat     type slis_fieldcat_alv,    "Field Catalog list

**--- Field Catalog table
     gt_fieldcat     type slis_t_fieldcat_alv,  "Field Catalog

**--- Layout ( How you would like to see the output )
     gs_layout       type slis_layout_alv,       "List Layout

**--  Report name
     g_repid         like sy-repid,
      g_save(1)           type c,
     g_exit(1)           type c,
     g_variant           like disvariant,
     gx_variant          like disvariant.


**-- Flight Info Internal table
data: lt_sflight like sflight occurs 0 with header line.

************************************************************************
*                 C-O-N-S-T-A-N-T-S                                    *
************************************************************************

************************************************************************
*                 S-E-L-E-C-T-I-O-N  S-C-R-E-E-N                       *
************************************************************************

selection-screen begin of block a with frame title text-100.
select-options: s_carrid  for  sflight-carrid,
               s_connid  for  sflight-connid,
               s_fldate  for  sflight-fldate default sy-datum.
selection-screen end of block a .


************************************************************************
*                 I-N-I-T-I-A-L-I-Z-A-T-I-O-N                          *
************************************************************************
initialization.

 g_repid = sy-repid.

**-- Fill ALV field catalog
 perform initialize_fieldcat using gt_fieldcat[].

***-- Build Events
*  perform build_eventtab using gt_events[].
*
**-- Read the default variant
 perform initialize_variant.

************************************************************************
*                 A-T  S-E-L-E-C-T-I-O-N  S-C-R-E-E-N                  *
************************************************************************
at selection-screen on value-request for p_vari.
**-- Display all existing variants
 call function 'REUSE_ALV_VARIANT_F4'
      exporting
           is_variant = g_variant
           i_save     = g_save
      importing
           e_exit     = g_exit
           es_variant = gx_variant
      exceptions
           not_found  = 2.
 if sy-subrc = 2.
   message id sy-msgid type 'S'      number sy-msgno
           with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
 else.
   if g_exit = space.
     p_vari = gx_variant-variant.
   endif.
 endif.


************************************************************************
*                 S-T-A-R-T  O-F  S-E-L-E-C-T-I-O-N                    *
************************************************************************
start-of-selection.

**-- Read Flight information.
perform read_flight_info.

**-- Fill ALV field catalog and display report.
 if not lt_sflight[] is initial.
   perform dislay_alv_report.
 endif.

*======================================================================*
*                 FORMS / SUB ROUTINES                                 *
*======================================================================

*&---------------------------------------------------------------------*
*&      Form  initialize_fieldcat
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_GT_FIELDCAT[]  text
*----------------------------------------------------------------------*
form initialize_fieldcat using l_fieldcat type slis_t_fieldcat_alv.

 clear ls_fieldcat.

* Air line
 ls_fieldcat-fieldname   = 'CARRID'.
 ls_fieldcat-key         = 'X'.
 ls_fieldcat-col_pos     = 1.
 ls_fieldcat-seltext_s   = 'Airline'.
 ls_fieldcat-seltext_l   = 'Airline'.
 append ls_fieldcat to l_fieldcat.
 clear ls_fieldcat.

* Flight Number
 ls_fieldcat-fieldname   = 'CONNID'.
 ls_fieldcat-key         = 'X'.
 ls_fieldcat-col_pos     = 2.
 ls_fieldcat-seltext_s   = 'Flight Number'.
 ls_fieldcat-seltext_l   = 'Flight Number'.
 append ls_fieldcat to l_fieldcat.
 clear ls_fieldcat.

* Flight date
 ls_fieldcat-fieldname   = 'FLDATE'.
 ls_fieldcat-key         = 'X'.
 ls_fieldcat-col_pos     = 3.
 ls_fieldcat-seltext_s   = 'Flight date'.
 ls_fieldcat-seltext_l   = 'Flight date'.
 append ls_fieldcat to l_fieldcat.
 clear ls_fieldcat.

* Airfare
 ls_fieldcat-fieldname   = 'PRICE'.
 ls_fieldcat-col_pos     = 4.
 ls_fieldcat-do_sum      = 'X'.
 ls_fieldcat-seltext_s   = 'Airfare'.
 ls_fieldcat-seltext_l   = 'Airfare'.
 append ls_fieldcat to l_fieldcat.
 clear ls_fieldcat.

* Local Currency
 ls_fieldcat-fieldname   = 'CURRENCY'.
 ls_fieldcat-col_pos     = 5.
 ls_fieldcat-seltext_s   = 'Local Currency'.
 ls_fieldcat-seltext_l   = 'Local Currency'.
 append ls_fieldcat to l_fieldcat.
 clear ls_fieldcat.

* Plane Type
 ls_fieldcat-fieldname   = 'PLANETYPE'.
 ls_fieldcat-col_pos     = 6.
 ls_fieldcat-seltext_s   = 'Plane type'.
 ls_fieldcat-seltext_l   = 'Plane type'.
 append ls_fieldcat to l_fieldcat.
 clear ls_fieldcat.

* Maximum capacity
 ls_fieldcat-fieldname   = 'SEATSMAX'.
 ls_fieldcat-col_pos     = 7.
 ls_fieldcat-seltext_s   = 'Max. seats'.
 ls_fieldcat-seltext_l   = 'Max. seats'.
 append ls_fieldcat to l_fieldcat.
 clear ls_fieldcat.

* Occupied seats
 ls_fieldcat-fieldname   = 'SEATSOCC'.
 ls_fieldcat-col_pos     = 8.
 ls_fieldcat-seltext_s   = 'Seats occupied'.
 ls_fieldcat-seltext_l   = 'Seats occupied'.
 append ls_fieldcat to l_fieldcat.
 clear ls_fieldcat.

* Total
 ls_fieldcat-fieldname   = 'PAYMENTSUM'.
 ls_fieldcat-col_pos     = 9.
 ls_fieldcat-do_sum     = 'X'.
 ls_fieldcat-seltext_s   = 'Total amount'.
 ls_fieldcat-seltext_l   = 'Total amount'.
 append ls_fieldcat to l_fieldcat.
 clear ls_fieldcat.

* Total
 ls_fieldcat-fieldname   = 'PAYMENTSUM'.
 ls_fieldcat-col_pos     = 9.
 ls_fieldcat-do_sum     = 'X'.
 ls_fieldcat-seltext_s   = 'Total amount'.
 ls_fieldcat-seltext_l   = 'Total amount'.
 append ls_fieldcat to l_fieldcat.
 clear ls_fieldcat.


* Max. Capacity, Buss. Class
 ls_fieldcat-fieldname   = 'SEATSMAX_B'.
 ls_fieldcat-col_pos     = 10.
 ls_fieldcat-seltext_s   = 'Max.Buss.class cap.'.
 ls_fieldcat-seltext_l   = 'Max.Buss.class cap.'.
 append ls_fieldcat to l_fieldcat.
 clear ls_fieldcat.

* Max. occupancy, Buss. Class
 ls_fieldcat-fieldname   = 'SEATSOCC_B'.
 ls_fieldcat-col_pos     = 11.
 ls_fieldcat-seltext_s   = 'Max.Bus.CL.occupied'.
 ls_fieldcat-seltext_l   = 'Max.Bus.CL.occupied'.
 append ls_fieldcat to l_fieldcat.
 clear ls_fieldcat.

* Max. Capacity, First. Class
 ls_fieldcat-fieldname   = 'SEATSMAX_F'.
 ls_fieldcat-col_pos     = 12.
 ls_fieldcat-seltext_s   = 'Max.Buss.class cap.'.
 ls_fieldcat-seltext_l   = 'Max.Buss.class cap.'.
 append ls_fieldcat to l_fieldcat.
 clear ls_fieldcat.

* Max. occupancy, First. Class
 ls_fieldcat-fieldname   = 'SEATSOCC_F'.
 ls_fieldcat-col_pos     = 13.
 ls_fieldcat-seltext_s   = 'Max.Bus.CL.occupied'.
 ls_fieldcat-seltext_l   = 'Max.Bus.CL.occupied'.
 append ls_fieldcat to l_fieldcat.
 clear ls_fieldcat.


ENDFORM.                    " initialize_fieldcat
*&---------------------------------------------------------------------*
*&      Form  read_flight_info
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM read_flight_info .

refresh lt_sflight.
clear   lt_sflight.

**-- Read data from SFLIGHT table
 select *
   from SFLIGHT
   into table lt_sflight
   where carrid in s_carrid
    and  connid in s_connid
    and  fldate in s_fldate.
if sy-subrc <> 0.
  message e208(00) with text-101.
endif.

ENDFORM.                    " read_flight_info
*&---------------------------------------------------------------------*
*&      Form  dislay_alv_report
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM dislay_alv_report .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
*   I_INTERFACE_CHECK              = ' '
*   I_BYPASSING_BUFFER             =
*   I_BUFFER_ACTIVE                = ' '
  I_CALLBACK_PROGRAM              =  g_repid
*   I_CALLBACK_PF_STATUS_SET       = ' '
*   I_CALLBACK_USER_COMMAND        = ' '
  I_STRUCTURE_NAME                =  'sflight'
*   IS_LAYOUT                      =
  IT_FIELDCAT                     =  gt_fieldcat
*   IT_EXCLUDING                   =
*   IT_SPECIAL_GROUPS              =
*   IT_SORT                        =
*   IT_FILTER                      =
*   IS_SEL_HIDE                    =
  I_DEFAULT                      = 'X'
  I_SAVE                         = 'A'
 IS_VARIANT                     = GX_VARIANT
*   IT_EVENTS                      =
*   IT_EVENT_EXIT                  =
*   IS_PRINT                       =
*   IS_REPREP_ID                   =
*   I_SCREEN_START_COLUMN          = 0
*   I_SCREEN_START_LINE            = 0
*   I_SCREEN_END_COLUMN            = 0
*   I_SCREEN_END_LINE              = 0
* IMPORTING
*   E_EXIT_CAUSED_BY_CALLER        =
*   ES_EXIT_CAUSED_BY_USER         =
 TABLES
   T_OUTTAB                       = lt_sflight
EXCEPTIONS
  PROGRAM_ERROR                  = 1
  OTHERS                         = 2
         .
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

ENDFORM.                    " dislay_alv_report
*&---------------------------------------------------------------------*
*&      Form  initialize_variant
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM initialize_variant .
g_save = 'A'.
 clear g_variant.
 g_variant-report = g_repid.
 gx_variant = g_variant.
 call function 'REUSE_ALV_VARIANT_DEFAULT_GET'
      exporting
           i_save     = g_save
      changing
           cs_variant = gx_variant
      exceptions
           not_found  = 2.
 if sy-subrc = 0.
   p_vari = gx_variant-variant.
 endif.

ENDFORM.                    " initialize_variant