functional module

[Former Member]

Hello SDN, I have a functional Module in which we already added the extra field once. Now, I want to add some more fields But they are from other extractions.

The field I want to add are PLNBEZ, GLTRI and PRUEFLOS all are from the tables AFKO via AUFNR. Also I want to add KEY for the fields VORNR and STEUS from table AFVC.

What is the best approch for this. Do I have to create another function module or add these fields in the existing function module OR how to add these fields.

The code for the present Functional module is as follows:

TYPES: BEGIN OF gty_catsdb,

AENAM TYPE AENAM,

ALLDF TYPE ALLDF,

APDAT TYPE CATSAPDAT,

ARBID TYPE OBJEKTID,

AUERU TYPE AUERU_VS,

AUFKZ TYPE AUFKN,

AWART TYPE AWART,

BEGUZ TYPE CATSBEGUZ,

BEMOT TYPE BEMOT,

BUKRS TYPE BUKRS,

BWGRL TYPE CATSBWGRL,

COUNTER TYPE CATSCOUNTE,

ENDUZ TYPE CATSENDUZ,

ERNAM TYPE CATS_ERNAM,

ERSDA TYPE CATS_ERSDA,

ERSTM TYPE CATS_CPUTM,

ERUZU TYPE ERUZU,

EXTAPPLICATION TYPE HR_AWTYP,

EXTDOCUMENTNO TYPE HR_AWKEY,

EXTSYSTEM TYPE HR_AWSYS,

GRANT_NBR TYPE GM_GRANT_RECEIVER,

HRCOSTASG TYPE CATSHRCO,

HRKOSTL TYPE CATSHRKOSTL,

HRLSTAR TYPE CATSHRLSTAR,

KAPID TYPE KAPID,

LAEDA TYPE CATS_LAEDA,

LAETM TYPE CATS_LAETM,

LGART TYPE LGART,

LOGSYS TYPE LOGSYS,

LONGTEXT TYPE CATSLONGTE,

OFMNW TYPE REMNW,

OTYPE TYPE OTYPE,

PAOBJNR TYPE RKEOBJNR,

PEDD TYPE CO_PEDD,

PLANS TYPE PLANS,

PRAKN TYPE PRAKN,

PRAKZ TYPE PRAKZ,

RAPLZL TYPE CO_APLZL,

RAUFNR TYPE EAUFNR,

RAUFPL TYPE CO_AUFPL,

REASON TYPE CATSREASON,

REFCOUNTER TYPE CATSREFCOU,

RKSTR TYPE EKSTR,

RPROJ TYPE EPROJ,

SPLIT TYPE CY_SPLIT,

SPRZNR TYPE SPRZNR,

TRFGR TYPE TRFGR,

TRFST TYPE TRFST,

VERSL TYPE VRSCH,

VTKEN TYPE VTKEN,

WABLNR TYPE MBLNR,

WORKITEMID TYPE SWW_WIID,

WTART TYPE HRWRKAR,

END OF gty_catsdb.

DATA: gt_catsdb TYPE TABLE OF gty_catsdb with header line,

gk_catsdb LIKE LINE OF gt_catsdb.

DATA: L_S_CATS_IS_1 like CATS_IS_1.

FIELD-SYMBOLS: <fs_catsdb> TYPE gty_catsdb.

IF NOT gt_catsdb[] is initial.

• select A_{RAUFNR A}AENAM A_{ALLDF A}APDAT

• A_{ARBID A}AUERU A_{AUFKZ A}AWART A~BEGUZ

• A_{BEMOT A}BUKRS A_{BWGRL A}COUNTER A~ENDUZ

• A_{ERNAM A}ERSDA A_{ERSTM A}ERUZU A~EXTAPPLICATION

• A_{EXTDOCUMENTNO A}EXTSYSTEM A~HRCOSTASG

• A_{HRKOSTL A}HRLSTAR A_{KAPID A}LAEDA

• A_{LAETM A}LGART A_{LOGSYS A}LONGTEXT

• A_{OFMNW A}OTYPE A_{PAOBJNR A}PEDD

• A_{PLANS A}PRAKN A_{PRAKZ A}RAPLZL

• A_{RAUFPL A}REASON A_{REFCOUNTER A}RKSTR

• A_{RPROJ A}SPLIT A_{SPRZNR A}TRFGR

• A_{TRFST A}VERSL A_{VTKEN A}WABLNR

• A_{WORKITEMID A}WTART

• INTO CORRESPONDING FIELDS OF TABLE gt_catsdb

• FROM CATSDB AS A

• FOR ALL ENTRIES IN C_T_DATA

• WHERE A~raufnr = C_T_DATA-raufnr.

• ENDIF.

SELECT * FROM CATSDB

INTO CORRESPONDING FIELDS OF TABLE gt_catsdb

FOR ALL ENTRIES IN C_T_DATA

WHERE raufnr = C_T_DATA-raufnr.

ENDIF.

SORT gt_catsdb BY raufnr raplzl counter.

*DELETE ADJACENT DUPLICATES FROM gt_prodord_dtl COMPARING aufnr vornr.

LOOP AT c_t_data INTO L_S_CATS_IS_1.

READ TABLE gt_catsdb ASSIGNING <fs_catsdb>

WITH KEY raufnr = L_S_CATS_IS_1-raufnr BINARY SEARCH.

