Scribd
Upload
89 views14 pages

SAP Material Report Script

The document defines internal tables and field catalog structures to display material master data from tables MARC, MARA and MAKT in an ALV grid. It selects the required fields from these tables and assigns them to an internal table. Field catalog entries are created to define the columns in the ALV grid. The program then calls ALV functions to display the material master data.

Uploaded by

Subhadeep Saha
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as RTF, PDF, TXT or read online on Scribd
89 views14 pages

SAP Material Report Script

The document defines internal tables and field catalog structures to display material master data from tables MARC, MARA and MAKT in an ALV grid. It selects the required fields from these tables and assigns them to an internal table. Field catalog entries are created to define the columns in the ALV grid. The program then calls ALV functions to display the material master data.

Uploaded by

Subhadeep Saha
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as RTF, PDF, TXT or read online on Scribd
You are on page 1/ 14

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

*
*& Report ZMATERIAL_REPORT
*&---------------------------------------------------------------------
*
*&
*&---------------------------------------------------------------------
*
REPORT ZMATERIAL_REPORT.
TABLES: MARC,MARA,MAKT.

*TYPE-POOLS SLIS.

types: BEGIN OF s_marc, "internal-table MARC


werks type marc-werks,
prctr TYPE marc-prctr,
disls type marc-disls,
"fixls type MARC-FIXLS,
losgr type marc-losgr,
beskz type marc-beskz,
sobsl type marc-sobsl,
dismm type marc-dismm,
minbe type marc-minbe,
dispo TYPE marc-dispo,
fxhor TYPE marc-fxhor,
plifz TYPE marc-plifz,
ausss TYPE marc-ausss,
eisbe TYPE marc-eisbe,
rwpro TYPE marc-rwpro,
lvorm TYPE marc-lvorm,
mtart TYPE mara-mtart,
matkl TYPE mara-matkl,
matnr TYPE mara-matnr,
maktx type makt-maktx,
END OF s_marc.

* TYPES: BEGIN OF s_mara, "internal-table MARA


* mtart TYPE mara-mtart,
* matkl TYPE mara-matkl,
* matnr TYPE mara-matnr,
*
* END OF s_mara.
*
* TYPES: BEGIN OF s_makt, "internal-table MAKT
* maktx type makt-maktx,
* END OF s_makt.
data:it_marc TYPE TABLE OF s_marc,
wa_marc TYPE s_marc.

*data:it_mara type TABLE OF s_mara,


* wa_mara TYPE s_mara.
*
*data: it_makt TYPE TABLE OF s_makt,
* wa_makt TYPE s_makt.

data: rc type ref to cl_gui_custom_container,


rg type ref to cl_gui_alv_grid.

SELECT-OPTIONS: PNAME FOR MARC-WERKS, "selection screen


MTYPE FOR MARA-mtart,
MGROUP FOR MARA-matkl,
MNUMBER FOR MARA-matnr.

*DATA : IT_FCAT TYPE SLIS_T_FIELDCAT_ALV . "FieldCatalog


*DATA : WA_FCAT LIKE LINE OF IT_FCAT .

DATA : IT_FCAT TYPE lvc_t_fcat . "FieldCatalog


DATA : WA_FCAT TYPE lvc_s_fcat .

START-OF-SELECTION.

call SCREEN '200'.

