Hi,
Good day experts,
now iam working on EVENTS in IS-U module.
FUNCTION Module : yfkk_sample_9560 .
*"----
""Local interface:
*" IMPORTING
*" REFERENCE(I_FKKOP) TYPE FKKOP
*" REFERENCE(I_FIELDCAT) TYPE FKKSP_FIELDS
*" REFERENCE(I_KEYDATE) TYPE OP_KEYDATE_KK OPTIONAL
*" CHANGING
*" REFERENCE(C_FKKOPRU) TYPE FKKOPRU
*"----
*types:fkksp_fields type table of fkksp_s_fields.
*
READ TABLE i_fieldcat INTO wa_cat
WITH KEY orig_field = 'PARTNER_NAME' orig_table = 'FKKOPRU'.
IF sy-subrc = 0.
SELECT SINGLE field
INTO c_fkkopru-partner_name
FROM table
WHERE gpart = i_fkkop-gpart.
ENDIF.
DATA:
wa_cat type fkksp_s_fields. "#EC *
DATA: wa_fkkop TYPE fkkop. "#EC *
DATA: x_haus LIKE ehauisu-haus, "#EC *
x_actual LIKE regen-actual. "#EC *
DATA:lv_vkonto TYPE ever-vkonto. "#EC *
TABLES: ever,eanl,evbs. "#EC *
DATA: lv_anlage TYPE eanl-anlage, "#EC *
lv_vstelle TYPE eanl-vstelle. "#EC *
DATA: yv_vstelle TYPE evbs-vstelle, "#EC *
lv_haus TYPE evbs-haus, "#EC *
yy_addr_data TYPE eadrdat, "#EC *
y_ehauisu TYPE ehauisu, "#EC *
x_portion TYPE te420-termschl, "#EC *
lv_vkont TYPE fkkvkp-vkont. "#EC *
DATA: t_ever LIKE ever OCCURS 0 WITH HEADER LINE, "#EC *
t_eanl LIKE eanl OCCURS 0 WITH HEADER LINE, "#EC *
t_evbs LIKE evbs OCCURS 0 WITH HEADER LINE, "#EC *
t_iflot LIKE iflot OCCURS 0 WITH HEADER LINE. "#EC *
DATA: y_anlage TYPE eablg-anlage, "#EC *
y_ableinh TYPE eablg-ableinh, "#EC *
y_portion TYPE te422-portion. "#EC *
****Getting the city 1 *******************
*LOOP AT I_FKKOP INTO WA_FKKOP.
CALL FUNCTION 'ISU_GET_PARTNER_ADDRESS'
EXPORTING
x_partnerid = i_fkkop-gpart
x_addrnumber = i_fkkop-emadr
IMPORTING
y_addr_data = yy_addr_data .
*******Getting the connection object**************
CALL FUNCTION 'YISU_GETCONNOBJ_VKONTGPART'
EXPORTING
i_vkont = i_fkkop-vkont
i_gpart = i_fkkop-gpart
IMPORTING
E_BUTOOO =
E_FKKVKP =
TABLES
t_ever = t_ever
t_eanl = t_eanl
t_evbs = t_evbs
t_iflot = t_iflot
.
lv_haus = t_evbs-haus.
CALL FUNCTION 'ISU_DB_EHAUISU_SINGLE' "#EC *
EXPORTING
x_haus = lv_haus
IMPORTING
y_ehauisu = y_ehauisu
EXCEPTIONS
not_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
ENDIF.
***********Getting the Potion******************
SELECT SINGLE anlage "#EC *
ableinh FROM eablg INTO (y_anlage, y_ableinh) WHERE anlage = t_eanl-anlage.
IF sy-subrc = 0.
SELECT SINGLE portion FROM te422 INTO y_portion WHERE termschl = y_ableinh.
ENDIF.
***************Assinging the city1 and political word and portion ***********
READ TABLE i_fieldcat INTO wa_cat WITH KEY
orig_field = 'YYCITY1' orig_table = 'FKKOPRU'
orig_field = 'YYREGPOLIT' orig_table = 'FKKOPRU'
orig_field = 'YYPORTION' orig_table = 'FKKOPRU'.
IF sy-subrc = 0.
c_fkkopru-yycity1 = yy_addr_data-city1.
c_fkkopru-yyregpolit = y_ehauisu-regpolit.
c_fkkopru-yyportion = y_portion.
ENDIF.
ENDFUNCTION.
Here iam getting the syntax error but activation wont get any error.
Error is : "FKKSP_FIELDS" is not a pre-defined type or a type from a type group.
Plz its very urgent. give me solution for this Error.
Regards,
kk
Bluesky
