ABAP Material & Coding

Quarter Validation when input is given date

2010-11-21T23:34:00.000-08:00

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_accp   FOR  lv_buper  OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b1.

ranges: r_faedn   FOR dfkkop-faedn.

DATA: lv_year(4) TYPE n.
  CLEAR r_faedn.
  r_faedn-sign = 'I'.
  r_faedn-option = 'EQ'.
  CASE s_accp-low+4(2).
    WHEN '01' OR '02' OR '03'.
*      lv_year = s_accp-low(4).
*      lv_year = lv_year - 1.
*      CONCATENATE lv_year '1001'
*      INTO r_faedn-low.
*      CONCATENATE lv_year '1231'
*      INTO r_faedn-high.
      CONCATENATE s_accp-low(4)  '0101'
      INTO r_faedn-low.
      CONCATENATE s_accp-low(4) '0331'
      INTO r_faedn-high.
      APPEND r_faedn.
      CLEAR : r_faedn-low,
              r_faedn-high.
    WHEN '04' OR '05' OR '06'.
      CONCATENATE s_accp-low(4) '0401'
      INTO r_faedn-low.
      CONCATENATE s_accp-low(4) '0630'
      INTO r_faedn-high.
      APPEND r_faedn.
      CLEAR : r_faedn-low,
              r_faedn-high.
    WHEN '07' OR '08' OR '09'.
      CONCATENATE s_accp-low(4) '0701'
      INTO r_faedn-low.
      CONCATENATE s_accp-low(4) '0930'
      INTO r_faedn-high.
      APPEND r_faedn.
      CLEAR : r_faedn-low,
              r_faedn-high.
    WHEN '10' OR '11' OR '12'.
      CONCATENATE s_accp-low(4) '1001'
      INTO r_faedn-low.
      CONCATENATE s_accp-low(4) '1231'
      INTO r_faedn-high.
      APPEND r_faedn.
      CLEAR : r_faedn-low,
              r_faedn-high.
  ENDCASE.
  CASE s_accp-high+4(2).
    WHEN '01' OR '03' OR '05' OR '07' OR
         '08' OR '10' OR '12'.
      CONCATENATE s_accp-high(6) '31'
              INTO gv_sett_dt.
    WHEN '04' OR '06' OR '09' OR '11'.
      CONCATENATE s_accp-high(6) '30'
              INTO gv_sett_dt.
    WHEN '02'.
      CONCATENATE s_accp-high(6) '28'
              INTO gv_sett_dt.
  ENDCASE.

Function Module gives the Quarter start date and end date.

2010-11-19T04:41:00.001-08:00

l_month = sy-datum+4(2).

* Set quarter
  ex_quarter-q = trunc( ( l_month - 1 ) / 3 ) + 1.
ex_quarter-q = ex_quarter-q - 1
* Set year
  ex_quarter-year = sy-datum(4).

* the below Function Module gives you the Quarter start date and end date.
call function 'HR_99S_GET_DATES_QUARTER'
   exporting
   im_quarter = ex_quarter-q
   im_year = ex_quarter-year
   importing
   ex_begda = ex_quarter-begda " Quarter Start date
   ex_endda = ex_quarter-endda. " Quarter End date

FM: Quarter Validation based on given date

2010-11-19T02:28:00.001-08:00

* Set quarter
  ex_quarter-q = trunc( ( l_month - 1 ) / 3 ) + 1.

* Set year
  ex_quarter-year = sy-datum(4).

* the below Function Module gives you the Quarter start date and end date.
call function 'HR_99S_GET_DATES_QUARTER'
   exporting
   im_quarter = ex_quarter-q
   im_year = ex_quarter-year
   importing
   ex_begda = ex_quarter-begda " Quarter Start date
   ex_endda = ex_quarter-endda. " Quarter End date

F4 help for select-options

2010-11-10T04:37:00.000-08:00

************************************************************************
* TYPES DECLARATION
************************************************************************

Types: begin of ty_sercd,
   venture_cd type zri_series-venture_cd,
   series_cd type zri_series-series_cd, "RI: Series Code
   end of ty_sercd.

data : gt_sercd type standard table of ty_sercd. "Internal Table

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

SELECT-OPTIONS: s_sercd for zri_series-series_cd,
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN END OF BLOCK b1.

**---------------------------------------------------------------------*
** AT SELECTION-SCREEN ON VALUE-REQUEST
**---------------------------------------------------------------------*
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_sercd-low.
  PERFORM f4_help_sercd.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_sercd-HIGH.
  PERFORM f4_help_sercd.

*&---------------------------------------------------------------------*

*& Form F4_HELP_SERCD

*&---------------------------------------------------------------------*

* F4 Help for Series Code

*----------------------------------------------------------------------*

FORM f4_help_sercd .

REFRESH : GT_SERCD.

SELECT venture_cd series_cd

FROM zri_series

INTO CORRESPONDING FIELDS OF TABLE gt_sercd.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

retfield = 'SERIES_CD'

dynpprog = sy-repid

dynpnr = SY-DYNNR

dynprofield = 'S_SERCD'

value_org = 'S'

TABLES

value_tab = gt_sercd

EXCEPTIONS

OTHERS = 0.

ENDFORM.

Conditionally populate the color on ALV Report Display

2010-10-26T01:44:00.000-07:00

*&---------------------------------------------------------------------*
*& Report  YTEST01
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  YTEST01 no standard page heading
                line-count 255
                line-size 255.
TYPE-POOLS: slis.

DATA: BEGIN OF it_flight OCCURS 0,
       carrid  LIKE sflight-carrid,
       connid   LIKE sflight-connid,
       fldate   LIKE sflight-fldate,
       seatsmax LIKE sflight-seatsmax,
       seatsocc LIKE sflight-seatsocc,
       color(4),   " <---extra field for color
      END OF it_flight.
DATA: it_fieldcat TYPE  slis_t_fieldcat_alv,
      layout TYPE  slis_layout_alv.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
  EXPORTING
    i_program_name         = sy-repid
    i_internal_tabname     = 'IT_FLIGHT'
    i_inclname             = sy-repid
  CHANGING
    ct_fieldcat            = it_fieldcat
  EXCEPTIONS
    inconsistent_interface = 1
    program_error          = 2.

SELECT  carrid
       connid
       fldate
       seatsmax
       seatsocc
FROM sflight
INTO CORRESPONDING FIELDS OF TABLE it_flight
UP TO 20 ROWS.
*-conditionally populate the color
LOOP AT it_flight.

  IF it_flight-seatsocc eq 0.
   it_flight-color = 'C600'.
  ENDIF.
  MODIFY  it_flight.
ENDLOOP.
*-Pass the color field information to layout
layout-info_fieldname = 'COLOR'.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
  EXPORTING
    i_callback_program = sy-repid
    is_layout          = layout
    it_fieldcat        = it_fieldcat
  TABLES
    t_outtab           = it_flight
  EXCEPTIONS
    program_error      = 1.

Upload the Data from Excel to ITAB by using GUI_UPLOAD and validating data as well

2010-10-06T04:51:00.001-07:00

*&---------------------------------------------------------------------*
*& Report  YUPLOAD_EXCEL_TO_ITAB
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  yupload_excel_to_itab NO STANDARD PAGE HEADING
                              LINE-COUNT 132
                              LINE-SIZE 65.
*&---------------------------------------------------------------------*

*&  DATA DECLARATION
*&---------------------------------------------------------------------*
TYPE-POOLS: truxs.

data : BEGIN OF gt_itab occurs 0,
          mark(1)       type c,
          acdetcat(40)          TYPE  c,
          acdetdes(40)          TYPE  c,
          sapmtrty(40)           TYPE  c,
          sapmtrdes(40)         TYPE  c,
          obligor(40)            TYPE  c,
          iwgroup(40)            TYPE  c,
          iwprior(40)               TYPE  c,
          drcr(40)               TYPE  c,
          iwrollid(40)          TYPE  c,
          iwrolldes(40)         TYPE  c,
          ccode(40)              TYPE  c,
          ccodedes(40)          type  c,
          sapsubcat(40)          TYPE  c,
          sapsubdes(40)         TYPE  c,
          balacc(40)            TYPE  c,
          incstat(40)           TYPE  c,
          profcent(40)           TYPE  c,
          profcendes(40)        TYPE  c,
          costcen(40)            TYPE  c,
          costcendes(40)        TYPE  c,
          tpcata(40)             TYPE  c,
          tpcatades(40)         TYPE  c,
          finstat(40)               TYPE  c,
          rowtycat(40)           TYPE  c,
          rowtypdes(40)         TYPE  c,
          applic(40)             TYPE  c,
          fscdid(40)                TYPE  c,
          countparcat(40)        TYPE  c,
          countpatdes(40)       TYPE  c,
          subanalcat(40)         TYPE  c,
          subanaldes(40)        TYPE  c,
        END OF gt_itab.

data : BEGIN OF gt_final occurs 0,
          acdetcat(40)          TYPE  c,
          acdetdes(40)          TYPE  c,
          sapmtrty(40)           TYPE  c,
          ccode(40)              TYPE  c,
          sapsubcat(40)          TYPE  c,
          sapsubdes(40)         TYPE  c,
          balacc(40)            TYPE  c,
          incstat(40)           TYPE  c,
          profcent(40)           TYPE  c,
          profcendes(40)        TYPE  c,
          costcen(40)            TYPE  c,
          costcendes(40)        TYPE  c,
          tpcata(40)             TYPE  c,
          tpcatades(40)         TYPE  c,
          finstat(40)               TYPE  c,
          rowtycat(40)           TYPE  c,
          rowtypdes(40)         TYPE  c,
          applic(40)             TYPE  c,
          fscdid(40)                TYPE  c,
          countparcat(40)        TYPE  c,
          countpatdes(40)       TYPE  c,
          subanalcat(40)         TYPE  c,
          subanaldes(40)        TYPE  c,
        END OF gt_final.

*DATA: gt_itab TYPE STANDARD TABLE OF ty_itab,
*      gs_itab TYPE ty_itab,
*      gt_final TYPE STANDARD TABLE OF ty_final,
*      gs_final TYPE ty_final.

DATA: i_text_data        TYPE truxs_t_text_data,
      v_filename  TYPE string.

PARAMETERS : p_file LIKE rlgrap-filename.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
  CALL FUNCTION 'F4_FILENAME'
    EXPORTING
      field_name = 'P_FILE'
    IMPORTING
      file_name  = p_file.

*&---------------------------------------------------------------------*
*&  START OF SELECTION
*&---------------------------------------------------------------------*

START-OF-SELECTION.
  v_filename = p_file.

*  CALL FUNCTION 'GUI_UPLOAD'
*    EXPORTING
*      filename                      = v_filename
*     filetype                      = 'ASC'
*     has_field_separator           = 'X'
*
*    TABLES
*      data_tab                      = gt_itab
* EXCEPTIONS
*   FILE_OPEN_ERROR               = 1
*   FILE_READ_ERROR               = 2

  CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      filename                      = v_filename_string
     filetype                      = 'ASC'
     has_field_separator           = 'X'
*
    TABLES
      data_tab                      = i_text_data
* EXCEPTIONS
*   FILE_OPEN_ERROR               = 1
*   FILE_READ_ERROR               = 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.
break-point.
  CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
    EXPORTING
     i_field_seperator          = 'X'
*   I_LINE_HEADER              =
      i_tab_raw_data             = i_text_data
      i_filename                 = p_file
    TABLES
      i_tab_converted_data       = gt_itab
* EXCEPTIONS
*   CONVERSION_FAILED          = 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.
*&---------------------------------------------------------------------*
*&  Final Internal Table
**&---------------------------------------------------------------------*
*  LOOP AT gt_itab. " INTO gs_itab.
**    CLEAR gs_final.
*    MOVE-CORRESPONDING gt_itab TO gt_final.
**    APPEND gs_final TO gt_final.
*  ENDLOOP.
*  BREAK-POINT.

*Do.
*  READ TABLE gt_final INDEX 1 INTO gs_final.
*  PERFORM abcd USING gs_final-acdetcat
*                        gs_final-acdetdes
*                        gs_final-sapmtrty
*                        gs_final-ccode
*                        gs_final-sapsubcat.

*
*&---------------------------------------------------------------------*
*&      Form  ABCD
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_GS_FINAL_ACDETCAT  text
*      -->P_GS_FINAL_ACDETDES  text
*      -->P_GS_FINAL_SAPMTRTY  text
*      -->P_GS_FINAL_CCODE  text
*      -->P_GS_FINAL_SAPSUBCAT  text
*----------------------------------------------------------------------*
FORM abcd  USING    p_gs_final_acdetcat
                    p_gs_final_acdetdes
                    p_gs_final_sapmtrty
                    p_gs_final_ccode
                    p_gs_final_sapsubcat.
  DATA: a(40) TYPE c VALUE 'A/C Determination Type Catalog Value    ',
        b(40) TYPE c VALUE 'A/C Determination Type Description      ',
        c(40) TYPE c VALUE 'SAP Main/Transaction Type Catalog Value ',
        d(40) TYPE c VALUE 'Company Code Catalog Value              ',
        e(40) TYPE c VALUE 'SAP Sub Catalog Value                   '.
  IF p_gs_final_acdetcat <> a.
    message 'Data is incorrect' type 'E'.

     elseIF p_gs_final_acdetdes <> b.
    message 'Data is incorrect' type 'E'.

  elseIF p_gs_final_sapmtrty <> c.
    message 'Data is incorrect' type 'E'.

  elseIF p_gs_final_ccode    <> d.
    message 'Data is incorrect' type 'E'.

  elseIF p_gs_final_sapsubcat <> e.
    message 'Data is incorrect' type 'E'.
  endif.

ENDFORM.                    " ABCD

SUBMIT Report Example

2010-09-28T01:57:00.001-07:00

*Code used to execute a report
SUBMIT Zreport.


*Code used to populate 'select-options' & execute report
DATA: seltab type table of rsparams,
      seltab_wa like line of seltab.

  seltab_wa-selname = 'PNPPERNR'.
  seltab_wa-sign    = 'I'.
  seltab_wa-option  = 'EQ'.

* load each personnel number accessed from the structure into
* parameters to be used in the report
  loop at pnppernr.
    seltab_wa-low = pnppernr-low.
    append seltab_wa to seltab.
  endloop.
  SUBMIT zreport with selection-table seltab
                                via selection-screen.


*Code used to populate 'parameters' & execute report
 SUBMIT zreport with p_param1 = 'value'
                with p_param2 = 'value'.

Other additions for SUBMIT


*Submit report and return to current program afterwards
 SUBMIT zreport AND RETURN.

*Submit report via its own selection screen
 SUBMIT zreport VIA SELECTION-SCREEN.

*Submit report using selection screen variant
 SUBMIT zreport USING SELECTION-SET 'VARIANT1'.

*Submit report but export resultant list to memory, rather than
*it being displayed on screen
 SUBMIT zreport EXPORTING LIST TO MEMORY.
*  Once report has finished and control has returned to calling
*  program, use function modules LIST_FROM_MEMORY, WRITE_LIST and
*  DISPLAY_LIST to retrieve and display report.

*Example Code (Retrieving list from memory)
DATA  BEGIN OF itab_list OCCURS 0.
        INCLUDE STRUCTURE abaplist.
DATA  END OF itab_list.

DATA: BEGIN OF vlist OCCURS 0,
        filler1(01)   TYPE c,
        field1(06)    TYPE c,
        filler(08)    TYPE c,
        field2(10)    TYPE c,
        filler3(01)   TYPE c,
        field3(10)    TYPE c,
        filler4(01)   TYPE c,
        field4(3)     TYPE c,
        filler5(02)   TYPE c,
        field5(15)    TYPE c,
        filler6(02)   TYPE c,
        field6(30)    TYPE c,
        filler7(43)   TYPE c,
        field7(10)    TYPE c,
      END OF vlist.

SUBMIT zreport EXPORTING LIST TO MEMORY.

CALL FUNCTION 'LIST_FROM_MEMORY'
  TABLES
    listobject = itab_list
  EXCEPTIONS
    not_found  = 4
    OTHERS     = 8.

CALL FUNCTION 'LIST_TO_ASCI'
  EXPORTING
    list_index         = -1
  TABLES
    listasci           = vlist
    listobject         = itab_list
  EXCEPTIONS
    empty_list         = 1
    list_index_invalid = 2
    OTHERS             = 3.

IF sy-subrc NE '0'.
  WRITE:/ 'LIST_TO_ASCI error !! ', sy-subrc.
ENDIF.

Submit report as job


*Submit report as job(i.e. in background)
data: jobname like tbtcjob-jobname value
                             ' TRANSFER TRANSLATION'.
data: jobcount like tbtcjob-jobcount,
      host like msxxlist-host.
data: begin of starttime.
        include structure tbtcstrt.
data: end of starttime.
data: starttimeimmediate like btch0000-char1.

* Job open
  call function 'JOB_OPEN'
       exporting
            delanfrep        = ' '
            jobgroup         = ' '
            jobname          = jobname
            sdlstrtdt        = sy-datum
            sdlstrttm        = sy-uzeit
       importing
            jobcount         = jobcount
       exceptions
            cant_create_job  = 01
            invalid_job_data = 02
            jobname_missing  = 03.
  if sy-subrc ne 0.
                                       "error processing
  endif.

* Insert process into job
 SUBMIT zreport and return
                with p_param1 = 'value'
                with p_param2 = 'value'
                user sy-uname
                via job jobname
                number jobcount.
  if sy-subrc > 0.
                                       "error processing
  endif.

* Close job
  starttime-sdlstrtdt = sy-datum + 1.
  starttime-sdlstrttm = '220000'.
  call function 'JOB_CLOSE'
       exporting
            event_id             = starttime-eventid
            event_param          = starttime-eventparm
            event_periodic       = starttime-periodic
            jobcount             = jobcount
            jobname              = jobname
            laststrtdt           = starttime-laststrtdt
            laststrttm           = starttime-laststrttm
            prddays              = 1
            prdhours             = 0
            prdmins              = 0
            prdmonths            = 0
            prdweeks             = 0
            sdlstrtdt            = starttime-sdlstrtdt
            sdlstrttm            = starttime-sdlstrttm
            strtimmed            = starttimeimmediate
            targetsystem         = host
       exceptions
            cant_start_immediate = 01
            invalid_startdate    = 02
            jobname_missing      = 03
            job_close_failed     = 04
            job_nosteps          = 05
            job_notex            = 06
            lock_failed          = 07
            others               = 99.
  if sy-subrc eq 0.
                                       "error processing
  endif.

