topic Re: alv display problem in Application Development and Automation Discussions

alv display problem

Former Member — Tue, 17 Apr 2007 19:20:16 GMT

Hi :

I am trying to pull some fields from data base and display in alv.My program is syntactically correct but its not retreving any fields from the database.

Below is my program.I would appreciate if anyone can figure out the error.

REPORT zska_mm_create_po_from_pr NO STANDARD PAGE HEADING MESSAGE-ID

zska .

TABLES: eban.

*data declarations.

TYPES : BEGIN OF t_prdata,

lifnr LIKE eban-lifnr,

matnr LIKE eban-matnr,

menge LIKE eban-menge,

werks LIKE eban-werks,

ekorg LIKE eban-ekorg,

frgdt LIKE eban-frgdt,

END OF t_prdata.

DATA : BEGIN OF it_output OCCURS 0,

lifnr TYPE eban-lifnr,

matnr TYPE eban-matnr,

menge TYPE eban-menge,

werks TYPE eban-werks,

ekorg TYPE eban-ekorg,

frgdt TYPE eban-frgdt,

ebeln TYPE eban-ebeln,

ebelp TYPE eban-ebelp,

bedat TYPE eban-bedat,

bsmng TYPE eban-bsmng,

END OF it_output.

TYPE-POOLS : slis.

DATA : repid LIKE sy-repid.

DATA : it_prdata TYPE TABLE OF t_prdata.

*alv grid instance ref.

DATA l_grid TYPE REF TO cl_gui_alv_grid.

*custom control

DATA l_custom_control TYPE scrfname VALUE 'CC_ALV'.

*custom container

DATA l_ccontainer TYPE REF TO cl_gui_custom_container.

*filed catalog

DATA l_fieldcat TYPE lvc_t_fcat.

*layout structure

DATA l_layout TYPE lvc_s_layo.

*selection screen

PARAMETERS : r_poauto RADIOBUTTON GROUP g1 USER-COMMAND radio DEFAULT

'X'.

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

SELECT-OPTIONS : s_lifnr FOR eban-lifnr MODIF ID sc1,

s_matnr FOR eban-matnr MODIF ID sc1,

s_ekorg FOR eban-ekorg MODIF ID sc1,

s_date FOR eban-frgdt DEFAULT sy-datum MODIF ID sc1.

PARAMETERS : p_werks LIKE eban-werks MODIF ID sc1.

SELECTION-SCREEN END OF BLOCK b1.

PARAMETERS: r_pofile RADIOBUTTON GROUP g1.

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

PARAMETERS p_file TYPE rlgrap-filename MODIF ID sc2.

SELECTION-SCREEN END OF BLOCK b2.

*selection screen events

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF r_pofile EQ 'X'.

IF screen-group1 = 'SC1'.

screen-input = '0'.

MODIFY SCREEN.

ENDIF.

IF r_poauto EQ 'X'.

IF screen-group1 = 'SC2'.

screen-input = '0'.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

START-OF-SELECTION.

SELECT lifnr matnr menge werks ekorg frgdt FROM eban INTO TABLE

it_prdata WHERE

lifnr IN s_lifnr AND

matnr IN s_matnr AND

werks = p_werks AND

frgdt IN s_date

AND blckd = ''

AND statu = 'N'.

IF sy-subrc <> 0.

MESSAGE i002(zska).

ENDIF.

COMMIT WORK AND WAIT.

CALL SCREEN 100.

*&----

*& Module DISPLAY_ALV OUTPUT

*&----

text

*----

MODULE status_0100 OUTPUT.

SET PF-STATUS 'Z_SKA_ALV'.

SET TITLEBAR 'Z_SKA_ALV_DISPLAY'.

IF l_grid IS INITIAL.

*custom conatiner instance

CREATE OBJECT l_ccontainer

EXPORTING

PARENT =

container_name = l_custom_control

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 ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

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

ENDIF.

*alv grid instance

CREATE OBJECT l_grid

EXPORTING

I_SHELLSTYLE = 0
I_LIFETIME =

i_parent = l_ccontainer

I_APPL_EVENTS = space
I_PARENTDBG =
I_APPLOGPARENT =
I_GRAPHICSPARENT =
I_NAME =

EXCEPTIONS

error_cntl_create = 1

error_cntl_init = 2

error_cntl_link = 3

error_dp_create = 4

OTHERS = 5

IF sy-subrc <> 0.

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

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

ENDIF.

*PREPARING FIELD CATALOG

PERFORM prepare_field_catalog CHANGING l_fieldcat.

*PREPARING FILED STRUCTURE

PERFORM prepare_layout CHANGING l_layout.

CALL METHOD l_grid->set_table_for_first_display

EXPORTING

I_BUFFER_ACTIVE =
I_BYPASSING_BUFFER =
I_CONSISTENCY_CHECK =
I_STRUCTURE_NAME =
IS_VARIANT =
I_SAVE =
I_DEFAULT = 'X'

is_layout = l_layout

IS_PRINT =
IT_SPECIAL_GROUPS =
IT_TOOLBAR_EXCLUDING =
IT_HYPERLINK =
IT_ALV_GRAPHICS =
IT_EXCEPT_QINFO =

CHANGING

it_outtab = it_prdata

it_fieldcatalog = l_fieldcat

IT_SORT =
IT_FILTER =

EXCEPTIONS

invalid_parameter_combination = 1

program_error = 2

too_many_lines = 3

OTHERS = 4

IF sy-subrc <> 0.

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

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

ENDIF.

ELSE.

CALL METHOD l_grid->refresh_table_display

EXPORTING
IS_STABLE =
I_SOFT_REFRESH =

EXCEPTIONS

finished = 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.

ENDMODULE. "STATUS_0100 OUTPUT

*&----

*& Form PREPARE_FIELD_CATALOG

*&----

text

*----

<--P_L_FIELDCAT text

*----

FORM prepare_field_catalog CHANGING p_l_fieldcat TYPE lvc_t_fcat.

DATA ls_fcat TYPE lvc_s_fcat.

ls_fcat-fieldname = 'LIFNR'.

ls_fcat-ref_table = 'EBAN'.