Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results forΒ 
Search instead forΒ 
Did you mean:Β 

short dump in alv <too many parameters in perform)

Former Member
0 Kudos

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

4 REPLIES 4

Former Member
0 Kudos

CHANGE THIS

FORM USER_COMMAND <b>USING PUCOM LIKE SY-UCOMM SELFIELD TYPE SLIS_SELFIELD</b>.

WRITE πŸ˜• 'USER_COMMAND'.

ENDFORM.</CODE>.

REGARDS

SHIBA DUTTA

Former Member
0 Kudos

Change your definition the perform USER_COMMAND as below.

FORM user_command  USING r_ucomm LIKE sy-ucomm          
                                              rs_selfield TYPE slis_selfield.
WRITE πŸ˜• 'USER_COMMAND'.
ENDFORM.

Former Member
0 Kudos

I have run the program in my system and getting the following display instead of dump.

Bill.Doc.  BillT Doc.cond.  CoCd             Net value Curr.

90000763   B2    0000002800 1000                 0.00  DEM
90005177   F2    0000012141 1000             5,500.00  DEM
90005178   F2    0000012144 1000            32,838.00  DEM
90005179   F2    0000012146 1000             6,100.00  DEM
90005180   F2    0000012147 1000             6,100.00  DEM
90005182   S1    0000012226 1000             5,500.00  DEM
90005183   S1    0000012227 1000            32,838.00  DEM
90005184   S1    0000012228 1000             6,100.00  DEM
90005185   S1    0000012229 1000             6,100.00  DEM
90005186   F2    0000012230 1000             6,100.00  DEM
90005187   F2    0000012231 1000             6,100.00  DEM
90005188   F2    0000012232 1000            32,778.00  DEM
90005189   F2    0000012233 1000            34,354.00  DEM
90005190   F2    0000012234 1000            19,991.00  DEM
90005191   F2    0000012235 1000            19,719.00  DEM
90005192   F2    0000012236 1000            43,004.00  DEM
90005193   F2    0000012237 1000             9,242.00  DEM
90005194   F2    0000012238 1000            12,156.00  DEM
90005195   F2    0000012239 1000             7,294.00  DEM
90005196   F2    0000012240 1000             9,694.00  DEM
90005197   F2    0000012241 1000            32,838.00  DEM
90005198   F2    0000012242 1000             9,352.00  DEM
90005199   F2    0000012243 1000            13,013.00  DEM

Former Member
0 Kudos

Dear Suraj,

Please mark points and close the thread if the solutions were useful.

Manoj