Graphs Report

2010-03-28T23:47:00.001-07:00

*&---------------------------------------------------------------------*
*& Report ZSAN_GRAPH
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZSAN_GRAPH.

*** Internal table to hold Statistical data
DATA:

BEGIN OF IT_DATA OCCURS 0,

DATANAME(15),

QUANTITY1 TYPE I,

QUANTITY2 TYPE I,

QUANTITY3 TYPE I,

END OF IT_DATA.
*** Internal table to hold Options
DATA:

BEGIN OF IT_OPTIONS OCCURS 0,

OPTION(20),

END OF IT_OPTIONS.
*** Populating statistics data
IT_DATA-DATANAME = 'India'.

IT_DATA-QUANTITY1 = 55.

IT_DATA-QUANTITY2 = 62.

IT_DATA-QUANTITY3 = 59.

APPEND IT_DATA.

IT_DATA-DATANAME = 'UK'.

IT_DATA-QUANTITY1 = 35.

IT_DATA-QUANTITY2 = 80.

IT_DATA-QUANTITY3 = 44.

APPEND IT_DATA.

IT_DATA-DATANAME = 'USA'.

IT_DATA-QUANTITY1 = 18.

IT_DATA-QUANTITY2 = 80.

IT_DATA-QUANTITY3 = 19.

APPEND IT_DATA.

*** Call FM to generate graph for the stats

CALL FUNCTION 'GRAPH_MATRIX_3D'

EXPORTING

COL1 = 'IT Professionals'

COL2 = 'Doctors'

COL3 = 'Engineers'

TITL = 'Professional Statistics'

TABLES

DATA = IT_DATA

OPTS = IT_OPTIONS

EXCEPTIONS

OTHERS = 1.

Oops Program to navigate the screens

2010-03-18T02:59:00.000-07:00

*&---------------------------------------------------------------------*
*& Report Z_15006_MP_1203_1
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT Z_15006_MP_1203_1.

TYPES: BEGIN OF ty_bws,
company TYPE char20, " Company
division TYPE char20, " Division1...
emp_team TYPE char20, " Software / Non Software
emp_spe TYPE char20, " Employee Specialization
END OF ty_bws.

*--------------------------------------------------------------------------------------------------------------------------------------------*
*& DATA DECLARATIONS
*--------------------------------------------------------------------------------------------------------------------------------------------*

DATA: g_alv_tree TYPE REF TO cl_gui_alv_tree, " For ALV tree
g_custom_container TYPE REF TO cl_gui_custom_container, " For custom container
a_hier_header TYPE treev_hhdr. " For Header

DATA: t_bws TYPE TABLE OF ty_bws,
v_bws TYPE ty_bws,
t_bws2 LIKE t_bws.

DATA: t_fieldcat TYPE lvc_t_fcat.

*--------------------------------------------------------------------------------------------------------------------------------------------*
*& END OF SELECTIONS
*--------------------------------------------------------------------------------------------------------------------------------------------*
END-OF-SELECTION.
" Call Screen 9001

CALL SCREEN 9000.

*--------------------------------------------------------------------------------------------------------------------------------------------*
*& Form INIT_TREE
*--------------------------------------------------------------------------------------------------------------------------------------------*
* text
*--------------------------------------------------------------------------------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*--------------------------------------------------------------------------------------------------------------------------------------------*
FORM init_tree .
* Create container for alv tree
CONSTANTS: l_tree_container_name(30) TYPE c VALUE 'CC1'.

* Create Object for the custom container
CREATE OBJECT g_custom_container
EXPORTING
* PARENT =
container_name = l_tree_container_name
* STYLE =
* LIFETIME = lifetime_default
* REPID =
* DYNNR =
* NO_AUTODEF_PROGID_DYNNR =
EXCEPTIONS
cntl_error = 1
cntl_system_error = 2
create_error = 3
lifetime_error = 4
lifetime_dynpro_dynpro_link = 5
OTHERS = 6 .
IF sy-subrc <> 0.
MESSAGE x208(00) WITH 'Error in G_CUSTOM_CONTAINER'(100).
ENDIF.

* Create Tree control
CREATE OBJECT g_alv_tree
EXPORTING
* LIFETIME =
parent = g_custom_container
* SHELLSTYLE =
node_selection_mode = cl_gui_column_tree=>node_sel_mode_single
* HIDE_SELECTION =
item_selection = 'X'
no_toolbar = ''
no_html_header = 'X'
* I_PRINT =
* I_FCAT_COMPLETE =
* I_MODEL_MODE =
EXCEPTIONS
cntl_error = 1
cntl_system_error = 2
create_error = 3
lifetime_error = 4
illegal_node_selection_mode = 5
failed = 6
illegal_column_name = 7
OTHERS = 8.

IF sy-subrc <> 0.
MESSAGE x208(00) WITH 'Error in G_ALV_TREE'(100).
ENDIF.
ENDFORM. " INIT_TREE
*--------------------------------------------------------------------------------------------------------------------------------------------*
*& Form BUILD_HIER_HEADER
*--------------------------------------------------------------------------------------------------------------------------------------------*
* text
*--------------------------------------------------------------------------------------------------------------------------------------------*
* <--P_P_HIER_HEADER text
* <--P_TYPE text
* <--P_TREEV_HHDR text
*--------------------------------------------------------------------------------------------------------------------------------------------*
FORM build_hier_header CHANGING p_hier_header TYPE treev_hhdr.

p_hier_header-heading = 'Company/Divisions/Businesses/Employee Teams/Employees'(300).
p_hier_header-tooltip = 'This is tool tip'(400).
p_hier_header-width = 35.
p_hier_header-width_pix = ''.

ENDFORM. " BUILD_HIER_HEADER
*--------------------------------------------------------------------------------------------------------------------------------------------*
*& Module STATUS_9001 OUTPUT
*--------------------------------------------------------------------------------------------------------------------------------------------*
* text
*--------------------------------------------------------------------------------------------------------------------------------------------*
MODULE status_9001 OUTPUT.
SET PF-STATUS 'PF_9001'.
SET TITLEBAR 'TB_9001'.

IF g_alv_tree IS INITIAL.
PERFORM init_tree. " Initialize tree
PERFORM build_hier_header CHANGING a_hier_header. " Build Hierarchy Header
PERFORM build_data_tab.
PERFORM preapre_fcat.
PERFORM call_alv.
PERFORM create_hier_root.

** Send data to frontend.
CALL METHOD g_alv_tree->frontend_update.
ENDIF.
ENDMODULE. " STATUS_9001 OUTPUT
*--------------------------------------------------------------------------------------------------------------------------------------------*
*& Module USER_COMMAND_9001 INPUT
*--------------------------------------------------------------------------------------------------------------------------------------------*
* text
*--------------------------------------------------------------------------------------------------------------------------------------------*
MODULE user_command_9001 INPUT.
CASE sy-ucomm.
WHEN 'BACK'.
LEAVE TO SCREEN 0.
ENDCASE.
ENDMODULE. " USER_COMMAND_9001 INPUT
*--------------------------------------------------------------------------------------------------------------------------------------------*
*& Form PREAPRE_FCAT
*--------------------------------------------------------------------------------------------------------------------------------------------*
* text
*--------------------------------------------------------------------------------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*--------------------------------------------------------------------------------------------------------------------------------------------*
FORM preapre_fcat .

DATA: wa_fieldcat TYPE lvc_s_fcat.

wa_fieldcat-tabname = 'T_BWS'.
wa_fieldcat-fieldname = 'COMPANY'.
wa_fieldcat-seltext = 'Division'.
APPEND wa_fieldcat TO t_fieldcat.
CLEAR wa_fieldcat.

wa_fieldcat-tabname = 'T_BWS'.
wa_fieldcat-fieldname = 'DIVISION'.
wa_fieldcat-seltext = 'Division'.
APPEND wa_fieldcat TO t_fieldcat.
CLEAR wa_fieldcat.

wa_fieldcat-tabname = 'T_BWS'.
wa_fieldcat-fieldname = 'EMP_TEAM'.
wa_fieldcat-seltext = 'Employee Team'.
APPEND wa_fieldcat TO t_fieldcat.
CLEAR wa_fieldcat.

wa_fieldcat-tabname = 'T_BWS'.
wa_fieldcat-fieldname = 'EMP_SPE'.
wa_fieldcat-seltext = 'Employee Specialization'.
APPEND wa_fieldcat TO t_fieldcat.
CLEAR wa_fieldcat.
ENDFORM. " PREAPRE_FCAT
*--------------------------------------------------------------------------------------------------------------------------------------------*
*& Form BUILD_DATA_TAB
*--------------------------------------------------------------------------------------------------------------------------------------------*
* text
*--------------------------------------------------------------------------------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*--------------------------------------------------------------------------------------------------------------------------------------------*
FORM build_data_tab .
PERFORM append_data USING 'Company' 'Division1' 'Software' 'SAP'.
PERFORM append_data USING 'Company' 'Division1' 'Software' '.net'.
PERFORM append_data USING 'Company' 'Division1' 'Non-Software' 'Designers'.
PERFORM append_data USING 'Company' 'Division1' 'Non-Software' 'Other Workers'.

PERFORM append_data USING 'Company' 'Division2' 'Software' 'SAP'.
PERFORM append_data USING 'Company' 'Division2' 'Software' '.net'.
PERFORM append_data USING 'Company' 'Division2' 'Non-Software' 'Designers'.
PERFORM append_data USING 'Company' 'Division2' 'Non-Software' 'Other Workers'.

PERFORM append_data USING 'Company' 'Division3' 'Software' 'SAP'.
PERFORM append_data USING 'Company' 'Division3' 'Software' '.net'.
PERFORM append_data USING 'Company' 'Division3' 'Non-Software' 'Designers'.
PERFORM append_data USING 'Company' 'Division3' 'Non-Software' 'Other Workers'.

PERFORM append_data USING 'Company' 'Division4' 'Software' 'SAP'.
PERFORM append_data USING 'Company' 'Division4' 'Software' '.net'.
PERFORM append_data USING 'Company' 'Division4' 'Non-Software' 'Designers'.
PERFORM append_data USING 'Company' 'Division4' 'Non-Software' 'Other Workers'.

ENDFORM. " BUILD_DATA_TAB
*--------------------------------------------------------------------------------------------------------------------------------------------*
*& Form CALL_ALV
*--------------------------------------------------------------------------------------------------------------------------------------------*
* text
*--------------------------------------------------------------------------------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*--------------------------------------------------------------------------------------------------------------------------------------------*
FORM call_alv .
CALL METHOD g_alv_tree->set_table_for_first_display
EXPORTING
is_hierarchy_header = a_hier_header
CHANGING
it_fieldcatalog = t_fieldcat
it_outtab = t_bws2. "table must be empty !
ENDFORM. " CALL_ALV
*--------------------------------------------------------------------------------------------------------------------------------------------*
*& Form CREATE_HIER_ROOT
*--------------------------------------------------------------------------------------------------------------------------------------------*
* text
*--------------------------------------------------------------------------------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*--------------------------------------------------------------------------------------------------------------------------------------------*
FORM create_hier_root .
DATA: p_divnode TYPE lvc_nkey,
p_teamnode TYPE lvc_nkey,
p_lastnode TYPE lvc_nkey,
p_division TYPE ty_bws-division.

DATA: l_node_text TYPE lvc_value.
DATA: lv_emp_team TYPE ty_bws-emp_team,
lv_emp_spe TYPE ty_bws-emp_spe.

break jdonepudi.

l_node_text = 'Company'.

CLEAR v_bws.
CALL METHOD g_alv_tree->add_node
EXPORTING
i_relat_node_key = ''
i_relationship = cl_gui_column_tree=>relat_last_child
i_node_text = l_node_text
IMPORTING
e_new_node_key = p_divnode.

*sort t_bws by division emp_team emp_spe.

LOOP AT t_bws INTO v_bws.
l_node_text = v_bws-division.
*p_relat_key = 1.
AT NEW division.
*at end of division.
PERFORM add_division USING v_bws
p_divnode
l_node_text
CHANGING p_teamnode.
p_division = v_bws-division.
ENDAT.

*at new emp_team - Software / Non Software
IF lv_emp_team <> v_bws-emp_team.
lv_emp_team = v_bws-emp_team.
l_node_text = v_bws-emp_team.

PERFORM add_emp_team USING v_bws
p_teamnode
l_node_text
CHANGING p_lastnode.
ENDIF.

*at new emp_spe SAP / .net Designers / Other Workers
IF lv_emp_spe <> v_bws-emp_spe.
lv_emp_spe = v_bws-emp_spe.
l_node_text = v_bws-emp_spe.
IF lv_emp_spe = '.net' OR
lv_emp_spe = 'Other Workers'.
p_lastnode = p_lastnode - 1.
ENDIF.
PERFORM add_emp_team USING v_bws
p_lastnode
l_node_text
CHANGING p_lastnode.
ENDIF.
ENDLOOP.

ENDFORM. " CREATE_HIER_ROOT
*--------------------------------------------------------------------------------------------------------------------------------------------*
*& Form ADD_EMP_TEAM
*--------------------------------------------------------------------------------------------------------------------------------------------*
* text
*--------------------------------------------------------------------------------------------------------------------------------------------*
* -->P_KEY text
* -->P_TEXT text
* -->P_OUTTAB text
*--------------------------------------------------------------------------------------------------------------------------------------------*
FORM add_emp_team USING p_v_bws TYPE ty_bws
p_key TYPE lvc_nkey
p_text TYPE lvc_value
CHANGING p_key2 TYPE lvc_nkey.

* add node
CALL METHOD g_alv_tree->add_node
EXPORTING
i_relat_node_key = p_key
i_relationship = cl_gui_column_tree=>relat_last_child
i_node_text = p_text
is_outtab_line = p_v_bws
IMPORTING
e_new_node_key = p_key2.
ENDFORM. " ADD_EMP_TEAM

*--------------------------------------------------------------------------------------------------------------------------------------------*
*& Form ADD_DIVISION
*--------------------------------------------------------------------------------------------------------------------------------------------*
* text
*--------------------------------------------------------------------------------------------------------------------------------------------*
* -->P_V_BWS text
* -->P_KEY text
* -->P_TEXT text
* <--P_KEY2 text
*--------------------------------------------------------------------------------------------------------------------------------------------*
FORM add_division USING p_v_bws TYPE ty_bws
p_key TYPE lvc_nkey
p_text TYPE lvc_value
CHANGING p_key2 TYPE lvc_nkey.

* add node
CALL METHOD g_alv_tree->add_node
EXPORTING
i_relat_node_key = p_key
i_relationship = cl_gui_column_tree=>relat_last_child
i_node_text = p_text
is_outtab_line = p_v_bws
IMPORTING
e_new_node_key = p_key2.

ENDFORM. " ADD_DIVISION
*--------------------------------------------------------------------------------------------------------------------------------------------*
*& Form APPEND_DATA
*--------------------------------------------------------------------------------------------------------------------------------------------*
* text
*--------------------------------------------------------------------------------------------------------------------------------------------*
* -->P_COMPANY text
* -->P_DIVISION text
*--------------------------------------------------------------------------------------------------------------------------------------------*
FORM append_data USING p_company TYPE ty_bws-company
p_division TYPE ty_bws-division
p_empteam TYPE ty_bws-emp_team
p_empspe TYPE ty_bws-emp_spe.

v_bws-company = p_company.
v_bws-division = p_division.
v_bws-emp_team = p_empteam.
v_bws-emp_spe = p_empspe.
APPEND v_bws TO t_bws. CLEAR v_bws.
ENDFORM. " APPEND_DATA

output:

Write the Month Name based on input date

2010-03-18T02:49:00.000-07:00

*&---------------------------------------------------------------------*
*& Report YDATES
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT YDATES.
FIELD-SYMBOLS: TYPE ANY.

CONSTANTS: lc_fl01(9) TYPE c VALUE 'January',
lc_fl02(9) TYPE c VALUE 'February',
lc_fl03(9) TYPE c VALUE 'March',
lc_fl04(9) TYPE c VALUE 'April',
lc_fl05(9) TYPE c VALUE 'May',
lc_fl06(9) TYPE c VALUE 'June',
lc_fl07(9) TYPE c VALUE 'July',
lc_fl08(9) TYPE c VALUE 'August',
lc_fl09(9) TYPE c VALUE 'September',
lc_fl10(9) TYPE c VALUE 'Octomber',
lc_fl11(9) TYPE c VALUE 'November',
lc_fl12(9) TYPE c VALUE 'December'.

DATA: lv_dd(2),
lv_mm(2),
lv_yyyy(4),
lv_month TYPE char7,
lv_month_name(9).

parameters: p_date type sy-datum.

lv_mm = p_date+4(2).

CONCATENATE 'lc_fl' lv_mm INTO lv_month.

ASSIGN (lv_month) TO .
lv_month_name = .
write : lv_month_name.

Tab Screens

2010-01-15T03:44:00.001-08:00

*&---------------------------------------------------------------------*

*& Report Z_TABS

*&---------------------------------------------------------------------*

REPORT z_tabs.

TABLES: zcust_master2,zacc_master2,ztrans_master2.

*---------------------------------------------------------------------*

* Internal Tables *

*---------------------------------------------------------------------*

DATA : BEGIN OF wi_zcust_master2 OCCURS 0,

zcustid LIKE zcust_master2-zcustid,

zcustname LIKE zcust_master2-zcustname,

zaddr LIKE zcust_master2-zaddr,

zcity LIKE zcust_master2-zcity,

zstate LIKE zcust_master2-zstate,

zcountry LIKE zcust_master2-zcountry,

zphone LIKE zcust_master2-zphone,

zemail LIKE zcust_master2-zemail,

zfax LIKE zcust_master2-zfax,

zstat LIKE zcust_master2-zstat,

END OF wi_zcust_master2.

DATA : BEGIN OF wi_zacc_master2 OCCURS 0,

zaccno LIKE zacc_master2-zaccno,

zcustid LIKE zacc_master2-zcustid,

zacctype LIKE zacc_master2-zacctype,

zbal LIKE zacc_master2-zbal,

zaccdate LIKE zacc_master2-zaccdate,

zstat LIKE zacc_master2-zstat,

END OF wi_zacc_master2.

*---------------------------------------------------------------------*

* selection screen *

