topic Re: dump in Application Development and Automation Discussions

dump

Former Member — Tue, 28 Aug 2007 14:04:32 GMT

REPORT ZTEST_UPL .

----

TABLES

----

TABLES: ioheader, " IOC Communication structure

ioitem, " IOC Communication structure

klah, " Class and Class type

ksml, " Characteristic Keys for Class and Type

cabn, " Characteristics

cabnt, " Characteristic Descriptions

vbap, " SAles details

z099,

z100,

sscrfields.

----

Includes

----

INCLUDE rvreuse_global_data. " ALV Types etc

----

DATA - INTERNAL TABLES AND FIELD LISTS

----

Types

----

TYPE-POOLS: ibco2. " Characteristic types

----

DATA - CONSTANTS

----

CONSTANTS: c_true(1) TYPE c VALUE 'X',

c_false(1) TYPE c VALUE ' ',

c_zioheader TYPE dd02l-tabname VALUE 'ZIOHEADER',

c_command TYPE slis_formname VALUE 'USER_COMMAND',

c_backhoe(7) TYPE c VALUE 'BACKHOE',

c_300(3) TYPE c VALUE '300',

c_no_data(7) TYPE c VALUE 'No Data',

c_save(1) TYPE c VALUE 'A'.

----

Internal Tables

----

data itab like z099 occurs 0 with header line.

data wat like line of itab.

select heading from z099 into z099-heading.

append itab.

endselect.

Main IO Table

*DATA: i_header LIKE zioheader OCCURS 0 WITH HEADER LINE.

*data : begin of i_header occurs 0,

aufnr like ioheader-aufnr,
seqno like ioheader-cy_seqnr,
newseq like ioheader-cy_seqnr,
status type VVIS_LIGHTS,
end of i_header.

ALV Grid Control

DATA: i_grid TYPE sd_alv.

Catalogues

*DATA: wacat LIKE LINE OF i_grid-fieldcat.

DATA : iheading TYPE z099-heading.

*data : i_fct like i_grid-fieldcat.

*i_fct = i_grid-fieldcat.

data : i_fct TYPE lvc_t_fcat.

data wacat like line of i_fct.

*DATA: i_header LIKE zioheader OCCURS 0 WITH HEADER LINE.

data: gp_table type ref to data.

data : new_table type ref to data.

*append iheading to i_header.

CONSTANTS: gc_select TYPE c VALUE 'X',

gc_no TYPE c VALUE 'N',

gc_yes TYPE c VALUE 'Y',

gc_insert TYPE c VALUE 'I',

gc_header TYPE c VALUE 'H'.

CONSTANTS: gc_red_light TYPE c VALUE '1',

gc_yellow_light TYPE c VALUE '2',

gc_green_light TYPE c VALUE '3'.

DATA: lw_layout TYPE slis_layout_alv.

CLEAR lw_layout.

lw_layout-zebra = gc_select.

lw_layout-cell_merge = gc_no.

lw_layout-numc_sum = gc_select.

lw_layout-colwidth_optimize = gc_select.

lw_layout-lights_fieldname = 'STATUS'.

lw_layout-lights_rollname = 'VVIS_LIGHTS'.

CONCATENATE text-091 text-093 INTO lw_layout-window_titlebar

SEPARATED BY space.

wacat-fieldname = 'AUFNR'.

wacat-seltext = 'order'.

wacat-col_pos = 0.

*wacat-outputlen = 4.

wacat-icon = 'X'.

append wacat to i_fct.

clear wacat.

wacat-fieldname = 'CY_SEQNR'.

wacat-seltext = 'seqnr'.

wacat-col_pos = 0.

append wacat to i_fct.

clear wacat.

wacat-fieldname = 'NEW_CY_SEQNR'.

wacat-seltext = 'New seqnr'.

wacat-col_pos = 0.

append wacat to i_fct.

clear wacat.

*SELECT heading FROM z099 INTO iheading.

*wacat-fieldname = iheading.

*wacat-seltext = iheading.

**wacat-seltext = iheading.

**wacat-seltext_s = iheading.

**wacat-reptext_ddic = iheading.

*APPEND waCat TO i_fct.

*ENDSELECT.

field-symbols: <gt_table> type table,

<gt_new> type table.

call method cl_alv_table_create=>create_dynamic_table

exporting it_fieldcatalog = i_fct

