Skip to Content

Archived discussions are read-only. Learn more about SAP Q&A

Hi all..very urgent..error fixing..

Hi i am running a program in ECC 6.0...its going for short dump..The possibilty of going for short dumb wud be here in the following code..kindly lookinto this in ECC 6.0..full marks wud be given

----


  • --> p1 text

  • <-- p2 text

----


FORM BUILD_HEADER_CATALOG_03.

REFRESH: EVENTCAT.

CLEAR EVENTCAT_LN.

EVENTCAT_LN-NAME = 'TOP_OF_PAGE'.

EVENTCAT_LN-FORM = 'TOP_OF_PAGE_01'.

APPEND EVENTCAT_LN TO EVENTCAT.

ENDFORM. " BUILD_HEADER_CATALOG_03

&----


*& Form BUILD_FIELD_CATALOGS_03

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM BUILD_FIELD_CATALOGS_03.

REFRESH: I_FIELDCAT.

  • material

CLEAR: V_FIELDCAT_LN.

V_FIELDCAT_LN-FIELDNAME = 'MATNR'.

V_FIELDCAT_LN-TABNAME = 'REPORT_03'.

V_FIELDCAT_LN-SELTEXT_L = 'Material'.

V_FIELDCAT_LN-REF_TABNAME = 'S947'.

V_FIELDCAT_LN-DDICTXT = 'L'.

V_FIELDCAT_LN-OUTPUTLEN = 19.

APPEND V_FIELDCAT_LN TO I_FIELDCAT.

  • red/stop light icon

CLEAR: V_FIELDCAT_LN.

V_FIELDCAT_LN-FIELDNAME = 'ICON1'.

V_FIELDCAT_LN-TABNAME = 'REPORT_03'.

V_FIELDCAT_LN-SELTEXT_L = ' '.

V_FIELDCAT_LN-ICON = 'X'.

V_FIELDCAT_LN-OUTPUTLEN = 2.

APPEND V_FIELDCAT_LN TO I_FIELDCAT.

  • yellow light icon

CLEAR: V_FIELDCAT_LN.

V_FIELDCAT_LN-FIELDNAME = 'ICON2'.

V_FIELDCAT_LN-TABNAME = 'REPORT_03'.

V_FIELDCAT_LN-SELTEXT_L = ' '.

V_FIELDCAT_LN-ICON = 'X'.

V_FIELDCAT_LN-OUTPUTLEN = 2.

APPEND V_FIELDCAT_LN TO I_FIELDCAT.

  • mvgr2

CLEAR: V_FIELDCAT_LN.

V_FIELDCAT_LN-FIELDNAME = 'MVGR2'.

V_FIELDCAT_LN-TABNAME = 'REPORT_03'.

V_FIELDCAT_LN-SELTEXT_L = 'Dept.'.

V_FIELDCAT_LN-REF_TABNAME = 'MVKE'.

V_FIELDCAT_LN-DDICTXT = 'L'.

V_FIELDCAT_LN-OUTPUTLEN = 6.

V_FIELDCAT_LN-NO_OUT = 'X'.

APPEND V_FIELDCAT_LN TO I_FIELDCAT.

  • mvgr3

CLEAR: V_FIELDCAT_LN.

V_FIELDCAT_LN-FIELDNAME = 'MVGR3'.

V_FIELDCAT_LN-TABNAME = 'REPORT_03'.

V_FIELDCAT_LN-SELTEXT_L = 'Class'.

V_FIELDCAT_LN-REF_TABNAME = 'MVKE'.

V_FIELDCAT_LN-DDICTXT = 'L'.

V_FIELDCAT_LN-OUTPUTLEN = 6.

V_FIELDCAT_LN-NO_OUT = 'X'.

APPEND V_FIELDCAT_LN TO I_FIELDCAT.

  • mvgr4

CLEAR: V_FIELDCAT_LN.