*---------------------------------------------------------------------*

* Define screen 101 as subscreen

SELECTION-SCREEN BEGIN OF SCREEN 101 AS SUBSCREEN.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-t00.

SELECT-OPTIONS custid FOR zcust_master2-zcustid.

SELECTION-SCREEN END OF BLOCK b1.

SELECTION-SCREEN END OF SCREEN 101.

* Define screen 102 as subscreen

SELECTION-SCREEN BEGIN OF SCREEN 102 AS SUBSCREEN.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-t02.

SELECT-OPTIONS: accno FOR zacc_master2-zaccno.

SELECTION-SCREEN END OF BLOCK b2.

SELECTION-SCREEN END OF SCREEN 102.

* Define screen 103 as subscreen

SELECTION-SCREEN BEGIN OF SCREEN 103 AS SUBSCREEN.

SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-t03.

PARAMETERS tranid LIKE ztrans_master2-ztranid.

SELECTION-SCREEN END OF BLOCK b3.

SELECTION-SCREEN END OF SCREEN 103.

* Define tab screen

SELECTION-SCREEN BEGIN OF TABBED BLOCK t1 FOR 20 LINES.

SELECTION-SCREEN TAB (10) name1 USER-COMMAND ucomm1 DEFAULT SCREEN 101.

SELECTION-SCREEN TAB (20) name2 USER-COMMAND ucomm2 DEFAULT SCREEN 102.

SELECTION-SCREEN TAB (30) name3 USER-COMMAND ucomm3 DEFAULT SCREEN 103.

SELECTION-SCREEN END OF BLOCK t1.

INITIALIZATION.

name1 = text-n01. "CUSTOMER ID

name2 = text-n02. "ACCOUNT NUMBER

name3 = text-n03. "TRANSACTION ID

START-OF-SELECTION.

SKIP sy-lsind.

*-------------------------------------------------------------*

* To Display Customer id Tab Details

*-------------------------------------------------------------*

SELECT * FROM zcust_master2 INTO CORRESPONDING FIELDS OF TABLE wi_zcust_master2 WHERE zcustid IN custid.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_callback_program = sy-repid

i_structure_name = 'ZCUST_MASTER2'

i_grid_title = 'Customer Details'

TABLES

t_outtab = wi_zcust_master2

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.

*-------------------------------------------------------------*

* To Display Account Number Tab Details

*-------------------------------------------------------------*

SELECT * FROM zacc_master2 INTO CORRESPONDING FIELDS OF TABLE wi_zacc_master2 WHERE zaccno IN accno.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_callback_program = sy-repid

i_structure_name = 'ZACC_MASTER2'

i_grid_title = 'Account Details'

TABLES

t_outtab = wi_zacc_master2

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.

Interactive Report-With Logo

2010-01-13T06:44:00.000-08:00

*&---------------------------------------------------------------------*

*& Report YE1LB_REPORT_01

*&---------------------------------------------------------------------*

REPORT ye1lb_report_01

NO STANDARD PAGE HEADING

LINE-SIZE 175

LINE-COUNT 40(2)

********************************************************************

*Author: D.VINEETA

*Program ID: YE1LB_REPORT_01

*Program Desc: LIST OF BOOKS

*Date: 01/09/2009

********************************************************************

*Declaration of pools..

TYPE-POOLS : slis.

*Declaring Tables.

TABLES: ye1lb_books.

*Data Declaration.

DATA: gt_fieldcat TYPE slis_t_fieldcat_alv.

DATA: gt_fieldcat1 TYPE slis_t_fieldcat_alv.

DATA: gs_fieldcat TYPE slis_fieldcat_alv.

DATA: gt_sort TYPE TABLE OF slis_sortinfo_alv.

DATA: gc_sort TYPE slis_sortinfo_alv.

DATA: gt_layout TYPE slis_layout_alv.

DATA: gt_events TYPE slis_t_event,

gs_events TYPE slis_alv_event,

visbn TYPE string.

DATA: v_repid LIKE sy-repid .

DATA: it_listheader TYPE slis_t_listheader.

TYPES: BEGIN OF i_structure,

isbn TYPE ye1lb_books-isbn,

locator_id TYPE ye1lb_books-locator_id,

name TYPE ye1lb_books-name,

subject TYPE ye1lb_books-subject,

author TYPE ye1lb_books-author,

publisher TYPE ye1lb_books-publisher,

copies TYPE ye1lb_books-copies,

status TYPE ye1lb_books-status,

cost TYPE ye1lb_books-cost,

year_entry TYPE ye1lb_books-year_entry,

usage1 TYPE ye1lb_books-usage1,

flag(4) TYPE c,

END OF i_structure.

DATA: gt_outtab TYPE i_structure OCCURS 1 WITH HEADER LINE.

DATA: gt_outtab1 TYPE i_structure OCCURS 1 WITH HEADER LINE.

DATA: v_pos TYPE i.

DATA: v_fnam(50) TYPE c.

DATA: okcode TYPE sy-ucomm.

DATA: o_alv TYPE REF TO cl_salv_table.

*Logo...

* START OF DO NOT CHANGE***********************************

DATA: docking TYPE REF TO cl_gui_docking_container,

picture_control_1 TYPE REF TO cl_gui_picture,

url(256) TYPE c .

DATA: query_table LIKE w3query OCCURS 1 WITH HEADER LINE,

html_table LIKE w3html OCCURS 1,

return_code LIKE w3param-ret_code,

content_type LIKE w3param-cont_type,

content_length LIKE w3param-cont_len,

pic_data LIKE w3mime OCCURS 0,

pic_size TYPE i.

* END OF DO NOT CHANGE*************************************

*Logo...

INCLUDE .

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-002.

SELECTION-SCREEN SKIP 2.

SELECT-OPTIONS: s_isbn FOR ye1lb_books-isbn.

SELECTION-SCREEN SKIP 4.

SELECTION-SCREEN END OF BLOCK b1.

*Title displayed when the alv list is displayed

DATA: i_title_01 TYPE lvc_title VALUE 'List Of Books'.

DATA: i_title_02 TYPE lvc_title VALUE 'Details of the Book'.

************Events************************

*-------------------------------------------------------------

* Call F4 help for plant

*-------------------------------------------------------------

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_isbn-low.

PERFORM show_f4_help.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_isbn-high.

PERFORM show_f4_help.

AT SELECTION-SCREEN OUTPUT.

if sy-lsind <> 1.

PERFORM show_pic.

endif.

FORM show_f4_help.

DATA: BEGIN OF it_isbn OCCURS 0,

name type ye1lb_books-name,

isbn TYPE ye1lb_books-isbn,

END OF it_isbn.

DATA: t_return LIKE ddshretval OCCURS 0 WITH HEADER LINE.

SELECT * FROM ye1lb_books INTO CORRESPONDING FIELDS OF TABLE

it_isbn.

sort it_isbn by isbn.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

retfield = 'ISBN'

dynpprog = sy-cprog

dynpnr = sy-dynnr

dynprofield = 'S_ISBN'

value_org = 'S'

display = 'F'

TABLES

value_tab = it_isbn

return_tab = t_return.

ENDFORM. "show_f4_help

*&-------------------------------------------------------------------

*& Form show_pic

*&-------------------------------------------------------------------

FORM show_pic.

DATA: repid LIKE sy-repid.

repid = sy-repid.

CREATE OBJECT picture_control_1 EXPORTING parent = docking.

CHECK sy-subrc = 0.

CALL METHOD picture_control_1->set_3d_border

EXPORTING

border = 5.

CALL METHOD picture_control_1->set_display_mode

EXPORTING

display_mode = cl_gui_picture=>display_mode_stretch.

CALL METHOD picture_control_1->set_position

EXPORTING

height = 90

left = 720

top = 5

width = 220.

*CHANGE POSITION AND SIZE ABOVE***************************

IF url IS INITIAL.

REFRESH query_table.

query_table-name = '_OBJECT_ID'.

*CHANGE IMAGE NAME BELOW UPLOADED IN SWO0******************

query_table-value = 'ZLOGO'.

APPEND query_table.

CALL FUNCTION 'WWW_GET_MIME_OBJECT'

TABLES

query_string = query_table

html = html_table

mime = pic_data

CHANGING

return_code = return_code

content_type = content_type

content_length = content_length

EXCEPTIONS

object_not_found = 1

parameter_not_found = 2

OTHERS = 3.

IF sy-subrc <> 0.

* MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

* WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

CALL FUNCTION 'DP_CREATE_URL'

EXPORTING

type = 'image'

subtype = cndp_sap_tab_unknown

size = pic_size

lifetime = cndp_lifetime_transaction

TABLES

data = pic_data

CHANGING

url = url

EXCEPTIONS

OTHERS = 1.

ENDIF.

CALL METHOD picture_control_1->load_picture_from_url

EXPORTING

url = url.

*Syntax for URL

*url = 'file://D:\corp-gbanerji\pickut\cartoon_184.gif'.

*url = 'http://l.yimg.com/a/i/ww/beta/y3.gif'.

ENDFORM. "show_pic

**********************

FORM show_pic1.

DATA: repid LIKE sy-repid.

repid = sy-repid.

CREATE OBJECT picture_control_1 EXPORTING parent = docking.

CHECK sy-subrc = 0.

CALL METHOD picture_control_1->set_3d_border

EXPORTING

border = 5.

CALL METHOD picture_control_1->set_display_mode

EXPORTING

display_mode = cl_gui_picture=>display_mode_stretch.

CALL METHOD picture_control_1->set_position

EXPORTING

height = 90

left = 720

top = 5

width = 220.

*CHANGE POSITION AND SIZE ABOVE***************************

IF url IS INITIAL.

REFRESH query_table.

query_table-name = '_OBJECT_ID'.

*CHANGE IMAGE NAME BELOW UPLOADED IN SWO0******************

query_table-value = ''.

APPEND query_table.

CALL FUNCTION 'WWW_GET_MIME_OBJECT'

TABLES

query_string = query_table

html = html_table

mime = pic_data

CHANGING

return_code = return_code

content_type = content_type

content_length = content_length

EXCEPTIONS

object_not_found = 1

parameter_not_found = 2

OTHERS = 3.

IF sy-subrc <> 0.

* MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

* WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

CALL FUNCTION 'DP_CREATE_URL'

EXPORTING

type = 'image'

subtype = cndp_sap_tab_unknown

size = pic_size

lifetime = cndp_lifetime_transaction

TABLES

data = pic_data

CHANGING

url = url

EXCEPTIONS

OTHERS = 1.

ENDIF.

CALL METHOD picture_control_1->load_picture_from_url

EXPORTING

url = url.

*Syntax for URL

*url = 'file://D:\corp-gbanerji\pickut\cartoon_184.gif'.

*url = 'http://l.yimg.com/a/i/ww/beta/y3.gif'.

ENDFORM. "show_pic1

**************************

********************************************************************

* I N I T I A L I Z A T I O N *

********************************************************************

INITIALIZATION.

v_repid = sy-repid.

PERFORM field_cat_init USING gt_fieldcat[].

PERFORM event_call.

PERFORM populate_event.

********************************************************************

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

********************************************************************

AT SELECTION-SCREEN.

PERFORM validate.

v_pos = 1.

v_fnam = 'ISBN'.

PERFORM build_sort USING v_pos v_fnam.

********************************************************************

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

********************************************************************

START-OF-SELECTION.

PERFORM show_pic1.

PERFORM sel_data.

LOOP AT gt_outtab.

IF gt_outtab-usage1 = 'ACTIVE'.

gt_outtab-flag = '@08@'.

ELSE.

gt_outtab-flag = '@0A@'.

ENDIF.

MODIFY gt_outtab.

ENDLOOP.

PERFORM build_listheader USING it_listheader.

********************************************************************

* A T L I N E S E L E C T I O N

********************************************************************

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

********************************************************************

END-OF-SELECTION.

PERFORM display_data USING gt_layout.

*&---------------------------------------------------------------------*

*& Form field_cat_init

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* -->P_GT_FIELDCAT[] text

*----------------------------------------------------------------------*

FORM field_cat_init USING rt_fieldcat TYPE slis_t_fieldcat_alv.

DATA: ls_fieldcat TYPE slis_fieldcat_alv,

pos TYPE i VALUE 1.

CLEAR ls_fieldcat.

*Column 1

ls_fieldcat-col_pos = pos.

ls_fieldcat-fieldname = 'ISBN'.

ls_fieldcat-ref_fieldname = 'ISBN'.

ls_fieldcat-ref_tabname = 'YE1LB_BOOKS'.

ls_fieldcat-key = 'X'.

ls_fieldcat-outputlen = 15.

ls_fieldcat-seltext_m = 'ISBN No.'.

APPEND ls_fieldcat TO rt_fieldcat.

CLEAR ls_fieldcat.

pos = pos + 1.

*Column 2

ls_fieldcat-col_pos = pos.

ls_fieldcat-fieldname = 'NAME'.

ls_fieldcat-ref_fieldname = 'NAME'.

ls_fieldcat-ref_tabname = 'YE1LB_BOOKS'.

ls_fieldcat-outputlen = 75.

ls_fieldcat-seltext_m = 'Name of the Book'.

APPEND ls_fieldcat TO rt_fieldcat.

CLEAR ls_fieldcat.

pos = pos + 1.

*Column 3

ls_fieldcat-col_pos = pos.

ls_fieldcat-fieldname = 'STATUS'.

ls_fieldcat-ref_fieldname = 'STATUS'.

ls_fieldcat-ref_tabname = 'YE1LB_BOOKS'.

ls_fieldcat-key = 'X'.

ls_fieldcat-outputlen = 10.

ls_fieldcat-seltext_m = 'Staus'.

APPEND ls_fieldcat TO rt_fieldcat.

CLEAR ls_fieldcat.

pos = pos + 1.

* *Column 4

ls_fieldcat-col_pos = pos.

ls_fieldcat-fieldname = 'FLAG'.

ls_fieldcat-outputlen = 20.

ls_fieldcat-icon = 'X'.

ls_fieldcat-seltext_m = 'ACTIVE/INACTIVE'.

APPEND ls_fieldcat TO rt_fieldcat.

CLEAR ls_fieldcat.

pos = pos + 1.

ENDFORM. " field_cat_ini

*&---------------------------------------------------------------------*

*& Form SEL_DATA

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM sel_data.

SELECT * FROM ye1lb_books INTO CORRESPONDING FIELDS OF TABLE

gt_outtab WHERE isbn IN s_isbn.

ENDFORM. " SEL_DATA

*&---------------------------------------------------------------------*

*& Form display_data

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* -->P_GS_LAYOUT text

*----------------------------------------------------------------------*

FORM display_data USING p_gt_layout.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

* I_INTERFACE_CHECK = ' '

* I_BYPASSING_BUFFER = ' '

* I_BUFFER_ACTIVE = ' '

i_callback_program = sy-repid

* i_callback_pf_status_set = 'STANDARD'

i_callback_user_command = 'USER_COMMAND'

i_callback_top_of_page = 'TOP_OF_PAGE'

* I_CALLBACK_HTML_TOP_OF_PAGE = ' '

* I_CALLBACK_HTML_END_OF_LIST = ' '

i_structure_name = 'I_STRUCTURE'

* I_BACKGROUND_ID = ' '

i_grid_title = i_title_01

* I_GRID_SETTINGS =

* is_layout = gt_layout

it_fieldcat = gt_fieldcat[]

* IT_EXCLUDING =

* IT_SPECIAL_GROUPS =

it_sort = gt_sort

* IT_FILTER =

* IS_SEL_HIDE =

* I_DEFAULT = 'X'

i_save = 'A'

* IS_VARIANT =

it_events = gt_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

* I_HTML_HEIGHT_TOP = 0

* I_HTML_HEIGHT_END = 0

* IT_ALV_GRAPHICS =

* IT_HYPERLINK =

* IT_ADD_FIELDCAT =

* IT_EXCEPT_QINFO =

* IR_SALV_FULLSCREEN_ADAPTER =

* IMPORTING

* E_EXIT_CAUSED_BY_CALLER =

* ES_EXIT_CAUSED_BY_USER =

TABLES

t_outtab = gt_outtab

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. " display_dat

*&---------------------------------------------------------------------*

*& Form validate

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM validate .

SELECT SINGLE isbn FROM ye1lb_books INTO CORRESPONDING FIELDS OF

gt_outtab

WHERE isbn IN s_isbn.

IF sy-subrc <> 0.

MESSAGE e011(ye1lib).

ENDIF.

ENDFORM. " valida

*&---------------------------------------------------------------------*

*& Form build_sort

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM build_sort USING v_pos v_fnam.

gc_sort-spos = v_pos.

gc_sort-fieldname = v_fnam.

gc_sort-up = 'X'.

APPEND gc_sort TO gt_sort.

ENDFORM. " build_sort

*&---------------------------------------------------------------------*

*& Form STATUS

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

FORM status USING rt_extab TYPE slis_t_extab.

SET PF-STATUS 'YE1LIB'.

ENDFORM. "STATUS

*&---------------------------------------------------------------------*

*& Form EVENT_CALL

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM event_call .

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

i_list_type = 0

IMPORTING

et_events = gt_events

* EXCEPTIONS

* LIST_TYPE_WRONG = 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. " EVENT_CALL

*&---------------------------------------------------------------------*

*& Form POPULATE_EVENT

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM populate_event .

READ TABLE gt_events INTO gs_events WITH KEY name = 'TOP_OF_PAGE'.

IF sy-subrc EQ 0.

gs_events-form = 'TOP_OF_PAGE'.

MODIFY gt_events FROM gs_events TRANSPORTING form WHERE name =

gs_events-form.

ENDIF.

READ TABLE gt_events INTO gs_events WITH KEY name = 'USER_COMMAND'.

IF sy-subrc EQ 0.

gs_events-form = 'USER_COMMAND'.

MODIFY gt_events FROM gs_events TRANSPORTING form WHERE name =

gs_events-name.

ENDIF.

ENDFORM. " POPULATE_EVENT

*&---------------------------------------------------------------------*

*& Form BUILD_LISTHEADER

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* -->P_IT_LISTHEADER text

*----------------------------------------------------------------------*

FORM build_listheader USING p_it_listheader.

DATA: hline1 TYPE slis_listheader.

hline1-typ = 'H'.

hline1-info = 'CHECKING PGM'.

ENDFORM. " BUILD_LISTHEADER

*&--------------------------------------------------------------------*

