How to get data from the Tables (Can func.module help then how to write )

Hi,
Can anyone tell the use of functional module to extract the data from R/3.i am working on PM module and need to extract the status of work order and equipment which i can get from First i had to get objnr then i had to go to jsto in jsto i get stsma and estat. by using estat and stsma i can get status in table tj30t here estat is same as stat in jest table.
how to get all these in bw . any help.
I need status of work orders and equipments which exists in tj30t or we can get from tj30 tables in the fields txt30 and txt04
Any one pls help to get all these stuff from R/3 to BW
Regards
Srini-----

Hi
You need to enhance (write a user exit) for your Data Source.
Here are some links on UE:
Enhancment Framework
====================
SAP Help Enhancment Framework
http://help.sap.com/saphelp_nw2004s/helpdata/en/c2/eab541c5b63031e10000000a155106/frameset.htm
Enhancements in sap bw
https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/docs/library/uuid/59069d90-0201-0010-fd81-d5e11994d8b5
User Exit Enhancments
Enhancement
User exit
BADI
http://help.sap.com/saphelp_nw2004s/helpdata/en/c2/eab541c5b63031e10000000a155106/frameset.htm
Reg's
Edan

Similar Messages

How to get data from three tables (A,B,C) having one to many relation between A and B .and having one to many reation between b and c

i have three tables A,B,C. there is one to many relation between A and B. and one to many relation existed between table b and c . how will get data from these three tables

check if this helps:
select * --you can always frame your column set
from tableA a
left join tableB b on a.aid=b.aid
left join tableC c on c.bid=b.bid
This is just a general query. However, we can help you a lot more, if you can post the DDL + sample data and required output.
Thanks,
Jay
<If the post was helpful mark as 'Helpful' and if the post answered your query, mark as 'Answered'>

How to get data from COSP table, field HRKFT as the key to data from PM?

Dear ladies and gentlemen!
I need to get data from COSP table, field HRKFT as the key to data from PM tables (AFKO and AUFK).
The problem is that it is a key field to the COSP, and all non-key fields as an alternative to HRKFT are not suitable for this task.
All this is necessary for the extractor, which loads the data from the R \ 3 systems in the BW-system. I need to perform SELECT from a table COSP and maybe also JOIN, most likely between tables COSP and AUFK.
What should I do in this case?
Thank you very much in advance!

From information on help.sap.com I've made a conclusion that one of possible solutions in theory is to modify standard extractor PM_OM_OPA_1 in order to make HRKFT field available for work, because by default it is hidden by SAP and not available for use as a key field.
Of course, it's not a very good solution, but for now I know no other way to solve this problem.
Maybe someone knows better ways? In this case I will be very grateful for any help!
Moderator: You'd better post it on BI forums

How to dispaly datas from the table, base on the selection screen

hi there gurus,
im currently developing a stock aging report,
i have completed one program but it do not allow me to excutes the program althought the syntax is correct.
i would to get some ideas from you, regarding how to extract the datas from the tables?
my selction screen will be, mat number, date, and gl account.
and the out put datas are, mbew-matnr, makt-maktx, mbew-lbkum, mara_meins, mbew-salk3,and the consumptions for the past 12months and the values for it.
can u plz guide me with this,
thank you,.
this is kind of very urgent program that i need to finish , plz help me.

here is the total code the i do
REPORT ZSTK_AGING_REP2.
*TABLES
TABLES: mseg,
        mara,
        makt,
        SKAT,
        SKA1,
        MARV,
        T001,
        T030,
        T149D,
        AM07M,
        MCMSEG,
        T001K,
        T001W,
        T134M,
        vbak,
        mbew,
mcon, rmcb0, marc, t024w, mvke, v134w, t438a, propf, maprf, t000, t024e
, tvko.
DATA: BEGIN OF ta_material OCCURS 2,
       werks LIKE mard-werks,
       lgort LIKE mard-lgort,
       matnr LIKE mard-matnr,
       labst LIKE mard-labst,
       umlme LIKE mard-umlme,
       insme LIKE mard-insme,
       einme LIKE mard-einme,
       speme LIKE mard-speme,
       retme LIKE mard-retme,
       verpr LIKE mbew-verpr,
       maktx LIKE makt-maktx,
       meins LIKE mara-meins,
      bukrs LIKE t001-bukrs,
      konto LIKE t030-konts,
      butxt LIKE t001-butxt,
      txt50 LIKE skat-txt50,
      MABTR LIKE MCMSEG-DMBTR,
      SKBTR LIKE MCMSEG-DMBTR,
      WAERS LIKE T001-WAERS,
      WAER2 LIKE T001-WAERS,
      BWKEY LIKE MBEW-BWKEY,
      LBKUM LIKE MBEW-LBKUM,
     MEINS LIKE MARA-MEINS,
         SALK3 LIKE MBEW-SALK3,
         WAERS1 LIKE T001-WAERS,
         BUKRS1 LIKE T001-BUKRS,
         KONTO1 LIKE T030-KONTS,
        lbkum LIKE mbew-lbkum,
          erdat LIKE vbak-erdat,
      END OF ta_material.
DATA: BEGIN OF ta_mseg OCCURS 2,
        mblnr LIKE mseg-mblnr,
*->Begin of KL02+ -
        mjahr like mseg-mjahr,
        zeile like mseg-zeile,
