Skip to Content
0
Former Member
Apr 30, 2014 at 07:29 PM

Abap short dump

42 Views

Hi Experts,

I am facing this short dump can any one figure out the solution for this.Below is the code .

TABLES MARC.

TYPE-POOLS: SLIS.

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

PARAMETERS : M_MATNR TYPE MARC-MATNR,

W_WERKS TYPE MARC-WERKS.

SELECTION-SCREEN END OF BLOCK A.

TYPES: BEGIN OF TYP_MARC,

MATNR TYPE MARC-MATNR,

WERKS TYPE MARC-WERKS,

END OF TYP_MARC.

TYPES: TT_MARC TYPE TYP_MARC.

DATA: IT_MARC TYPE TABLE OF TT_MARC,

IT_MDPSX LIKE TABLE OF MDPS,

IT_FCAT TYPE SLIS_T_FIELDCAT_ALV.

DATA: WA_MARC TYPE TYP_MARC,

WA_FCAT TYPE SLIS_FIELDCAT_ALV.

DATA : IT_FIELDCAT_ALV TYPE TABLE OF SLIS_FIELDCAT_ALV,

IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,

WA_FIELDCAT_ALV TYPE SLIS_FIELDCAT_ALV,

WA_LAYOUT TYPE SLIS_LAYOUT_ALV . " FIELDCAT DECLARATION

DATA : LV_MATNR LIKE MARC-MATNR,

LV_WERKS LIKE MARC-WERKS.

LV_MATNR = M_MATNR.

LV_WERKS = W_WERKS.

START-OF-SELECTION.

PERFORM FILL_STOCK.

PERFORM FIELDCAT.

PERFORM DISPLAY_DETAILS.

FORM FILL_STOCK.

CALL FUNCTION 'MD_STOCK_REQUIREMENTS_LIST_API'

EXPORTING

MATNR = LV_MATNR

WERKS = LV_WERKS

TABLES

MDPSX = IT_MDPSX

EXCEPTIONS

MATERIAL_PLANT_NOT_FOUND = 1

PLANT_NOT_FOUND = 2

OTHERS = 3

.

ENDFORM.

FORM FIELDCAT .

PERFORM F_BUILD_FC USING '1' 'MATNR' 'IT_MDPSX' 'Material' '5' '' '' ."

PERFORM F_BUILD_FC USING '2' 'WERKS' 'IT_MDPSX' 'Plant' '15' '' '' ."

ENDFORM. " FIELDCAT

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

*& FIELD CATLOG PARAMETER DECLARATION

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

*----------------------------------------------------------------------*

DATA : P_COLOR(4) TYPE C VALUE 'C110'.

FORM F_BUILD_FC USING VALUE(P1)

VALUE(P2)

VALUE(P3)

VALUE(P4)

VALUE(P5)

VALUE(P6)

P_COLOR.

WA_FIELDCAT_ALV-COL_POS = P1.

WA_FIELDCAT_ALV-FIELDNAME = P2.

WA_FIELDCAT_ALV-TABNAME = P3.

WA_FIELDCAT_ALV-REPTEXT_DDIC = P4.

WA_FIELDCAT_ALV-OUTPUTLEN = P5.

WA_FIELDCAT_ALV-HOTSPOT = P6.

WA_FIELDCAT_ALV-EMPHASIZE = P_COLOR.

WA_LAYOUT-ZEBRA = 'X'.

WA_FIELDCAT_ALV-NO_ZERO = 'X'.

WA_LAYOUT-colwidth_optimize = 'X'.

APPEND WA_FIELDCAT_ALV TO IT_FIELDCAT.

CLEAR WA_FIELDCAT_ALV.

ENDFORM. "F_BUILD_FC

FORM DISPLAY_DETAILS.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = SY-CPROG

IS_LAYOUT = WA_LAYOUT

IT_FIELDCAT = IT_FIELDCAT

TABLES

T_OUTTAB = IT_MDPSX.

ENDFORM.

Thanks

Vinod.

Attachments

dump.jpg (169.2 kB)