*& Form TOP_OF_PAGE

*&--------------------------------------------------------------------*

* text

*---------------------------------------------------------------------*

FORM top_of_page.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

it_list_commentary = it_listheader

i_logo = 'LOGOFF'

* I_END_OF_LIST_GRID =

ENDFORM. "TOP_OF_PAGE

*&--------------------------------------------------------------------*

*& Form USER_COMMAND

*&--------------------------------------------------------------------*

* text

*---------------------------------------------------------------------*

* -->R_UCOMM text

* -->, text

* -->RS_SLEFIELDtext

*---------------------------------------------------------------------*

FORM user_command USING r_ucomm LIKE sy-ucomm

rs_selfield TYPE slis_selfield.

CASE r_ucomm.

WHEN '&IC1'.

READ TABLE gt_outtab INTO gt_outtab INDEX rs_selfield-tabindex.

clear gt_fieldcat1.

PERFORM build_fieldcatlog_books USING gt_fieldcat1.

PERFORM event_call_books.

PERFORM populate_event_books.

PERFORM data_retrieval_books USING visbn.

PERFORM build_listheader_books USING it_listheader.

PERFORM display_alv_books.

ENDCASE.

ENDFORM. "user_command

*&---------------------------------------------------------------------*

*& Form BUILD_FIELDCATLOG_books

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM build_fieldcatlog_books USING rt_fieldcat TYPE slis_t_fieldcat_alv.

DATA: ls_fieldcat TYPE slis_fieldcat_alv,

pos1 TYPE i VALUE 1.

CLEAR ls_fieldcat.

*Column 1

ls_fieldcat-col_pos = pos1.

ls_fieldcat-fieldname = 'LOCATOR_ID'.

ls_fieldcat-ref_fieldname = 'LOCATOR_ID'.

ls_fieldcat-ref_tabname = 'YE1LB_BOOKS'.

* ls_fieldcat-key = 'X'.

ls_fieldcat-outputlen = 15.

ls_fieldcat-seltext_m = 'Location'.

APPEND ls_fieldcat TO rt_fieldcat.

CLEAR ls_fieldcat.

pos1 = pos1 + 1.

*Column 2

ls_fieldcat-col_pos = pos1.

ls_fieldcat-fieldname = 'SUBJECT'.

ls_fieldcat-ref_fieldname = 'SUBJECT'.

ls_fieldcat-ref_tabname = 'YE1LB_BOOKS'.

* ls_fieldcat-key = 'X'.

ls_fieldcat-outputlen = 15.

ls_fieldcat-seltext_m = 'Subject'.

APPEND ls_fieldcat TO rt_fieldcat.

CLEAR ls_fieldcat.

pos1 = pos1 + 1.

*Column 3

ls_fieldcat-col_pos = pos1.

ls_fieldcat-fieldname = 'AUTHOR'.

ls_fieldcat-ref_fieldname = 'AUTHOR'.

ls_fieldcat-ref_tabname = 'YE1LB_BOOKS'.

* ls_fieldcat-key = 'X'.

ls_fieldcat-outputlen = 30.

ls_fieldcat-seltext_m = 'Author'.

APPEND ls_fieldcat TO rt_fieldcat.

CLEAR ls_fieldcat.

pos1 = pos1 + 1.

*Column 4

ls_fieldcat-col_pos = pos1.

ls_fieldcat-fieldname = 'PUBLISHER'.

ls_fieldcat-ref_fieldname = 'PUBLISHER'.

ls_fieldcat-ref_tabname = 'YE1LB_BOOKS'.

* ls_fieldcat-key = 'X'.

ls_fieldcat-outputlen = 20.

ls_fieldcat-seltext_m = 'Publisher'.

APPEND ls_fieldcat TO rt_fieldcat.

CLEAR ls_fieldcat.

pos1 = pos1 + 1.

*Column 5

ls_fieldcat-col_pos = pos1.

ls_fieldcat-fieldname = 'COPIES'.

ls_fieldcat-ref_fieldname = 'COPIES'.

ls_fieldcat-ref_tabname = 'YE1LB_BOOKS'.

* ls_fieldcat-key = 'X'.

ls_fieldcat-outputlen = 10.

ls_fieldcat-seltext_m = 'Copies'.

APPEND ls_fieldcat TO rt_fieldcat.

CLEAR ls_fieldcat.

pos1 = pos1 + 1.

*Column 6

ls_fieldcat-col_pos = pos1.

ls_fieldcat-fieldname = 'COST'.

ls_fieldcat-ref_fieldname = 'COST'.

ls_fieldcat-ref_tabname = 'YE1LB_BOOKS'.

* ls_fieldcat-key = 'X'.

ls_fieldcat-outputlen = 10.

ls_fieldcat-seltext_m = 'Cost'.

APPEND ls_fieldcat TO rt_fieldcat.

CLEAR ls_fieldcat.

pos1 = pos1 + 1.

*Column 7

ls_fieldcat-col_pos = pos1.

ls_fieldcat-fieldname = 'YEAR_ENTRY'.

ls_fieldcat-ref_fieldname = 'YEAR_ENTRY'.

ls_fieldcat-ref_tabname = 'YE1LB_BOOKS'.

* ls_fieldcat-key = 'X'.

ls_fieldcat-outputlen = 15.

ls_fieldcat-seltext_m = 'Entry Date'.

APPEND ls_fieldcat TO rt_fieldcat.

CLEAR ls_fieldcat.

pos1 = pos1 + 1.

ENDFORM. " BUILD_FIELDCATLOG_books

*&---------------------------------------------------------------------*

*& Form EVENT_CALL_BOOKS

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM event_call_books .

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

i_list_type = 0

IMPORTING

et_events = gt_events

* EXCEPTIONS

* LIST_TYPE_WRONG = 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. " EVENT_CALL_BOOKS

*&---------------------------------------------------------------------*

*& Form POPULATE_EVENT_BOOKS

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM populate_event_books .

READ TABLE gt_events INTO gs_events WITH KEY name = 'TOP_OF_PAGE'.

IF sy-subrc EQ 0.

gs_events-form = 'TOP_OF_PAGE'.

MODIFY gt_events FROM gs_events TRANSPORTING form WHERE name =

gs_events-form.

visbn = gt_outtab-isbn.

ENDIF.

ENDFORM. " POPULATE_EVENT_BOOKS

*&--------------------------------------------------------------------*

*& Form TOP_OF_PAGE

*&--------------------------------------------------------------------*

* text

*---------------------------------------------------------------------*

FORM f_top_of_page.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

it_list_commentary = it_listheader

i_logo = 'LOGOF'

* I_END_OF_LIST_GRID =

ENDFORM. "TOP_OF_PAGE

*&--------------------------------------------------------------------*

*& Form USER_COMMAND

*&--------------------------------------------------------------------*

* text

*---------------------------------------------------------------------*

* -->R_UCOMM text

* -->, text

* -->RS_SLEFIELDtext

*---------------------------------------------------------------------*

*retreiving values

FORM data_retrieval_books USING visbn.

SELECT * FROM ye1lb_books INTO CORRESPONDING FIELDS OF TABLE gt_outtab1

WHERE isbn = visbn.

ENDFORM. "DATA_RETRIEVAL_BOOKS

*&---------------------------------------------------------------------*

*& Form BUILD_LISTHEADER_BOOKS

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* -->I_LISTHEADER text

*----------------------------------------------------------------------*

FORM build_listheader_books USING i_listheader TYPE slis_t_listheader.

DATA: hline1 TYPE slis_listheader.

hline1-typ = 'H'.

hline1-info = 'CHECKING PGM'.

ENDFORM. "BUILD_LISTHEADER_BOOKS

*&---------------------------------------------------------------------*

*& Form DISPLAY_ALV_BOOKS

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

FORM display_alv_books.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

* I_INTERFACE_CHECK = ' '

* I_BYPASSING_BUFFER = ' '

* I_BUFFER_ACTIVE = ' '

i_callback_program = v_repid

* I_CALLBACK_PF_STATUS_SET = ' '

* I_CALLBACK_USER_COMMAND = 'F_USER_COMMAND'

i_callback_top_of_page = 'TOP_OF_PAGE'

* I_CALLBACK_HTML_TOP_OF_PAGE = ' '

* I_CALLBACK_HTML_END_OF_LIST = ' '

* I_STRUCTURE_NAME =

* I_BACKGROUND_ID = ' '

i_grid_title = i_title_02

* I_GRID_SETTINGS =

* IS_LAYOUT =

it_fieldcat = gt_fieldcat1[]

* IT_EXCLUDING =

* IT_SPECIAL_GROUPS =

* IT_SORT =

* IT_FILTER =

* IS_SEL_HIDE =

* I_DEFAULT =

i_save = 'A'

* IS_VARIANT =

it_events = gt_events

TABLES

t_outtab = gt_outtab1

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. "DISPLAY_ALV_BOOK

Wiki ALV Report

2010-01-13T06:43:00.001-08:00

/* ABAP Interactive ALV Program*/ *&---------------------------------------------------------------------*

*& Report ZZ_22038_22098_002 *

*& *

*&---------------------------------------------------------------------*

*& This is an Interactive ALV report, where on line slection we can see

*& the secondry list

*& *

*&---------------------------------------------------------------------*

REPORT ZZ_22038_22098_002 NO STANDARD PAGE HEADING LINE-SIZE 650

MESSAGE-ID ZZ_9838 .

TYPE-POOLS: SLIS.

*type declaration for values from ekko

TYPES: BEGIN OF I_EKKO,

EBELN LIKE EKKO-EBELN,

AEDAT LIKE EKKO-AEDAT,

BUKRS LIKE EKKO-BUKRS,

BSART LIKE EKKO-BSART,

LIFNR LIKE EKKO-LIFNR,

END OF I_EKKO.

DATA: IT_EKKO TYPE STANDARD TABLE OF I_EKKO INITIAL SIZE 0,

WA_EKKO TYPE I_EKKO.

*type declaration for values from ekpo

TYPES: BEGIN OF I_EKPO,

EBELN LIKE EKPO-EBELN,

EBELP LIKE EKPO-EBELP,

MATNR LIKE EKPO-MATNR,

MENGE LIKE EKPO-MENGE,

MEINS LIKE EKPO-MEINS,

NETPR LIKE EKPO-NETPR,

END OF I_EKPO.

DATA: IT_EKPO TYPE STANDARD TABLE OF I_EKPO INITIAL SIZE 0,

WA_EKPO TYPE I_EKPO .

*variable for Report ID

DATA: V_REPID LIKE SY-REPID .

*declaration for fieldcatalog

DATA: I_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,

WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV.

DATA: IT_LISTHEADER TYPE SLIS_T_LISTHEADER.

* declaration for events table where user comand or set PF status will

* be defined

DATA: V_EVENTS TYPE SLIS_T_EVENT,

WA_EVENT TYPE SLIS_ALV_EVENT.

* declartion for layout

DATA: ALV_LAYOUT TYPE SLIS_LAYOUT_ALV.

* declaration for variant(type of display we want)

DATA: I_VARIANT TYPE DISVARIANT,

I_VARIANT1 TYPE DISVARIANT,

I_SAVE(1) TYPE C.

*PARAMETERS : p_var TYPE disvariant-variant.

*Title displayed when the alv list is displayed

DATA: I_TITLE_EKKO TYPE LVC_TITLE VALUE 'FIRST LIST DISPLAYED'.

DATA: I_TITLE_EKPO TYPE LVC_TITLE VALUE 'SECONDRY LIST DISPLAYED'.

INITIALIZATION.

V_REPID = SY-REPID.

PERFORM BUILD_FIELDCATLOG.

PERFORM EVENT_CALL.

PERFORM POPULATE_EVENT.

START-OF-SELECTION.

PERFORM DATA_RETRIEVAL.

PERFORM BUILD_LISTHEADER USING IT_LISTHEADER.

PERFORM DISPLAY_ALV_REPORT.

*&--------------------------------------------------------------------*

*& Form BUILD_FIELDCATLOG

*&--------------------------------------------------------------------*

* Fieldcatalog has all the field details from ekko

*---------------------------------------------------------------------*

FORM BUILD_FIELDCATLOG.

WA_FIELDCAT-TABNAME = 'IT_EKKO'.

WA_FIELDCAT-FIELDNAME = 'EBELN'.

WA_FIELDCAT-SELTEXT_M = 'PO NO.'.

APPEND WA_FIELDCAT TO I_FIELDCAT.

CLEAR WA_FIELDCAT.

WA_FIELDCAT-TABNAME = 'IT_EKKO'.

WA_FIELDCAT-FIELDNAME = 'AEDAT'.

WA_FIELDCAT-SELTEXT_M = 'DATE.'.

APPEND WA_FIELDCAT TO I_FIELDCAT.

CLEAR WA_FIELDCAT.

WA_FIELDCAT-TABNAME = 'IT_EKKO'.

WA_FIELDCAT-FIELDNAME = 'BUKRS'.

WA_FIELDCAT-SELTEXT_M = 'COMPANY CODE'.

APPEND WA_FIELDCAT TO I_FIELDCAT.

CLEAR WA_FIELDCAT.

WA_FIELDCAT-TABNAME = 'IT_EKKO'.

WA_FIELDCAT-FIELDNAME = 'BUKRS'.

WA_FIELDCAT-SELTEXT_M = 'DOCMENT TYPE'.

APPEND WA_FIELDCAT TO I_FIELDCAT.

CLEAR WA_FIELDCAT.

WA_FIELDCAT-TABNAME = 'IT_EKKO'.

WA_FIELDCAT-FIELDNAME = 'LIFNR'.

WA_FIELDCAT-NO_OUT = 'X'.

WA_FIELDCAT-SELTEXT_M = 'VENDOR CODE'.

APPEND WA_FIELDCAT TO I_FIELDCAT.

CLEAR WA_FIELDCAT.

ENDFORM. "BUILD_FIELDCATLOG

*&--------------------------------------------------------------------*

*& Form EVENT_CALL

*&--------------------------------------------------------------------*

* we get all events - TOP OF PAGE or USER COMMAND in table v_events

*---------------------------------------------------------------------*

FORM EVENT_CALL.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

I_LIST_TYPE = 0

IMPORTING

ET_EVENTS = V_EVENTS

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. "EVENT_CALL

*&--------------------------------------------------------------------*

*& Form POPULATE_EVENT

*&--------------------------------------------------------------------*

* Events populated for TOP OF PAGE & USER COMAND

*---------------------------------------------------------------------*

FORM POPULATE_EVENT.

READ TABLE V_EVENTS INTO WA_EVENT WITH KEY NAME = 'TOP_OF_PAGE'.

IF SY-SUBRC EQ 0.

WA_EVENT-FORM = 'TOP_OF_PAGE'.

MODIFY V_EVENTS FROM WA_EVENT TRANSPORTING FORM WHERE NAME =

WA_EVENT-FORM.

ENDIF.

READ TABLE V_EVENTS INTO WA_EVENT WITH KEY NAME = 'USER_COMMAND'.

IF SY-SUBRC EQ 0.

WA_EVENT-FORM = 'USER_COMMAND'.

MODIFY V_EVENTS FROM WA_EVENT TRANSPORTING FORM WHERE NAME =

WA_EVENT-NAME.

ENDIF.

ENDFORM. "POPULATE_EVENT

*&--------------------------------------------------------------------*

*& Form data_retrieval

*&--------------------------------------------------------------------*

* retreiving values from the database table ekko

*---------------------------------------------------------------------*

FORM DATA_RETRIEVAL.

SELECT EBELN AEDAT BUKRS BSART LIFNR FROM EKKO INTO TABLE IT_EKKO.

ENDFORM. "data_retrieval

*&--------------------------------------------------------------------*

*& Form bUild_listheader

*&--------------------------------------------------------------------*

* text

*---------------------------------------------------------------------*

* -->I_LISTHEADEtext

*---------------------------------------------------------------------*

FORM BUILD_LISTHEADER USING I_LISTHEADER TYPE SLIS_T_LISTHEADER.

DATA HLINE TYPE SLIS_LISTHEADER.

HLINE-INFO = 'this is my first alv pgm'.

HLINE-TYP = 'H'.

ENDFORM. "build_listheader

*&--------------------------------------------------------------------*

*& Form display_alv_report

*&--------------------------------------------------------------------*

* text

*---------------------------------------------------------------------*

FORM DISPLAY_ALV_REPORT.

V_REPID = SY-REPID.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = V_REPID

I_CALLBACK_USER_COMMAND = 'USER_COMMAND'

I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'

I_GRID_TITLE = I_TITLE_EKKO

IT_FIELDCAT = I_FIELDCAT[]

I_SAVE = 'A'

IT_EVENTS = V_EVENTS

TABLES

T_OUTTAB = IT_EKKO

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. "display_alv_report

*&--------------------------------------------------------------------*

*& Form TOP_OF_PAGE

*&--------------------------------------------------------------------*

* text

*---------------------------------------------------------------------*

FORM TOP_OF_PAGE.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = IT_LISTHEADER

ENDFORM. "TOP_OF_PAGE

*&--------------------------------------------------------------------*

*& Form USER_COMMAND

*&--------------------------------------------------------------------*

* text

*---------------------------------------------------------------------*

* -->R_UCOMM text

* -->, text

* -->RS_SLEFIELDtext

*---------------------------------------------------------------------*

FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM

RS_SELFIELD TYPE SLIS_SELFIELD.

CASE R_UCOMM.

WHEN '&IC1'.

READ TABLE IT_EKKO INTO WA_EKKO INDEX RS_SELFIELD-TABINDEX.

PERFORM BUILD_FIELDCATLOG_EKPO.

PERFORM EVENT_CALL_EKPO.

PERFORM POPULATE_EVENT_EKPO.

PERFORM DATA_RETRIEVAL_EKPO.

PERFORM BUILD_LISTHEADER_EKPO USING IT_LISTHEADER.

PERFORM DISPLAY_ALV_EKPO.

ENDCASE.

ENDFORM. "user_command

*&--------------------------------------------------------------------*

*& Form BUILD_FIELDCATLOG_EKPO

*&--------------------------------------------------------------------*

* text

*---------------------------------------------------------------------*

FORM BUILD_FIELDCATLOG_EKPO.

WA_FIELDCAT-TABNAME = 'IT_EKPO'.

WA_FIELDCAT-FIELDNAME = 'EBELN'.

WA_FIELDCAT-SELTEXT_M = 'PO NO.'.