**START-OF-SELECTION .
*
* PERFORM GET_DATA .
* PERFORM CREATE_FCAT.
*
**END-OF-SELECTION .
*
* PERFORM DISP_ALV .
*
*
* FORM GET_DATA .
*
*
*
* select werks PRCTR DISLS LOSGR marc~BESKZ marc~SOBSL marc~DISMM
* marc~MINBE marc~DISPO marc~FXHOR marc~PLIFZ "MARC~FIXLS
* marc~AUSSS marc~EISBE marc~RWPRO marc~LVORM
* mara~mtart mara~matkl mara~matnr makt~maktx
* into TABLE it_marc
* FROM mara INNER JOIN marc on mara~matnr = marc~matnr inner join
makt on mara~matnr = makt~matnr
* where mara~matnr in PNAME AND mtart in MTYPE AND matkl in
MGROUP . "INNER JOIN
*
*
** if sy-subrc <> 0. "Validation
** MESSAGE 'INVALID PLANT' type 'I'.
** ENDIF.
**
** if sy-subrc <> 0.
** MESSAGE 'INVALID MATERIAL TYPE' type 'I'.
** ENDIF.
**
** if sy-subrc <> 0.
** MESSAGE 'INVALID MATERIAL GROUP' type 'I'.
** ENDIF.
**
** if sy-subrc <> 0.
** MESSAGE 'INVALID MATERIAL NUMBER' type 'I'.
** ENDIF.
*ENDFORM. " GET_DATA

*FORM DISP_ALV .
* CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
* EXPORTING
* I_CALLBACK_PROGRAM = SY-REPID
* IT_FIELDCAT = IT_FCAT "PASS FIELD CATALOG TO ALV
* TABLES
* T_OUTTAB = it_marc.
*
*
*ENDFORM. " DISP_ALV