V_FIELDCAT_LN-FIELDNAME = 'MVGR4'.

V_FIELDCAT_LN-TABNAME = 'REPORT_03'.

V_FIELDCAT_LN-SELTEXT_L = 'Sub-class'.

V_FIELDCAT_LN-REF_TABNAME = 'MVKE'.

V_FIELDCAT_LN-DDICTXT = 'L'.

V_FIELDCAT_LN-OUTPUTLEN = 6.

V_FIELDCAT_LN-NO_OUT = 'X'.

APPEND V_FIELDCAT_LN TO I_FIELDCAT.

  • reference unit of measure

CLEAR: V_FIELDCAT_LN.

V_FIELDCAT_LN-FIELDNAME = 'MEINS'.

V_FIELDCAT_LN-TABNAME = 'REPORT_03'.

V_FIELDCAT_LN-REF_TABNAME = 'VBAP'.

V_FIELDCAT_LN-DDICTXT = 'L'.

V_FIELDCAT_LN-OUTPUTLEN = 3.

V_FIELDCAT_LN-NO_OUT = 'X'.

APPEND V_FIELDCAT_LN TO I_FIELDCAT.

  • allocation month 1

CLEAR: V_FIELDCAT_LN.

V_FIELDCAT_LN-FIELDNAME = 'ALLOCATION1'.

V_FIELDCAT_LN-TABNAME = 'REPORT_03'.

V_FIELDCAT_LN-SELTEXT_L = 'Alloc.'.

V_FIELDCAT_LN-QFIELDNAME = 'MEINS'.

V_FIELDCAT_LN-QTABNAME = 'REPORT_03'.

V_FIELDCAT_LN-REF_TABNAME = 'VBAP'.

V_FIELDCAT_LN-REF_FIELDNAME = 'KWMENG'.

V_FIELDCAT_LN-OUTPUTLEN = 6.

V_FIELDCAT_LN-JUST = 'C'.

V_FIELDCAT_LN-NO_ZERO = 'X'.

V_FIELDCAT_LN-DO_SUM = 'X'.

APPEND V_FIELDCAT_LN TO I_FIELDCAT.

  • booked qty month 1

CLEAR: V_FIELDCAT_LN.

V_FIELDCAT_LN-FIELDNAME = 'BOOKED1'.

V_FIELDCAT_LN-TABNAME = 'REPORT_03'.

V_FIELDCAT_LN-SELTEXT_L = 'Booked'.

V_FIELDCAT_LN-QFIELDNAME = 'MEINS'.

V_FIELDCAT_LN-REF_TABNAME = 'VBAP'.

V_FIELDCAT_LN-REF_FIELDNAME = 'KWMENG'.

V_FIELDCAT_LN-QTABNAME = 'REPORT_03'.

V_FIELDCAT_LN-OUTPUTLEN = 6.

V_FIELDCAT_LN-JUST = 'C'.

V_FIELDCAT_LN-NO_ZERO = 'X'.

V_FIELDCAT_LN-DO_SUM = 'X'.

APPEND V_FIELDCAT_LN TO I_FIELDCAT.

  • diffirence qty month 1

CLEAR: V_FIELDCAT_LN.

V_FIELDCAT_LN-FIELDNAME = 'DIFFERENCE1'.

V_FIELDCAT_LN-TABNAME = 'REPORT_03'.

V_FIELDCAT_LN-SELTEXT_L = 'Diff'.

V_FIELDCAT_LN-QFIELDNAME = 'MEINS'.

V_FIELDCAT_LN-REF_TABNAME = 'VBAP'.

V_FIELDCAT_LN-REF_FIELDNAME = 'KWMENG'.

V_FIELDCAT_LN-QTABNAME = 'REPORT_03'.

V_FIELDCAT_LN-OUTPUTLEN = 6.

V_FIELDCAT_LN-JUST = 'C'.

V_FIELDCAT_LN-NO_ZERO = 'X'.