APPEND WA_FIELDCAT TO I_FIELDCAT.

CLEAR WA_FIELDCAT.

WA_FIELDCAT-TABNAME = 'IT_EKPO'.

WA_FIELDCAT-FIELDNAME = 'EBELP'.

WA_FIELDCAT-SELTEXT_M = 'LINE NO'.

APPEND WA_FIELDCAT TO I_FIELDCAT.

CLEAR WA_FIELDCAT.

WA_FIELDCAT-TABNAME = 'I_EKPO'.

WA_FIELDCAT-FIELDNAME = 'MATNR'.

WA_FIELDCAT-SELTEXT_M = 'MATERIAL NO.'.

APPEND WA_FIELDCAT TO I_FIELDCAT.

CLEAR WA_FIELDCAT.

WA_FIELDCAT-TABNAME = 'I_EKPO'.

WA_FIELDCAT-FIELDNAME = 'MENGE'.

WA_FIELDCAT-SELTEXT_M = 'QUANTITY'.

APPEND WA_FIELDCAT TO I_FIELDCAT.

CLEAR WA_FIELDCAT.

WA_FIELDCAT-TABNAME = 'I_EKPO'.

WA_FIELDCAT-FIELDNAME = 'MEINS'.

WA_FIELDCAT-SELTEXT_M = 'UOM'.

APPEND WA_FIELDCAT TO I_FIELDCAT.

CLEAR WA_FIELDCAT.

WA_FIELDCAT-TABNAME = 'I_EKPO'.

WA_FIELDCAT-FIELDNAME = 'NETPR'.

WA_FIELDCAT-SELTEXT_M = 'PRICE'.

APPEND WA_FIELDCAT TO I_FIELDCAT.

CLEAR WA_FIELDCAT.

ENDFORM. "BUILD_FIELDCATLOG_EKPO

*&--------------------------------------------------------------------*

*& Form event_call_ekpo

*&--------------------------------------------------------------------*

* we get all events - TOP OF PAGE or USER COMMAND in table v_events

*---------------------------------------------------------------------*

FORM EVENT_CALL_EKPO.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

I_LIST_TYPE = 0

IMPORTING

ET_EVENTS = V_EVENTS

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. "event_call_ekpo

*&--------------------------------------------------------------------*

*& Form POPULATE_EVENT

*&--------------------------------------------------------------------*

* Events populated for TOP OF PAGE & USER COMAND

*---------------------------------------------------------------------*

FORM POPULATE_EVENT_EKPO.

READ TABLE V_EVENTS INTO WA_EVENT WITH KEY NAME = 'TOP_OF_PAGE'.

IF SY-SUBRC EQ 0.

WA_EVENT-FORM = 'TOP_OF_PAGE'.

MODIFY V_EVENTS FROM WA_EVENT TRANSPORTING FORM WHERE NAME =

WA_EVENT-FORM.

ENDIF.

ENDFORM. "POPULATE_EVENT

*&--------------------------------------------------------------------*

*& Form TOP_OF_PAGE

*&--------------------------------------------------------------------*

* text

*---------------------------------------------------------------------*

FORM F_TOP_OF_PAGE.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = IT_LISTHEADER

ENDFORM. "TOP_OF_PAGE

*&--------------------------------------------------------------------*

*& Form USER_COMMAND

*&--------------------------------------------------------------------*

* text

*---------------------------------------------------------------------*

* -->R_UCOMM text

* -->, text

* -->RS_SLEFIELDtext

*---------------------------------------------------------------------*

*retreiving values from the database table ekko

FORM DATA_RETRIEVAL_EKPO.

SELECT EBELN EBELP MATNR MENGE MEINS NETPR FROM EKPO INTO TABLE IT_EKPO.

ENDFORM.

FORM BUILD_LISTHEADER_EKPO USING I_LISTHEADER TYPE SLIS_T_LISTHEADER.

DATA: HLINE1 TYPE SLIS_LISTHEADER.

HLINE1-TYP = 'H'.

HLINE1-INFO = 'CHECKING PGM'.

ENDFORM.

FORM DISPLAY_ALV_EKPO.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = V_REPID

I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'

I_GRID_TITLE = I_TITLE_EKPO

IT_FIELDCAT = I_FIELDCAT[]

I_SAVE = 'A'

IT_EVENTS = V_EVENTS

TABLES

T_OUTTAB = IT_EKPO

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.

Drill Down Report

2010-01-13T06:42:00.001-08:00

Example Code For Drill Down Report

REPORT zmm_rept_purchorderkkb01 LINE-SIZE 80

LINE-COUNT 65(3)

MESSAGE-ID z_msg_class

NO STANDARD PAGE HEADING.

*------------------DECLARING THE STANDARD TABLES---------------------*

TABLES : ekko, "PURCHASE ORDER : HEADER

ekpo. "PURCHASE ORDER : ITEM

*------------------DECLARING THE INTERNAL TABLE----------------------*

DATA : BEGIN OF it_ekko OCCURS 2,

ebeln LIKE ekko-ebeln, "PURCHASE ORDER NUMBER

bukrs LIKE ekko-bukrs, "COMPANY CODE

bsart LIKE ekko-bsart, "PURCHASING DOCUMENT TYPE

lifnr LIKE ekko-lifnr, "VENDOR

spras LIKE ekko-spras, "LANGUAGE KEY

zterm LIKE ekko-zterm, "PAYMENT TERMS KEY

end of it_ekko.

DATA : BEGIN OF it_ekpo OCCURS 2,

ebeln LIKE ekpo-ebeln, "PURCHASE ORDER NUMBER

ebelp LIKE ekpo-ebelp, "PURCHASE ORDER NUMBER

werks LIKE ekpo-werks, "PLANT

matnr LIKE ekpo-matnr, "MATERIAL NUMBER

matkl LIKE ekpo-matkl, "MATERIAL GROUP

END OF it_ekpo.

DATA: it_ebeln LIKE ekko-ebeln OCCURS 0 WITH HEADER LINE.

*DATA: it_ebeln_high LIKE ekko-ebeln OCCURS 0 WITH HEADER LINE.

DATA: p_ebeln TYPE i.

*------------------Declaring the selection screen--------------------*

SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.

SELECT-OPTIONS : s_ebeln FOR ekko-ebeln.

PARAMETER : p_limit TYPE i.

SELECTION-SCREEN END OF BLOCK blk1.

*INCLUDE z_incl_purorderkkb01_sub_f01.

*--------------------------------------------------------------------*

* Validation for number of records to be printed *

*--------------------------------------------------------------------*

*AT SELECTION-SCREEN ON p_limit.

* IF p_limit IS INITIAL.

* MESSAGE e011.

* ENDIF.

* IF p_limit GT sy-linct.

* MESSAGE e010.

* ENDIF.

*----------------------------------------------------------------------*

* Search help for purchase document number (s_ebeln-low) *

*----------------------------------------------------------------------*

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_ebeln-low.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = s_ebeln-low

IMPORTING

output = s_ebeln-low.

perform form_search_help.

IF sy-subrc <> 0.

CASE sy-subrc.

WHEN 2.

LEAVE TO SCREEN 1000.

ENDCASE.

ELSE.

LOOP AT it_ebeln.

IF sy-tabix = p_ebeln.

s_ebeln-low = it_ebeln.

EXIT.

ENDIF.

ENDLOOP.

ENDIF.

*----------------------------------------------------------------------*

* Search help for purchase document number (s_ebeln-high) *

*----------------------------------------------------------------------*

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_ebeln-high.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = s_ebeln-high

IMPORTING

output = s_ebeln-high.

perform form_search_help.

IF sy-subrc <> 0.

CASE sy-subrc.

WHEN 2.

LEAVE TO SCREEN 1000.

ENDCASE.

ELSE.

LOOP AT it_ebeln.

IF sy-tabix = p_ebeln.

s_ebeln-high = it_ebeln.

EXIT.

ENDIF.

ENDLOOP.

ENDIF.

*----------------------------------------------------------------------*

* Start-of-selection event *

*----------------------------------------------------------------------*

START-OF-SELECTION.

*----------------------To attach a user interface----------------------*

SET PF-STATUS '0010'.

*---------To fetch the data for the basic list-------------------------*

SELECT ebeln "PURCHASE ORDER NUMBER

bukrs "COMPANY CODE

bsart "PURCHASING DOCUMENT TYPE

lifnr "VENDOR

spras "LANGUAGE KEY

zterm "PAYMENT TERMS KEY

up to p_limit rows

into table it_ekko from ekko

where ebeln in s_ebeln.

REFRESH it_ekpo.

*---------To fetch the data for the secondary list-----------------------*

if it_ekpo is initial.

SELECT ebeln "PURCHASE ORDER NUMBER

ebelp "PURCHASING DOCUMENT TYPE

werks "PLANT

matnr "MATERIAL NUMBER

matkl "MATERIAL GROUP

FROM ekpo INTO TABLE it_ekpo for all entries in it_ekko

WHERE ebeln EQ it_ekko-ebeln.

endif.

*----------------------------------------------------------------------*

* End-of-selection event *

*----------------------------------------------------------------------*

END-OF-SELECTION.

*---------To display the data for the basic list-----------------------*

format color 4 intensified off.

LOOP AT it_ekko.

WRITE :/ sy-vline, it_ekko-ebeln UNDER text-002, 18 sy-vline,

"PURCHASE ORDER NUMBER

it_ekko-bukrs UNDER text-003, 27 sy-vline,

"COMPANY CODE

it_ekko-bsart UNDER text-004, 38 sy-vline,

"PURCHASING DOCUMENT TYPE

it_ekko-lifnr UNDER text-005, 50 sy-vline,

"VENDOR

it_ekko-spras UNDER text-006, 62 sy-vline,

"LANGUAGE KEY

it_ekko-zterm UNDER text-007, 80 sy-vline.

"PAYMENT TERMS KEY

hide : it_ekko-ebeln.

ENDLOOP.

WRITE :/ sy-uline(80).

*----------------------------------------------------------------------*

* To generate the detailed lists *

*----------------------------------------------------------------------*

AT LINE-SELECTION.

CASE sy-lsind.

WHEN 1.

SET PF-STATUS '0011'.

*---------To display the data for the secondary list-----------------------*

WINDOW STARTING AT 10 10

ENDING AT 90 30.

format color 5 intensified off.

LOOP AT it_ekpo where ebeln = it_ekko-ebeln .

WRITE :/ sy-vline, it_ekpo-ebeln UNDER text-002, 15 sy-vline,

"PURCHASE ORDER NUMBER

it_ekpo-ebelp UNDER text-008, 30 sy-vline,

"PO ITEM NUMBER

it_ekpo-werks UNDER text-009, 45 sy-vline,

"PLANT

it_ekpo-matnr UNDER text-010, 60 sy-vline,

"MATERIAL NUMBER

it_ekpo-matkl UNDER text-011, 80 sy-vline.

"MATERIAL GROUP

ENDLOOP.

WRITE :/ sy-uline(80).

ENDCASE.

CASE sy-ucomm.

WHEN 'EXIT' OR 'CANC' OR 'BACK'.

LEAVE TO SCREEN 0.

ENDCASE.

*----------------------------------------------------------------------*

* At user-command event *

*----------------------------------------------------------------------*

AT USER-COMMAND.

CASE sy-ucomm.

WHEN 'SELE' OR 'LIST1'.

IF sy-lsind = 1.

SET PF-STATUS '0011'.

*---------To display the data for the secondary list-----------------------*

WINDOW STARTING AT 10 10

ENDING AT 90 30.

format color 5 intensified off.

LOOP AT it_ekpo where ebeln = it_ekko-ebeln .

WRITE :/ sy-vline, it_ekpo-ebeln UNDER text-002, 15 sy-vline, "PURCHASE ORDER NUMBER

it_ekpo-ebelp UNDER text-008, 30 sy-vline, "PO ITEM NUMBER

it_ekpo-werks UNDER text-009, 45 sy-vline, "PLANT

it_ekpo-matnr UNDER text-010, 60 sy-vline, "MATERIAL NUMBER

it_ekpo-matkl UNDER text-011, 80 sy-vline. "MATERIAL GROUP

ENDLOOP.

WRITE :/ sy-uline(80).

endif.

ENDCASE.

CASE sy-ucomm.

WHEN 'EXIT' OR 'CANC' OR 'BACK'.

LEAVE TO SCREEN 0.

ENDCASE.

*----------------------------------------------------------------------*

* Top-of-page for basic list *

*----------------------------------------------------------------------*

TOP-OF-PAGE.

format color 3 intensified off.

WRITE :/ sy-uline(80).

WRITE :/ sy-vline,

03 sy-repid,

60 text-015,

sy-uname,

80 sy-vline.

WRITE :/ sy-vline, 03 sy-datum,

35 text-012,

60 text-014,

sy-pagno,

80 sy-vline.

WRITE :/ sy-uline(80).

WRITE :/ sy-vline, text-002, 18 sy-vline, "PURCHASE ORDER NUMBER

text-003, 27 sy-vline, "COMPANY CODE

text-004, 38 sy-vline, "PURCHASING DOCUMENT TYPE

text-005, 50 sy-vline, "VENDOR

text-006, 62 sy-vline, "LANGUAGE KEY

text-007, 80 sy-vline. "PAYMENT TERMS KEY

WRITE :/ sy-uline(80).

*----------------------------------------------------------------------*

* Top-of-page for secondary list *

*----------------------------------------------------------------------*

TOP-OF-PAGE DURING LINE-SELECTION.

format color 2 intensified off.

WINDOW STARTING AT 10 10

ENDING AT 90 30.

WRITE :/ sy-uline(80).

WRITE :/ sy-vline,

03 sy-repid,

60 text-015,

sy-uname,

80 sy-vline.

WRITE :/ sy-vline,

03 sy-datum,

35 text-013,

60 text-014,

sy-pagno,

80 sy-vline.

WRITE :/ sy-uline(80).

WRITE :/ sy-vline, text-014, 15 sy-vline, "PURCHASE ORDER NUMBER

text-008, 30 sy-vline, "PO ITEM NUMBER

text-009, 45 sy-vline, "PLANT

text-010, 60 sy-vline, "MATERIAL NUMBER

text-011, 80 sy-vline. "MATERIAL GROUP

WRITE :/ sy-uline(80).

*----------------------------------------------------------------------*

* End-of-page event *

*----------------------------------------------------------------------*

END-OF-PAGE.

WRITE :/ sy-vline,

03 text-016,

p_limit,

60 text-014,

sy-pagno,

80 sy-vline.

write:/ sy-uline(80).

INCLUDE Z_INCLUDE_PURCHORDERKKB01.

form form_search_help .

REFRESH it_ebeln.

CLEAR it_ebeln.

CLEAR P_ebeln.

SELECT ebeln FROM ekko INTO TABLE it_ebeln.

CALL FUNCTION 'POPUP_WITH_TABLE_DISPLAY'

EXPORTING

endpos_col = 21

endpos_row = 35

startpos_col = 12

startpos_row = 1

titletext = text-012

IMPORTING

choise = P_ebeln

TABLES

valuetab = it_ebeln

EXCEPTIONS

break_off = 1

OTHERS = 2.

Tips By : Kavuri

Interactive Report

2010-01-13T06:41:00.002-08:00

*&---------------------------------------------------------------------*

*& Report ZZ_22038_22098_002 *

*& *

*&---------------------------------------------------------------------*

*& This is an Interactive ALV report, where on line slection we can see

*& the secondry list

*& *

*&---------------------------------------------------------------------*

REPORT ZZ_22038_22098_002 NO STANDARD PAGE HEADING LINE-SIZE 650

MESSAGE-ID ZZ_9838 .

TYPE-POOLS: SLIS.

*type declaration for values from ekko

TYPES: BEGIN OF I_EKKO,

EBELN LIKE EKKO-EBELN,

AEDAT LIKE EKKO-AEDAT,

BUKRS LIKE EKKO-BUKRS,

BSART LIKE EKKO-BSART,

LIFNR LIKE EKKO-LIFNR,

END OF I_EKKO.

DATA: IT_EKKO TYPE STANDARD TABLE OF I_EKKO INITIAL SIZE 0,

WA_EKKO TYPE I_EKKO.

*type declaration for values from ekpo

TYPES: BEGIN OF I_EKPO,

EBELN LIKE EKPO-EBELN,

EBELP LIKE EKPO-EBELP,

MATNR LIKE EKPO-MATNR,

MENGE LIKE EKPO-MENGE,

MEINS LIKE EKPO-MEINS,

NETPR LIKE EKPO-NETPR,

END OF I_EKPO.

DATA: IT_EKPO TYPE STANDARD TABLE OF I_EKPO INITIAL SIZE 0,

WA_EKPO TYPE I_EKPO .

*variable for Report ID

DATA: V_REPID LIKE SY-REPID .

*declaration for fieldcatalog

DATA: I_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,

WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV.

DATA: IT_LISTHEADER TYPE SLIS_T_LISTHEADER.

* declaration for events table where user comand or set PF status will

* be defined

DATA: V_EVENTS TYPE SLIS_T_EVENT,

WA_EVENT TYPE SLIS_ALV_EVENT.

* declartion for layout

DATA: ALV_LAYOUT TYPE SLIS_LAYOUT_ALV.

* declaration for variant(type of display we want)

DATA: I_VARIANT TYPE DISVARIANT,

I_VARIANT1 TYPE DISVARIANT,

I_SAVE(1) TYPE C.

*PARAMETERS : p_var TYPE disvariant-variant.

*Title displayed when the alv list is displayed

DATA: I_TITLE_EKKO TYPE LVC_TITLE VALUE 'FIRST LIST DISPLAYED'.

DATA: I_TITLE_EKPO TYPE LVC_TITLE VALUE 'SECONDRY LIST DISPLAYED'.

INITIALIZATION.

V_REPID = SY-REPID.

PERFORM BUILD_FIELDCATLOG.

PERFORM EVENT_CALL.

PERFORM POPULATE_EVENT.

START-OF-SELECTION.

PERFORM DATA_RETRIEVAL.

PERFORM BUILD_LISTHEADER USING IT_LISTHEADER.

PERFORM DISPLAY_ALV_REPORT.

*&--------------------------------------------------------------------*

*& Form BUILD_FIELDCATLOG

*&--------------------------------------------------------------------*

* Fieldcatalog has all the field details from ekko

*---------------------------------------------------------------------*

FORM BUILD_FIELDCATLOG.