*->End of KL02+ -
        meins LIKE mseg-meins,
        menge LIKE mseg-menge,
        werks LIKE mseg-werks,
        lgort LIKE mseg-lgort,
        matnr LIKE mseg-matnr,
        budat LIKE mkpf-budat,
        saknr LIKE SKA1-SAKNR,
      END OF ta_mseg.
single recs based on MATNR
DATA: BEGIN OF i_matnr OCCURS 0,
        werks LIKE mard-werks,
        lgort LIKE mard-lgort,
        matnr LIKE mard-matnr,
        maktx LIKE makt-maktx,
        mblnr LIKE mseg-mblnr,
        verpr LIKE mbew-verpr,
        labst LIKE mard-labst,                    "Valuated stock with
*unrestricted use
        umlme LIKE mard-umlme,                    "Stock in transfer
*(from one storage location to another)
        insme LIKE mard-insme,                    "Stock in quality
*inspection
        einme LIKE mard-einme,                    "Total Stock of All
*Restricted Batches
        speme LIKE mard-speme,                    "Blocked stock
        retme LIKE mard-retme,                    "Blocked Stock Returns
        meins LIKE mara-meins,                    "base unit
      bukrs LIKE t001-bukrs,
      konto LIKE t030-konts,
      butxt LIKE t001-butxt,
      txt50 LIKE skat-txt50,
      MABTR LIKE MCMSEG-DMBTR,
      SKBTR LIKE MCMSEG-DMBTR,
      WAERS LIKE T001-WAERS,
      WAER2 LIKE T001-WAERS,
      BWKEY LIKE MBEW-BWKEY,
      LBKUM LIKE MBEW-LBKUM,
     MEINS LIKE MARA-MEINS,
         SALK3 LIKE MBEW-SALK3,
         WAERS1 LIKE T001-WAERS,
         BUKRS1 LIKE T001-BUKRS,
         KONTO1 LIKE T030-KONTS,
        lbkum LIKE mbew-lbkum,
       END OF i_matnr.
recs based on MBLNR
DATA: BEGIN OF i_mblnr OCCURS 0,
        mblnr LIKE mseg-mblnr,
        werks LIKE mseg-werks,
        lgort LIKE mseg-lgort,
        matnr LIKE mseg-matnr,
        menge LIKE mseg-menge,
        meint LIKE mseg-meins,
        budat LIKE mkpf-budat,
     bukrs LIKE t001-bukrs,
     konts LIKE t030-konts,
     butxt LIKE t001-butxt,
     txt50 LIKE skat-txt50,
     MABTR LIKE MCMSEG-DMBTR,
     SKBTR LIKE MCMSEG-DMBTR,
     WAERS LIKE T001-WAERS,
     WAER2 LIKE T001-WAERS,
     BWKEY LIKE MBEW-BWKEY,
      LBKUM LIKE MBEW-LBKUM,
     MEINS LIKE MARA-MEINS,
         SALK3 LIKE MBEW-SALK3,
         WAERS1 LIKE T001-WAERS,
         BUKRS1 LIKE T001-BUKRS,
         KONTO1 LIKE T030-KONTS,
       END OF i_mblnr.
TYPES: BEGIN OF t_mat,
        lgort LIKE mseg-lgort,
        werks LIKE mseg-werks,
        matnr LIKE mseg-matnr,
        mblnr LIKE mseg-mblnr,
        maktx LIKE makt-maktx,
        meins LIKE mara-meins,
meng0 LIKE mbew-lbkum,
value0 LIKE mbew-salk3,
       meng0 LIKE mard-labst,                   "0 to 10 days
       value0 LIKE mseg-dmbtr,
       meng1 LIKE mard-labst,                   "11 to 30 days
       value1 LIKE mseg-dmbtr,
       meng2 LIKE mard-labst,                   "31 to 60 days
       value2 LIKE mseg-dmbtr,
       meng3 LIKE mard-labst,                   "61-90
       value3 LIKE mseg-dmbtr,
       meng4 LIKE mard-labst,                   "90 days onwards
       value4 LIKE mseg-dmbtr,
       END OF t_mat.
DATA: i_mat2 TYPE t_mat OCCURS 0 WITH HEADER LINE.
TYPES: BEGIN OF t_mat2,
        lgort LIKE mard-lgort,                    " storage location
        cnt0(5),
        cnt1(5),
        cnt2(5),
        cnt3(5),
        cnt4(5),
   meng0 LIKE mbew-lbkum,
value0 LIKE mbew-salk3,
       meng0 LIKE mard-labst,                   "0 to 10 days
       value0 LIKE mseg-dmbtr,
       meng1 LIKE mard-labst,                   "11 to 30 days
       value1 LIKE mseg-dmbtr,
       meng2 LIKE mard-labst,                   "31 to 60 days
       value2 LIKE mseg-dmbtr,
       meng3 LIKE mard-labst,                   "61-90
       value3 LIKE mseg-dmbtr,
       meng4 LIKE mard-labst,                   "90 days onwards
       value4 LIKE mseg-dmbtr,
       END OF t_mat2.
DATA: i_matsum TYPE t_mat2 OCCURS 0 WITH HEADER LINE.
DATA: w_mengb TYPE mbew-lbkum,
       w_workqyt TYPE mbew-lbkum,
       w_index TYPE sy-tabix,