*FORM DISP_ALV.
*CALL FUNCTION 'REUSE_ALV_LIST_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_STRUCTURE_NAME =
** 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
** IR_SALV_LIST_ADAPTER =
** IT_EXCEPT_QINFO =
** I_SUPPRESS_EMPTY_DATA =
ABAP_FALSE
** IMPORTING
** E_EXIT_CAUSED_BY_CALLER =
** ES_EXIT_CAUSED_BY_USER =
* TABLES
* T_OUTTAB =
IT_MARC
** EXCEPTIONS
** PROGRAM_ERROR = 1
** OTHERS = 2
* .
* IF SY-SUBRC <> 0.
** Implement suitable error handling here
* ENDIF.
*
*ENDFORM.
** 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_STRUCTURE_NAME =
*** 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
*** IR_SALV_LIST_ADAPTER =
*** IT_EXCEPT_QINFO =
*** I_SUPPRESS_EMPTY_DATA =
ABAP_FALSE
*** IMPORTING
*** E_EXIT_CAUSED_BY_CALLER =
*** ES_EXIT_CAUSED_BY_USER =
** TABLES
** T_OUTTAB =
IT_MARC
*** EXCEPTIONS
*** PROGRAM_ERROR = 1
*** OTHERS = 2
** .
** IF SY-SUBRC <> 0.
*** Implement suitable error handling here
** ENDIF.
**
**ENDFORM.
*
*FORM CREATE_FCAT .
* WA_FCAT-COL_POS = '1' .
* WA_FCAT-FIELDNAME = 'WERKS' .
* WA_FCAT-TABNAME = 'it_marc' .
* WA_FCAT-SELTEXT_M = 'PLANT' .
* APPEND WA_FCAT TO IT_FCAT .
* CLEAR WA_FCAT .
*
* WA_FCAT-COL_POS = '2' .
* WA_FCAT-FIELDNAME = 'MTART' .
* WA_FCAT-TABNAME = 'it_marc' .
* WA_FCAT-SELTEXT_M = 'MATERIAL TYPE' .
* APPEND WA_FCAT TO IT_FCAT .
* CLEAR WA_FCAT .
*
* WA_FCAT-COL_POS = '3' .
* WA_FCAT-FIELDNAME = 'MATKL' .
* WA_FCAT-TABNAME = 'it_marc' .
* WA_FCAT-SELTEXT_M = 'MATERIAL GROUP' .
* APPEND WA_FCAT TO IT_FCAT .
* CLEAR WA_FCAT .
*
* WA_FCAT-COL_POS = '4' .
* WA_FCAT-FIELDNAME = 'MATNR' .
* WA_FCAT-TABNAME = 'it_marc' .
* WA_FCAT-SELTEXT_M = 'MATERIAL NUMBER' .
* APPEND WA_FCAT TO IT_FCAT .
* CLEAR WA_FCAT .
*
* WA_FCAT-COL_POS = '5' .
* WA_FCAT-FIELDNAME = 'MAKTX' .
* WA_FCAT-TABNAME = 'it_marc' .
* WA_FCAT-SELTEXT_M = 'MATERIAL DESCRIPTION' .
* APPEND WA_FCAT TO IT_FCAT .
* CLEAR WA_FCAT .
*
* WA_FCAT-COL_POS = '6' .
* WA_FCAT-FIELDNAME = 'PRCTR' .
* WA_FCAT-TABNAME = 'it_marc' .
* WA_FCAT-SELTEXT_M = 'PROFIT CENTER' .
* APPEND WA_FCAT TO IT_FCAT .
* CLEAR WA_FCAT .
*
* WA_FCAT-COL_POS = '7' .
* WA_FCAT-FIELDNAME = 'DISLS' .
* WA_FCAT-TABNAME = 'it_marc' .
* WA_FCAT-SELTEXT_M = 'LOT SIZE' .
* APPEND WA_FCAT TO IT_FCAT .
* CLEAR WA_FCAT .
*
** WA_FCAT-COL_POS = '8' .
** WA_FCAT-FIELDNAME = 'FIXLS' .
** WA_FCAT-TABNAME = 'it_marc' .
** WA_FCAT-SELTEXT_M = 'FIXED LOT SIZE' .
** APPEND WA_FCAT TO IT_FCAT .
** CLEAR WA_FCAT .
*
* WA_FCAT-COL_POS = '9' .
* WA_FCAT-FIELDNAME = 'LOSGR' .
* WA_FCAT-TABNAME = 'it_marc' .
* WA_FCAT-SELTEXT_M = 'COSTING' .
* APPEND WA_FCAT TO IT_FCAT .
* CLEAR WA_FCAT .
*
* WA_FCAT-COL_POS = '10' .
* WA_FCAT-FIELDNAME = 'BESKZ' .
* WA_FCAT-TABNAME = 'it_marc' .
* WA_FCAT-SELTEXT_M = 'PROCUREMENT' .
* APPEND WA_FCAT TO IT_FCAT .
* CLEAR WA_FCAT .
*
* WA_FCAT-COL_POS = '11' .
* WA_FCAT-FIELDNAME = 'SOBSL' .
* WA_FCAT-TABNAME = 'it_marc' .
* WA_FCAT-SELTEXT_M = 'SPECIAL' .
* APPEND WA_FCAT TO IT_FCAT .
* CLEAR WA_FCAT .
*
* WA_FCAT-COL_POS = '12' .
* WA_FCAT-FIELDNAME = 'DISMM' .
* WA_FCAT-TABNAME = 'it_marc' .
* WA_FCAT-SELTEXT_M = 'MRP TYPE' .
* APPEND WA_FCAT TO IT_FCAT .
* CLEAR WA_FCAT .
*
* WA_FCAT-COL_POS = '13' .
* WA_FCAT-FIELDNAME = 'MINBE' .
* WA_FCAT-TABNAME = 'it_marc' .
* WA_FCAT-SELTEXT_M = 'REORDER POINT' .
* APPEND WA_FCAT TO IT_FCAT .
* CLEAR WA_FCAT .
*
* WA_FCAT-COL_POS = '14' .
* WA_FCAT-FIELDNAME = 'DISPO' .
* WA_FCAT-TABNAME = 'it_marc' .
* WA_FCAT-SELTEXT_M = 'MRP CONTROLLER' .
* APPEND WA_FCAT TO IT_FCAT .
* CLEAR WA_FCAT .
*
* WA_FCAT-COL_POS = '15' .
* WA_FCAT-FIELDNAME = 'FXHOR' .
* WA_FCAT-TABNAME = 'it_marc' .
* WA_FCAT-SELTEXT_M = 'PLAN TIME FENCE' .
* APPEND WA_FCAT TO IT_FCAT .
* CLEAR WA_FCAT .
*
* WA_FCAT-COL_POS = '16' .
* WA_FCAT-FIELDNAME = 'PLIFZ' .
* WA_FCAT-TABNAME = 'it_marc' .
* WA_FCAT-SELTEXT_M = 'PLAN DELAY TIME' .
* APPEND WA_FCAT TO IT_FCAT .
* CLEAR WA_FCAT .
*
* WA_FCAT-COL_POS = '17' .
* WA_FCAT-FIELDNAME = 'AUSSS' .
* WA_FCAT-TABNAME = 'it_marc' .
* WA_FCAT-SELTEXT_M = 'ASSEMBLY SCRAP' .
* APPEND WA_FCAT TO IT_FCAT .
* CLEAR WA_FCAT .
*
* WA_FCAT-COL_POS = '18' .
* WA_FCAT-FIELDNAME = 'EISBE' .
* WA_FCAT-TABNAME = 'it_marc' .
* WA_FCAT-SELTEXT_M = 'SAFETY STOCK' .
* APPEND WA_FCAT TO IT_FCAT .
* CLEAR WA_FCAT .
*
* WA_FCAT-COL_POS = '19' .
* WA_FCAT-FIELDNAME = 'RWPRO' .
* WA_FCAT-TABNAME = 'it_marc' .
* WA_FCAT-SELTEXT_M = 'COVERAGE PROFILE' .
* APPEND WA_FCAT TO IT_FCAT .
* CLEAR WA_FCAT .
*
* WA_FCAT-COL_POS = '20' .
* WA_FCAT-FIELDNAME = 'LVORM' .
* WA_FCAT-TABNAME = 'it_marc' .
* WA_FCAT-SELTEXT_M = 'FLAGGED FOR DELETION' .
* APPEND WA_FCAT TO IT_FCAT .
* CLEAR WA_FCAT .
*
*ENDFORM. " CREATE_FCAT

