REPORT

Former Member · ‎2007 Nov 14

Hi

This is lalitha

I have got an error in my report

please solve my error

error: "it_fcat" is a table without a headerline and therefore has no component

called "col_pos" .

This is my program

TYPE-POOLS: SLIS .

***********DECLARATION OF USER DEFINED STRUCTURES*******

TYPES: BEGIN OF IT_MARA,

MATNR LIKE MARA-MATNR, "Meterial Number

MATART LIKE mara-mtart, "Material Type

MBRSH LIKE MARA-MBRSH, "INDUSTRY SECTOR

MARKL LIKE MARA-MATKL, "Meterial Group

END OF IT_MARA .

**************DECLARATION OF INTERNAL TABLES*************

DATA: IT_MARA TYPE STANDARD TABLE OF IT_MARA ,

IT_FCAT TYPE SLIS_T_FIELDCAT_ALV .

***********DEFINING IT_EVENTS**************

DEFINE BUILD_CATALOUGE.

IT_FCAT-COL_POS = &1.

IT_FCAT-ROW_POS = &2.

IT_FCAT-FIELDNAME = &3.

IT_FCAT-ZEBRA = 'X' .

IT_FCAT-TABNAME = &4.

IT_FCAT-DO_SUM = &5.

IT_FCAT-OUTPUTLEN = &6.

IT_FCAT-OFFSET = &7.

IT_FCAT-SELTEXT_L = &8.

IT_FCAT-SELTEXT_M = &9 .

END-OF-DEFINITION .

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

START-OF-SELECTION .

PERFORM POPULATE_IT_MARA.

PERFORM BUILD_IT_FCAT .

PERFORM ASSIGN_FCAT_TO_ALV .

*******FORM POPULATE_IT_MARA******

FORM POPULATE_IT_MARA.

SELECT MATNR

MTART

MBRSH

MATKL

INTO CORRESPONDING FIELDS OF TABLE IT_MARA

FROM MARA

.

ENDFORM . "Populate_it_mara

*************FORM BUILD_IT_FCAT**********

FORM BUILD_IT_FCAT .

BUILD_CATALOUGE '1' '1' 'MATNR' 'IT_,MARA' 'X' '20' '10' 'MATERIAL'

'MAT'.

BUILD_CATALOUGE1 'MT' .

ENDFORM . " BUILD_IT_FCAT

FORM ASSIGN_FCAT_TO_ALV.

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 = ' '
I_CALLBACK_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_GRID_SETTINGS =
IS_LAYOUT =

IT_FIELDCAT = IT_FCAT

IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IT_ALV_GRAPHICS =
IT_HYPERLINK =
IT_ADD_FIELDCAT =
IT_EXCEPT_QINFO =
I_HTML_HEIGHT_TOP =
I_HTML_HEIGHT_END =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =

TABLES

T_OUTTAB = IT_MARA

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

Former Member · ‎2007 Nov 14

Hi see this simple program

in which filed catalog won't be a big problem

REPORT ZLSO_CANCEL.

**************DATA TYPES DECLARATION **********************

TABLES: HRP1001, HRP1026, HRP1000,PCHDY.

TYPE-POOLS SLIS.

TYPES :BEGIN OF ST_OUTPUT,

COUNT TYPE STRING,

OBJID TYPE HRP1001-OBJID,

STEXT TYPE HRP1000-STEXT,

BEGDA TYPE HRP1000-BEGDA,

ENDDA TYPE HRP1000-ENDDA,

CANCRT TYPE T77CRT-CANCRT,

AEDTM TYPE HRP1026-AEDTM,

UNAME TYPE HRP1026-UNAME,

LSTEXT TYPE HRP1000-STEXT,

RINVT TYPE T777V-RINVT,

END OF ST_OUTPUT.

TYPES: BEGIN OF ST_HRP1000,

OBJID TYPE HRP1001-OBJID,

STEXT TYPE HRP1000-STEXT,

END OF ST_HRP1000.