WA_FIELDCAT-TABNAME = 'IT_EKKO'.

WA_FIELDCAT-FIELDNAME = 'EBELN'.

WA_FIELDCAT-SELTEXT_M = 'PO NO.'.

APPEND WA_FIELDCAT TO I_FIELDCAT.

CLEAR WA_FIELDCAT.

WA_FIELDCAT-TABNAME = 'IT_EKKO'.

WA_FIELDCAT-FIELDNAME = 'AEDAT'.

WA_FIELDCAT-SELTEXT_M = 'DATE.'.

APPEND WA_FIELDCAT TO I_FIELDCAT.

CLEAR WA_FIELDCAT.

WA_FIELDCAT-TABNAME = 'IT_EKKO'.

WA_FIELDCAT-FIELDNAME = 'BUKRS'.

WA_FIELDCAT-SELTEXT_M = 'COMPANY CODE'.

APPEND WA_FIELDCAT TO I_FIELDCAT.

CLEAR WA_FIELDCAT.

WA_FIELDCAT-TABNAME = 'IT_EKKO'.

WA_FIELDCAT-FIELDNAME = 'BUKRS'.

WA_FIELDCAT-SELTEXT_M = 'DOCMENT TYPE'.

APPEND WA_FIELDCAT TO I_FIELDCAT.

CLEAR WA_FIELDCAT.

WA_FIELDCAT-TABNAME = 'IT_EKKO'.

WA_FIELDCAT-FIELDNAME = 'LIFNR'.

WA_FIELDCAT-NO_OUT = 'X'.

WA_FIELDCAT-SELTEXT_M = 'VENDOR CODE'.

APPEND WA_FIELDCAT TO I_FIELDCAT.

CLEAR WA_FIELDCAT.

ENDFORM. "BUILD_FIELDCATLOG

*&--------------------------------------------------------------------*

*& Form EVENT_CALL

*&--------------------------------------------------------------------*

* we get all events - TOP OF PAGE or USER COMMAND in table v_events

*---------------------------------------------------------------------*

FORM EVENT_CALL.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

I_LIST_TYPE = 0

IMPORTING

ET_EVENTS = V_EVENTS

* EXCEPTIONS

* LIST_TYPE_WRONG = 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. "EVENT_CALL

*&--------------------------------------------------------------------*

*& Form POPULATE_EVENT

*&--------------------------------------------------------------------*

* Events populated for TOP OF PAGE & USER COMAND

*---------------------------------------------------------------------*

FORM POPULATE_EVENT.

READ TABLE V_EVENTS INTO WA_EVENT WITH KEY NAME = 'TOP_OF_PAGE'.

IF SY-SUBRC EQ 0.

WA_EVENT-FORM = 'TOP_OF_PAGE'.

MODIFY V_EVENTS FROM WA_EVENT TRANSPORTING FORM WHERE NAME =

WA_EVENT-FORM.

ENDIF.

READ TABLE V_EVENTS INTO WA_EVENT WITH KEY NAME = 'USER_COMMAND'.

IF SY-SUBRC EQ 0.

WA_EVENT-FORM = 'USER_COMMAND'.

MODIFY V_EVENTS FROM WA_EVENT TRANSPORTING FORM WHERE NAME =

WA_EVENT-NAME.

ENDIF.

ENDFORM. "POPULATE_EVENT

*&--------------------------------------------------------------------*

*& Form data_retrieval

*&--------------------------------------------------------------------*

* retreiving values from the database table ekko

*---------------------------------------------------------------------*

FORM DATA_RETRIEVAL.

SELECT EBELN AEDAT BUKRS BSART LIFNR FROM EKKO INTO TABLE IT_EKKO.

ENDFORM. "data_retrieval

*&--------------------------------------------------------------------*

*& Form bUild_listheader

*&--------------------------------------------------------------------*

* text

*---------------------------------------------------------------------*

* -->I_LISTHEADEtext

*---------------------------------------------------------------------*

FORM BUILD_LISTHEADER USING I_LISTHEADER TYPE SLIS_T_LISTHEADER.

DATA HLINE TYPE SLIS_LISTHEADER.

HLINE-INFO = 'this is my first alv pgm'.

HLINE-TYP = 'H'.

ENDFORM. "build_listheader

*&--------------------------------------------------------------------*

*& Form display_alv_report

*&--------------------------------------------------------------------*

* text

*---------------------------------------------------------------------*

FORM DISPLAY_ALV_REPORT.

V_REPID = SY-REPID.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = V_REPID

* I_CALLBACK_PF_STATUS_SET = ' '

I_CALLBACK_USER_COMMAND = 'USER_COMMAND'

I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'

I_GRID_TITLE = I_TITLE_EKKO

* I_GRID_SETTINGS =

* IS_LAYOUT = ALV_LAYOUT

IT_FIELDCAT = I_FIELDCAT[]

* IT_EXCLUDING =

* IT_SPECIAL_GROUPS =

* IT_SORT =

* IT_FILTER =

* IS_SEL_HIDE =

* i_default = 'ZLAY1'

I_SAVE = 'A'

* is_variant = i_variant

IT_EVENTS = V_EVENTS

TABLES

T_OUTTAB = IT_EKKO

* 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. "display_alv_report

*&--------------------------------------------------------------------*

*& Form TOP_OF_PAGE

*&--------------------------------------------------------------------*

* text

*---------------------------------------------------------------------*

FORM TOP_OF_PAGE.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = IT_LISTHEADER

* i_logo =

* I_END_OF_LIST_GRID =

ENDFORM. "TOP_OF_PAGE

*&--------------------------------------------------------------------*

*& Form USER_COMMAND

*&--------------------------------------------------------------------*

* text

*---------------------------------------------------------------------*

* -->R_UCOMM text

* -->, text

* -->RS_SLEFIELDtext

*---------------------------------------------------------------------*

FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM

RS_SELFIELD TYPE SLIS_SELFIELD.

CASE R_UCOMM.

WHEN '&IC1'.

READ TABLE IT_EKKO INTO WA_EKKO INDEX RS_SELFIELD-TABINDEX.

PERFORM BUILD_FIELDCATLOG_EKPO.

PERFORM EVENT_CALL_EKPO.

PERFORM POPULATE_EVENT_EKPO.

PERFORM DATA_RETRIEVAL_EKPO.

PERFORM BUILD_LISTHEADER_EKPO USING IT_LISTHEADER.

PERFORM DISPLAY_ALV_EKPO.

ENDCASE.

ENDFORM. "user_command

*&--------------------------------------------------------------------*

*& Form BUILD_FIELDCATLOG_EKPO

*&--------------------------------------------------------------------*

* text

*---------------------------------------------------------------------*

FORM BUILD_FIELDCATLOG_EKPO.

WA_FIELDCAT-TABNAME = 'IT_EKPO'.

WA_FIELDCAT-FIELDNAME = 'EBELN'.

WA_FIELDCAT-SELTEXT_M = 'PO NO.'.

APPEND WA_FIELDCAT TO I_FIELDCAT.

CLEAR WA_FIELDCAT.

WA_FIELDCAT-TABNAME = 'IT_EKPO'.

WA_FIELDCAT-FIELDNAME = 'EBELP'.

WA_FIELDCAT-SELTEXT_M = 'LINE NO'.

APPEND WA_FIELDCAT TO I_FIELDCAT.

CLEAR WA_FIELDCAT.

WA_FIELDCAT-TABNAME = 'I_EKPO'.

WA_FIELDCAT-FIELDNAME = 'MATNR'.

WA_FIELDCAT-SELTEXT_M = 'MATERIAL NO.'.

APPEND WA_FIELDCAT TO I_FIELDCAT.

CLEAR WA_FIELDCAT.

WA_FIELDCAT-TABNAME = 'I_EKPO'.

WA_FIELDCAT-FIELDNAME = 'MENGE'.

WA_FIELDCAT-SELTEXT_M = 'QUANTITY'.

APPEND WA_FIELDCAT TO I_FIELDCAT.

CLEAR WA_FIELDCAT.

WA_FIELDCAT-TABNAME = 'I_EKPO'.

WA_FIELDCAT-FIELDNAME = 'MEINS'.

WA_FIELDCAT-SELTEXT_M = 'UOM'.

APPEND WA_FIELDCAT TO I_FIELDCAT.

CLEAR WA_FIELDCAT.

WA_FIELDCAT-TABNAME = 'I_EKPO'.

WA_FIELDCAT-FIELDNAME = 'NETPR'.

WA_FIELDCAT-SELTEXT_M = 'PRICE'.

APPEND WA_FIELDCAT TO I_FIELDCAT.

CLEAR WA_FIELDCAT.

ENDFORM. "BUILD_FIELDCATLOG_EKPO

*&--------------------------------------------------------------------*

*& Form event_call_ekpo

*&--------------------------------------------------------------------*

* we get all events - TOP OF PAGE or USER COMMAND in table v_events

*---------------------------------------------------------------------*

FORM EVENT_CALL_EKPO.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

I_LIST_TYPE = 0

IMPORTING

ET_EVENTS = V_EVENTS

* EXCEPTIONS

* LIST_TYPE_WRONG = 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. "event_call_ekpo

*&--------------------------------------------------------------------*

*& Form POPULATE_EVENT

*&--------------------------------------------------------------------*

* Events populated for TOP OF PAGE & USER COMAND

*---------------------------------------------------------------------*

FORM POPULATE_EVENT_EKPO.

READ TABLE V_EVENTS INTO WA_EVENT WITH KEY NAME = 'TOP_OF_PAGE'.

IF SY-SUBRC EQ 0.

WA_EVENT-FORM = 'TOP_OF_PAGE'.

MODIFY V_EVENTS FROM WA_EVENT TRANSPORTING FORM WHERE NAME =

WA_EVENT-FORM.

ENDIF.

ENDFORM. "POPULATE_EVENT

*&--------------------------------------------------------------------*

*& Form TOP_OF_PAGE

*&--------------------------------------------------------------------*

* text

*---------------------------------------------------------------------*

FORM F_TOP_OF_PAGE.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = IT_LISTHEADER

* i_logo =

* I_END_OF_LIST_GRID =

ENDFORM. "TOP_OF_PAGE

*&--------------------------------------------------------------------*

*& Form USER_COMMAND

*&--------------------------------------------------------------------*

* text

*---------------------------------------------------------------------*

* -->R_UCOMM text

* -->, text

* -->RS_SLEFIELDtext

*---------------------------------------------------------------------*

*retreiving values from the database table ekko

FORM DATA_RETRIEVAL_EKPO.

SELECT EBELN EBELP MATNR MENGE MEINS NETPR FROM EKPO INTO TABLE IT_EKPO.

ENDFORM.

FORM BUILD_LISTHEADER_EKPO USING I_LISTHEADER TYPE SLIS_T_LISTHEADER.

DATA: HLINE1 TYPE SLIS_LISTHEADER.

HLINE1-TYP = 'H'.

HLINE1-INFO = 'CHECKING PGM'.

ENDFORM.

FORM DISPLAY_ALV_EKPO.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

* I_INTERFACE_CHECK = ' '

* I_BYPASSING_BUFFER = ' '

* I_BUFFER_ACTIVE = ' '

I_CALLBACK_PROGRAM = V_REPID

* I_CALLBACK_PF_STATUS_SET = ' '

* I_CALLBACK_USER_COMMAND = 'F_USER_COMMAND'

I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'

* I_CALLBACK_HTML_TOP_OF_PAGE = ' '

* I_CALLBACK_HTML_END_OF_LIST = ' '

* I_STRUCTURE_NAME =

* I_BACKGROUND_ID = ' '

I_GRID_TITLE = I_TITLE_EKPO

* I_GRID_SETTINGS =

* IS_LAYOUT =

IT_FIELDCAT = I_FIELDCAT[]

* IT_EXCLUDING =

* IT_SPECIAL_GROUPS =

* IT_SORT =

* IT_FILTER =

* IS_SEL_HIDE =

* I_DEFAULT =

I_SAVE = 'A'

* IS_VARIANT =

IT_EVENTS = V_EVENTS

TABLES

T_OUTTAB = IT_EKPO

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.

ABAP MULTIPLE INTERACTIVE REPORT SAMPLE CODE 2.txt

2010-01-13T06:41:00.001-08:00

*TABLES DECLARATION

TABLES : KNA1, VBAK, VBAP.

*SELECT OPTIONS

SELECT-OPTIONS: CUST_NO FOR KNA1-KUNNR.

*INITIALIZATION

INITIALIZATION.

CUST_NO-LOW = '01'.

CUST_NO-HIGH = '5000'.

CUST_NO-SIGN = 'I'.

CUST_NO-OPTION = 'BT'.

APPEND CUST_NO.

*SELECTION SCREEN VALIDATION

AT SELECTION-SCREEN ON CUST_NO.

LOOP AT SCREEN.

IF CUST_NO-LOW <> 5000.

MESSAGE E001(ZTJ1).

ENDIF.

ENDLOOP.

*BASIC LIST SELECTION

START-OF-SELECTION.

SELECT KUNNR NAME1 ORT01 LAND1 INTO

(KNA1-KUNNR, KNA1-NAME1,KNA1-ORT01,KNA1-LAND1)

FROM KNA1

WHERE KUNNR IN CUST_NO.

WRITE:/1 SY-VLINE,

KNA1-KUNNR UNDER 'CUSTOMER NO.' HOTSPOT ON,

16 SY-VLINE,

KNA1-NAME1 UNDER 'NAME',

61 SY-VLINE,

KNA1-ORT01 UNDER 'CITY',

86 SY-VLINE,

KNA1-LAND1 UNDER 'COUNTRY',

103 SY-VLINE.

HIDE: KNA1-KUNNR.

ENDSELECT.

ULINE.

*SECONDARY LIST ACCESS

AT user-command.

IF SY-UCOMM = 'IONE'.

PERFORM SALES_ORD.

ENDIF.

IF SY-UCOMM = 'ITWO'.

PERFORM ITEM_DET.

ENDIF.

*TOP OF PAGE

TOP-OF-PAGE.

FORMAT COLOR 1.

WRITE : 'CUSTOMER DETAILS'.

FORMAT COLOR 1 OFF.

ULINE.

FORMAT COLOR 3.

WRITE : 1 SY-VLINE,

3 'CUSTOMER NO.',

16 SY-VLINE,

18 'NAME',

61 SY-VLINE,

63 'CITY',

86 SY-VLINE,

88 'COUNTRY',

103 SY-VLINE.

ULINE.

FORMAT COLOR 3 OFF.

*TOP OF PAGE FOR SECONDARY LISTS

TOP-OF-PAGE DURING LINE-SELECTION.

*TOP OF PAGE FOR 1ST SECONDARY LIST

IF SY-UCOMM = 'IONE'.

ULINE.

FORMAT COLOR 1.

WRITE : 'SALES ORDER DETAILS'.

ULINE.

FORMAT COLOR 1 OFF.

FORMAT COLOR 3.

WRITE : 1 SY-VLINE,

3 'CUSTOMER NO.',

16 SY-VLINE,

18 'SALES ORDER NO.',

40 SY-VLINE,

42 'DATE',

60 SY-VLINE,

62 'CREATOR',

85 SY-VLINE,

87 'DOC DATE',

103 SY-VLINE.

ULINE.

ENDIF.

FORMAT COLOR 3 OFF.

*TOP OF PAGE FOR 2ND SECONDARY LIST

IF SY-UCOMM = 'ITWO'.

ULINE.

FORMAT COLOR 1.

WRITE : 'ITEM DETAILS'.

ULINE.

FORMAT COLOR 1 OFF.

FORMAT COLOR 3.

WRITE : 1 SY-VLINE,

3 'SALES ORDER NO.',

40 SY-VLINE,

42 'SALES ITEM NO.',

60 SY-VLINE,

62 'ORDER QUANTITY',

103 SY-VLINE.

ULINE.

ENDIF.

FORMAT COLOR 3 OFF.

*END OF PAGE

END-OF-PAGE.

ULINE.

WRITE :'USER :',SY-UNAME,/,'DATE :', SY-DATUM, 85 'END OF PAGE:',

SY-PAGNO.

SKIP.

*&---------------------------------------------------------------------*

*& Form SALES_ORD

*& FIRST SECONDARY LIST FORM

*&---------------------------------------------------------------------*

FORM SALES_ORD .

SELECT KUNNR VBELN ERDAT ERNAM AUDAT INTO

(VBAK-KUNNR, VBAK-VBELN, VBAK-ERDAT, VBAK-ERNAM, VBAK-AUDAT)

FROM VBAK

WHERE KUNNR = KNA1-KUNNR.

WRITE:/1 SY-VLINE,

VBAK-KUNNR UNDER 'CUSTOMER NO.' HOTSPOT ON,

16 SY-VLINE,

VBAK-VBELN UNDER 'SALES ORDER NO.' HOTSPOT ON,

40 SY-VLINE,

VBAK-ERDAT UNDER 'DATE',

60 SY-VLINE,

VBAK-ERNAM UNDER 'CREATOR',

85 SY-VLINE,

VBAK-AUDAT UNDER 'DOC DATE',

103 SY-VLINE.

HIDE : VBAK-VBELN.

ENDSELECT.

ULINE.

ENDFORM. " SALES_ORD

*&---------------------------------------------------------------------*

*& Form ITEM_DET

*& SECOND SECONDARY LIST FORM

*&---------------------------------------------------------------------*

FORM ITEM_DET .

SELECT VBELN POSNR KWMENG INTO

(VBAP-VBELN, VBAP-POSNR, VBAP-KWMENG)

FROM VBAP

WHERE VBELN = VBAK-VBELN.

WRITE : /1 SY-VLINE,

VBAP-VBELN UNDER 'SALES ORDER NO.',

40 SY-VLINE,

VBAP-POSNR UNDER 'SALES ITEM NO.',

60 SY-VLINE,

VBAP-KWMENG UNDER 'ORDER QUANTITY',

103 SY-VLINE.

ENDSELECT.

ULINE.

ENDFORM. " ITEM_DET

************************************************************************

REPORT demo_list_at_pf.

START-OF-SELECTION.

WRITE 'Basic List, Press PF5, PF6, PF7, or PF8'.

AT pf5.

PERFORM out.

AT pf6.

PERFORM out.

AT pf7.

PERFORM out.

AT pf8.

PERFORM out.

FORM out.

WRITE: 'Secondary List by PF-Key Selection',

/ 'SY-LSIND =', sy-lsind,