*&---------------------------------------------------------------------
*
*& Module STATUS_0200 OUTPUT
*&---------------------------------------------------------------------
*
* text
*----------------------------------------------------------------------
*
MODULE STATUS_0200 OUTPUT.
* SET PF-STATUS 'xxxxxxxx'.
* SET TITLEBAR 'xxx'.
CREATE OBJECT RC
EXPORTING
* PARENT =
CONTAINER_NAME = 'CONT'
* 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.

CREATE OBJECT RG
EXPORTING
* I_SHELLSTYLE = 0
* I_LIFETIME =
I_PARENT = RC
* I_APPL_EVENTS = space
* I_PARENTDBG =
* I_APPLOGPARENT =
* I_GRAPHICSPARENT =
* I_NAME =
* I_FCAT_COMPLETE = SPACE
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.

select werks PRCTR DISLS LOSGR marc~BESKZ marc~SOBSL marc~DISMM


marc~MINBE marc~DISPO marc~FXHOR marc~PLIFZ "MARC~FIXLS
marc~AUSSS marc~EISBE marc~RWPRO marc~LVORM
mara~mtart mara~matkl mara~matnr makt~maktx
into TABLE it_marc
FROM mara INNER JOIN marc on mara~matnr = marc~matnr inner join makt
on mara~matnr = makt~matnr
where mara~matnr in PNAME AND mtart in MTYPE AND matkl in
MGROUP . "INNER JOIN

WA_FCAT-COL_POS = '1' .
WA_FCAT-FIELDNAME = 'WERKS' .
WA_FCAT-TABNAME = 'it_marc' .
WA_FCAT-SCRTEXT_M = 'PLANT' .
APPEND WA_FCAT TO IT_FCAT .
CLEAR WA_FCAT .