importing ep_table = gp_table.

assign gp_table->* to <gt_table>.

assign gp_table->* to <gt_new>.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

FILENAME = 'H:\my documents\upload\123.xls'

FILETYPE = 'ASC'

HAS_FIELD_SEPARATOR = ','

HEADER_LENGTH = 0
READ_BY_LINE = 'X'
DAT_MODE = ' '
IMPORTING
FILELENGTH =
HEADER =

TABLES

DATA_TAB = <gt_table>.

EXCEPTIONS
FILE_OPEN_ERROR = 1
FILE_READ_ERROR = 2
NO_BATCH = 3
GUI_REFUSE_FILETRANSFER = 4
INVALID_TYPE = 5
NO_AUTHORITY = 6
UNKNOWN_ERROR = 7
BAD_DATA_FORMAT = 8
HEADER_NOT_ALLOWED = 9
SEPARATOR_NOT_ALLOWED = 10
HEADER_TOO_LONG = 11
UNKNOWN_DP_ERROR = 12
ACCESS_DENIED = 13
DP_OUT_OF_MEMORY = 14
DISK_FULL = 15
DP_TIMEOUT = 16
OTHERS = 17

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

*data wa like line of i_header.

*loop at i_header into wa.

*if wa-seqno = wa-newseq.

**i_header-status = gc_red_light.

*wa-status = 'c'.

*else.

*wa-status = 'w'.

*modify i_header from wa.

*endif.

*endloop.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = ' '
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_CALLBACK_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
I_GRID_TITLE =
I_GRID_SETTINGS =

IS_LAYOUT = lw_layout

IT_FIELDCAT = i_fct

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
IT_ALV_GRAPHICS =
IT_ADD_FIELDCAT =
IT_HYPERLINK =
I_HTML_HEIGHT_TOP =
I_HTML_HEIGHT_END =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =

TABLES

T_OUTTAB = <gt_new>.

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.

i am geting dump for this program

the dump is call function conflict

internal table error.

pls help me.

Re: dump

Former Member — Tue, 28 Aug 2007 14:20:22 GMT

Would you post the portion of the dump that shows where in the code it is dumping?

Rob

Re: dump

Former Member — Tue, 28 Aug 2007 14:22:30 GMT

system tried to pass internal table to field cat but there type are not compatible.

Re: dump

Former Member — Tue, 28 Aug 2007 14:35:39 GMT

cHECK THE DATA TYPE OF THE PARAMETERS THAT YOU ARE PASSING TO GUI_DOWNLOAD AND avl_LIST_DISPLAY.. IT SAYS TYPE CONFLICT... ENSURE THAT YOU ARE PASSING THE CORRECT DATA TYPE TO THESE FUNCTION MODULES.

<b>the dump is call function conflict

internal table error.</b>

Re: dump

Former Member — Tue, 28 Aug 2007 14:37:36 GMT

they both are same upload works good but there is some problem in display

display

thanks

vamsi

Re: dump

Former Member — Tue, 28 Aug 2007 14:40:16 GMT

cHECK THIS REPORT FOR REFERENCE.. I AM SURE JUST CHECK YOU TYPE OF THE PARAMETERS

REPORT ZYFI_REPT007

NO STANDARD PAGE HEADING

LINE-SIZE 300

LINE-COUNT 50

MESSAGE-ID ZYFI.

----

************************************************************************

TABLES : COOI, " Commitments Management: Line Items

LFA1, " Vendor master (general section)

VBEP,

RKPLN.

************************************************************************

TABLE TYPES AND INTERNAL TABLES *

************************************************************************

DATA : BEGIN OF TYP_COOI ,

OBJNR LIKE COOI-OBJNR,

SAKTO LIKE COOI-SAKTO,

MEGBTR LIKE COOI-MEGBTR,

MEINH LIKE COOI-MEINH,

WKGBTR LIKE COOI-WKGBTR,

REFBN LIKE COOI-REFBN,

RFPOS LIKE COOI-RFPOS,

SGTXT LIKE COOI-SGTXT,

BUDAT LIKE COOI-BUDAT,

LIFNR LIKE COOI-LIFNR,

END OF TYP_COOI.

DATA : BEGIN OF TYP_LFA1 ,

LIFNR LIKE LFA1-LIFNR,

NAME1 LIKE LFA1-NAME1,

