functional module

Former Member — Mon, 19 Feb 2007 21:51:34 GMT

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.

Re: functional module

Former Member — Mon, 19 Feb 2007 22:08:32 GMT

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

topic functional module in Application Development and Automation Discussions

functional module

Re: functional module