TYPES : BEGIN OF ST_HRP1001,

OTYPE TYPE HRP1001-OTYPE,

OBJID TYPE HRP1001-OBJID,

RELAT type hrp1001-RELAT,

BEGDA TYPE HRP1001-BEGDA,

ENDDA TYPE HRP1001-ENDDA,

SCLAS TYPE HRP1001-SCLAS,

SOBID TYPE HRP1001-SOBID,

END OF ST_HRP1001.

TYPES : BEGIN OF ST_HRP1026,

OTYPE TYPE HRP1026-OTYPE,

OBJID TYPE HRP1001-OBJID,

AEDTM TYPE HRP1026-AEDTM,

UNAME TYPE HRP1026-UNAME,

DELET TYPE HRP1026-DELET,

CANCR TYPE HRP1026-CANCR,

END OF ST_HRP1026.

TYPES : BEGIN OF ST_REASON,

CANCR TYPE HRP1026-CANCR,

CANCRT TYPE T77CRT-CANCRT,

END OF ST_REASON.

TYPES : BEGIN OF ST_SOBID,

OTYPE TYPE HRP1001-OTYPE,

OBJID TYPE HRP1001-OBJID,

RELAT type hrp1001-OBJID,

BEGDA TYPE HRP1001-BEGDA,

ENDDA TYPE HRP1001-ENDDA,

SCLAS TYPE HRP1001-SCLAS,

SOBID TYPE HRP1001-OBJID,

END OF ST_SOBID.

TYPES : BEGIN OF ST_OBJID,

OBJID TYPE HRP1001-OBJID,

END OF ST_OBJID.

TYPES : BEGIN OF ST_LOCATION,

OTYPE TYPE HRP1001-OTYPE,

OBJID TYPE HRP1001-OBJID,

RSIGN TYPE HRP1001-RSIGN,

RELAT TYPE HRP1001-RELAT,

SCLAS TYPE HRP1001-SCLAS,

SOBID TYPE HRP1001-SOBID,

END OF ST_LOCATION.

TYPES : BEGIN OF ST_LOCATION1,

OTYPE TYPE HRP1001-OTYPE,

OBJID TYPE HRP1001-OBJID,

RSIGN TYPE HRP1001-RSIGN,

RELAT TYPE HRP1001-RELAT,

SCLAS TYPE HRP1001-SCLAS,

SOBID TYPE HRP1001-OBJID,

END OF ST_LOCATION1.

TYPES : BEGIN OF ST_LSTEXT,

OTYPE TYPE HRP1000-OTYPE,

OBJID TYPE HRP1000-OBJID,

LSTEXT TYPE HRP1000-STEXT,

END OF ST_LSTEXT.

TYPES : BEGIN OF ST_OBJID_SH,

OTYPE TYPE HRP1000-OTYPE,

OBJID TYPE HRP1000-OBJID,

END OF ST_OBJID_SH.

DATA : IT_OBJID_SH TYPE STANDARD TABLE OF ST_OBJID_SH.

DATA : WA_OBJID_SH TYPE ST_OBJID_SH.

DATA : IT_LSTEXT TYPE STANDARD TABLE OF ST_LSTEXT. "TOS STORE THE TEXT OF COURCE LOCATION

DATA : WA_LSTEXT TYPE ST_LSTEXT.

DATA : IT_LOCATION TYPE STANDARD TABLE OF ST_LOCATION. " TO STORE THE LOCATION OF COURCE

DATA : WA_LOCATION TYPE ST_LOCATION.

DATA : IT_LOCATION1 TYPE STANDARD TABLE OF ST_LOCATION1. " TO CONVERT SOBID INTO OBJID FOR COURCE LOCATION

DATA : WA_LOCATION1 TYPE ST_LOCATION1.

DATA : IT_SOBID TYPE STANDARD TABLE OF ST_SOBID. " TO CHANGE THE SOBID OF HRP1001 TO OBJID OF HRP1026

DATA : WA_SOBID TYPE ST_SOBID. " BY USING FOR ALL ENTRIES