*DATA: w_mengb TYPE mard-labst,     "tmp Balance qty
     w_workqty TYPE mard-labst,   "Work qty
     w_index TYPE sy-tabix,
      w_days(5) TYPE n,           "duration difference (days)
      w_mths(5) TYPE n,           "duration difference (mths)
      w_dat1 TYPE sy-datum,        "date
      w_dat2 TYPE sy-datum,        "today's date
      w_detl(1) TYPE c,
      w_summ(1) TYPE c,
      w_denom TYPE i,
      w_numer TYPE i,
      w_conv TYPE i,
      w_ttlcnt TYPE i,
      w_cnt TYPE i,
      v_topofpage(1),
     w_meng LIKE mard-labst,
       w_meng LIKE mbew-lbkum,
*sapscript values
      w_title(20) TYPE c.              "Summary / Detail Report
DATA: lv_peinh LIKE mbew-peinh, "Price Unit
      lv_verpr LIKE mbew-verpr. "Moving Price
proram comes here
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_werks FOR mseg-werks,
                s_lgort FOR mseg-lgort,
                s_matnr FOR mara-matnr,
                s_saknr FOR ska1-saknr,
                S_ERDAT FOR VBAK-ERDAT.
PARAMETERS: pck_detl RADIOBUTTON GROUP rep1,
            pck_summ RADIOBUTTON GROUP rep1,
            pck_dtsm RADIOBUTTON GROUP rep1 DEFAULT 'X'.
SELECTION-SCREEN END OF BLOCK blk1.
top of the page
TOP-OF-PAGE.
PERFORM f_top_of_page.
FORM f_top_of_page .
IF v_topofpage = 'D'.
*-->Report header for detail report
    WRITE:/2 'Printed By :', sy-uname,
           80 'Stock Aging Report - Detail',
           180 'Printed on:', sy-datum, sy-timlo,
           220 'Page:', sy-pagno.
    WRITE:/,/,/.
    WRITE:/2 'Storage',
           10 'Matl ID',
           22 'Matl Description',
           61 'UOM',
           78 '<--=<QTY ON THIS DATE -->',
          78 '<-- =< 10 days -->',
          112 '<--11 to 30 days -->',
          148 '<--31 to 60 days -->',
          181 '<--61 to 90 days -->',
          216 '<-- > 90 days -->',
           /2 'Location',
           76 'Qty',
           92 'Value'.
          112 'Qty',
          128 'Value',
          148 'Qty',
          164 'Value',
          181 'Qty',
          195 'Value',
          216 'Qty',
          231 'Value'.
    WRITE:/2 sy-uline(235).
ELSE.
*-->Report header for Summary report
    WRITE:/2 'Printed By :', sy-uname,
           80 'Stock Aging Report - Summary',
           180 'Printed on:', sy-datum, sy-timlo,
           220 'Page:', sy-pagno.
    WRITE:/,/,/.
    WRITE:/2 'Storage',
           10 'Matl ID',
           22 'Matl Description',
           61 'UOM',
           78 '<--< QTY ON THIS DATE -->',
          78 '<-- < 10 days -->',
          112 '<--11 to 30 days -->',
          148 '<--31 to 60 days -->',
          181 '<--61 to 90 days -->',
          216 '<-- > 90 days -->',
           /2 'Location',
           76 'Qty',
           92 'Value'.
          112 'Qty',
          128 'Value',
          148 'Qty',
          164 'Value',
          181 'Qty',
          195 'Value',
          216 'Qty',
          231 'Value'.
    WRITE:/2 sy-uline(235).
ENDIF.
ENDFORM.                    " f_top_of_page
*start-of-selection
*PERFOM f_data_selection.
FORM f_data_selection.
SELECT a~werks
         a~lgort
         a~matnr
        a~saknr
        a~lbkum
        a~erdat
        a~labst
         a~umlme
         a~insme
         a~einme
         a~speme
         a~retme
       b~verpr    "this field no long been used
         c~maktx
         d~meins
         INTO CORRESPONDING FIELDS OF TABLE ta_material
         FROM mard AS a
         INNER JOIN makt AS c ON amatnr = cmatnr
         INNER JOIN mara AS d ON amatnr = dmatnr
         WHERE a~matnr IN s_matnr
           AND a~werks IN s_werks
           AND a~lgort IN s_lgort
          AND a~saknr IN s_saknr
          AND a~erdat IN s_erdat
           AND c~spras = 'EN'.
*--> SC01 - End of Insertion **
*-->Select material documents
SELECT a~mblnr
        a~mjahr
        a~zeile
        a~meins
        a~menge
        a~werks
        a~lgort
        a~matnr
        b~budat
        INTO CORRESPONDING FIELDS OF TABLE ta_mseg
FROM mseg AS a INNER JOIN mkpf AS b
ON amblnr = bmblnr
AND amjahr = bmjahr
FOR ALL ENTRIES IN ta_material
WHERE matnr = ta_material-matnr
AND a~werks = ta_material-werks
AND a~lgort = ta_material-lgort
AND algort NE aumlgo
AND a~shkzg = 'S'
AND a~smbln EQ space
AND a~smblp EQ space.
*--> SC03 - Start of Insertion **
If MBLNR exist in MSEG-SMBLN and this
record's SHKZG = 'H'. Remove it from the table.
This is becuase this particular record has already been reverse.
LOOP AT ta_mseg.
    SELECT SINGLE *
             FROM mseg
            WHERE smbln = ta_mseg-mblnr
*->Begin of KL02+ -
              and SMBLP = ta_mseg-zeile.
             AND shkzg = 'H'. "return.           " KL02-