END OF TYP_LFA1.

DATA : BEGIN OF IT_OUTTAB OCCURS 0,

OBJNR LIKE COOI-OBJNR,

SAKTO LIKE COOI-SAKTO,

MEGBTR LIKE COOI-MEGBTR,

MEINH LIKE COOI-MEINH,

WKGBTR LIKE COOI-WKGBTR,

REFBN LIKE COOI-REFBN,

RFPOS LIKE COOI-RFPOS,

SGTXT LIKE COOI-SGTXT,

BUDAT LIKE COOI-BUDAT,

LIFNR LIKE COOI-LIFNR,

NAME1 LIKE LFA1-NAME1,

END OF IT_OUTTAB.

DATA : IT_COOI LIKE TYP_COOI OCCURS 0 WITH HEADER LINE,

IT_LFA1 LIKE TYP_LFA1 OCCURS 0 WITH HEADER LINE.

*-- ALV Declarations

TYPE-POOLS SLIS.

DATA: IT_EVENTS TYPE SLIS_T_EVENT,

GS_EVENT TYPE SLIS_ALV_EVENT,

wa_fldcat type slis_fieldcat_alv.

DATA: S_LAYOUT TYPE SLIS_LAYOUT_ALV,

GT_PRINT TYPE SLIS_PRINT_ALV.

DATA: IT_FLDCAT TYPE SLIS_T_FIELDCAT_ALV.

DATA: IT_SORT TYPE SLIS_T_SORTINFO_ALV.

DATA: V_REPID LIKE SY-REPID.

************************************************************************

SELECTION SCREEN *

************************************************************************

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

SELECT-OPTIONS : S_KOKRS FOR COOI-KOKRS NO-EXTENSION NO INTERVALS,

" Controlling Area

S_BUKRS FOR COOI-BUKRS NO-EXTENSION NO INTERVALS,

" Company code

S_GJAHR FOR COOI-GJAHR NO-EXTENSION NO INTERVALS,

" Fiscal Year

S_OBJNR FOR RKPLN-AUFNR MATCHCODE OBJECT ORDE,

" Internal order

S_SAKTO FOR COOI-SAKTO MATCHCODE OBJECT KART,

" Cost Element

S_BUDAT FOR COOI-BUDAT, " Debit Date

S_LIFNR FOR COOI-LIFNR. " Vendor

SELECTION-SCREEN END OF BLOCK B1.

************************************************************************

S T A R T O F S E L E C T I O N *

************************************************************************

START-OF-SELECTION.

*-- Read data

PERFORM GET_DATA.

************************************************************************

E N D O F S E L E C T I O N *

************************************************************************

END-OF-SELECTION.

*-- Process the data and prepare the output data

PERFORM CALCULATE_FINAL_INFO.

*--Display Report output

PERFORM DISPLAY_REPORT.

----

FORM CALCULATE_FINAL_INFO *

----

Process the data and prepare final internal table *

----

FORM CALCULATE_FINAL_INFO.

DATA : L_OBJNR LIKE COOI-OBJNR.

SORT IT_LFA1 BY LIFNR.

DELETE ADJACENT DUPLICATES FROM IT_LFA1 COMPARING LIFNR.

LOOP AT IT_COOI.

L_OBJNR = IT_COOI-OBJNR+2(20).

SHIFT L_OBJNR LEFT DELETING LEADING '0'.

IF L_OBJNR IN S_OBJNR.

READ TABLE IT_LFA1 WITH KEY LIFNR = IT_COOI-LIFNR.

IF SY-SUBRC EQ 0.

IT_OUTTAB-NAME1 = IT_LFA1-NAME1.

ENDIF.

MOVE-CORRESPONDING IT_COOI TO IT_OUTTAB.

CLEAR IT_OUTTAB-OBJNR.

IT_OUTTAB-OBJNR = L_OBJNR.

APPEND IT_OUTTAB.

CLEAR IT_OUTTAB.

CLEAR IT_LFA1.

CLEAR L_OBJNR.

ENDIF.

ENDLOOP.

ENDFORM.

&----

*& Form GET_DATA

&----

Fetch the Data from the table COOI and LFA1

----

FORM GET_DATA.

SELECT OBJNR

SAKTO

MEGBTR

MEINH

WKGBTR

REFBN

RFPOS

SGTXT

BUDAT