V_FIELDCAT_LN-DO_SUM = 'X'.

APPEND V_FIELDCAT_LN TO I_FIELDCAT.

  • rejected qty month 1

CLEAR: V_FIELDCAT_LN.

V_FIELDCAT_LN-FIELDNAME = 'REJECTED1'.

V_FIELDCAT_LN-TABNAME = 'REPORT_03'.

V_FIELDCAT_LN-SELTEXT_L = 'Rej.'.

V_FIELDCAT_LN-QFIELDNAME = 'MEINS'.

V_FIELDCAT_LN-REF_TABNAME = 'VBAP'.

V_FIELDCAT_LN-REF_FIELDNAME = 'KWMENG'.

V_FIELDCAT_LN-QTABNAME = 'REPORT_03'.

V_FIELDCAT_LN-OUTPUTLEN = 6.

V_FIELDCAT_LN-JUST = 'C'.

V_FIELDCAT_LN-NO_ZERO = 'X'.

V_FIELDCAT_LN-DO_SUM = 'X'.

APPEND V_FIELDCAT_LN TO I_FIELDCAT.

  • allocation month 2

CLEAR: V_FIELDCAT_LN.

V_FIELDCAT_LN-FIELDNAME = 'ALLOCATION2'.

V_FIELDCAT_LN-TABNAME = 'REPORT_03'.

V_FIELDCAT_LN-SELTEXT_L = 'Alloc.'.

V_FIELDCAT_LN-QFIELDNAME = 'MEINS'.

V_FIELDCAT_LN-REF_TABNAME = 'VBAP'.

V_FIELDCAT_LN-REF_FIELDNAME = 'KWMENG'.

V_FIELDCAT_LN-QTABNAME = 'REPORT_03'.

V_FIELDCAT_LN-OUTPUTLEN = 6.

V_FIELDCAT_LN-JUST = 'C'.

V_FIELDCAT_LN-NO_ZERO = 'X'.

V_FIELDCAT_LN-DO_SUM = 'X'.

APPEND V_FIELDCAT_LN TO I_FIELDCAT.

  • booked qty month 2

CLEAR: V_FIELDCAT_LN.

V_FIELDCAT_LN-FIELDNAME = 'BOOKED2'.

V_FIELDCAT_LN-TABNAME = 'REPORT_03'.

V_FIELDCAT_LN-SELTEXT_L = 'Booked'.

V_FIELDCAT_LN-QFIELDNAME = 'MEINS'.

V_FIELDCAT_LN-REF_TABNAME = 'VBAP'.

V_FIELDCAT_LN-REF_FIELDNAME = 'KWMENG'.

V_FIELDCAT_LN-QTABNAME = 'REPORT_03'.

V_FIELDCAT_LN-OUTPUTLEN = 6.

V_FIELDCAT_LN-JUST = 'C'.

V_FIELDCAT_LN-NO_ZERO = 'X'.

V_FIELDCAT_LN-DO_SUM = 'X'.

APPEND V_FIELDCAT_LN TO I_FIELDCAT.

  • diffirence qty month 2

CLEAR: V_FIELDCAT_LN.

V_FIELDCAT_LN-FIELDNAME = 'DIFFERENCE2'.

V_FIELDCAT_LN-TABNAME = 'REPORT_03'.

V_FIELDCAT_LN-SELTEXT_L = 'Diff'.

V_FIELDCAT_LN-QFIELDNAME = 'MEINS'.

V_FIELDCAT_LN-REF_TABNAME = 'VBAP'.

V_FIELDCAT_LN-REF_FIELDNAME = 'KWMENG'.

V_FIELDCAT_LN-QTABNAME = 'REPORT_03'.

V_FIELDCAT_LN-OUTPUTLEN = 6.

V_FIELDCAT_LN-JUST = 'C'.

V_FIELDCAT_LN-NO_ZERO = 'X'.