*->End of KL02+ -
    IF sy-subrc = 0.
      DELETE ta_mseg.
    ENDIF.
ENDLOOP.
*--> SC03 - Enf   of Insertion **
ENDFORM.                    " f_data_selection
*IMPORTANT , NEED TO CHECK LATER
FORM f_data_preparation.
*-->Append data for report details
LOOP AT ta_material.
    DATA: ta_msegtemp LIKE ta_mseg OCCURS 2 WITH HEADER LINE.
*-->Loop at all material documents into a temp table
    REFRESH ta_msegtemp. CLEAR ta_msegtemp.
    LOOP AT ta_mseg WHERE matnr = ta_material-matnr AND
                          werks = ta_material-werks AND
                          lgort = ta_material-lgort.
      ta_msegtemp = ta_mseg. APPEND ta_msegtemp.
    ENDLOOP.
*-->Add up all the stock for the material
    CLEAR w_mengb.
    w_mengb = ta_material-labst +
                    ta_material-umlme +
                    ta_material-insme +
                    ta_material-einme +
                    ta_material-speme +
                    ta_material-retme.
    IF w_mengb IS INITIAL.
      CONTINUE.
    ENDIF.
*-->sort msegtemp by posting date
    SORT ta_msegtemp BY budat DESCENDING.
*-->get the values from the material documents into the report output
    LOOP AT ta_msegtemp.
*->Begin of KL02- -
     CALL FUNCTION 'HRCM_TIME_PERIOD_CALCULATE'
       EXPORTING
         begda               = ta_msegtemp-budat
         endda               = sy-datum
       IMPORTING
        NOYRS               =
         nomns               = w_mths
         nodys               = w_days
      EXCEPTIONS
        invalid_dates       = 1
        overflow            = 2
        OTHERS              = 3
*->End of KL02- -
*->Begin of KL02+ -
*-->Get the days difference btw two dates
      clear w_days.
      w_days = sy-datum - ta_msegtemp-budat.
*--> Include today's date into calculation
      w_days = w_days + 1.
*->End of KL02+ -
check base unit, do conversion
      IF ta_material-meins <> ta_msegtemp-meins.
        CALL FUNCTION 'MD_CONVERT_MATERIAL_UNIT'
          EXPORTING
            i_matnr              = ta_material-matnr
            i_in_me              = ta_msegtemp-meins
            i_out_me             = ta_material-meins
            i_menge              = ta_msegtemp-menge
          IMPORTING
            e_menge              = ta_msegtemp-menge
          EXCEPTIONS
            error_in_application = 1
            error                = 2
            OTHERS               = 3.
      ENDIF.
*--> SC01 - Start of Insertion **
      SELECT SINGLE peinh
                    verpr
               INTO (lv_peinh,
                     lv_verpr)
               FROM mbew
              WHERE matnr = ta_material-matnr
                AND bwkey = ta_material-werks.
      IF sy-subrc = 0.
        ta_material-verpr = lv_verpr.
      ENDIF.
*--> SC01 - End   of Insertion **
*-->check whether the mseg value is LE than the stock value
      IF ta_msegtemp-menge LE w_mengb.
*-->Days < 10 days
        IF w_days LE 1 AND w_days EQ 366.
          i_mat2-meng0 = i_mat2-meng0 + ta_msegtemp-menge.
          IF NOT lv_peinh EQ 0.
            i_mat2-value0 = ( i_mat2-meng0 / lv_peinh ) *
ta_material-verpr."+SC01
          ENDIF.
**-->Days 11 - 30 days
       ELSEIF w_days >= 11 AND w_days =< 30.
         i_mat2-meng1 = i_mat2-meng1 + ta_msegtemp-menge.
         IF NOT lv_peinh EQ 0.
           i_mat2-value1 = ( i_mat2-meng1 / lv_peinh ) *
*ta_material-verpr."+SC01
         ENDIF.
**-->Days 31-60 days
       ELSEIF w_days >= 31 AND w_days =< 60.
         i_mat2-meng2 = i_mat2-meng2 + ta_msegtemp-menge.
         IF NOT lv_peinh EQ 0.
           i_mat2-value2 = ( i_mat2-meng2 / lv_peinh ) *
*ta_material-verpr."+SC01
         ENDIF.
**-->Days 61-90 days
       ELSEIF w_days >= 61 AND w_days =< 90.
         i_mat2-meng3 = i_mat2-meng3 + ta_msegtemp-menge.
         IF NOT lv_peinh EQ 0.
           i_mat2-value3 = ( i_mat2-meng3 / lv_peinh ) *
*ta_material-verpr.
         ENDIF.
**-->Days > 90 days
       ELSEIF w_days > 90.
         i_mat2-meng4 = i_mat2-meng4 + ta_msegtemp-menge.
         IF NOT lv_peinh EQ 0.
           i_mat2-value4 = ( i_mat2-meng4 / lv_peinh ) *
*ta_material-verpr.
         ENDIF.
       ENDIF.
*->End of KL002+
        w_mengb = w_mengb - ta_msegtemp-menge.
      ELSE.
        IF NOT w_mengb LE 0 .
             IF NOT lv_peinh EQ 0.
**->End of KL001+
               i_mat2-value0 = ( i_mat2-meng0 / lv_peinh )