DATA : IT_REASON TYPE STANDARD TABLE OF ST_REASON. "TO STORE T HE REASON FOR CANCELL TEXT

DATA : WA_REASON TYPE ST_REASON.

DATA : IT_OUTPUT TYPE STANDARD TABLE OF ST_OUTPUT. "OUTPUT FEILDS OF REPORT.

DATA : WA_OUTPUT TYPE ST_OUTPUT.

DATA : IT_OUTPUT_1 TYPE STANDARD TABLE OF ST_OUTPUT. " TEMP OUTPUT FEILDS OF REPORT.

DATA : WA_OUTPUT_1 TYPE ST_OUTPUT.

DATA : IT_HRP1000 TYPE STANDARD TABLE OF ST_HRP1000. "DATA FROM HRP1000 TABLE

DATA : WA_HRP1000 TYPE ST_HRP1000.

DATA : IT_HRP1001 TYPE STANDARD TABLE OF ST_HRP1001. "DATA FROM HRP1001 TABLE

DATA : WA_HRP1001 TYPE ST_HRP1001.

DATA : IT_HRP1026 TYPE STANDARD TABLE OF ST_HRP1026. "DATA FROM HRP1026 TABLE

DATA : WA_HRP1026 TYPE ST_HRP1026.

DATA : IT_OBJID TYPE STANDARD TABLE OF ST_OBJID. " TO STORE THE OBJID OF HRP1001

DATA : WA_OBJID TYPE ST_OBJID.

DATA: WS_FCAT TYPE SLIS_FIELDCAT_ALV . " FEILDCATALOG FOR ALV REPORT

DATA: IN_FCAT TYPE SLIS_T_FIELDCAT_ALV.

DATA: W_LAYOUT TYPE SLIS_LAYOUT_ALV.

DATA : LV_COUNT TYPE I. "FEILD FOR SERIAL NUMBER

***************************END OF DATA DECLARATION******************************************

***********SELECTION SCREEN DESIGN***********************

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

*SELECT-OPTIONS : S_OTYPE FOR HRP1001-OTYPE NO INTERVALS .

SELECT-OPTIONS : S_OBJID FOR HRP1001-OBJID NO INTERVALS .

SELECT-OPTIONS : DATE FOR SY-DATUM NO-EXTENSION OBLIGATORY.

SELECTION-SCREEN END OF BLOCK B1.

**********END OF SELECTION SCREEN DESIGN*****************

*****INITIALIZATION VENT TO ASIGN DEFAULT VALUES TO OTYPE

*INITIALIZATION.

S_OTYPE-LOW = 'D'.
S_OTYPE-SIGN = 'I'.
S_OTYPE-OPTION = 'EQ'.
APPEND S_OTYPE.
CLEAR S_OTYPE.

*************END OF EVENT INITIALIZATION*****************

*********VALIDATION FOR SCREEN FIELDS********************

AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_OBJID-LOW.

IF S_OBJID IS NOT INITIAL.

SELECT OTYPE OBJID FROM HRP1000

INTO TABLE IT_OBJID_SH

WHERE OTYPE = 'D'.

IF SY-SUBRC EQ 0.

SEARCH HELP FOR QUALIFICATION.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

DDIC_STRUCTURE = ' '

RETFIELD = 'OBJID'

PVALKEY = ' '

DYNPPROG = SY-REPID

DYNPNR = SY-DYNNR

DYNPROFIELD = 'S_OBJID'

STEPL = 0
WINDOW_TITLE =
VALUE = ' '

VALUE_ORG = 'S'

MULTIPLE_CHOICE = ' '
DISPLAY = ' '
CALLBACK_PROGRAM = ' '
CALLBACK_FORM = ' '
MARK_TAB =
IMPORTING
USER_RESET =

TABLES

VALUE_TAB = IT_OBJID_SH

FIELD_TAB =
RETURN_TAB = RETURN_TAB
DYNPFLD_MAPPING =
EXCEPTIONS
PARAMETER_ERROR = 1
NO_VALUES_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.