V_FIELDCAT_LN-DO_SUM = 'X'.

APPEND V_FIELDCAT_LN TO I_FIELDCAT.

  • rejected qty month 2

CLEAR: V_FIELDCAT_LN.

V_FIELDCAT_LN-FIELDNAME = 'REJECTED2'.

V_FIELDCAT_LN-TABNAME = 'REPORT_03'.

V_FIELDCAT_LN-SELTEXT_L = 'Rej.'.

V_FIELDCAT_LN-QFIELDNAME = 'MEINS'.

V_FIELDCAT_LN-REF_TABNAME = 'VBAP'.

V_FIELDCAT_LN-REF_FIELDNAME = 'KWMENG'.

V_FIELDCAT_LN-QTABNAME = 'REPORT_03'.

V_FIELDCAT_LN-OUTPUTLEN = 6.

V_FIELDCAT_LN-JUST = 'C'.

V_FIELDCAT_LN-NO_ZERO = 'X'.

V_FIELDCAT_LN-DO_SUM = 'X'.

APPEND V_FIELDCAT_LN TO I_FIELDCAT.

  • allocation month 3

V_FIELDCAT_LN-FIELDNAME = 'ALLOCATION3'.

V_FIELDCAT_LN-TABNAME = 'REPORT_03'.

V_FIELDCAT_LN-SELTEXT_L = 'Alloc.'.

V_FIELDCAT_LN-QFIELDNAME = 'MEINS'.

V_FIELDCAT_LN-REF_TABNAME = 'VBAP'.

V_FIELDCAT_LN-REF_FIELDNAME = 'KWMENG'.

V_FIELDCAT_LN-QTABNAME = 'REPORT_03'.

V_FIELDCAT_LN-OUTPUTLEN = 6.

V_FIELDCAT_LN-JUST = 'C'.

V_FIELDCAT_LN-NO_ZERO = 'X'.

V_FIELDCAT_LN-DO_SUM = 'X'.

APPEND V_FIELDCAT_LN TO I_FIELDCAT.

  • booked qty month 3

CLEAR: V_FIELDCAT_LN.

V_FIELDCAT_LN-FIELDNAME = 'BOOKED3'.

V_FIELDCAT_LN-TABNAME = 'REPORT_03'.

V_FIELDCAT_LN-SELTEXT_L = 'Booked'.

V_FIELDCAT_LN-QFIELDNAME = 'MEINS'.

V_FIELDCAT_LN-REF_TABNAME = 'VBAP'.

V_FIELDCAT_LN-REF_FIELDNAME = 'KWMENG'.

V_FIELDCAT_LN-QTABNAME = 'REPORT_03'.

V_FIELDCAT_LN-OUTPUTLEN = 6.

V_FIELDCAT_LN-JUST = 'C'.

V_FIELDCAT_LN-NO_ZERO = 'X'.

V_FIELDCAT_LN-DO_SUM = 'X'.

APPEND V_FIELDCAT_LN TO I_FIELDCAT.

  • diffirence qty month 3

CLEAR: V_FIELDCAT_LN.

V_FIELDCAT_LN-FIELDNAME = 'DIFFERENCE3'.

V_FIELDCAT_LN-TABNAME = 'REPORT_03'.

V_FIELDCAT_LN-SELTEXT_L = 'Diff'.

V_FIELDCAT_LN-QFIELDNAME = 'MEINS'.

V_FIELDCAT_LN-REF_TABNAME = 'VBAP'.

V_FIELDCAT_LN-REF_FIELDNAME = 'KWMENG'.

V_FIELDCAT_LN-QTABNAME = 'REPORT_03'.

V_FIELDCAT_LN-OUTPUTLEN = 6.

V_FIELDCAT_LN-JUST = 'C'.

V_FIELDCAT_LN-NO_ZERO = 'X'.

V_FIELDCAT_LN-DO_SUM = 'X'.