LIFNR

FROM COOI

INTO TABLE IT_COOI

WHERE BUDAT IN S_BUDAT

AND LIFNR IN S_LIFNR

AND KOKRS IN S_KOKRS

AND BUKRS IN S_BUKRS

AND GJAHR IN S_GJAHR

AND SAKTO IN S_SAKTO.

IF SY-SUBRC EQ 0 .

Get the Vendor name from LFA1

SELECT LIFNR

NAME1

FROM LFA1

INTO TABLE IT_LFA1

FOR ALL ENTRIES IN IT_COOI

WHERE LIFNR EQ IT_COOI-LIFNR.

ELSE.

MESSAGE I999 WITH TEXT-013.

ENDIF.

ENDFORM. " GET_DATA

&----

*& Form DISPLAY_REPORT

&----

Display the output

----

FORM DISPLAY_REPORT.

PERFORM BUILD_CATALOG.

PERFORM FRM_PREPARE_EVENT_LIST TABLES IT_EVENTS.

IF NOT IT_OUTTAB[] IS INITIAL.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = V_REPID

I_CALLBACK_USER_COMMAND = 'USER_COMMAND'

IT_FIELDCAT = IT_FLDCAT

IT_SORT = IT_SORT

IT_EVENTS = IT_EVENTS

TABLES

T_OUTTAB = IT_OUTTAB

EXCEPTIONS

PROGRAM_ERROR = 1

OTHERS = 2.

ELSE.

MESSAGE I999 WITH TEXT-013.

ENDIF.

ENDFORM. " DISPLAY_REPORT

&----

*& Form BUILD_CATALOG

&----

Build the Field catalog for the ALV Report

----

FORM BUILD_CATALOG.

DATA: V_INDEX LIKE SY-TABIX.

V_REPID = SY-REPID.

DATA: LS_SORT TYPE SLIS_SORTINFO_ALV.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

I_PROGRAM_NAME = V_REPID

I_INTERNAL_TABNAME = 'IT_OUTTAB'

I_INCLNAME = V_REPID

CHANGING

CT_FIELDCAT = IT_FLDCAT

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.

READ TABLE IT_FLDCAT WITH KEY FIELDNAME = 'WKGBTR'

TABNAME = 'IT_OUTTAB' INTO WA_FLDCAT.

IF SY-SUBRC EQ 0.

WA_FLDCAT-DO_SUM = 'X'.

MODIFY IT_FLDCAT FROM WA_FLDCAT INDEX SY-TABIX.

ENDIF.

READ TABLE IT_FLDCAT WITH KEY FIELDNAME = 'OBJNR'

TABNAME = 'IT_OUTTAB' INTO WA_FLDCAT.

IF SY-SUBRC EQ 0.

WA_FLDCAT-SELTEXT_L = 'Order'.

WA_FLDCAT-COL_POS = 1.

WA_FLDCAT-DDICTXT = 'L'.

MODIFY IT_FLDCAT FROM WA_FLDCAT INDEX SY-TABIX.

ENDIF.

LS_SORT-FIELDNAME = 'OBJNR'.

LS_SORT-SPOS = 1.

LS_SORT-UP = 'X'.

LS_SORT-SUBTOT = 'X'.

APPEND LS_SORT TO IT_SORT.

ENDFORM. " BUILD_CATALOG

&----

*& Form FRM_PREPARE_EVENT_LIST

&----

Build the Events

----

FORM FRM_PREPARE_EVENT_LIST TABLES IT_EVENTS TYPE SLIS_T_EVENT.

CLEAR GS_EVENT.

GS_EVENT-NAME = SLIS_EV_TOP_OF_PAGE.

GS_EVENT-FORM = 'TOP_OF_PAGE_REPORT'.

APPEND GS_EVENT TO IT_EVENTS.

ENDFORM. " FRM_PREPARE_EVENT_LIST

************************************************************************

TOP OF PAGE

************************************************************************

FORM TOP_OF_PAGE_REPORT.

CALL FUNCTION 'Z_YREPORT_HEADER'

EXPORTING

DL_TITLE = SY-TITLE

DL_REPID = SY-CPROG

DL_LINSZ = SY-LINSZ

EXCEPTIONS

OTHERS = 1.

ENDFORM. " FRM_TOP_OF_PAGE_REPORT

tHANKS

mAHESH