*ta_material-verpr."+SC01
**->Begin of KL001+
             ENDIF.
           ELSEIF w_days GE 22.
             i_mat2-meng3 = i_mat2-meng3 + w_mengb.
             IF NOT lv_peinh EQ 0.
               i_mat2-value3 = ( i_mat2-meng3 / lv_peinh )
*ta_material-verpr.
             ENDIF.
**->End of KL001+
           ENDIF.
**--> SC02 - End of Insertioin **
       ENDIF.
*->End of KL002-
*->Begin of KL002+
*--> < 10 days
                 IF w_days EQ 1 AND w_days LE 366.
          i_mat2-meng0 = i_mat2-meng0 + ta_msegtemp-menge.
          IF NOT lv_peinh EQ 0.
            i_mat2-value0 = ( i_mat2-meng0 / lv_peinh ) *
ta_material-verpr."+SC01
          ENDIF.
         ELSEIF w_days >= 11 AND w_days =< 30.
           i_mat2-meng1 = i_mat2-meng1 + w_mengb.
           IF NOT lv_peinh EQ 0.
             i_mat2-value1 = ( i_mat2-meng1 / lv_peinh ) *
*ta_material-verpr.
           ENDIF.
**--> 31 - 60 days
         ELSEIF w_days >= 31 AND w_days =< 60.
           i_mat2-meng2 = i_mat2-meng2 + w_mengb.
           IF NOT lv_peinh EQ 0.
             i_mat2-value2 = ( i_mat2-meng2 / lv_peinh ) *
*ta_material-verpr.
           ENDIF.
**--> 61 - 90 days
         ELSEIF w_days >= 61 AND w_days =< 90.
           i_mat2-meng3 = i_mat2-meng3 + w_mengb.
           IF NOT lv_peinh EQ 0.
             i_mat2-value3 = ( i_mat2-meng3 / lv_peinh ) *
*ta_material-verpr.
           ENDIF.
**--> > 90 days
         ELSEIF w_days > 90.
           i_mat2-meng4 = i_mat2-meng4 + w_mengb.
           IF NOT lv_peinh EQ 0.
             i_mat2-value4 = ( i_mat2-meng4 / lv_peinh ) *
*ta_material-verpr.
           ENDIF.
          ENDIF.
*->End of KL002+
          w_mengb = 0.
        ENDIF. " check stock value NE zero
      ENDIF.   "check Mat doc amount is LE than the stock value
ENDIF.
    ENDLOOP. " msegtemp
*-->append i_mat2 values
    i_mat2-werks = ta_material-werks.
    i_mat2-lgort = ta_material-lgort.
    i_mat2-matnr = ta_material-matnr.
    i_mat2-maktx = ta_material-maktx.
    i_mat2-meins = ta_material-meins.
    APPEND i_mat2. CLEAR i_mat2.
ENDLOOP. " ta_material
*-->Append data for summary data
DATA: i_lgort LIKE i_mat2 OCCURS 2 WITH HEADER LINE.
i_lgort[] = i_mat2[].
SORT i_lgort BY werks lgort.
DELETE ADJACENT DUPLICATES FROM i_lgort COMPARING werks lgort.
DATA: v_cnt0(5), v_cnt1(5), v_cnt2(5), v_cnt3(5), v_cnt4(5),
        v_value0 LIKE i_matsum-value0.
       v_value1 LIKE i_matsum-value1,
       v_value2 LIKE i_matsum-value2,
       v_value3 LIKE i_matsum-value3,
       v_value4 LIKE i_matsum-value4.
LOOP AT i_lgort.
    CLEAR v_cnt0. CLEAR v_value0.
CLEAR v_cnt1. CLEAR v_value1.
   CLEAR v_cnt2. CLEAR v_value2.
   CLEAR v_cnt3. CLEAR v_value3.
   CLEAR v_cnt4. CLEAR v_value4.
    LOOP AT i_mat2 WHERE lgort = i_lgort-lgort AND
                         werks = i_lgort-werks.
      IF NOT i_mat2-meng0 IS INITIAL.
        v_cnt0 = v_cnt0 + 1.
        v_value0 = v_value0 + i_mat2-value0.
      ENDIF.
     IF NOT i_mat2-meng1 IS INITIAL.
       v_cnt1 = v_cnt1 + 1.
       v_value1 = v_value1 + i_mat2-value1.
     ENDIF.
     IF NOT i_mat2-meng2 IS INITIAL.
       v_cnt2 = v_cnt2 + 1.
       v_value2 = v_value2 + i_mat2-value2.
     ENDIF.
     IF NOT i_mat2-meng3 IS INITIAL.
       v_cnt3 = v_cnt3 + 1.
       v_value3 = v_value3 + i_mat2-value3.
     ENDIF.
     IF NOT i_mat2-meng4 IS INITIAL.
       v_cnt4 = v_cnt4 + 1.
       v_value4 = v_value4 + i_mat2-value4.
     ENDIF.
    ENDLOOP.
    CLEAR i_matsum.
    i_matsum-lgort = i_mat2-lgort.
    IF v_cnt0 NE space.
      i_matsum-cnt0 = v_cnt0.
      i_matsum-value0 = v_value0.
      APPEND i_matsum.
    ENDIF.
   CLEAR i_matsum.
   i_matsum-lgort = i_mat2-lgort.
   IF v_cnt1 NE space.
     i_matsum-cnt1 = v_cnt1.
     i_matsum-value1 = v_value1.
     APPEND i_matsum.
   ENDIF.
   CLEAR i_matsum.
   i_matsum-lgort = i_mat2-lgort.
   IF v_cnt2 NE space.
     i_matsum-cnt2 = v_cnt2.
     i_matsum-value2 = v_value2.
     APPEND i_matsum.
   ENDIF.
   CLEAR i_matsum.
   i_matsum-lgort = i_mat2-lgort.
   IF v_cnt3 NE space.
     i_matsum-cnt3 = v_cnt3.
     i_matsum-value3 = v_value3.
     APPEND i_matsum.
   ENDIF.
   CLEAR i_matsum.
   i_matsum-lgort = i_mat2-lgort.
   IF v_cnt4 NE space.
     i_matsum-cnt4 = v_cnt4.
     i_matsum-value4 = v_value4.
     APPEND i_matsum.
   ENDIF.