APPEND V_FIELDCAT_LN TO I_FIELDCAT.

  • rejected qty month 3

CLEAR: V_FIELDCAT_LN.

V_FIELDCAT_LN-FIELDNAME = 'REJECTED3'.

V_FIELDCAT_LN-TABNAME = 'REPORT_03'.

V_FIELDCAT_LN-SELTEXT_L = 'Rej.'.

V_FIELDCAT_LN-QFIELDNAME = 'MEINS'.

V_FIELDCAT_LN-REF_TABNAME = 'VBAP'.

V_FIELDCAT_LN-REF_FIELDNAME = 'KWMENG'.

V_FIELDCAT_LN-QTABNAME = 'REPORT_03'.

V_FIELDCAT_LN-OUTPUTLEN = 6.

V_FIELDCAT_LN-JUST = 'C'.

V_FIELDCAT_LN-NO_ZERO = 'X'.

V_FIELDCAT_LN-DO_SUM = 'X'.

APPEND V_FIELDCAT_LN TO I_FIELDCAT.

  • total allocation

V_FIELDCAT_LN-FIELDNAME = 'TOTAL_ALLOCATION'.

V_FIELDCAT_LN-TABNAME = 'REPORT_03'.

V_FIELDCAT_LN-SELTEXT_L = 'Alloc.'.

V_FIELDCAT_LN-QFIELDNAME = 'MEINS'.

V_FIELDCAT_LN-REF_TABNAME = 'VBAP'.

V_FIELDCAT_LN-REF_FIELDNAME = 'KWMENG'.

V_FIELDCAT_LN-QTABNAME = 'REPORT_03'.

V_FIELDCAT_LN-OUTPUTLEN = 7.

V_FIELDCAT_LN-JUST = 'C'.

V_FIELDCAT_LN-NO_ZERO = 'X'.

V_FIELDCAT_LN-DO_SUM = 'X'.

APPEND V_FIELDCAT_LN TO I_FIELDCAT.

  • total booked

CLEAR: V_FIELDCAT_LN.

V_FIELDCAT_LN-FIELDNAME = 'TOTAL_BOOKED'.

V_FIELDCAT_LN-TABNAME = 'REPORT_03'.

V_FIELDCAT_LN-SELTEXT_L = 'Booked'.

V_FIELDCAT_LN-QFIELDNAME = 'MEINS'.

V_FIELDCAT_LN-REF_TABNAME = 'VBAP'.

V_FIELDCAT_LN-REF_FIELDNAME = 'KWMENG'.

V_FIELDCAT_LN-QTABNAME = 'REPORT_03'.

V_FIELDCAT_LN-OUTPUTLEN = 7.

V_FIELDCAT_LN-JUST = 'C'.

V_FIELDCAT_LN-NO_ZERO = 'X'.

V_FIELDCAT_LN-DO_SUM = 'X'.

APPEND V_FIELDCAT_LN TO I_FIELDCAT.

  • total difference

CLEAR: V_FIELDCAT_LN.

V_FIELDCAT_LN-FIELDNAME = 'TOTAL_DIFFERENCE'.

V_FIELDCAT_LN-TABNAME = 'REPORT_03'.

V_FIELDCAT_LN-SELTEXT_L = 'Diff'.

V_FIELDCAT_LN-QFIELDNAME = 'MEINS'.

V_FIELDCAT_LN-REF_TABNAME = 'VBAP'.

V_FIELDCAT_LN-REF_FIELDNAME = 'KWMENG'.

V_FIELDCAT_LN-QTABNAME = 'REPORT_03'.

V_FIELDCAT_LN-OUTPUTLEN = 7.

V_FIELDCAT_LN-JUST = 'C'.

V_FIELDCAT_LN-NO_ZERO = 'X'.

V_FIELDCAT_LN-DO_SUM = 'X'.

