Skip to Content
0
Former Member
Jul 20, 2007 at 05:26 AM

short dump in alv <too many parameters in perform)

1239 Views

I M GETTING PROBLEM IN THIS PROGRAM AGAIN.

Getting short dump too many paramamerets in perform

<CODE>Report Z_50840_ALV

Line-size 80

Line-count 64

Message-id ZZ

No Standard Page Heading.

----


  • Copyright statement *

  • @ copyright 2007 by Intelligroup Inc. *

----


----


  • Program Details *

----


  • Program Name: Z_50840_ALV

  • Date : 19.07.2007

  • Author : Vasudevaraman V

  • Description : Test Program

  • Transport No:

----


  • Change Log *

----


  • Date :

  • Author :

  • Description :

  • Transport No:

----


  • Tables *

----


Tables: vbrk.

----


  • Type Pools *

----


Type-Pools: SLIS.

----


  • Variables *

----


Data: GV_REPID TYPE SY-REPID.

----


  • Structures *

----


Data: BEGIN OF GIT_VBRK OCCURS 0,

VBELN LIKE VBRK-VBELN, "Billing Document

FKART LIKE VBRK-FKART, "Billing Type

KNUMV LIKE VBRK-KNUMV, "Number of the document condition

BUKRS LIKE VBRK-BUKRS, "Company code

NETWR LIKE VBRK-NETWR, "Net value in document currency

WAERK LIKE VBRK-WAERK, "SD document currency in basic list

END OF GIT_VBRK,

GIT_FCAT TYPE SLIS_T_FIELDCAT_ALV,

WA_FCAT TYPE slis_fieldcat_alv,

GIT_EVENTS TYPE SLIS_T_EVENT,

WA_EVENTS TYPE SLIS_ALV_EVENT.

----


  • Field Symbols *

----


Field-symbols: <fs_xxxx>.

----


  • Selection Screen *

----


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

SELECT-OPTIONS: S_VBELN FOR VBRK-VBELN.

PARAMETERS: LISTDISP RADIOBUTTON GROUP G1,

GRIDDISP RADIOBUTTON GROUP G1 DEFAULT 'X'.

SELECTION-SCREEN END OF BLOCK B1.

----


  • Initialization *

----


Initialization.

GV_REPID = SY-REPID.

----


  • At Selection Screen *

----


At selection-screen.

----


  • Start Of Selection *

----


Start-of-selection.

SET PF-STATUS 'ABC'(001).

PERFORM GET_BILLING_DETAILS.

PERFORM FIELD_CATALOGUE.

PERFORM GET_EVENTS.

----


  • End Of Selection *

----


End-of-selection.

PERFORM DISPLAY_BILLING_DETAILS.

----


  • Top Of Page *

----


Top-of-page.

----


  • End Of Page *

----


End-of-page.

&----


*& Form GET_BILLING_DETAILS

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM GET_BILLING_DETAILS .

SELECT VBELN

FKART

KNUMV

BUKRS

NETWR

WAERK

FROM VBRK

INTO TABLE GIT_VBRK

WHERE VBELN IN S_VBELN.

IF SY-SUBRC = 0.

SORT GIT_VBRK BY VBELN.

ENDIF.

ENDFORM. " GET_BILLING_DETAILS

&----


*& Form FIELD_CATALOGUE

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM FIELD_CATALOGUE .

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

I_PROGRAM_NAME = GV_REPID

I_INTERNAL_TABNAME = 'GIT_VBRK'

  • I_STRUCTURE_NAME = I_STRUCTURE_NAME

  • I_CLIENT_NEVER_DISPLAY = 'X'

I_INCLNAME = GV_REPID

I_BYPASSING_BUFFER = 'X'

I_BUFFER_ACTIVE = ' '

CHANGING

CT_FIELDCAT = GIT_FCAT

EXCEPTIONS

INCONSISTENT_INTERFACE = 1

PROGRAM_ERROR = 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.

ENDFORM. " FIELD_CATALOGUE

&----


*& Form DISPLAY_BILLING_DETAILS

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM DISPLAY_BILLING_DETAILS .

IF LISTDISP = 'X'.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

  • I_INTERFACE_CHECK = ' '

I_BYPASSING_BUFFER = 'X'