ENDLOOP.
ENDFORM.                    "f_data_preparation
*IMPORTANT , NEED TO CHECK LATER
FORM f_display_data .
IF pck_dtsm = 'X'.
*-->Display detail
    v_topofpage = 'D'.
    PERFORM f_display_detail.
*-->display summary
    v_topofpage = 'S'.
    NEW-PAGE.
    PERFORM f_display_summary.
ELSEIF pck_detl = 'X'.
*-->Display detail
    v_topofpage = 'D'.
    PERFORM f_display_detail.
ELSEIF pck_summ = 'X'.
*-->display summary
    v_topofpage = 'S'.
    PERFORM f_display_summary.
ENDIF.
ENDFORM.                    " f_display_data
FORM f_display_detail .
v_topofpage = 'D'.
SORT i_mat2 BY werks lgort.
*DATA: v_count(5),
DATA: v_count,
        v_va1 LIKE i_mat2-value0.
       v_va2 LIKE i_mat2-value0,
       v_va3 LIKE i_mat2-value0,
       v_va4 LIKE i_mat2-value0,
       v_va5 LIKE i_mat2-value0.
LOOP AT i_mat2.
    WRITE:/2 i_mat2-lgort,
          10 i_mat2-matnr,
          22 i_mat2-maktx(38),
          61 i_mat2-meins,
          64 i_mat2-meng0,
          82 i_mat2-value0.
         100 i_mat2-meng1,
         118 i_mat2-value1,
         136 i_mat2-meng2,
         154 i_mat2-value2,
         169 i_mat2-meng3,
         186 i_mat2-value3,
         204 i_mat2-meng4,
         222 i_mat2-value4.
*-->Set counter and add up all values by lgort
    v_count = v_count + 1.
     v_va1 = v_va1 + i_mat2-value0.
   v_va2 = v_va2 + i_mat2-value1.
   v_va3 = v_va3 + i_mat2-value2.
   v_va4 = v_va4 + i_mat2-value3.
   v_va5 = v_va5 + i_mat2-value4.
    AT END OF lgort.
      WRITE:/10 'Cnt:',
             15 v_count,
             55 'Subtotal',
             82 v_va1.
            118 v_va2,
            154 v_va3,
            186 v_va4,
            222 v_va5.
      CLEAR v_count. CLEAR v_va1.
     CLEAR v_va2. CLEAR v_va3. CLEAR v_va4. clear v_va5.
    ENDAT.
ENDLOOP.
ENDFORM.                    " f_display_detail
FORM f_display_summary .
v_topofpage = 'S'.
LOOP AT i_matsum.
    IF NOT i_matsum-cnt0 IS INITIAL.
      WRITE:/2 i_matsum-lgort,
             10 'Cnt:',15 i_matsum-cnt0,
             82 i_matsum-value0.
    ENDIF.
   IF NOT i_matsum-cnt1 IS INITIAL.
     WRITE:/2 i_matsum-lgort,
            10 'Cnt:',15 i_matsum-cnt1,
            118 i_matsum-value1.
   ENDIF.
   IF NOT i_matsum-cnt2 IS INITIAL.
     WRITE:/2 i_matsum-lgort,
            10 'Cnt:',15 i_matsum-cnt2,
            154 i_matsum-value2.
   ENDIF.
   IF NOT i_matsum-cnt3 IS INITIAL.
     WRITE:/2 i_matsum-lgort,
            10 'Cnt:', 15 i_matsum-cnt3,
            186 i_matsum-value3.
   ENDIF.
   IF NOT i_matsum-cnt4 IS INITIAL.
     WRITE:/2 i_matsum-lgort,
            10 'Cnt:', 15 i_matsum-cnt4,
            222 i_matsum-value4.
   ENDIF.
ENDLOOP.
ENDFORM.                    " f_display_summary

How to get data from a table in a condition between twomonth