APPEND V_FIELDCAT_LN TO I_FIELDCAT.

  • total rejected

CLEAR: V_FIELDCAT_LN.

V_FIELDCAT_LN-FIELDNAME = 'TOTAL_REJECTED'.

V_FIELDCAT_LN-TABNAME = 'REPORT_03'.

V_FIELDCAT_LN-SELTEXT_L = 'Rej.'.

V_FIELDCAT_LN-QFIELDNAME = 'MEINS'.

V_FIELDCAT_LN-REF_TABNAME = 'VBAP'.

V_FIELDCAT_LN-REF_FIELDNAME = 'KWMENG'.

V_FIELDCAT_LN-QTABNAME = 'REPORT_03'.

V_FIELDCAT_LN-OUTPUTLEN = 7.

V_FIELDCAT_LN-JUST = 'C'.

V_FIELDCAT_LN-NO_ZERO = 'X'.

V_FIELDCAT_LN-DO_SUM = 'X'.

APPEND V_FIELDCAT_LN TO I_FIELDCAT.

  • sort 1

REFRESH: I_SORT.

CLEAR: H_SORT.

H_SORT-SPOS = 1.

H_SORT-FIELDNAME = 'MVGR2'.

H_SORT-TABNAME = 'REPORT_03'.

H_SORT-UP = 'X'.

H_SORT-SUBTOT = 'X'.

APPEND H_SORT TO I_SORT.

CLEAR: H_SORT.

H_SORT-SPOS = 2.

H_SORT-FIELDNAME = 'MVGR3'.

H_SORT-TABNAME = 'REPORT_03'.

H_SORT-UP = 'X'.

H_SORT-SUBTOT = 'X'.

APPEND H_SORT TO I_SORT.

CLEAR: H_SORT.

H_SORT-SPOS = 3.

H_SORT-FIELDNAME = 'MVGR4'.

H_SORT-TABNAME = 'REPORT_03'.

H_SORT-UP = 'X'.

H_SORT-SUBTOT = 'X'.

APPEND H_SORT TO I_SORT.

CLEAR: H_SORT.

H_SORT-SPOS = 4.

H_SORT-FIELDNAME = 'MATNR'.

H_SORT-TABNAME = 'REPORT_03'.

H_SORT-UP = 'X'.

H_SORT-SUBTOT = ''.

H_SORT-GROUP = ''.

APPEND H_SORT TO I_SORT.

ENDFORM. " BUILD_FIELD_CATALOGS_03

&----


*& Form PERFORM_ALV_03

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM PERFORM_ALV_03.

  • layouts

G_REPID = SY-REPID.

LAYOUT-ZEBRA = 'X'.

LAYOUT-COLWIDTH_OPTIMIZE = ''.

LAYOUT-BOX_TABNAME = '1'.

LAYOUT-GET_SELINFOS = 'X'.

LAYOUT-DETAIL_POPUP = 'X'.

LAYOUT-NO_SUBTOTALS = ''.

LAYOUT-GROUP_CHANGE_EDIT = 'X'.

PRINT-NO_PRINT_SELINFOS = ''.

PRINT-NO_PRINT_LISTINFOS = ''.

  • Output a simple list (single line or several lines)

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = G_REPID

IS_LAYOUT = LAYOUT

I_CALLBACK_PF_STATUS_SET = G_STATUS2

I_CALLBACK_USER_COMMAND = G_USER_COMMAND_01

IT_FIELDCAT = I_FIELDCAT

I_DEFAULT = 'X'

I_SAVE = 'A'

IT_EVENTS = EVENTCAT

IS_PRINT = PRINT

IT_SORT = I_SORT[]

TABLES

T_OUTTAB = REPORT_03

EXCEPTIONS

PROGRAM_ERROR = 1

OTHERS = 2.

ENDFORM. " PERFORM_ALV_03

Tags:
Former Member
Not what you were looking for? View more on this topic or Ask a question