WA_FCAT-COL_POS = '2' .
WA_FCAT-FIELDNAME = 'MTART' .
WA_FCAT-TABNAME = 'it_marc' .
WA_FCAT-SCRTEXT_M = 'MATERIAL TYPE' .
APPEND WA_FCAT TO IT_FCAT .
CLEAR WA_FCAT .

WA_FCAT-COL_POS = '3' .
WA_FCAT-FIELDNAME = 'MATKL' .
WA_FCAT-TABNAME = 'it_marc' .
WA_FCAT-SCRTEXT_M = 'MATERIAL GROUP' .
APPEND WA_FCAT TO IT_FCAT .
CLEAR WA_FCAT .

WA_FCAT-COL_POS = '4' .
WA_FCAT-FIELDNAME = 'MATNR' .
WA_FCAT-TABNAME = 'it_marc' .
WA_FCAT-SCRTEXT_M = 'MATERIAL NUMBER' .
APPEND WA_FCAT TO IT_FCAT .
CLEAR WA_FCAT .

WA_FCAT-COL_POS = '5' .
WA_FCAT-FIELDNAME = 'MAKTX' .
WA_FCAT-TABNAME = 'it_marc' .
WA_FCAT-SCRTEXT_M = 'MATERIAL DESCRIPTION' .
APPEND WA_FCAT TO IT_FCAT .
CLEAR WA_FCAT .

WA_FCAT-COL_POS = '6' .
WA_FCAT-FIELDNAME = 'PRCTR' .
WA_FCAT-TABNAME = 'it_marc' .
WA_FCAT-SCRTEXT_M = 'PROFIT CENTER' .
APPEND WA_FCAT TO IT_FCAT .
CLEAR WA_FCAT .

WA_FCAT-COL_POS = '7' .
WA_FCAT-FIELDNAME = 'DISLS' .
WA_FCAT-TABNAME = 'it_marc' .
WA_FCAT-SCRTEXT_M = 'LOT SIZE' .
APPEND WA_FCAT TO IT_FCAT .
CLEAR WA_FCAT .

* WA_FCAT-COL_POS = '8' .
* WA_FCAT-FIELDNAME = 'FIXLS' .
* WA_FCAT-TABNAME = 'it_marc' .
* WA_FCAT-SCRTEXT_M = 'FIXED LOT SIZE' .
* APPEND WA_FCAT TO IT_FCAT .
* CLEAR WA_FCAT .

WA_FCAT-COL_POS = '9' .
WA_FCAT-FIELDNAME = 'LOSGR' .
WA_FCAT-TABNAME = 'it_marc' .
WA_FCAT-SCRTEXT_M = 'COSTING' .
APPEND WA_FCAT TO IT_FCAT .
CLEAR WA_FCAT .

WA_FCAT-COL_POS = '10' .
WA_FCAT-FIELDNAME = 'BESKZ' .
WA_FCAT-TABNAME = 'it_marc' .
WA_FCAT-SCRTEXT_M = 'PROCUREMENT' .
APPEND WA_FCAT TO IT_FCAT .
CLEAR WA_FCAT .

WA_FCAT-COL_POS = '11' .
WA_FCAT-FIELDNAME = 'SOBSL' .
WA_FCAT-TABNAME = 'it_marc' .
WA_FCAT-SCRTEXT_M = 'SPECIAL' .
APPEND WA_FCAT TO IT_FCAT .
CLEAR WA_FCAT .

WA_FCAT-COL_POS = '12' .
WA_FCAT-FIELDNAME = 'DISMM' .
WA_FCAT-TABNAME = 'it_marc' .
WA_FCAT-SCRTEXT_M = 'MRP TYPE' .
APPEND WA_FCAT TO IT_FCAT .
CLEAR WA_FCAT .