IF SY-SUBRC = 0.

L_S_CATS_IS_1-AENAM = <fs_catsdb>-AENAM.

L_S_CATS_IS_1-ALLDF = <fs_catsdb>-ALLDF.

L_S_CATS_IS_1-APDAT = <fs_catsdb>-APDAT.

L_S_CATS_IS_1-ARBID = <fs_catsdb>-ARBID.

L_S_CATS_IS_1-AUERU = <fs_catsdb>-AUERU.

L_S_CATS_IS_1-AUFKZ = <fs_catsdb>-AUFKZ.

L_S_CATS_IS_1-AWART = <fs_catsdb>-AWART.

L_S_CATS_IS_1-BEGUZ = <fs_catsdb>-BEGUZ.

L_S_CATS_IS_1-BEMOT = <fs_catsdb>-BEMOT.

L_S_CATS_IS_1-BUKRS = <fs_catsdb>-BUKRS.

L_S_CATS_IS_1-BWGRL = <fs_catsdb>-BWGRL.

L_S_CATS_IS_1-COUNTER = <fs_catsdb>-COUNTER.

L_S_CATS_IS_1-ENDUZ = <fs_catsdb>-ENDUZ.

L_S_CATS_IS_1-ERNAM = <fs_catsdb>-ERNAM.

L_S_CATS_IS_1-ERSDA = <fs_catsdb>-ERSDA.

L_S_CATS_IS_1-ERSTM = <fs_catsdb>-ERSTM.

L_S_CATS_IS_1-ERUZU = <fs_catsdb>-ERUZU.

L_S_CATS_IS_1-EXTAPPLICATION = <fs_catsdb>-EXTAPPLICATION.

L_S_CATS_IS_1-EXTDOCUMENTNO = <fs_catsdb>-EXTDOCUMENTNO.

L_S_CATS_IS_1-EXTSYSTEM = <fs_catsdb>-EXTSYSTEM.

L_S_CATS_IS_1-HRCOSTASG = <fs_catsdb>-HRCOSTASG.

L_S_CATS_IS_1-HRKOSTL = <fs_catsdb>-HRKOSTL.

L_S_CATS_IS_1-HRLSTAR = <fs_catsdb>-HRLSTAR.

L_S_CATS_IS_1-KAPID = <fs_catsdb>-KAPID.

L_S_CATS_IS_1-LAEDA = <fs_catsdb>-LAEDA.

L_S_CATS_IS_1-LAETM = <fs_catsdb>-LAETM.

L_S_CATS_IS_1-LGART = <fs_catsdb>-LGART.

L_S_CATS_IS_1-LOGSYS = <fs_catsdb>-LOGSYS.

L_S_CATS_IS_1-LONGTEXT = <fs_catsdb>-LONGTEXT.

L_S_CATS_IS_1-OFMNW = <fs_catsdb>-OFMNW.

L_S_CATS_IS_1-OTYPE = <fs_catsdb>-OTYPE.

L_S_CATS_IS_1-PAOBJNR = <fs_catsdb>-PAOBJNR.

L_S_CATS_IS_1-PEDD = <fs_catsdb>-PEDD.

L_S_CATS_IS_1-PLANS = <fs_catsdb>-PLANS.

L_S_CATS_IS_1-PRAKN = <fs_catsdb>-PRAKN.

L_S_CATS_IS_1-PRAKZ = <fs_catsdb>-PRAKZ.

L_S_CATS_IS_1-RAPLZL = <fs_catsdb>-RAPLZL.

L_S_CATS_IS_1-RAUFPL = <fs_catsdb>-RAUFPL.

L_S_CATS_IS_1-REASON = <fs_catsdb>-REASON.

L_S_CATS_IS_1-REFCOUNTER = <fs_catsdb>-REFCOUNTER.

L_S_CATS_IS_1-RKSTR = <fs_catsdb>-RKSTR.

L_S_CATS_IS_1-RPROJ = <fs_catsdb>-RPROJ.

L_S_CATS_IS_1-SPLIT = <fs_catsdb>-SPLIT.

L_S_CATS_IS_1-SPRZNR = <fs_catsdb>-SPRZNR.

L_S_CATS_IS_1-TRFGR = <fs_catsdb>-TRFGR.

L_S_CATS_IS_1-TRFST = <fs_catsdb>-TRFST.

L_S_CATS_IS_1-VERSL = <fs_catsdb>-VERSL.

L_S_CATS_IS_1-VTKEN = <fs_catsdb>-VTKEN.

L_S_CATS_IS_1-WABLNR = <fs_catsdb>-WABLNR.

L_S_CATS_IS_1-WORKITEMID = <fs_catsdb>-WORKITEMID.

L_S_CATS_IS_1-WTART = <fs_catsdb>-WTART.

ENDIF.

MODIFY c_t_data from L_S_CATS_IS_1.

ENDLOOP.

CLEAR: gt_catsdb.

[Former Member]

Hi Ashok,

if i am understanding you right then u want to add new fields in FM. for this u hav to add them in the properties of the FM and wat exactly is the use of those fields in your FM is up to you. Everything revolves around the requirements. what exactly the requirement is?

i dnt see any reason to create new FM if you wann use those fields in your FM.

bbye tac care

Ashwani