TYPES: BEGIN OF ty_output,
*CBOX TYPE c,"selection checkbox*
menge1 TYPE mseg-menge,"QUANTITY TO PRINT
mblnr TYPE mkpf-mblnr,"MATERIAL DOCUMENT NUMBER
bwart TYPE mseg-bwart,"MOVEMENT TYPE
btext TYPE t156t-btext,"MOVEMENT TYPE DESCRIPTION
matnr TYPE mseg-matnr,"MATERIAL NUMBER
maktx TYPE makt-maktx,"MATERIAL DESCRIPTION
menge2 TYPE mseg-menge,"QUANTITY
meins TYPE mseg-meins,"BASE UNIT OF MEASUREMENT
werks TYPE mseg-werks,"PLANT
lgort TYPE mseg-lgort,"STORAGE LOCATION
ebeln TYPE mseg-ebeln,"PO DOCUMENT NUMBER
lifnr TYPE mseg-lifnr,"VENDOR
bldat TYPE mkpf-bldat,"DOCUMENT DATE
budat TYPE mkpf-budat,"POSTING DATE
usnam TYPE mkpf-usnam,"USER ID
xblnr TYPE mkpf-xblnr,"MATERIAL SLIP
END OF ty_output.
*macro for field catalog
DEFINE m_fieldcat.
add 1 to wa_fieldcat-col_pos.
wa_fieldcat-fieldname = &1.
wa_fieldcat-seltext_m = &2.
wa_fieldcat-checkbox = &3.
wa_fieldcat-input = &4.
wa_fieldcat-edit = &5.
wa_fieldcat-ref_tabname = &6.
append wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
END-OF-DEFINITION.
calling the macro
m_fieldcat:'CBOX' 'SELECTION' 'X' 'X' 'X' 'IT_OUTPUT' ,
'MENGE' 'QTY TO PRINT' ' ' ' ' 'X' 'MSEG',
'BWART' 'MOVEMENT TYPE' ' ' ' ' ' ' 'MSEG',
'MATNR' 'MATERIAL ID' ' ' ' ' ' ' 'MSEG',
'MAKTX' 'MATERIAL DESCRIPTION' ' ' ' ' ' ' 'MAKT',
'MENGE' 'QTY' ' ' ' ' ' ' 'MSEG',
'MEINS' 'UOM' ' ' ' ' ' ' 'MSEG',
'WERKS' 'PLANT' ' ' ' ' ' ' 'MSEG',
'LGORT' 'STORAGE LOCATION' ' ' ' ' ' ' 'MSEG',
'EBELN' 'PO NUMBER' ' ' ' ' ' ' 'MSEG',
'LIFNR' 'VENDOR' ' ' ' ' ' ' 'MSEG',
'XBLNR' 'MATERIAL SLIP' ' ' ' ' ' ' 'MSEG',
'BLDAT' 'DOCUMENT DATE' ' ' ' ' ' ' 'MKPF',
'BUDAT' 'POSTING DATE' ' ' ' ' ' ' 'MKPF',
'USNAM' 'USER ID' ' ' ' ' ' ' 'MKPF'.
buildup the layout.
wa_layout-box_fieldname = 'CBOX' .
wa_layout-box_tabname = 'IT_OUTPUT'.
passing the fieldcat and layout to reuse_alv_grid_display
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = l_repid
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_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 = wa_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 =
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 = it_output
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.