WA_FCAT-COL_POS = '13' .
WA_FCAT-FIELDNAME = 'MINBE' .
WA_FCAT-TABNAME = 'it_marc' .
WA_FCAT-SCRTEXT_M = 'REORDER POINT' .
APPEND WA_FCAT TO IT_FCAT .
CLEAR WA_FCAT .

WA_FCAT-COL_POS = '14' .
WA_FCAT-FIELDNAME = 'DISPO' .
WA_FCAT-TABNAME = 'it_marc' .
WA_FCAT-SCRTEXT_M = 'MRP CONTROLLER' .
APPEND WA_FCAT TO IT_FCAT .
CLEAR WA_FCAT .

WA_FCAT-COL_POS = '15' .
WA_FCAT-FIELDNAME = 'FXHOR' .
WA_FCAT-TABNAME = 'it_marc' .
WA_FCAT-SCRTEXT_M = 'PLAN TIME FENCE' .
APPEND WA_FCAT TO IT_FCAT .
CLEAR WA_FCAT .

WA_FCAT-COL_POS = '16' .
WA_FCAT-FIELDNAME = 'PLIFZ' .
WA_FCAT-TABNAME = 'it_marc' .
WA_FCAT-SCRTEXT_M = 'PLAN DELAY TIME' .
APPEND WA_FCAT TO IT_FCAT .
CLEAR WA_FCAT .

WA_FCAT-COL_POS = '17' .
WA_FCAT-FIELDNAME = 'AUSSS' .
WA_FCAT-TABNAME = 'it_marc' .
WA_FCAT-SCRTEXT_M = 'ASSEMBLY SCRAP' .
APPEND WA_FCAT TO IT_FCAT .
CLEAR WA_FCAT .

WA_FCAT-COL_POS = '18' .
WA_FCAT-FIELDNAME = 'EISBE' .
WA_FCAT-TABNAME = 'it_marc' .
WA_FCAT-SCRTEXT_M = 'SAFETY STOCK' .
APPEND WA_FCAT TO IT_FCAT .
CLEAR WA_FCAT .

WA_FCAT-COL_POS = '19' .
WA_FCAT-FIELDNAME = 'RWPRO' .
WA_FCAT-TABNAME = 'it_marc' .
WA_FCAT-SCRTEXT_M = 'COVERAGE PROFILE' .
APPEND WA_FCAT TO IT_FCAT .
CLEAR WA_FCAT .

WA_FCAT-COL_POS = '20' .
WA_FCAT-FIELDNAME = 'LVORM' .
WA_FCAT-TABNAME = 'it_marc' .
WA_FCAT-SCRTEXT_M = 'FLAGGED FOR DELETION' .
APPEND WA_FCAT TO IT_FCAT .
CLEAR WA_FCAT .

CALL METHOD RG->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 =
* IS_PRINT =
* IT_SPECIAL_GROUPS =
* IT_TOOLBAR_EXCLUDING =
* IT_HYPERLINK =
* IT_ALV_GRAPHICS =
* IT_EXCEPT_QINFO =
* IR_SALV_ADAPTER =
CHANGING
IT_OUTTAB = it_marc
IT_FIELDCATALOG = IT_FCAT
* IT_SORT =
* IT_FILTER =
* EXCEPTIONS
* INVALID_PARAMETER_COMBINATION = 1
* PROGRAM_ERROR = 2
* TOO_MANY_LINES = 3
* others = 4
.
IF SY-SUBRC <> 0.
* Implement suitable error handling here
ENDIF.

ENDMODULE.
*&---------------------------------------------------------------------
*
*& Module USER_COMMAND_0200 INPUT
*&---------------------------------------------------------------------
*
* text
*----------------------------------------------------------------------
*
MODULE USER_COMMAND_0200 INPUT.

CASE SY-UCOMM.
WHEN 'EXT'.
LEAVE PROGRAM.
ENDCASE.

ENDMODULE.

You might also like