/ 'SY-UCOMM =', sy-ucomm.

ENDFORM.

After executing the program, the system displays the basic list. The user can press the function keys F5 , F6 , F7 , and F8 to create secondary lists. If, for example, the 14th key the user presses is F6 , the output on the displayed secondary list looks as follows:

Secondary List by PF-Key Selection

SY-LSIND = 14

SY-UCOMM = PF06

Example for AT USER-COMMAND.

REPORT demo_list_at_user_command NO STANDARD PAGE HEADING.

START-OF-SELECTION.

WRITE: 'Basic List',

/ 'SY-LSIND:', sy-lsind.

TOP-OF-PAGE.

WRITE 'Top-of-Page'.

ULINE.

TOP-OF-PAGE DURING LINE-SELECTION.

CASE sy-pfkey.

WHEN 'TEST'.

WRITE 'Self-defined GUI for Function Codes'.

ULINE.

ENDCASE.

AT LINE-SELECTION.

SET PF-STATUS 'TEST' EXCLUDING 'PICK'.

PERFORM out.

sy-lsind = sy-lsind - 1.

AT USER-COMMAND.

CASE sy-ucomm.

WHEN 'FC1'.

PERFORM out.

WRITE / 'Button FUN 1 was pressed'.

WHEN 'FC2'.

PERFORM out.

WRITE / 'Button FUN 2 was pressed'.

WHEN 'FC3'.

PERFORM out.

WRITE / 'Button FUN 3 was pressed'.

WHEN 'FC4'.

PERFORM out.

WRITE / 'Button FUN 4 was pressed'.

WHEN 'FC5'.

PERFORM out.

WRITE / 'Button FUN 5 was pressed'.

ENDCASE.

sy-lsind = sy-lsind - 1.

FORM out.

WRITE: 'Secondary List',

/ 'SY-LSIND:', sy-lsind,

/ 'SY-PFKEY:', sy-pfkey.

ENDFORM.

When you run the program, the system displays the following basic list with a the page header defined in the program:

You can trigger the AT LINE-SELECTION event by double-clicking a line. The system sets the status TEST and deactivates the function code PICK. The status TEST contains function codes FC1 to FC5. These are assigned to pushbuttons in the application toolbar. The page header of the detail list depends on the status.

Here, double-clicking a line no longer triggers an event. However, there is now an application toolbar containing five user-defined pushbuttons. You can use these to trigger the AT USER-COMMAND event. The CASE statement contains a different reaction for each pushbutton.

For each interactive event, the system decreases the SY-LSIND system field by one, thus canceling out the automatic increase. All detail lists now have the same level as the basic list and thus overwrite it. While the detail list is being created, SY-LSIND still has the value 1.

A Sample Hide & Get Cursor in Interactive Programming.txt

2010-01-13T06:40:00.001-08:00

****PROG.BEGIN***************************************************************

*&---------------------------------------------------------------------*

*& Report ZPREM_INTERACTIVE *

*& *

*&---------------------------------------------------------------------*

*& *

*&---------------------------------------------------------------------*

REPORT zprem_interactive .

TYPES : BEGIN OF ty_test,

code TYPE i,

name(10) TYPE c,

amount TYPE p DECIMALS 2,

END OF ty_test.

DATA : it_test TYPE STANDARD TABLE OF ty_test WITH HEADER LINE INITIAL SIZE 10.

DATA : wa TYPE ty_test,

chk1 TYPE c,

fldname(30), fldval(50).

*set pf-status 'PF01'.

*set titlebar 'PF01'.

INITIALIZATION.

it_test-code = 300.

it_test-name = 'Ramesh'.

it_test-amount = 5500.

APPEND it_test.

wa-code = 207.

wa-name = 'Prem'.

wa-amount = 5000.

APPEND wa TO it_test.

it_test-code = 117.

it_test-name = 'James Bond'.

it_test-amount = 9900.

INSERT it_test INDEX 3.

it_test-code = 217.

it_test-name = 'Sivaraman'.

it_test-amount = 9900.

INSERT it_test INDEX 3.

it_test-code = 201.

it_test-name = 'Saravanan'.

it_test-amount = 1000.

APPEND it_test.

it_test-code = 210.

it_test-name = 'Shanmugam'.

it_test-amount = 6000.

APPEND it_test.

WRITE : / 'Loop Display ( Appended rows ) :-'.

LOOP AT it_test.

WRITE : / chk1 AS CHECKBOX,

sy-tabix, sy-vline, it_test-code, it_test-name, it_test-amount.

HIDE : it_test-code, it_test-name.

ENDLOOP.

SKIP.

END-OF-SELECTION.

CLEAR : it_test-code, it_test-name.

WRITE : / 'this from end of selection'.

*&--------------------------------------------------------------------*

*& Form DISP1

*&--------------------------------------------------------------------*

* text

*---------------------------------------------------------------------*

FORM disp1.

WINDOW STARTING AT 15 10

ENDING AT 80 15.

DO.

CLEAR chk1.

READ LINE sy-index FIELD VALUE chk1.

IF sy-subrc NE 0.

EXIT.

ELSE.

CHECK chk1 NE space.

WRITE : / it_test-code, it_test-name.

MODIFY CURRENT LINE :

FIELD VALUE chk1 FROM ' '

FIELD FORMAT chk1 INPUT OFF.

ENDIF.

ENDDO.

ENDFORM. "DISP1

***line double click ****

AT LINE-SELECTION.

CHECK sy-lsind = 1.

WINDOW STARTING AT 5 4

ENDING AT 85 20.

WRITE: / 'THE USER DOUBLE-CLICKED A LINE IN THE REPORT'.

WRITE: / sy-lisel.

WRITE : / 'Sometime ',it_test-name, ' is good '.

WRITE : / 'Sometime ',it_test-name, ' is bad '.

WRITE : / 'Sometime ',it_test-name, ' is rich '.

WRITE : / 'Sometime ',it_test-name, ' is poor '.

WRITE : / 'Who knows, who is ',it_test-name, ' ? '.

WRITE : /, / 'we can also use this in SELECT statement'.

CLEAR : it_test-code, it_test-name.

IF SY-SUBRC <> 0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ULINE.

SKIP.

WRITE : / 'Below from Get Cursor Field...'.

GET CURSOR FIELD fldname VALUE fldval.

CONDENSE fldname.

CONDENSE fldval.

WRITE : / 'You have clicked ', fldname, ' & its value is ', fldval.

***function key press F6 ****

AT PF06.

PERFORM disp1.

*AT USER-COMMAND.

* CASE SY-UCOMM.

* WHEN 'STOP' OR 'CANCEL'.

* LEAVE TO SCREEN 0.

* WHEN 'TESTME'.

* PERFORM DISP1.

* ENDCASE.

SY-UCOMM and OK_CODE in Dialog Program

2010-01-13T06:23:00.001-08:00

What is the difference between SY-UCOMM and OK_CODE in Dialog Program?

sy-ucomm is for doing the functions what the user wishes to do at that particular event. You use it in menus and other place . this mainly in using

ok_code is generally used in screen as of I have used. You will define the function in the screen. and you can use it in the main program.

ok_code acts just as a temporary variable that stores the value of sy-ucomm.

When user interacts with the screen elements, the function code that you have assigned is filled in the sy-ucomm field which is turn gets reflected in OK_CODE.

In your ABAP programs, you should work with the OK_CODE field instead of SY-UCOMM. There are two reasons for this: Firstly, the ABAP program has full control over fields declared within it, and secondly, you should never change the value of an ABAP system field. However, you should also always initialize the OK_CODE field in an ABAP program for the following reason:

In the same way that the OK_CODE field in the ABAP program and the system field SY-UCOMM receive the contents of the corresponding screen fields in the PAI event, their contents are also assigned to the OK_CODE screen field and system field SYST-UCOMM in the PBO event. Therefore, you must clear the OK_CODE field in the ABAP program to ensure that the function code of a screen is not already filled in the PBO event with an unwanted value. This is particularly important when the next PAI event can be triggered with an empty function code (for example, using ENTER). Empty function codes do not affect SY-UCOMM or the OK_CODE field, and consequently, the old field contents are transported.

Attach a Search Help to the Screen Field

2010-01-13T06:20:00.001-08:00

"SAP ABAP : Attach a Search Help to the Screen Field

I have a requirement to attach a search help to the screen field. When I click on the drop-down list, it should automatically pick the company code that is already displayed on the screen and show the results.

It dosent make any sense for search help to wait for user to input the same company code which is already displayed.

Use this functionality to get help.

FORM HELP_CHECK.

*-- Set up fields to retrieve data

ltab_fields-tabname = 'ZFI_PMNTADV'.

ltab_fields-fieldname = 'CHECT'.

ltab_fields-selectflag = 'X'.

APPEND ltab_fields.

ltab_fields-tabname = 'ZFI_PMNTADV'.

ltab_fields-fieldname = 'PMNT_ADV'.

ltab_fields-selectflag = 'X'.

APPEND ltab_fields.

SORT ltab_fields.

DELETE ADJACENT DUPLICATES FROM ltab_fields.

*-- Fill values

SELECT chect

INTO TABLE ltab_values

FROM zfi_pmntadv

WHERE pmnt_adv NE space.

SORT ltab_values.

DELETE ADJACENT DUPLICATES FROM ltab_values.

CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE'

EXPORTING

fieldname = 'chect'

tabname = 'zfi_pmntadv'

title_in_values_list = 'Select a value'

IMPORTING

select_value = so_chect

TABLES

fields = ltab_fields

valuetab = ltab_values

EXCEPTIONS

field_not_in_ddic = 01

more_then_one_selectfield = 02

no_selectfield = 03.

ENDFORM. "fiscal_year

Simple Interactive Report

2010-01-13T06:18:00.001-08:00

*&---------------------------------------------------------------------*

*& Report Y_INTERACTIVE_1

*&---------------------------------------------------------------------*

REPORT y_interactive_1 LINE-SIZE 250

LINE-COUNT 65(3)

NO STANDARD PAGE HEADING.

TABLES: bseg.

*****************DECLARATION of InternalTables**************************

TYPES : BEGIN OF ty_bseg ,

bukrs TYPE bseg-bukrs, "Company Code

belnr TYPE bseg-belnr, "Document Number

gjahr TYPE bseg-gjahr, "Fiscal Year

lifnr TYPE bseg-lifnr, "Vendor

kunnr TYPE bseg-kunnr, "Customer

koart TYPE bseg-koart, "Accouunt Type

END OF ty_bseg.

DATA : it_bseg TYPE STANDARD TABLE OF ty_bseg,

wa_bseg TYPE ty_bseg.

DATA: v_line TYPE sy-lisel,

v_lifnr TYPE lfa1-lifnr,

v_name1 TYPE lfa1-name1,

v_name2 TYPE lfa1-name2,

v_ort01 TYPE lfa1-ort01,

v_name(30) TYPE c,

v_nam(30) TYPE c,

v_kunnr TYPE kna1-kunnr,

v_nam1 TYPE kna1-name1,

v_nam2 TYPE kna1-name2,

v_ort1 TYPE kna1-ort01,

f1(13) TYPE c,

v1(10) TYPE c,

v_koart TYPE bseg-koart.

********************selection-screen****************************

SELECTION-SCREEN BEGIN OF BLOCK b1k1 WITH FRAME TITLE text-001.

PARAMETERS : p_bukrs TYPE bseg-bukrs OBLIGATORY .

SELECT-OPTIONS : s_belnr FOR bseg-belnr OBLIGATORY.

PARAMETERS : p_gjahr TYPE bseg-gjahr OBLIGATORY.

SELECTION-SCREEN END OF BLOCK b1k1.

*****************START-OF-SELECTION ***************************

START-OF-SELECTION.

******************************************************************

* Fetching the data from BSEG table

******************************************************************

PERFORM get_bseg.

******************************************************************

* Displaying the Output

******************************************************************

PERFORM output_1.

************************TOP-OF-PAGE*************************

TOP-OF-PAGE.

WRITE:/ 'Company Code'(002),

'Document Number'(003),

'Fiscal Year'(004),

'Vendor'(005),

'Customer'(006),

'Account Type'(007).

END-OF-PAGE.

WRITE : /5 'Page No:'(016) COLOR COL_NORMAL, sy-pagno COLOR COL_TOTAL.

************************AT LINE-SELECTION*************************

AT LINE-SELECTION.

GET CURSOR FIELD f1 VALUE v1.

READ LINE sy-lilli LINE VALUE INTO v_line.

v_lifnr = v_line+41(7).

v_kunnr = v_line+48(8).

v_koart = v_line+57(1).

CASE f1.

WHEN 'WA_BSEG-LIFNR'.

IF v_koart = 'K'.

IF sy-lsind = 1.

WRITE: /1 'Account No'(008) COLOR 2,

31 'Name'(012) COLOR 7,

84 'City'(011) COLOR 5.

ENDIF.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = v_lifnr

IMPORTING

output = v_lifnr.

SELECT SINGLE lifnr

name1

name2

ort01

FROM lfa1

INTO (v_lifnr, v_name1, v_name2, v_ort01)

WHERE lifnr = v_lifnr.

IF sy-subrc <> 0.

MESSAGE 'Select Query is wrong'(013) TYPE 'E'.

ENDIF.

CONCATENATE v_name1 v_name2 INTO v_name.

WRITE : / v_lifnr COLOR = 4 UNDER text-008,

v_name COLOR = 7 UNDER text-012 ,

v_ort01 COLOR = 6 UNDER text-011.

ELSE.

MESSAGE 'Invalid Record'(014) TYPE 'E'.

ENDIF.

WHEN 'WA_BSEG-KUNNR'.

IF v_koart = 'D'.

IF sy-lsind = 1.

WRITE: /1 'Customer'(006) COLOR 2,

31 'Name'(012) COLOR 7,

62 'City'(011) COLOR 5.

ENDIF.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = v_kunnr

IMPORTING

output = v_kunnr.

SELECT SINGLE kunnr

name1

name2

ort01

FROM kna1

INTO (v_kunnr, v_nam1, v_nam2, v_ort1)

WHERE kunnr = v_kunnr.

IF sy-subrc <> 0.

MESSAGE 'Select Query is wrong'(013) TYPE 'E'.

ENDIF.

CONCATENATE v_nam1 v_nam2 INTO v_nam.

WRITE : / v_kunnr COLOR = 4 UNDER text-006,

v_nam COLOR = 7 UNDER text-012 ,

v_ort1 COLOR = 6 UNDER text-011.

ELSE.

MESSAGE 'Invalid Record'(014) TYPE 'E'.

ENDIF.

ENDCASE.

*&---------------------------------------------------------------------*

*& Form get_bseg

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM get_bseg .

SELECT bukrs

belnr

gjahr

lifnr

kunnr

koart

FROM bseg

INTO CORRESPONDING FIELDS OF TABLE it_bseg

WHERE bukrs = p_bukrs AND

belnr IN s_belnr AND

gjahr = p_gjahr .

IF sy-subrc <> 0.

MESSAGE 'Entered values are wrong'(015) TYPE 'E'.

ENDIF.

ENDFORM. " get_bseg

*&---------------------------------------------------------------------*

*& Form output_1

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM output_1 .

LOOP AT it_bseg INTO wa_bseg.

WRITE : / wa_bseg-bukrs COLOR = 1 UNDER text-002,

wa_bseg-belnr COLOR = 2 UNDER text-003,

wa_bseg-gjahr COLOR = 3 UNDER text-004,

wa_bseg-lifnr COLOR = 4 UNDER text-005 HOTSPOT ON,

wa_bseg-kunnr COLOR = 5 UNDER text-006 HOTSPOT ON,

wa_bseg-koart COLOR = 6 UNDER text-007.

ENDLOOP.

ENDFORM. "output_1

" output_1

Simple ALV Interactive Report

2010-01-13T06:16:00.000-08:00

*&---------------------------------------------------------------------*

*& Report Y_INTERACTIVE_1

*&---------------------------------------------------------------------*

REPORT y_interactive_alv_1 LINE-SIZE 250

LINE-COUNT 65(3)

NO STANDARD PAGE HEADING.

********************************************************************

*Author: Rama Krishna Ganji

*Program ID: Y_INTERACTIVE_ALV_1

*Program Desc: ALV Interactive Report

*Date: 21-Oct-09

********************************************************************

TABLES: bseg.

TYPE-POOLS: slis.

*declaration for fieldcatalog

DATA: it_fieldcat TYPE slis_t_fieldcat_alv,

wa_fieldcat TYPE slis_fieldcat_alv,

it_fieldcat1 TYPE slis_t_fieldcat_alv,

wa_fieldcat1 TYPE slis_fieldcat_alv,

it_fieldcat2 TYPE slis_t_fieldcat_alv,

wa_fieldcat2 TYPE slis_fieldcat_alv,

it_layout TYPE slis_layout_alv. "Declaration for layout

* declaration for events table where user comand or set PF status will

* be defined

DATA: it_events TYPE slis_t_event,

wa_events TYPE slis_alv_event.

DATA: it_listheader TYPE slis_t_listheader.

*Title displayed when the alv list is displayed

DATA: i_title_bseg TYPE lvc_title VALUE 'BSEG ALV Data'.

DATA: i_title_lfa TYPE lvc_title VALUE 'LFA1 ALV Data'.

DATA: i_title_kna TYPE lvc_title VALUE 'KNA1 ALV Data'.

*****************DECLARATION of InternalTables**************************

*type declaration for values from bseg

TYPES : BEGIN OF ty_bseg,

bukrs TYPE bseg-bukrs, "Company Code

belnr TYPE bseg-belnr, "Document Number

gjahr TYPE bseg-gjahr, "Fiscal Year

lifnr TYPE bseg-lifnr, "Vendor

kunnr TYPE bseg-kunnr, "Customer

koart TYPE bseg-koart, "Accouunt Type

END OF ty_bseg.

DATA : it_bseg TYPE STANDARD TABLE OF ty_bseg INITIAL SIZE 0,

wa_bseg TYPE ty_bseg.

*type declaration for values from LFA1

TYPES: BEGIN OF ty_lfa1,

lifnr TYPE lfa1-lifnr,

name1 TYPE lfa1-name1,

name2 TYPE lfa1-name2,

ort01 TYPE lfa1-ort01,

END OF ty_lfa1.

DATA: it_lfa1 TYPE STANDARD TABLE OF ty_lfa1 INITIAL SIZE 0,

wa_lfa1 TYPE ty_lfa1 .