.

IF SY-SUBRC NE 0.
MESSAGE 'NO RECORD FOUND FOR THE GIVEN SELECTION CRITERIA.' TYPE 'E'.
ENDIF.

*

ENDIF.
REFRESH IT_OBJID.

***************VALIDATION OF SCREEN FIELDS ENDS***********

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

START-OF-SELECTION.

SELECT OTYPE

OBJID

RELAT

BEGDA

ENDDA

SCLAS

SOBID FROM HRP1001 INTO TABLE IT_HRP1001

WHERE OTYPE = 'D'

AND OBJID IN S_OBJID

AND BEGDA GE DATE-LOW

AND ENDDA LE DATE-HIGH

AND ( SCLAS = 'E' OR SCLAS = 'ET' ).

IF SY-SUBRC NE 0.

MESSAGE 'NO RECORD FOUND FOR THE GIVEN SELECTION CRITERIA ' TYPE 'E'.

ENDIF.

LOOP AT IT_HRP1001 INTO WA_HRP1001.

WA_SOBID-OTYPE = WA_HRP1001-OTYPE.

WA_SOBID-OBJID = WA_HRP1001-OBJID.

WA_SOBID-RELAT = WA_HRP1001-RELAT.

WA_SOBID-BEGDA = WA_HRP1001-BEGDA.

WA_SOBID-ENDDA = WA_HRP1001-ENDDA.

WA_SOBID-SCLAS = WA_HRP1001-SCLAS.

WA_SOBID-SOBID = WA_HRP1001-SOBID.

APPEND WA_SOBID TO IT_SOBID.

ENDLOOP.

SELECT OTYPE

OBJID

AEDTM

UNAME

DELET

CANCR

NCONT

FROM HRP1026

INTO TABLE IT_HRP1026

FOR ALL ENTRIES IN IT_SOBID

WHERE OBJID = IT_SOBID-SOBID

AND ( OTYPE = 'E' OR OTYPE = 'ET' )

AND DELET = 'X' AND

BEGDA GE DATE-LOW AND

ENDDA LE DATE-HIGH.

IF SY-SUBRC EQ 0.

SELECT OBJID

STEXT

FROM HRP1000

INTO TABLE IT_HRP1000

FOR ALL ENTRIES IN IT_SOBID

WHERE OBJID = IT_SOBID-SOBID AND

BEGDA GE DATE-LOW AND

ENDDA LE DATE-HIGH.

SELECT CANCR

CANCRT

FROM T77CRT

INTO TABLE IT_REASON

FOR ALL ENTRIES IN IT_HRP1026

WHERE CANCR = IT_HRP1026-CANCR

AND LANGU = 'E' .

********PERFORM FOR GETTING T HE LOCATION OF THE COURCE**

PERFORM GET_LOCATION.

**************END OF LOCATION OF COURCE ******************

ELSE.

MESSAGE 'NO RECORD FOUND FOR THE GIVEN SELECTION CRITERIA ' TYPE 'E'.

ENDIF.

*****PERFORM FOR GETTING DATA INTO THE FINAL INTERNAL TABLE IT_OUTPUT**

PERFORM GET_DATA.

*********************************END OF PERFORM ET DATA ***************

***********LOGIC FOR PRONTING NUMBER OF RECORDS ***********************

LV_COUNT = 0.

LOOP AT IT_OUTPUT INTO WA_OUTPUT.

LV_COUNT = LV_COUNT + 1.

WA_OUTPUT-COUNT = LV_COUNT.

APPEND WA_OUTPUT TO IT_OUTPUT_1.

ENDLOOP.

REFRESH IT_OUTPUT.

IT_OUTPUT = IT_OUTPUT_1.

********************END OF LOGIC FOR NUMBER OF RECORDS ***************

****************DISPLAYING OUTPUT BY USEING GRID DISPLAY**********

PERFORM ALV_DISPLAY.

****************************END OF PERFORM FOR DISPLAYING **********