I_BUFFER_ACTIVE = ' '

I_CALLBACK_PROGRAM = GV_REPID

  • I_CALLBACK_PF_STATUS_SET = ' '

  • I_CALLBACK_USER_COMMAND = ' '

  • I_STRUCTURE_NAME = I_STRUCTURE_NAME

  • IS_LAYOUT = IS_LAYOUT

IT_FIELDCAT = GIT_FCAT

  • IT_EXCLUDING = IT_EXCLUDING

  • IT_SPECIAL_GROUPS = IT_SPECIAL_GROUPS

  • IT_SORT = IT_SORT

  • IT_FILTER = IT_FILTER

  • IS_SEL_HIDE = IS_SEL_HIDE

  • I_DEFAULT = 'X'

  • I_SAVE = ' '

  • IS_VARIANT = IS_VARIANT

IT_EVENTS = GIT_EVENTS

  • IT_EVENT_EXIT = IT_EVENT_EXIT

  • IS_PRINT = IS_PRINT

  • IS_REPREP_ID = 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 = IR_SALV_LIST_ADAPTER

  • IT_EXCEPT_QINFO = IT_EXCEPT_QINFO

  • I_SUPPRESS_EMPTY_DATA = ABAP_FALSE

  • IMPORTING

  • E_EXIT_CAUSED_BY_CALLER = E_EXIT_CAUSED_BY_CALLER

  • ES_EXIT_CAUSED_BY_USER = ES_EXIT_CAUSED_BY_USER

TABLES

T_OUTTAB = GIT_VBRK

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.

ELSE.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

  • I_INTERFACE_CHECK = ' '

I_BYPASSING_BUFFER = 'X'

I_BUFFER_ACTIVE = ' '

I_CALLBACK_PROGRAM = GV_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_STRUCTURE_NAME

  • I_BACKGROUND_ID = ' '

  • I_GRID_TITLE = I_GRID_TITLE

  • I_GRID_SETTINGS = I_GRID_SETTINGS

  • IS_LAYOUT = IS_LAYOUT

IT_FIELDCAT = GIT_FCAT

  • IT_EXCLUDING = IT_EXCLUDING

  • IT_SPECIAL_GROUPS = IT_SPECIAL_GROUPS

  • IT_SORT = IT_SORT

  • IT_FILTER = IT_FILTER

  • IS_SEL_HIDE = IS_SEL_HIDE

  • I_DEFAULT = 'X'

  • I_SAVE = ' '

  • IS_VARIANT = IS_VARIANT

IT_EVENTS = GIT_EVENTS

  • IT_EVENT_EXIT = IT_EVENT_EXIT

  • IS_PRINT = IS_PRINT

  • IS_REPREP_ID = 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_ALV_GRAPHICS

  • IT_HYPERLINK = IT_HYPERLINK

  • IT_ADD_FIELDCAT = IT_ADD_FIELDCAT

  • IT_EXCEPT_QINFO = IT_EXCEPT_QINFO

  • IR_SALV_FULLSCREEN_ADAPTER = IR_SALV_FULLSCREEN_ADAPTER

  • IMPORTING

  • E_EXIT_CAUSED_BY_CALLER = E_EXIT_CAUSED_BY_CALLER

  • ES_EXIT_CAUSED_BY_USER = ES_EXIT_CAUSED_BY_USER

TABLES

T_OUTTAB = GIT_VBRK

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.

ENDIF.

ENDFORM. " DISPLAY_BILLING_DETAILS

&----


*& Form GET_EVENTS

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM GET_EVENTS .

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

I_LIST_TYPE = 0

IMPORTING

ET_EVENTS = GIT_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.

LOOP AT GIT_EVENTS INTO WA_EVENTS.

CASE WA_EVENTS-NAME.

WHEN 'USER_COMMAND'.

WA_EVENTS-FORM = 'USER_COMMAND'.

ENDCASE.

MODIFY GIT_EVENTS FROM WA_EVENTS INDEX SY-TABIX.

ENDLOOP.

ENDFORM. " GET_EVENTS

FORM USER_COMMAND.

WRITE :/ 'USER_COMMAND'.

ENDFORM.</CODE>.

REGARDS,

SURAJ