*&---------------------------------------------------------------------*
*& 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
No comments:
Post a Comment