&----

*& Form PERFORM_ALV

&----

DISPLAY THE RECORDS IN ALV GRID FORMAT.

----

FORM ALV_DISPLAY.

PERFORM FIELD_CATALOG USING 'COUNT' 'Sr. No.'.

PERFORM FIELD_CATALOG USING 'OBJID' 'COURCE ID.'.

PERFORM FIELD_CATALOG USING 'STEXT' 'COURCE NAME'.

PERFORM FIELD_CATALOG USING 'LSTEXT' 'COURCE LOATION'.

PERFORM FIELD_CATALOG USING 'BEGDA' 'BEGIN DATE '.

PERFORM FIELD_CATALOG USING 'ENDDA' 'END DATE '.

PERFORM FIELD_CATALOG USING 'CANCRT' 'REASON'.

PERFORM FIELD_CATALOG USING 'AEDTM' 'DATE Of CANCEL'.

PERFORM FIELD_CATALOG USING 'NCONT' 'NUMBER OF BOOKINGS'.
PERFORM FIELD_CATALOG USING 'LOCTX' 'COURCE LOCATION'.

PERFORM FIELD_CATALOG USING 'UNAME' 'WHO CANCELLED'.

PERFORM FIELD_CATALOG USING 'LSTEXT' 'COURCE LOATION'.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_STRUCTURE_NAME = 'IT_OUTPUT'

I_GRID_TITLE = ' Cancelled courses with reason '

IT_FIELDCAT = IN_FCAT

TABLES

T_OUTTAB = IT_OUTPUT.

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

&----

*& Form FIELD_CATALOG

&----

text

----

-->FIELD_NAME text
-->DIS_TEXT text

----

FORM FIELD_CATALOG USING FIELD_NAME DIS_TEXT.

CLEAR WS_FCAT.

WS_FCAT-TABNAME = 'IT_OUTPUT'.

WS_FCAT-FIELDNAME = FIELD_NAME.

WS_FCAT-SELTEXT_M = DIS_TEXT.

APPEND WS_FCAT TO IN_FCAT .

ENDFORM. "FIELD_CATALOG

&----

*& Form GET_DATA

&----

text

----

--> p1 text
<-- p2 text

----

FORM GET_DATA .

*sort it_sobid by objid.

LOOP AT IT_SOBID INTO WA_SOBID." where otype eq s_otype and objid eq s_objid.

READ TABLE IT_HRP1026 WITH KEY OBJID = WA_SOBID-SOBID OTYPE = WA_SOBID-SCLAS INTO WA_HRP1026.

IF SY-SUBRC EQ 0.

READ TABLE IT_HRP1000 WITH KEY OBJID = WA_SOBID-SOBID INTO WA_HRP1000.

READ TABLE IT_REASON WITH KEY CANCR = WA_HRP1026-CANCR INTO WA_REASON.

WA_OUTPUT-OBJID = WA_HRP1026-OBJID.

WA_OUTPUT-BEGDA = WA_SOBID-BEGDA.

WA_OUTPUT-ENDDA = WA_SOBID-ENDDA.

WA_OUTPUT-AEDTM = WA_HRP1026-AEDTM.

WA_OUTPUT-UNAME = WA_HRP1026-UNAME.

WA_OUTPUT-NCONT = WA_HRP1026-NCONT.

READ TABLE IT_HRP1000 WITH KEY OBJID = WA_SOBID-SOBID INTO WA_HRP1000.

WA_OUTPUT-STEXT = WA_HRP1000-STEXT.

READ TABLE IT_REASON WITH KEY CANCR = WA_HRP1026-CANCR INTO WA_REASON.

WA_OUTPUT-CANCRT = WA_REASON-CANCRT.

CLEAR WA_REASON-CANCRT.

READ TABLE IT_LOCATION1 WITH KEY OBJID = WA_HRP1026-OBJID INTO WA_LOCATION1..