*type declaration for values from LFA1

TYPES: BEGIN OF ty_lfa,

lifnr TYPE lfa1-lifnr,

name TYPE lfa1-name1,

ort01 TYPE lfa1-ort01,

END OF ty_lfa.

DATA: it_lfa TYPE STANDARD TABLE OF ty_lfa INITIAL SIZE 0,

wa_lfa TYPE ty_lfa .

*type declaration for values from KNA1

TYPES: BEGIN OF ty_kna1,

kunnr TYPE kna1-lifnr,

name1 TYPE kna1-name1,

name2 TYPE kna1-name2,

ort01 TYPE kna1-ort01,

END OF ty_kna1.

DATA: it_kna1 TYPE STANDARD TABLE OF ty_kna1 INITIAL SIZE 0,

wa_kna1 TYPE ty_lfa1 .

*type declaration for values from KNA1

TYPES: BEGIN OF ty_kna,

kunnr TYPE kna1-lifnr,

name TYPE kna1-name1,

ort01 TYPE kna1-ort01,

END OF ty_kna.

DATA: it_kna TYPE STANDARD TABLE OF ty_kna INITIAL SIZE 0,

wa_kna TYPE ty_lfa .

********************selection-screen****************************

SELECTION-SCREEN BEGIN OF BLOCK b1k1 WITH FRAME TITLE text-001.

PARAMETERS : p_bukrs TYPE bseg-bukrs OBLIGATORY .

SELECT-OPTIONS : s_belnr FOR bseg-belnr OBLIGATORY.

PARAMETERS : p_gjahr TYPE bseg-gjahr OBLIGATORY.

SELECTION-SCREEN END OF BLOCK b1k1.

*****************START-OF-SELECTION ***************************

START-OF-SELECTION.

******************************************************************

* CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

******************************************************************

PERFORM alv_fieldcatalog.

******************************************************************

* Fetching the data from BSEG table

******************************************************************

PERFORM event_call.

PERFORM populate_event.

******************************************************************

* Fetching the data from BSEG table

******************************************************************

PERFORM get_bseg.

PERFORM build_listheader USING it_listheader.

*********************************************************************

*CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

**********************************************************************

PERFORM alv_list_display.

*&---------------------------------------------------------------------*

*& Form get_bseg

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM get_bseg .

SELECT bukrs

belnr

gjahr

lifnr

kunnr

koart

FROM bseg

INTO CORRESPONDING FIELDS OF TABLE it_bseg

WHERE bukrs = p_bukrs AND

belnr IN s_belnr AND

gjahr = p_gjahr .

IF sy-subrc <> 0.

MESSAGE 'Entered values are wrong'(015) TYPE 'E'.

ENDIF.

ENDFORM. " get_bseg

*&---------------------------------------------------------------------*

*& Form alv_fieldcatalog

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM alv_fieldcatalog .

wa_fieldcat-tabname = 'IT_BSEG'.

wa_fieldcat-fieldname = 'BELNR'.

wa_fieldcat-seltext_m = 'Document No.'(002).

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-tabname = 'IT_BSEG'.

wa_fieldcat-fieldname = 'GJAHR'.

wa_fieldcat-seltext_m = 'Fiscal Year.'(003).

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-tabname = 'IT_BSEG'.

wa_fieldcat-fieldname = 'LIFNR'.

wa_fieldcat-seltext_m = 'Vendor'(004).

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-tabname = 'IT_BSEG'.

wa_fieldcat-fieldname = 'KUNNR'.

wa_fieldcat-seltext_m = 'Customer'(005).

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-tabname = 'IT_BSEG'.

wa_fieldcat-fieldname = 'KOART'.

wa_fieldcat-seltext_m = 'Account Type'(006).

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

ENDFORM. " alv_fieldcatalog

*&---------------------------------------------------------------------*

*& Form alv_list_display

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM alv_list_display .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_callback_program = sy-repid

* I_CALLBACK_PF_STATUS_SET = ' '

i_callback_user_command = 'USER_COMMAND'

i_callback_top_of_page = 'TOP_OF_PAGE '

i_grid_title = i_title_bseg

* I_GRID_SETTINGS =

* IS_LAYOUT =

it_fieldcat = it_fieldcat[]

* IT_EXCLUDING =

* IT_SPECIAL_GROUPS =

* IT_SORT =

* IT_FILTER =

* IS_SEL_HIDE =

* I_DEFAULT = 'X'

* I_SAVE = ' '

* IS_VARIANT =

it_events = it_events

* IT_EVENT_EXIT =

* IMPORTING

* E_EXIT_CAUSED_BY_CALLER =

* ES_EXIT_CAUSED_BY_USER =

TABLES

t_outtab = it_bseg

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. " alv_list_display

*&---------------------------------------------------------------------*

*& Form event_call

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM event_call .

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

i_list_type = 0

IMPORTING

et_events = it_events

EXCEPTIONS

list_type_wrong = 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. " event_call

*&---------------------------------------------------------------------*

*& Form populate_event

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM populate_event .

READ TABLE it_events INTO wa_events WITH KEY name = 'TOP_OF_PAGE'

IF sy-subrc = 0.

wa_events-form = 'TOP_OF_PAGE'.

MODIFY it_events FROM wa_events TRANSPORTING form WHERE name =

wa_events-form.

ENDIF.

READ TABLE it_events INTO wa_events WITH KEY name = 'USER_COMMAND'.

IF sy-subrc = 0.

wa_events-form = 'USER_COMMAND'.

MODIFY it_events FROM wa_events TRANSPORTING form WHERE name =

wa_events-name.

ENDIF.

ENDFORM. " populate_event

*&---------------------------------------------------------------------*

*& Form BUILD_LISTHEADER

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* -->P_IT_LISTHEADER text

*----------------------------------------------------------------------*

FORM build_listheader USING i_listheader TYPE slis_t_listheader.

DATA hline TYPE slis_listheader.

hline-info = 'ALV Interactive Report'(007).

hline-typ = 'H'.

ENDFORM. " BUILD_LISTHEADE

*&---------------------------------------------------------------------*

*& Form TOP_OF_PAGE

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

FORM top_of_page.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

it_list_commentary = it_listheader

* i_logo =

* I_END_OF_LIST_GRID =

ENDFORM. "TOP_OF_PAGE

*&---------------------------------------------------------------------*

*& Form USER_COMMAND

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* -->R_UCOMM text

* -->RS_SELFIELD text

*----------------------------------------------------------------------*

FORM user_command USING r_ucomm LIKE sy-ucomm

rs_selfield TYPE slis_selfield.

CASE r_ucomm.

WHEN '&IC1'.

IF rs_selfield-fieldname = 'LIFNR'.

READ TABLE it_bseg INTO wa_bseg INDEX rs_selfield-tabindex.

PERFORM build_fieldcatlog_lfa .

PERFORM event_call_lfa.

PERFORM populate_event_lfa.

PERFORM data_retrieval_lfa .

PERFORM build_listheader_lfa USING it_listheader.

PERFORM display_alv_lfa.

ELSEIF rs_selfield-fieldname = 'KUNNR'.

READ TABLE it_bseg INTO wa_bseg INDEX rs_selfield-tabindex.

PERFORM build_fieldcatlog_kna .

PERFORM event_call_lfa.

PERFORM populate_event_lfa.

PERFORM data_retrieval_kna .

PERFORM build_listheader_lfa USING it_listheader.

PERFORM display_alv_kna.

ELSE.

MESSAGE 'Selected right field' TYPE 'E'.

ENDIF.

ENDCASE.

ENDFORM. "USER_COMMAND

*&---------------------------------------------------------------------*

*& Form build_fieldcatlog_bseg

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM build_fieldcatlog_lfa .

REFRESH it_fieldcat1[].

wa_fieldcat1-tabname = 'IT_LFA'.

wa_fieldcat1-fieldname = 'LIFNR'.

wa_fieldcat1-seltext_m = 'Vendor'(004).

APPEND wa_fieldcat1 TO it_fieldcat1.

CLEAR wa_fieldcat1.

wa_fieldcat1-tabname = 'IT_LFA'.

wa_fieldcat1-fieldname = 'NAME'.

wa_fieldcat1-seltext_m = 'Name'(008).

APPEND wa_fieldcat1 TO it_fieldcat1.

CLEAR wa_fieldcat1.

wa_fieldcat1-tabname = 'IT_LFA1'.

wa_fieldcat1-fieldname = 'ORT01'.

wa_fieldcat1-seltext_m = 'City'(009).

APPEND wa_fieldcat1 TO it_fieldcat1.

CLEAR wa_fieldcat1.

ENDFORM. " build_fieldcatlog_LFA1

*&---------------------------------------------------------------------*

*& Form event_call_bseg

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM event_call_lfa .

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

i_list_type = 0

IMPORTING

et_events = it_events

EXCEPTIONS

list_type_wrong = 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. " event_call_bseg

*&---------------------------------------------------------------------*

*& Form populate_event_bseg

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM populate_event_lfa .

READ TABLE it_events INTO wa_events WITH KEY name = 'TOP_OF_PAGE'.

IF sy-subrc EQ 0.

wa_events-form = 'TOP_OF_PAGE'.

MODIFY it_events FROM wa_events TRANSPORTING form WHERE name =

wa_events-form.

ENDIF.

ENDFORM. " populate_event_bseg

*&---------------------------------------------------------------------*

*& Form F_TOP_OF_PAGE

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

FORM f_top_of_page.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

it_list_commentary = it_listheader

* i_logo =

* I_END_OF_LIST_GRID =

ENDFORM. "F_TOP_OF_PAGE

*&---------------------------------------------------------------------*

*& Form data_retrieval_bseg

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM data_retrieval_lfa .

REFRESH it_lfa1[].

IF wa_bseg-lifnr IS NOT INITIAL.

SELECT SINGLE lifnr

name1

name2

ort01

FROM lfa1

INTO wa_lfa1

WHERE lifnr = wa_bseg-lifnr.

APPEND wa_lfa1 TO it_lfa1.

IF sy-subrc <> 0.

MESSAGE 'Select Query is wrong'(013) TYPE 'E'.

ENDIF.

REFRESH it_lfa[].

LOOP AT it_lfa1 INTO wa_lfa1.

MOVE-CORRESPONDING wa_lfa1 TO wa_lfa.

CONCATENATE wa_lfa1-name1 wa_lfa1-name2 INTO wa_lfa-name.

APPEND wa_lfa TO it_lfa.

ENDLOOP.

ELSE.

MESSAGE 'Invalid Record' TYPE 'E'.

ENDIF.

ENDFORM. " data_retrieval_bseg

*&---------------------------------------------------------------------*

*& Form build_listheader_lfa

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* -->P_IT_LISTHEADER text

*----------------------------------------------------------------------*

FORM build_listheader_lfa USING p_it_listheader.

DATA: hline1 TYPE slis_listheader.

hline1-typ = 'H'.

hline1-info = 'CHECKING PGM'(010).

ENDFORM. " build_listheader_lfa

*&---------------------------------------------------------------------*

*& Form display_alv_lfa

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM display_alv_lfa .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

* I_INTERFACE_CHECK = ' '

* I_BYPASSING_BUFFER = ' '

* I_BUFFER_ACTIVE = ' '

i_callback_program = sy-repid

* I_CALLBACK_PF_STATUS_SET = ' '

* I_CALLBACK_USER_COMMAND = 'F_USER_COMMAND'

i_callback_top_of_page = 'TOP_OF_PAGE'

* I_CALLBACK_HTML_TOP_OF_PAGE = ' '

* I_CALLBACK_HTML_END_OF_LIST = ' '

* I_STRUCTURE_NAME =

* I_BACKGROUND_ID = ' '

i_grid_title = i_title_lfa

* I_GRID_SETTINGS =

* IS_LAYOUT =

it_fieldcat = it_fieldcat1[]

* IT_EXCLUDING =

* IT_SPECIAL_GROUPS =

* IT_SORT =

* IT_FILTER =

* IS_SEL_HIDE =

* I_DEFAULT =

* i_save = 'A'

* IS_VARIANT =

it_events = it_events

TABLES

t_outtab = it_lfa

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. " display_alv_lf

*&---------------------------------------------------------------------*

*& Form build_fieldcatlog_KNa

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM build_fieldcatlog_kna .

REFRESH it_fieldcat2[].

wa_fieldcat2-tabname = 'IT_KNA'.

wa_fieldcat2-fieldname = 'KUNNR'.

wa_fieldcat2-seltext_m = 'Vendor'(004).

APPEND wa_fieldcat2 TO it_fieldcat2.

CLEAR wa_fieldcat2.

wa_fieldcat2-tabname = 'IT_KNA'.

wa_fieldcat2-fieldname = 'NAME'.

wa_fieldcat2-seltext_m = 'Name'(008).

APPEND wa_fieldcat2 TO it_fieldcat2.

CLEAR wa_fieldcat2.

wa_fieldcat2-tabname = 'IT_KNA'.

wa_fieldcat2-fieldname = 'ORT01'.

wa_fieldcat2-seltext_m = 'City'(009).

APPEND wa_fieldcat2 TO it_fieldcat2.

CLEAR wa_fieldcat2.

ENDFORM. " build_fieldcatlog_KNa

*&---------------------------------------------------------------------*

*& Form data_retrieval_KNa

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM data_retrieval_kna .

REFRESH it_kna1[].

IF wa_bseg-kunnr IS NOT INITIAL.

SELECT SINGLE kunnr

name1

name2

ort01

FROM kna1

INTO wa_kna1

WHERE kunnr = wa_bseg-kunnr.

APPEND wa_kna1 TO it_kna1.

IF sy-subrc <> 0.

MESSAGE 'Select Query is wrong'(013) TYPE 'E'.

ENDIF.

REFRESH it_kna[].

LOOP AT it_kna1 INTO wa_kna1.

MOVE-CORRESPONDING wa_kna1 TO wa_kna.

CONCATENATE wa_kna1-name1 wa_kna1-name2 INTO wa_kna-name.

APPEND wa_kna TO it_kna.

ENDLOOP.

ELSE.

MESSAGE 'Invalid Record' TYPE 'E'.

ENDIF.

ENDFORM. " data_retrieval_KNa

*&---------------------------------------------------------------------*

*& Form display_alv_kna

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM display_alv_kna .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

* I_INTERFACE_CHECK = ' '

* I_BYPASSING_BUFFER = ' '

* I_BUFFER_ACTIVE = ' '

i_callback_program = sy-repid

* I_CALLBACK_PF_STATUS_SET = ' '

* I_CALLBACK_USER_COMMAND = 'F_USER_COMMAND'

i_callback_top_of_page = 'TOP_OF_PAGE'

* I_CALLBACK_HTML_TOP_OF_PAGE = ' '

* I_CALLBACK_HTML_END_OF_LIST = ' '

* I_STRUCTURE_NAME =

* I_BACKGROUND_ID = ' '

i_grid_title = i_title_kna

* I_GRID_SETTINGS =

* IS_LAYOUT =

it_fieldcat = it_fieldcat2[]

* IT_EXCLUDING =

* IT_SPECIAL_GROUPS =

* IT_SORT =

* IT_FILTER =

* IS_SEL_HIDE =

* I_DEFAULT =

* i_save = 'A'

* IS_VARIANT =

it_events = it_events

TABLES

t_outtab = it_kna

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. " display_alv_kna

Simple Classical Report

2010-01-13T06:14:00.000-08:00

*&---------------------------------------------------------------------*

*& Report Y_CLASSICAL_1

*&---------------------------------------------------------------------*

REPORT y_classical_1 LINE-SIZE 450

LINE-COUNT 65(3)

NO STANDARD PAGE HEADING.

TABLES : mara,

makt.

DATA: BEGIN OF it_final OCCURS 0,

serial LIKE sy-tabix,

matnr LIKE mara-matnr,

maktx LIKE makt-maktx,

ersda LIKE mara-ersda,

ernam LIKE mara-ernam,

mtart LIKE mara-mtart,

matkl LIKE mara-matkl,

END OF it_final.

DATA: BEGIN OF it_tab1 OCCURS 0,

matnr LIKE mara-matnr,

maktx LIKE makt-maktx,

ersda LIKE mara-ersda,

ernam LIKE mara-ernam,

mtart LIKE mara-mtart,

matkl LIKE mara-matkl,

END OF it_tab1.

SELECTION-SCREEN BEGIN OF BLOCK b1k1 WITH FRAME TITLE text-001.

PARAMETERS : p_recrds TYPE i .

SELECTION-SCREEN END OF BLOCK b1k1.

AT SELECTION-SCREEN ON p_recrds.

IF p_recrds IS INITIAL.

MESSAGE 'Please enter number' TYPE 'E'.

ENDIF.

START-OF-SELECTION.

PERFORM mara_data.

PERFORM final_data.

*&---------------------------------------------------------------------*

*& Form mara_data

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM mara_data .

SELECT a~matnr

b~maktx

a~ersda

a~ernam

a~mtart

a~matkl

INTO CORRESPONDING FIELDS OF TABLE it_tab1 UP TO p_recrds ROWS

FROM mara AS a INNER JOIN makt AS b

ON a~matnr = b~matnr .

* where p_recrds = i.

IF it_tab1[] IS INITIAL.

MESSAGE 'Data is not available' TYPE 'I'.

STOP.

ENDIF.

ENDFORM. " mara_data

*&---------------------------------------------------------------------*

*& Form final_data

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM final_data .

LOOP AT it_tab1.

MOVE-CORRESPONDING it_tab1 TO it_final.

IF sy-subrc = 0.

it_final-serial = sy-tabix.

ENDIF.

WRITE : / sy-vline,

it_final-serial COLOR = 1 under text-008,

sy-vline,

it_final-matnr COLOR = 2 under text-002 ,

it_final-maktx COLOR = 3 under text-003,

it_final-ersda COLOR = 4 under text-004,

it_final-ernam COLOR = 5 under text-005,

it_final-mtart COLOR = 6 under text-006,

it_final-matkl COLOR = 7 under text-007.

ENDLOOP.

ENDFORM. " final_data.

TOP-OF-PAGE.

WRITE : / sy-vline,

'Ram '(008) COLOR = 1,

sy-vline,

'Material No '(002) COLOR = 2,

'Material Description '(003) COLOR = 3,

'Created On'(004) COLOR = 4,

'Created By'(005) COLOR = 5,

'Material Type'(006) COLOR = 6,

'Material Group'(007) COLOR = 7.