hai friends
I have a query that is i want to get data from a table based on a condition between two months in a format of char column
Ex
I have a column called from_month in the format of 'mon/yyyy'(already converted from date')
then the second column is to_month in the same format 'mon/yyyy'
now i wiil select from_month and to_month like
from month jan/2009
to month mar/2010
how to use between of two months in the format of char.Please tell me how to get two different month between data.

Hi,
This may be of help.
Remember Pointless has made a point ;) (worth millions)
If possible , DO NOT store dates as strings or numbers.Let dates be dates.
WITH dat AS
(SELECT ' THIS IS JAN' x,to_char(to_date('01-JAN-2009','DD-MON-YYYY'),'mon/yyyy') y FROM dual UNION
SELECT ' THIS IS FEB' x,to_char(to_date('01-FEB-2009','DD-MON-YYYY'),'mon/yyyy') y FROM dual UNION
SELECT ' THIS IS MAR' x,to_char(to_date('01-MAR-2009','DD-MON-YYYY'),'mon/yyyy') y FROM dual UNION
SELECT ' THIS IS APR' x,to_char(to_date('01-APR-2009','DD-MON-YYYY'),'mon/yyyy') y FROM dual UNION
SELECT ' THIS IS MAY' x,to_char(to_date('01-MAY-2009','DD-MON-YYYY'),'mon/yyyy') y FROM dual UNION
SELECT ' THIS IS JUN' x,to_char(to_date('01-JUN-2009','DD-MON-YYYY'),'mon/yyyy') y FROM dual UNION
SELECT ' THIS IS JUL' x,to_char(to_date('01-JUL-2009','DD-MON-YYYY'),'mon/yyyy') y FROM dual UNION
SELECT ' THIS IS AUG' x,to_char(to_date('01-AUG-2009','DD-MON-YYYY'),'mon/yyyy') y FROM dual UNION
SELECT ' THIS IS SEP' x,to_char(to_date('01-SEP-2009','DD-MON-YYYY'),'mon/yyyy') y FROM dual UNION
SELECT ' THIS IS OCT' x,to_char(to_date('01-OCT-2009','DD-MON-YYYY'),'mon/yyyy') y FROM dual UNION
SELECT ' THIS IS NOV' x,to_char(to_date('01-NOV-2009','DD-MON-YYYY'),'mon/yyyy') y FROM dual)
SELECT * FROM dat
WHERE to_date(y,'mon/yyyy') BETWEEN to_date('01 jan 2009','dd mon yyyy') AND to_date('01 mar 2009','dd mon yyyy')Cheers!!!
Bhushan

How to get data from large table (more than 9 million rows) by EJB?

I have a giant table, it has more than 9 million rows.
I want to use ejb finders method to get data from this table but always get not enough memory error or time out error,
Can anyone give me solutions?
Thx

Your problem may be that you are simply trying to load so many objects (found by your finder) that you are exceeding available memory. For example if each object is 100 bytes and you try to load 1,000,000 objects thats 100Mb of memory gone.
You could try increasing the amount of memory available to OC4J with the appropriate argument on the command line (or in the 10gAS console). For example to make 1Gb available to OC4J you would add the argument:
-Xmx1000m
Of course you need have this available as hard memory on your server or you will incur serious swapping.
Chris

How to get data from the GUIBB FORM on processing method PROCESS_EVENT?

Hello Community,
one more question do I have.
I need to process some form data, that were entered by a user. One field was additional added via the method IF_FPM_GUIBB_FORM~GET_DEFINITION, so it is not in the BOL.
I listen to an FPM_EVENT in the IF_FPM_GUIBB_FORM~PROCESS_EVENT.
IF io_event->mv_event_id EQ 'FPM_SAVE_AND_BACK_TO_MAIN' OR io_event->mv_event_id = 'FPM_SAVE_1'.
     " Here I need to access the data from the GUINN FROM
ENDIF.
How can I access to the data, entered in the GUIBB FORM?
Thank you and best regards, Christian

Hello Jens and Christian,
Thanks very much for your help.
Could you help me check where the problem is ? My detail step is as below:
1.      Structure     'S_TR_FILE' , which include component 'MIME_TYPE' with data type 'String' and 'UPLOAD_FILE' with data type 'String'.
2.    IF_FPM_GUIBB_FORM~GET_DEFINITION
    DATA: lo_structdescr    TYPE REF TO cl_abap_structdescr.
    FIELD-SYMBOLS: <ls_new_field_descr> TYPE fpmgb_s_formfield_descr.
    lo_structdescr ?= cl_abap_typedescr=>describe_by_name( 'S_TR_FILE' ).
    eo_field_catalog = lo_structdescr.
    APPEND INITIAL LINE TO et_field_description ASSIGNING <ls_new_field_descr>.
    <ls_new_field_descr>-name = 'MIME_TYPE'.
    <ls_new_field_descr>-label_by_ddic = 'X'.
    <ls_new_field_descr>-visibility = '01'.
    <ls_new_field_descr>-default_display_type = 'IN'.
    UNASSIGN <ls_new_field_descr>.
    APPEND INITIAL LINE TO et_field_description ASSIGNING <ls_new_field_descr>.
    <ls_new_field_descr>-name = 'UPLOAD_FILE'.
    <ls_new_field_descr>-label_by_ddic = 'X'.
    <ls_new_field_descr>-visibility = '02'.
    <ls_new_field_descr>-default_display_type = 'FU'.
    <ls_new_field_descr>-mime_type_ref = 'MIME_TYPE'.
3. After the OVP page is displayed, I select a xlsx file in 'UPLOAD_FILE', and click "upload" button(toolbar on the top page) , I can't get any data from IS_DATA in flush method or CS_DATA in Get_DATA.
Thanks& Best Regards,
Yupeng

How to get data from multiple tables

Hello Everyone,
I need to read data from a few tables (VBAK, VBAP, VBUK, VBUP etc.) because I'd like to get all open Sales Orders. I've tried to use RFC_READ_TABLE but it looks like it can read only 1 table at a time. I've tried to read data from individual table and then join them but it didn't work out very well because I got about 1.5 millions records from just the VBUP table. So anyone knows if there is any function that I can use to join those tables and just get the records I need?
Any help would be highly appreciated.