READ TABLE IT_LSTEXT WITH KEY OBJID = WA_LOCATION1-SOBID OTYPE = 'F' INTO WA_LSTEXT.

WA_OUTPUT-LSTEXT = WA_LSTEXT-LSTEXT.

CLEAR WA_LSTEXT-LSTEXT.

APPEND WA_OUTPUT TO IT_OUTPUT.

CLEAR WA_OUTPUT.

CLEAR WA_OUTPUT-CANCRT.

ENDIF.

ENDLOOP.

ENDFORM. " GET_DATA

&----

*& Form GET_LOCATION

&----

text

----

--> p1 text
<-- p2 text

----

FORM GET_LOCATION .

SELECT OTYPE

OBJID

RSIGN

RELAT

SCLAS

SOBID

FROM HRP1001

INTO TABLE IT_LOCATION

FOR ALL ENTRIES IN IT_HRP1026

WHERE OTYPE = 'E' AND OBJID = IT_HRP1026-OBJID

AND RSIGN = 'A' AND RELAT = '024' AND SCLAS = 'F'

AND BEGDA GE DATE-LOW AND ENDDA LE DATE-HIGH.

IF SY-SUBRC NE 0.

MESSAGE 'NO RECORD FOUND FOR THE GIVEN SELECTION CRITERIA ' TYPE 'E'.

ENDIF.

LOOP AT IT_LOCATION INTO WA_LOCATION.

WA_LOCATION1-OTYPE = WA_LOCATION-OTYPE.

WA_LOCATION1-OBJID = WA_LOCATION-OBJID.

WA_LOCATION1-RSIGN = WA_LOCATION-RSIGN.

WA_LOCATION1-RELAT = WA_LOCATION-RELAT.

WA_LOCATION1-SCLAS = WA_LOCATION-SCLAS.

WA_LOCATION1-SOBID = WA_LOCATION-SOBID.

APPEND WA_LOCATION1 TO IT_LOCATION1.

CLEAR WA_LOCATION1.

ENDLOOP.

SELECT OTYPE

OBJID

STEXT

FROM HRP1000

INTO TABLE IT_LSTEXT

FOR ALL ENTRIES IN IT_LOCATION1

WHERE OBJID = IT_LOCATION1-SOBID

AND OTYPE = 'F'.

AND BEGDA GE DATE-LOW
AND ENDDA LE DATE-HIGH.

ENDFORM. " GET_LOCATION

former_member189629 · ‎2007 Nov 14

Lalitha,

Change the declaration of it_fcat as below

data: IT_FCAT TYPE table of SLIS_T_FIELDCAT_ALV with header line.

reward if helpful,

Karthik

Former Member · ‎2007 Nov 14

HAI LALITHA,

USE THIS FOR WITH OUT HEADER

data: fcat type slis_t_fieldcat_alv,

wa_fcat type slis_fieldcat_alv,

v_events type slis_t_event,

wa_event type slis_alv_event.

THEN U CAN GET THE OUTPUT

SEE THIS PROGRAM.

&----

*& Report ZALV12 *

*& *

&----

*& *

&----

REPORT ZALV12 .

TYPE-POOLS SLIS.

tables: mara, marc.

select-options: s_matnr for mara-matnr.

types: begin of it_mara,

matnr like mara-matnr,

ersda like mara-ersda,

ernam like mara-ernam,

mbrsh like mara-mbrsh,

mtart like mara-mtart,

end of it_mara.

types: begin of it_marc,

matnr like marc-matnr,

werks like marc-werks,

pstat like marc-pstat,

ekgrp like marc-ekgrp,

end of it_marc.

data: wa_mara type it_mara,

itab_mara type standard table of it_mara.

data: wa_marc type it_marc,

itab_marc type standard table of it_marc.

data: fcat type slis_t_fieldcat_alv,

wa_fcat type slis_fieldcat_alv,

v_events type slis_t_event,

wa_event type slis_alv_event.

data: V_REPID like sy-repid.

initialization.

V_REPID = SY-REPID.

perform build_fcat.

perform call_event.

perform read_event.

start-of-selection.

perform retrieve_data.

perform display_report.

form build_fcat.

wa_fcat-fieldname = 'MATNR'.

wa_fcat-tabname = 'IT_MARA-MATNR'.

wa_fcat-seltext_m = 'MAT NO'.

append wa_fcat to fcat.

clear wa_fcat.

wa_fcat-fieldname = 'ERSDA'.

wa_fcat-tabname = 'IT_MARA-ERSDA'.

wa_fcat-seltext_m = 'CREATED ON'.

append wa_fcat to fcat.

clear wa_fcat.

wa_fcat-fieldname = 'ERNAM'.

wa_fcat-tabname = 'IT_MARA-ERNAM'.

wa_fcat-seltext_m = 'CREATED BY'.

append wa_fcat to fcat.

clear wa_fcat.

endform.

form call_event.

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.

form read_event.

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.

form retrieve_data.

select MATNR ERSDA ERNAM from mara

into table itab_mara

where matnr in s_matnr.

endform.

form display_report.

V_REPID = SY-REPID.

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 = 'USER_COMMAND'

I_CALLBACK_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_GRID_SETTINGS =
IS_LAYOUT =

IT_FIELDCAT = FCAT

IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =

IT_EVENTS = V_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
IT_ALV_GRAPHICS =
IT_HYPERLINK =
IT_ADD_FIELDCAT =
IT_EXCEPT_QINFO =
I_HTML_HEIGHT_TOP =
I_HTML_HEIGHT_END =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =

TABLES

t_outtab = ITAB_MARA

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.

FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM

RS_SELFIELD TYPE SLIS_SELFIELD.

case R_UCOMM.

WHEN '&IC1'.

READ TABLE ITAB_MARA INTO WA_MARA INDEX RS_SELFIELD-TABINDEX.

PERFORM BUILD_FCAT_marc.

PERFORM CALL_EVENT_MARC.

PERFORM READ_EVENT_MARC.

PERFORM DATA_RETRIEVAL_marc.

PERFORM DISPLAY_ALV_marc.

endcase.

ENDFORM.

form build_fcat_marc.

wa_fcat-fieldname = 'MATNR'.

wa_fcat-tabname = 'ITAB_MARC-MATNR'.

wa_fcat-seltext_m = 'MAT NO'.

append wa_fcat to fcat.

clear wa_fcat.

wa_fcat-fieldname = 'WERKS'.

wa_fcat-tabname = 'ITAB_MARC-WERKS'.

wa_fcat-seltext_m = 'PLANT'.

append wa_fcat to fcat.

clear wa_fcat.

wa_fcat-fieldname = 'PSTAT'.

wa_fcat-tabname = 'ITAB_MARC-PSTAT'.

wa_fcat-seltext_m = 'STATUS'.

append wa_fcat to fcat.

clear wa_fcat.

wa_fcat-fieldname = 'EKGRP'.

wa_fcat-tabname = 'ITAB_MARC-EKGRP'.

wa_fcat-seltext_m = 'PUR GRP'.

append wa_fcat to fcat.

clear wa_fcat.

endform.

form call_event_marc.

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.

form read_event_marc.

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.

form data_retrieval_marc.

select matnr

werks

pstat

ekgrp

from marc

into table itab_marc up to 100 rows.

endform.

form display_ALV_MARC.

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 = '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_GRID_SETTINGS =
IS_LAYOUT =

IT_FIELDCAT = fcat

IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS = v_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
IT_ALV_GRAPHICS =
IT_HYPERLINK =
IT_ADD_FIELDCAT =
IT_EXCEPT_QINFO =
I_HTML_HEIGHT_TOP =
I_HTML_HEIGHT_END =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =

TABLES

t_outtab = itab_marc

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.

By Category

Related Content

Activity Groups

Industry Groups

Influence and Feedback Groups

Interest Groups

Location Groups

Customer Only Groups

Forums

Related Resources

Products

Learning and Support

About

My Account

My Account

REPORT