Hi Nhan,
Thank you for your reply.
Do I have to be a SAP developer to create BAPI on SAP? What kind of access rights do I need?
I've tired to use other BAPIs such as BAPI_SalesOrder_GetList and it doesn't work for me because I don't have all customer numbers and I need to get all un-shipped orders for all customers.
I've read a post on the internet brieftly menitoned that we can create a table to store information about the tables we want to join and then call the RFC_READ_TABLE function. Do you know if that is possible?
Is there any other way you can think of?

OC4J - How to get data from large table (more than 9 million rows) by EJB?

SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS
O I use Jdeveloper to create EJB that has finder methods to get data from a big table (more S than 9 million rows). Deploy is OK but when run client program I always get timeout
O error or not enough memory error,
S Can any one help me?
O urgent
SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS SOS

Your problem may be that you are simply trying to load so many objects (found by your finder) that you are exceeding available memory. For example if each object is 100 bytes and you try to load 1,000,000 objects thats 100Mb of memory gone.
You could try increasing the amount of memory available to OC4J with the appropriate argument on the command line (or in the 10gAS console). For example to make 1Gb available to OC4J you would add the argument:
-Xmx1000m
Of course you need have this available as hard memory on your server or you will incur serious swapping.
Chris

How to Get Data From E070 table From Asp

HI,
   I am New to ALE, IDOC and BAPI Programming,
   I am just trying to fetch data from SAP through custom interface viz ASP.
   How to Do this.. Can anyone help me
Regards
Guhapriyan

Hi,
You will need some sort of a connector to fetch data from SAP using SAP. DCOM connector has been provided by SAP to fulfill this task. Please take a look at the documentation for DCOM connector. You can download latest version and documentation from service.sap.com/connectors.
Regards

How to delete data from the table PA0007

Hi Friends,
Thank you for your kindly help.
When I upload data to infotype 0007(planed working time),
there is something wrong with the infotype 2011. So I want
to delete the data of infotype 0007. While using the program RPUREOPN to delete the data, the system will say:0007 cannot be deleted because of time constraint 1/A.
Now how can I delete the data from table PA0007?
Pls help me urgently.
Best wishes
Anne

Hi Sikindar,
Thank you for your help.
There is another question. There are five clients (Client 300,310,320,330,350) in my HR DEV system. I just want to delete the data of infotype 0007 in client 350. When I change the the time constraint and delete the data in client 350, the data of infotype 0007 in other clients will be safe or not?
Thank you again for your help!
Best wishes
Anne

How to get data from the user for an Insert Trigger ?

Hi all and thanks in advance, I need to get some values from the user for a child table when a row inserted into the parent table, is that possible to use ampersand inside an "Insert Trigger" to let the user for inserting some values ?
Edited by: user9942078 on 17-Dec-2008 16:35

In a different words,
When a virus attacked your body your blood cells instantly goes into operation. Just like that -> your trigger activated as a result of your DB operation on objects. So, here also you have no option to manually intervene anything.
Hmm... Looks like some science fiction movies ultimately pays some price... ;)
So, trigger basically fires implicitly as a result of any database operation on objects or even on user.
So, that has to be automatic. And, when you are using & it will ask for some input value - which cannot be done in case of triggers.
For details please refer the oracle docs.
Regards.
Satyaki De.

How to get data from the called program using SUBMIT in a background job?

Hi Experts,
I've a program which creates a background job using JOB_OPEN and JOB_CLOSE function modules.
Between the above function modules I need to call a program using SUBMIT VIA JOB statement.
My problem is, How do I fetch some data in an internal table in the called program to the calling program after the SUBMIT statement?
I tried to EXPORT and IMPORT the data, but they are giving a failed sy-subrc when using this background job.
Kindly let me know your inputs and valuable suggestions.

Kumar,
When we execute a program as a background job then the output will be sent to Spool which needs to be fetched again.I guess we need to use Submit via spool as mentioned by Rajat.
Check these threads to get some idea
submit report to spool & import spool id
Re: Generate Spool for a report
K.Kiran.

Jdbc getting data from multiple tables

hi guys
how can i get data from multiple tables in MSAccess
please help

>
here is code thata i want to do
i have 3 tables in my MSAccess databace
Stud_O which consist name,surname fields
Stud_I consist address,tel
Stud_E department,faculty fields
Based on this I would guess that you are missing a key field. There is no way to connect the tables.
I make the class to insert data to the tables. But
cant do getting datas from this tables.
can anybody help me in making query
and method that displays reultset strings to the
textBoxes
A select ...
select name,surname from Stud_O. Use the executeQuery() method.

How to get value on the table control in infotyp e0008

Dear Freinds
I have written a user exit ZXPADU02 for my requirement
as per the requirement in i have calculated wa-poo8-bet01 = wa_p0008-ansal/12 and i have passed on to the INNNN structure .
Nowe when do a Create or Copy for a rcord in infotype 0008 iam not
getting value on Q0008-betrg field on the SCREEN , since it is table control how to get data on the table Control Cell .
Please let me knlow
regards

Hi Syamala,
The try to find the name of the table control and pass the values to it.
Of course you have to loop and endloop, the table control and mofidy it from the work area.
Message was edited by:
Sera

How to get data from the Tables (Can func.module help then how to write )

Similar Messages

Maybe you are looking for