How to use aggregate functions into Analytical functions

Can we use aggregate functions into analytical functions?
Please provide one example.
Smiles.

HI Learner6
for information:
Aggregate Functions
Analytic Functions
for practic:
ORACLE-BASE - Analytic Functions
Thank you

Similar Messages

How to use Aggregate Functions during Top N analysis?

Say i want to find top 5 highest salaries and their totals and average. In that case how to use aggregate functions. Please give me an example on this.
Regards,
Renu
Message was edited by:
user642387

Hi,
Yes, you can do that with aggregate functions.
First, do a sub-query to retrieve all the salaries (in descending order), then say "WHERE ROWNUM <= 5" in the main query. Use the aggregate SUM and AVG functions in the main query.
Analytic functions are easier to use for jobs like this, once you get familiar with them. If you're not leaving the field this month, then it's probably worthwhile for you to get familiar with analytic functions.

How to use aggregate function with Date

Hi All,
I have a group of date from that is it possible to Max and Min of date.
I have tried like this but its errored out <?MIN (current-group()/CREATION_DATE)?>.
I have also tried like this but it doesnt works
<?xdoxslt:minimum(CREATION_DATE)?>
Is it possible to use aggregate function with date values.
Thanks & Regards
Srikkanth

Hi KAVI PRIYA,
if date is not in cannonical format, how can we change it in BI publisher, then how to calcualte minimum and as well as maximum.
please advise me,
Thanks,
Sri

How to use aggregate function on internal table

hi experts,
I am beginner in abap.I want to use sum function on internal table.
I have structure as follow:
types: begin of ty_ftab,
       docno TYPE bkpf-belnr,
       comcode TYPE bkpf-bukrs,
       year TYPE bkpf-gjahr,
       line_itm type bsad-buzei,
       cust type bsad-kunnr,
       amt type bsad-dmbtr,
end of ty_ftab.
data: it_ftab type table of ty_ftab,
           wa_ftab type ty_ftab.
i fetched data successfully into it_ftab from bkpf and bsad table and displyed into alv.
now i want sum of amt using group by cust and want to display like
cust        total_amt
in next screen...
displying part is not important but how can i do sum of amt according to cust value? Is there in way to query on internal table?

Hi,
try this code,
data : i_sort TYPE TABLE OF slis_sortinfo_alv
w_sort like LINE OF i_sort.
sort it_ftab by cust.
w_sort-subtot = 'X'.
w_sort-fieldname = 'AMT'.
w_sort-tabname = 'it_ftab'.
APPEND w_sort to i_sort.
In fieldcatalog :
w_fcat-fieldname = 'AMT'.
w_fcat-tabname = 'it_ftab'.
w_fcat-do_sum = 'X'.
In REUSE_ALV_GRID_DISPLAY FUNCTION MODULE provide the it_sort.
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                        =
*    IT_FIELDCAT                      =
*    IT_EXCLUDING                      =
*    IT_SPECIAL_GROUPS                =
    IT_SORT                          = i_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
*    I_HTML_HEIGHT_TOP                = 0
*    I_HTML_HEIGHT_END                = 0
*    IT_ALV_GRAPHICS                  =
*    IT_HYPERLINK                      =
*    IT_ADD_FIELDCAT                  =
*    IT_EXCEPT_QINFO                  =
*    IR_SALV_FULLSCREEN_ADAPTER        =
* IMPORTING
*    E_EXIT_CAUSED_BY_CALLER          =
*    ES_EXIT_CAUSED_BY_USER            =
    TABLES
      t_outtab                          =
* EXCEPTIONS
*    PROGRAM_ERROR                    = 1
*    OTHERS                            = 2
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.

How to use aggregate function with Toplink

Hi
My question is how can I get the following select when using Toplink-EJB.3:
SELECT MAX(fieldname) FROM tablename;
Thanasi

Hi KAVI PRIYA,
if date is not in cannonical format, how can we change it in BI publisher, then how to calcualte minimum and as well as maximum.
please advise me,
Thanks,
Sri

How to use aggregate function (min) with Date

Hi,
I am using below code to print min date.
<?if:SD_UserDefinedCode_KY_ID5 = 'LOESCH' or SD_UserDefinedCode_KY_ID5='FRIST'?>
<?xdoxslt:minimum_date(SD_EffectiveDate_EFT_ID28)?> <?end if?>
condition provide two date 2013-05-01 and 2013-01-01.
Date is in canonical format YYYY-MM-DD.
now result is coming like number 1293840000000
Minimum date should be come 2013-01-01 instead of 1293840000000 .
Could you please help me out.
Thanks
Indrajeet Kumar

Hi KAVI PRIYA,
if date is not in cannonical format, how can we change it in BI publisher, then how to calcualte minimum and as well as maximum.
please advise me,
Thanks,
Sri

How to use Min function to get FileName into a Variable

I was wondering how to use MIN function in Evaluate variable in package to get the first file name from the list(Datastore)
With reference to Merging Flat Files into a single file Post number-4
Thanx

Hi Diwakar,
That List data store should be table, than only it will gives the min of the filename string,
If it is a file datastore, Min function does not works properly it will returns a first name in the file data store.
so please, use an interface to upload the List filedatastore into some other temp table. From that table you can use variable to get Min value of file name.
Thanks
Madha

Using aggregate function count

hi experts,
I want to select 2 fields from a table and put into structure (gw_konzs.) and with respect to that i want to use aggregate function count(*) for knowing how many rows has been selected ? and i dont want to use select & endselect
please help regarding this ...........
for example:
select konts ltext from ztab into corresponding fields of gw_konzs.
select count(*) from kna1 into gw_konzs
where konzs = gw_konzs-konzs.
append gw_konzs to gt_konzs
endselect.

hi experts,
I want to select 2 fields from a table and put into structure and i want to select based on the where condition i dont want to use select & endselect
please help regarding this ...........
rewarded if useful
for example:
gw_detail & gw_konzs is structure
gt_detail & gt_konzsis internal table
select kunnr name1 from kna1 into corresponding fields of gw_detail where konzs = gw_konzs-konzs.
gw_detail-konzs = gw_konzs-konzs.
append gw_detail-konzs to gt_detail-konzs
endselect.

How to use BAPI_MATERIAL_AVAILABILITY Function Module....

Hi Experts,
I want to know actual free available quantity (ATP Qty.) for mass materials,
How to use BAPI_MATERIAL_AVAILABILITY function module ?
I have select all material from MARA and inserted in itab.
LOOP AT ITAB.
CALL FUNCTION 'BAPI_MATERIAL_AVAILABILITY'
EXPORTING
    PLANT                    =
    MATERIAL                 =
    UNIT                     =
CHECK_RULE               =
STGE_LOC                 =
BATCH                    =
CUSTOMER                 =
DOC_NUMBER               =
ITM_NUMBER               =
WBS_ELEM                 =
STOCK_IND                =
DEC_FOR_ROUNDING         =
DEC_FOR_ROUNDING_X       =
READ_ATP_LOCK            =
READ_ATP_LOCK_X          =
IMPORTING
ENDLEADTME               =
AV_QTY_PLT               =
DIALOGFLAG               =
RETURN                   =
TABLES
    WMDVSX                   =
    WMDVEX                   =
I dont know how to use it.
pl. guide us.
Yusuf

Hi,
       data: iwmdvsx type table of bapiwmdvs with header line,
       iwmdvex type table of bapiwmdve with header line.
parameters: p_matnr type mara-matnr,
            p_werks type marc-werks,
            p_meins type mara-meins.
call function 'BAPI_MATERIAL_AVAILABILITY'
exporting
    plant            = p_werks
    material         = p_matnr
    unit             = p_meins
CHECK_RULE       =
STGE_LOC         =
BATCH            =
CUSTOMER         =
DOC_NUMBER       =
ITM_NUMBER       =
WBS_ELEM         =
STOCK_IND        =
IMPORTING
ENDLEADTME       =
AV_QTY_PLT       =
DIALOGFLAG       =
RETURN           =
tables
    wmdvsx           = iwmdvsx
    wmdvex           = iwmdvex.
check sy-subrc = 0.
Text
ATP information
Functionality
Using this function module, you can determine the receipt quantity still available for a particular material in a certain plant according to ATP logic (MRPII).
The availability check is carried out on transferring the material number, the plant and the input table (WMDVSX). The scope of the check, that is, which stocks, receipts and issues are to be included in the check is defined by the combination of checking group (material master) and cheking rule. In the function module, the system uses the checking rule defined in Sales & Distribution (A). You can overrule this checking rule by using an interface or a user-exit (exit_saplw61v_001). A similar procedure is also valid for the plant parameters. The customer number in the user-exit means that the plant selection can be controlled via the customer. If no plant parameters are given via the interface, the system uses the parameter 'WRK' saved in the user's fixed values.
The results of the availability check are recorded in the output table (WMDVEX). This table contains dates and available receipt quantities (ATP quantities). The results of the check depends on the following entries:
If no date and no quantity is transferred, the system displays the ATP situation from today's date into the future as the result.
If only a date and no quantity is transferred, the system displays the ATP situation from the corresponding date as the result.
If both a date and a quantity are transferred, the system calculates the availability situation for the quantity specified.
In the last two cases, the parameter 'DIALOGFLAG' is supplied. This can result in the following:
' ' (blank)   <=> quantity completely available
'X'           <=> only partial quantity available or not available at
                  all
'N'           <=> Material not included in the availability check
                  (Material not relevant to the availability check)
The system also displays the end of the replenishment lead time (ENDLEADTME).
regards

Problem in using aggregate functions inside case statement

Hi All,
I am facing problem while using aggregate functions inside case statement.
CASE WHEN PSTYPE='S' THEN MAX(DECODE(POS.PBS,1,ABS(POS.PPRTQ),0)) ELSE SUM(DECODE(POS.PBS,1,ABS(POS.PPRTQ),0)) END,
how can I achieve above requirement ? Con anyone help me.
Thanks and Regards
DG

Hi All,
Below is my query:
        SELECT
        CASE WHEN p_reportid IN ('POS_RV_SN','POS_PB') THEN POS.PACCT
        ELSE POS.PACCT || '-' || DECODE(POS.SYSTEMCODE,'GMI1','1', 'GMI2','2', 'GMI3','4', 'GMI4','3', '0') ||POS.PFIRM|| NVL(POS.POFFIC,'000') END,
        CASE WHEN p_reportid IN ('POS_RV_SN','POS_PB') THEN POS.PACCT||POS.PCUSIP||DECODE(POS.PBS,1,'+',2,'-')
        ELSE POS.PFIRM||POS.POFFIC||POS.PACCT||POS.PCUSIP||DECODE(POS.PBS,1,'+',2,'-') END,POS.SYSTEMCODE,CASE WHEN POS.PSTYPE='S' THEN POS.PSYMBL ELSE POS.PFC END,POS.PEXCH||DECODE(POS.PSUBEX,'<NULL>',''),
        POS.PCURSY,
        CASE WHEN POS.PSBCUS IS NULL THEN SUBSTR(POS.PCTYM,5,2) || SUBSTR(POS.PCTYM,1,4) ELSE POS.PSBCUS || SUBSTR(POS.PCTYM,5,2) || SUBSTR(POS.PCTYM,1,4) END ,
        NVL(POS.PSUBTY,'F') ,POS.PSTRIK,*SUM(DECODE(POS.PBS,1,ABS(POS.PPRTQ),0)) ,SUM(DECODE(POS.PBS,2,ABS(POS.PPRTQ),0))* ,
        POS.PCLOSE,SUM(POS.PMKVAL) ,
        TO_CHAR(CASE WHEN INSTR(POS.PUNDCP,'.') > 0 OR LENGTH(POS.PUNDCP) < 15 THEN POS.PUNDCP ELSE TO_CHAR(TO_NUMBER(POS.PUNDCP) / 100000000) END),
        POS.UBS_ID,POS.BBG_EXCHANGE_CODE,POS.BBG_TICKER ,POS.BBG_YELLOW_KEY,POS.PPCNTY,POS.PMULTF,TO_CHAR(POS.BUSINESS_DATE,'YYYYMMDD'),
        POS.SOURCE_GMI_LIB,
        --DECODE(POS.SYSTEMCODE,'GMI1','euro','GMI2','namr','GMI3','aust','GMI4','asia','POWERBASE','aust','SINACOR','namr',POS.SYSTEMCODE),
        DECODE(p_reportid,'RVPOS_SING','euro','RVPOS_AUSTDOM','aust','RVPOS_AUSTEOD','euro','RVPOS_GLBLAPAC','asia','POS_RV_SN','namr','POS_PB','aust',POS.SYSTEMCODE),
        POS.RIC,
        CASE WHEN PSUBTY = 'S' THEN POS.TYPE ELSE NULL END,
        DECODE(POS.UBS_ID,NULL,POS.PCUSP2,POS.ISIN),POS.UNDERLYING_BBG_TICKER,POS.UNDERLYING_BBG_EXCHANGE,POS.PRODUCT_CLASSIFICATION,
        CASE WHEN PSUBTY = 'S' THEN POS.PSDSC2 ELSE NULL END,
        CASE WHEN PSUBTY = 'S' THEN C.SSDSC3 ELSE NULL END,
        NVL(C.SSECID,POS.PCUSIP),
        NULL,
        POS.PYSTMV,
        POS.PMINIT,
        POS.PEXPDT,
        CASE WHEN POS.PSUBTY='S' THEN SUBSTR(C.ZDATA2,77,1) ELSE NULL END,
        NULL,
        NULL,
        NULL,
        NULL,
        NULL,
        NULL,
        NULL,
        NULL,
        NULL,
        NULL,
        NULL
        FROM POSITIONS_WRK POS LEFT OUTER JOIN
        (SELECT * FROM CDS_PRODUCTS CP INNER JOIN FUTURE_MASTER FM ON
        (CP.STRXCH=FM.ZEXCH AND CP.SFC=FM.ZFC AND CP.BUSINESS_DATE = FM.BUSINESS_DATE )) C ON POS.PCUSIP = C.SCUSIP
        AND NVL(POS.PCUSP2,'X') = NVL(C.SCUSP2,'X')
        WHERE
        POS.PEXCH NOT IN ('A1','A2','A3','B1','B3','C2','D1','H1','K1','L1','M1','M3','P1','S1')
        AND (POS.PSBCUS IS NOT NULL OR POS.PCTYM IS NOT NULL OR POS.PSTYPE ='S')
        AND POS.BUSINESS_DATE = run_date_char
        GROUP BY
        POS.UBS_ID,POS.SYSTEMCODE,POS.RECIPIENTCODE,POS.BUSINESS_DATE,POS.PACCT,POS.PFIRM,POS.POFFIC,POS.PCUSIP,POS.PBS,CASE WHEN POS.PSTYPE='S' THEN POS.PSYMBL ELSE POS.PFC END,
        POS.PEXCH,POS.PSUBEX,POS.PCURSY,
        CASE WHEN POS.PSBCUS IS NULL THEN SUBSTR(POS.PCTYM,5,2) || SUBSTR(POS.PCTYM,1,4) ELSE POS.PSBCUS || SUBSTR(POS.PCTYM,5,2) || SUBSTR(POS.PCTYM,1,4) END,
        NVL(POS.PSUBTY,'F') ,POS.PSTRIK,POS.PCLOSE,TO_CHAR(CASE WHEN INSTR(POS.PUNDCP,'.') > 0 OR LENGTH(POS.PUNDCP) < 15 THEN POS.PUNDCP ELSE TO_CHAR(TO_NUMBER(POS.PUNDCP) / 100000000) END),
        POS.BBG_EXCHANGE_CODE,POS.BBG_TICKER,POS.BBG_YELLOW_KEY,POS.PPCNTY,POS.PMULTF,POS.PSUBTY,POS.SOURCE_GMI_LIB,RIC,
        CASE WHEN PSUBTY = 'S' THEN POS.TYPE ELSE NULL END,
        DECODE(POS.UBS_ID,NULL,POS.PCUSP2,POS.ISIN),POS.UNDERLYING_BBG_TICKER,POS.UNDERLYING_BBG_EXCHANGE,POS.PRODUCT_CLASSIFICATION,
        CASE WHEN PSUBTY = 'S' THEN POS.PSDSC2 ELSE NULL END,
        CASE WHEN PSUBTY = 'S' THEN C.SSDSC3 ELSE NULL END,
        NVL(C.SSECID,POS.PCUSIP),
        POS.PYSTMV,
        POS.PMINIT,
        POS.PEXPDT,
        CASE WHEN PSUBTY = 'S' THEN SUBSTR(C.ZDATA2,77,1) ELSE NULL END;Now, could you plz help me in replacing the bold text in the query with the requirement.
Thanks and Rgds
DG
Edited by: BluShadow on 16-May-2011 09:39
added {noformat}{noformat} tags. Please read: {message:id=9360002} for details on how to post code/data

How to use this function call function 'REUSE_ALV_COMMENTARY_WRITE' in alv

hi all
thanks in advance
how to use this function in alv programming
call function 'REUSE_ALV_COMMENTARY_WRITE'
why use and what purpose use this function plz tell me details
plz guide me
thanks

Hi
see this exmaple code where i had inserted a LOGO by useing this FM
*& Report ZTEST_ALV_LOGO
REPORT ztest_alv_logo.
TYPE-POOLS : slis.
*ALV Formatting tables /structures
DATA: gt_fieldcat TYPE slis_t_fieldcat_alv.
DATA: gt_events   TYPE slis_t_event.
DATA: gs_layout   TYPE slis_layout_alv.
DATA: gt_page     TYPE slis_t_listheader.
DATA: gs_page     TYPE slis_listheader.
DATA: v_repid     LIKE sy-repid.
*ALV Formatting work area
DATA: w_fieldcat TYPE slis_fieldcat_alv.
DATA: w_events   TYPE slis_alv_event.
DATA: gt_bsid TYPE TABLE OF bsid WITH HEADER LINE.
INITIALIZATION.
PERFORM build_events.
PERFORM build_page_header.
START-OF-SELECTION.
*perform build_comment.     "top_of_page - in initialization at present
SELECT * FROM bsid INTO TABLE gt_bsid UP TO 10 ROWS.
*perform populate_for_fm using '1' '3' 'BUKRS' '8' 'GT_BSID' 'Whee'.
*USING = Row, Column, Field name, display length, table name, heading
*OR
PERFORM build_fieldcat.
gs_layout-zebra = 'X'.
*top of page event does not work without I_callback_program
v_repid = sy-repid.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program                = v_repid
      i_structure_name                  = 'BSID'
   i_background_id                   = 'ALV_BACKGROUND'
      i_grid_title                      = 'This is the grid title'
I_GRID_SETTINGS                   =
      is_layout                         = gs_layout
      it_fieldcat                       = gt_fieldcat[]
      it_events                         = gt_events[]
    TABLES
      t_outtab                          = gt_bsid.
Form..............: populate_for_fm
Description.......: Populates fields for function module used in ALV
FORM populate_for_fm USING p_row
                           p_col
                           p_fieldname
                           p_len
                           p_table
                           p_desc.
w_fieldcat-row_pos      = p_row.          "Row Position
w_fieldcat-col_pos      = p_col.          "Column Position
w_fieldcat-fieldname    = p_fieldname.    "Field name
w_fieldcat-outputlen    = p_len.          "Column Lenth
w_fieldcat-tabname      = p_table.        "Table name
w_fieldcat-reptext_ddic = p_desc.         "Field Description
w_fieldcat-input        = '1'.
APPEND w_fieldcat TO gt_fieldcat.
CLEAR w_fieldcat.
ENDFORM.                    " populate_for_fm
*&      Form build_events
FORM build_events.
DATA: ls_event TYPE slis_alv_event.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      i_list_type = 0
    IMPORTING
      et_events   = gt_events.
READ TABLE gt_events
             WITH KEY name = slis_ev_user_command
             INTO ls_event.
IF sy-subrc = 0.
    MOVE slis_ev_user_command TO ls_event-form.
    APPEND ls_event TO gt_events.
ENDIF.
READ TABLE gt_events
             WITH KEY name = slis_ev_top_of_page
             INTO ls_event.
IF sy-subrc = 0.
    MOVE slis_ev_top_of_page TO ls_event-form.
    APPEND ls_event TO gt_events.
ENDIF.
ENDFORM.                    " build_events
*&      Form USER_COMMAND
When user command is called it uses 2 parameters. The itab
passed to the ALV is in whatever order it currently is on screen.
Therefore, you can read table itab index rs_selfield-tabindex to get
all data from the table. You can also check r_ucomm and code
accordingly.
FORM user_command USING r_ucomm     LIKE sy-ucomm
                         rs_selfield TYPE slis_selfield.
READ TABLE gt_bsid INDEX rs_selfield-tabindex.
error checking etc.
SET PARAMETER ID 'KUN' FIELD gt_bsid-kunnr.
CALL TRANSACTION 'XD03' AND SKIP FIRST SCREEN.
ENDFORM.                    "user_command
*&      Form top_of_page
Your own company logo can go here if it has been saved (OAOR)
If the logo is larger than the size of the headings in gt_page,
the window will not show full logo and will have a scroll bar. Thus,
it is a good idea to have a standard ALV header if you are going to
use logos in your top of page.
FORM top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = gt_page
      i_logo             = 'ENJOYSAP_LOGO'.
ENDFORM.                    "top_of_page
*&      Form build_fieldcat
*Many and varied fields are available here. Have a look at documentation
*for FM REUSE_ALV_LIST_DISPLAY and REUSE_ALV_FIELDCATALOG_MERGE
FORM build_fieldcat.
w_fieldcat-fieldname = 'BUDAT'.
w_fieldcat-seltext_m = 'Dte pst'.
w_fieldcat-ddictxt(1) = 'M'.
w_fieldcat-edit = 'x'.
Can change the position of fields if you do not want them in order
of the DDIC or itab
w_fieldcat-row_pos = '1'.
w_fieldcat-col_pos = '10'.
APPEND w_fieldcat TO gt_fieldcat.
CLEAR w_fieldcat.
ENDFORM.                    " build_fieldcat
*&      Form build_page_header
      gt_page is used in top of page (ALV subroutine - NOT event)
      *H = Header, S = Selection, A = Action
FORM build_page_header.
For Headers, Key is not printed and is irrelevant. Will not cause
a syntax error, but is not used.
gs_page-typ = 'H'.
gs_page-info = 'Header 1'.
APPEND gs_page TO gt_page.
gs_page-typ = 'H'.
gs_page-info = 'Header 2'.
APPEND gs_page TO gt_page.
For Selections, the Key is printed (bold). It can be anything up to 20
bytes. It gets printed in order of code here, not by key value.
gs_page-typ = 'S'.
gs_page-key = 'And the winner is:'.
gs_page-info = 'Selection 1'.
APPEND gs_page TO gt_page.
gs_page-typ = 'S'.
gs_page-key = 'Runner up:'.
gs_page-info = 'Selection 2'.
APPEND gs_page TO gt_page.
For Action, Key is also irrelevant.
gs_page-typ = 'A'.
gs_page-info = 'Action goes here'.
APPEND gs_page TO gt_page.
ENDFORM.                    " build_page_header

How to use HexToRef function?

How to use HexToRef function?

Exactly HexToRef!
please, try this:
create or replace
TYPE "TOBJECT" as object
Guid RAW(16)
create table t$tobject of tobject;
insert into t$tobject values (TOBJECT(SYS_OP_GUID()));
select HEXTOREF(REFTOHEX(REF(t))) from t$tobject t;
Error report:
SQL Error: ORA-24360: 'Type Descriptor Object' не задан для 'Object Bind/Define'
24360. 00000 - "Type Descriptor Object not specified for Object Bind/Define"
*Cause: Type Descriptor Object is a mandatory parameter for Object Types
Binds and Defines.
*Action: Please invoke the OCIBindObject() or OCIDefineObject() call
with a valid Type Descriptor Object.

How to use the function module /IRM/IPBB_AGREEMENT_CREATE.

Hi all,
Please help me how to use the function module /IRM/IPBB_AGREEMENT_CREATE.
It is a Vistex fuction module which is used to create Sales contract in SAP-Vistex. If anyone has use the function module and do have the sample code please share it.
Thanks.

FORM create_agreement TABLES pt_agreement
                                       CHANGING po_agreement .
CONSTANTS: c_strt_knumh TYPE knumh VALUE '0000000000'.
DATA: lc_kona TYPE /irm/s_gkona,
        lc_cbasp TYPE /irm/s_ipcbasp,
      lt_cbapr TYPE /irm/t_ipcbapr,         "Partners
      lc_cbapr TYPE /irm/s_ipcbapr,
      lt_cbadt TYPE /irm/t_ipcbadt,        "Dates
      lc_cbadt TYPE /irm/s_ipcbadt,
      lt_cbafs TYPE /irm/t_ipcbafs,
      lc_cbafs TYPE /irm/s_ipcbafs,
      lt_cbacn TYPE /irm/t_ipcbacn,
      lc_cbacn TYPE /irm/s_ipcbacn,
      lt_cbacl TYPE /irm/t_ipcbacl,
      lc_cbacl TYPE /irm/s_ipcbacl,
      lt_cbtpv TYPE /irm/t_ipagtpv,
      lc_cbtpv TYPE /irm/s_ipagtpv,
      lt_texts TYPE text_lh,
      lc_texts TYPE itclh,
      lt_cbasd TYPE /irm/t_ipcbasd,
      lc_cbasd TYPE /irm/s_ipcbasd,
      lc_agreement    TYPE /irm/s_ipcbasp_doc,
      lc_e_log_number TYPE balognr,
      lt_messages     TYPE /irm/t_gprolog.
DATA: lt_vake      TYPE cond_vakevb_t,
        lc_vake      TYPE LINE OF cond_vakevb_t,
        lt_konh      TYPE /irm/t_gkonh,
        lc_konh      TYPE LINE OF /irm/t_gkonh,
        lt_konp      TYPE /irm/t_gkonp,
        lc_konp      TYPE LINE OF /irm/t_gkonp,
        lt_konw      TYPE /irm/t_gkonwu,
        lc_konw      TYPE LINE OF /irm/t_gkonwu,
        lt_konm      TYPE /irm/t_gkonmu,
        lc_konm      TYPE LINE OF /irm/t_gkonmu,
        lt_komg      TYPE /irm/t_gkomg_index,
        lc_komg      TYPE LINE OF /irm/t_gkomg_index,
        lt_user_data TYPE /irm/t_gpraxfu_index,
        lc_user_data TYPE LINE OF /irm/t_gpraxfu_index.
DATA: lc_updt(1) TYPE c.
DATA: lc_knumh TYPE knumh.
DATA: BEGIN OF lc_str_knumh,
         hd(2) TYPE c VALUE '$$',
         inc_num(8) TYPE c,
        END OF lc_str_knumh.
DATA: blank_agree_key TYPE knuma VALUE '~~~~~~~~~~'.
FIELD-SYMBOLS <konh_line> LIKE LINE OF lt_konh.
FIELD-SYMBOLS <konp_line> LIKE LINE OF lt_konp.
DATA: lc_rule TYPE type_key_rule.
READ TABLE pt_agreement INTO lc_rule INDEX 1.
SELECT SINGLE * FROM kona
        WHERE vkorg   = lc_rule-vkorg
        AND    vtweg   = '10'
        AND    spart   = '10'
        AND    boart   = 'ZPS1'
        AND    botext = lc_rule-sap_agkey.
IF sy-subrc = 0.
   lc_updt = 'U'.
ELSE.
lc_updt = 'I'.
ENDIF.
LOOP AT pt_agreement INTO lc_rule.
    MOVE sy-tabix TO lc_str_knumh-inc_num.
    CONDENSE lc_str_knumh-inc_num NO-GAPS.
    WHILE lc_str_knumh-inc_num+7(1) = ' '.
      CONCATENATE '0' lc_str_knumh-inc_num INTO lc_str_knumh-inc_num.
      CONDENSE lc_str_knumh-inc_num NO-GAPS.
    ENDWHILE.
    CONCATENATE '$$' lc_knumh INTO lc_knumh.
    MOVE lc_str_knumh TO lc_knumh.
   MOVE c_strt_knumh TO lc_knumh.
    CLEAR: lc_konh, lc_konp, lc_komg.
    MOVE: lc_rule-vkorg    TO lc_komg-komg-vkorg,
          '10'             TO lc_komg-komg-vtweg,
          '10'             TO lc_komg-komg-spart,
          p_waers          TO lc_komg-komg-waerk,
          '1300'           TO lc_komg-komg-bukrs,
          lc_rule-lifnr    TO lc_komg-komg-lifnr,
          lc_knumh         TO lc_komg-knumh,
          lc_knumh         TO lc_konh-knumh,
          lc_knumh         TO lc_konp-knumh,
          lc_rule-datab    TO lc_konh-datab,
          lc_rule-datbi    TO lc_konh-datbi.
    CASE lc_rule-tablnam.
      WHEN 'A701'.                   "Every Agreement will have a A701 rule -
        "Therefore we acn setup the header using A701
        MOVE: 'New       ' TO lc_kona-knuma,
              lc_rule-vkorg TO lc_kona-vkorg,
              '10'          TO lc_kona-vtweg,
              '10'          TO lc_kona-spart,
              'ZPS1'        TO lc_kona-boart,
              'C'           TO lc_kona-abtyp,
              'V'           TO lc_kona-kappl,
              p_waers       TO lc_kona-waers,
              lc_rule-knuma_ag TO lc_kona-abrex,
              'ZPS2'        TO lc_kona-kobog,
              lc_rule-datab TO lc_kona-datab,
              lc_rule-datbi TO lc_kona-datbi,
              lc_rule-sap_agkey TO lc_kona-botext,
              '1300'        TO lc_kona-bukrs,
              'I'           TO lc_kona-updkz.
        MOVE: 'New       ' TO lc_cbasp-knuma_ag,
              'ZPS1'        TO lc_cbasp-boart_ag,
              p_waers       TO lc_cbasp-waers,
              'A'           TO lc_cbasp-setl_mth,
              'B'           TO lc_cbasp-setl_typ,
              'A2'          TO lc_cbasp-ident,
              'E'           TO lc_cbasp-setlm,
              'ZPDA'        TO lc_cbasp-pargr,
              'X'           TO lc_cbasp-npric,
              'LF'          TO lc_cbasp-stprl,
              lc_rule-lifnr TO lc_cbasp-stpar,
              lc_rule-contract_rev TO lc_cbasp-rvnum,
              'I'           TO lc_cbasp-updkz.
        CONCATENATE: blank_agree_key
               lc_rule-lifnr        INTO lc_konh-vakey.
        MOVE: lc_rule-lifnr TO lc_konp-lifnr.
      WHEN 'A703'.
        CONCATENATE: blank_agree_key
                     lc_rule-kunnr      INTO lc_konh-vakey.
        MOVE lc_rule-kunnr TO lc_komg-komg-kunnr.
      WHEN 'A709'.
        CONCATENATE: blank_agree_key
        lc_rule-zzprodh1 lc_rule-zzprodh2 lc_rule-zzprodh3
               lc_rule-zzprodh4 lc_rule-zzprodh5 INTO lc_konh-vakey.
        CONCATENATE: lc_rule-zzprodh1 lc_rule-zzprodh2 lc_rule-zzprodh3
               lc_rule-zzprodh4 lc_rule-zzprodh5 INTO lc_komg-komg-prodh.
      WHEN 'A710'.
        CONCATENATE: blank_agree_key
            lc_rule-matkl   INTO lc_konh-vakey.
        MOVE lc_rule-matkl TO lc_komg-komg-matkl.
      WHEN 'A711'.
        CONCATENATE: blank_agree_key
             lc_rule-matnr   INTO lc_konh-vakey.
        MOVE lc_rule-matnr TO lc_komg-komg-matnr.
        IF lc_rule-kschl = 'ZPPL'.
          MOVE: 'C'              TO lc_konp-krech,
                'CAD'              TO lc_konp-konwa.
          lc_konp-kbetr = lc_rule-net_po_price * 1.
        ENDIF.
      WHEN 'A717'.
      WHEN 'A718'.
        CONCATENATE: blank_agree_key
             lc_rule-zzextwg INTO lc_konh-vakey.
        MOVE lc_rule-zzextwg TO lc_komg-komg-zzextwg.
     WHEN 'A719'.
       CONCATENATE: blank_agree_key
            lc_rule-werks INTO lc_konh-vakey.
       MOVE lc_rule-werks TO lc_komg-komg-werks.
     WHEN 'A721'.
       CONCATENATE: blank_agree_key
             lc_rule-kunnr lc_rule-werks INTO lc_konh-vakey.
       MOVE: lc_rule-kunnr TO lc_konp-kunnr,
             lc_rule-kunnr TO lc_komg-komg-kunnr.
      WHEN 'A722'.
        CONCATENATE: blank_agree_key
                     lc_rule-vkbur INTO lc_konh-vakey.
        MOVE lc_rule-vkbur TO lc_komg-komg-vkbur.
      WHEN 'A724'.
        CONCATENATE: blank_agree_key
                      lc_rule-kunnr lc_rule-vkbur INTO lc_konh-vakey.
        MOVE: lc_rule-kunnr TO lc_konp-kunnr,
              lc_rule-kunnr TO lc_komg-komg-kunnr,
              lc_rule-vkbur TO lc_komg-komg-vkbur.
    ENDCASE.
    MOVE: 'A'                  TO lc_konh-kvewe,
          lc_rule-tablnam+1(3) TO lc_konh-kotabnr,
          lc_rule-kappl        TO lc_konh-kappl,
          lc_rule-kschl        TO lc_konh-kschl.
    REPLACE ALL OCCURRENCES OF '~' IN lc_konh-vakey WITH ' '.
    APPEND lc_konh TO lt_konh.
    CLEAR lc_konh.
*--- Add in the KONP.Do we need to add
    MOVE: lc_rule-kappl        TO lc_konp-kappl,
          lc_rule-kschl        TO lc_konp-kschl,
          'G'                  TO lc_konp-krech.
    IF lc_rule-kschl+3(1) = '%'.
      MOVE: 'A'              TO lc_konp-krech,
            '%'              TO lc_konp-konwa.
      lc_konp-kbetr = lc_rule-rebate_perc * 1.
    ENDIF.
    APPEND lc_konp TO lt_konp. CLEAR lc_konp.
    APPEND lc_komg TO lt_komg. CLEAR lc_komg.
ENDLOOP.
IF lc_updt = 'I'.
    CALL FUNCTION '/IRM/IPCB_AGREEMENT_CREATE'
      EXPORTING
      I_MESSAGES_DISPLAY        = ' '
      I_SAVE_MESSAGES           = ' '
      I_COMMIT_WORK             = 'X'
      I_CALL_FROM_WS            = ' '
        is_kona                   = lc_kona
        is_cbasp                  = lc_cbasp
        it_cbapr                  = lt_cbapr
        it_cbadt                  = lt_cbadt
        it_cbafs                  = lt_cbafs
        it_cbacn                  = lt_cbacn
        it_cbacl                  = lt_cbacl
        it_cbtpv                  = lt_cbtpv
        it_texts                  = lt_texts
        it_cbasd                  = lt_cbasd
      IMPORTING
        es_agreement              = lc_agreement
        e_log_number              = lc_e_log_number
      TABLES
        t_messages                = lt_messages
     CHANGING
      CT_VAKE                   = lt_vake
      ct_konh                   = lt_konh
      ct_konp                   = lt_konp
      CT_KONW                   = lt_konw
      CT_KONM                   = lt_konm
       ct_komg                   = lt_komg
      CT_USER_DATA              = lt_usr_data
      EXCEPTIONS
        no_documents_to_process   = 1
        no_authorization          = 2
        creation_failed           = 3
        new_pricing_not_maitained = 4
        OTHERS                    = 5.
    IF sy-subrc <> 0.
Implement suitable error handling here
    ELSE.
      MOVE: lc_agreement-knuma_ag TO po_agreement,
            lc_agreement-knuma_ag TO lc_kona-knuma.
    ENDIF.
    APPEND LINES OF lt_messages TO gt_messages.
ELSE.
    MOVE-CORRESPONDING kona TO lc_kona.
ENDIF.
LOOP AT lt_konh ASSIGNING <konh_line>.
    MOVE lc_kona-knuma TO <konh_line>-vakey+0(10).
   move '&'           to <konh_line>-knumh+0(1).
ENDLOOP.
LOOP AT lt_konp ASSIGNING <konp_line>.
   MOVE lc_kona-knuma TO <konp_line>-vakey+0(10).
    move '&'           to <konh_line>-knumh+0(1).
ENDLOOP.
lc_kona-updkz = 'U'.
lc_cbasp-updkz = 'U'.
CLEAR lt_messages.
CALL FUNCTION '/IRM/IPCB_AGREEMENT_CHANGE'
    EXPORTING
    I_MESSAGES_DISPLAY      = ' '
    I_SAVE_MESSAGES         = ' '
    I_COMMIT_WORK           = 'X'
    I_INIT_DATA             = 'X'
      is_kona                 = lc_kona
      is_cbasp                = lc_cbasp
     it_cbapr                = lt_cbapr
     it_cbadt                = lt_cbadt
     it_cbafs                = lt_cbafs
     it_cbacl                = lt_cbacl
     it_cbacn                = lt_cbacn
    IT_FIELDS               =
     it_texts                = lt_texts
   IMPORTING
     e_log_number            = lc_e_log_number
     TABLES
       t_messages              = lt_messages
    CHANGING
      cs_agreement            = lc_agreement
    CT_VAKE                 = lt_vake
      ct_konh                 = lt_konh
      ct_konp                 = lt_konp
    CT_KONW                 = lt_konw
    CT_KONM                 = lt_konm
      ct_komg                 = lt_komg
    CT_USER_DATA            = lt_usr_data
    EXCEPTIONS
      no_documents_to_process = 1
      no_authorization        = 2
      change_failed           = 3
      agreement_locked        = 4
      OTHERS                  = 5.
IF sy-subrc <> 0.
Implement suitable error handling here
ENDIF.
APPEND LINES OF lt_messages TO gt_messages.
ENDFORM.                    " CREATE_AGREEMENT

How to Use the Function Module 'BAPI_BUSPROCESSND_CHANGEMULTI'

Dear Experts,
         Can anyone Explain me how to Use the Function Module 'BAPI_BUSPROCESSND_CHANGEMULTI'.My Requirement is i want to change the Partners of the Service Order.It is Very Urgent Requirement Please Help me.
Thanks & Regards,
Ashok.

Hi,
For service order you can use FM 'BAPI_ACTIVITYCRM_CHANGEMULTI' as it is much easier to use.
Sample code is below. You can use that:
"fill the details of partner which is
          "to be added as main partner or in place of Interaction Agent
          wa_partner_new-ref_guid = w_guid_ref.
          wa_partner_new-ref_handle = '0000000000'.
          wa_partner_new-ref_kind = 'A'.
          wa_partner_new-kind_of_entry = wa_partner-kind_of_entry.
          wa_partner_new-ref_partner_handle = '0000'.
          wa_partner_new-ref_partner_fct = 'Z_IA'.
"wa_partner-partner_no : New partner no.
          wa_partner_new-ref_partner_no = wa_partner-partner_no.
          wa_partner_new-ref_no_type = wa_partner-ref_no_type.
          wa_partner_new-ref_display_type = wa_partner-ref_display_type.
          wa_partner_new-display_type = 'BP'.
          wa_partner_new-no_type = 'BP'.
          wa_partner_new-partner_fct = 'Z_IA'.
"w_partner_no : Old partner no. which is to be changed
          wa_partner_new-partner_no = w_partner_no.
          wa_partner_new-mainpartner = 'X'.
          INSERT wa_partner_new INTO TABLE it_partner_new.
          wa_partner_newx-display_type = 'X'.
          wa_partner_newx-no_type = 'X'.
          wa_partner_newx-partner_fct = 'X'.
          wa_partner_newx-partner_no = 'X'.
          wa_partner_newx-mainpartner = 'X'.
          INSERT wa_partner_newx INTO TABLE it_partner_newx.
IF it_partner_new[] IS NOT INITIAL AND it_partner_newx[] IS NOT INITIAL.
    "maintain all changes to be done
    CALL FUNCTION 'BAPI_ACTIVITYCRM_CHANGEMULTI'
      TABLES
        partner = it_partner_new
        partnerx = it_partner_newx.
    CLEAR : wa_guid1.
    REFRESH : it_guid1.
    wa_guid1-guid = w_guid_ref.
    APPEND wa_guid1 TO it_guid1.
    "save the changes
    CALL FUNCTION 'BAPI_ACTIVITYCRM_SAVE'
      TABLES
        objects_to_save = it_guid1.
    "commit the transaction
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
ENDIF.
Reply fro any further help.
Please reward points if helpful.
Regards,
Ashlesha

How to use SD_VBAK_ARRAY_READ functional module

hello
can you please tell me how to use SD_VBAK_ARRAY_READ functional module. that means what i have to pass and what i should get.
Please help me

Hi Ravi,
i want to display vkorg,kunnr,and some other fields from the VBAK. User enters VKORG and some other fields but VKORG is compulsory.
so i written the code like this.
TYPES :BEGIN OF TEITAB_VBAK,
       VKORG type VBAK-VKORG,
       KUNNR TYPE VBAK-KUNNR,
       VBELN TYPE VBAK-VBELN,
       AUDAT TYPE VBAK-AUDAT,
       VDATU TYPE VBAK-VDATU,
       ERNAM TYPE VBAK-ERNAM,
       END OF TEITAB_VBAK.
DATA: ITAB_VBAK TYPE TABLE OF TEITAB_VBAK,
      WA_VBAK TYPE TEITAB_VBAK.
SELECT-OPTIONS: s_VKORG FOR P_VKORG OBLIGATORY,         " Sales Organization
                s_KUNNR FOR P_KUNNR,         " Sold-to party.
                s_VBELN FOR P_VBELN,         " Sales Document.
                s_MATNR FOR P_MATNR,         " Material number.
                s_AUDAT FOR P_AUDAT,         " Document Date (Date Received/Sent).
                s_VDATU FOR P_VDATU,         " Requested delivery date.
                s_ERNAM FOR P_ERNAM,         " Name of Person who Created the Object.
                s_VKAUS FOR P_VKAUS.         " Usage indicator.
SELECT VKORG KUNNR VBELN AUDAT VDATU ERNAM
FROM VBAK
INTO CORRESPONDING FIELDS OF TABLE ITAB_VBAK
WHERE VKORG IN S_VKORG AND AUART EQ 'ZRA'.
CALL FUNCTION 'SD_VBAK_ARRAY_READ'
EXPORTING
I_BYPASSING_BUFFER          = ' '
I_REFRESH_BUFFER            =
TABLES
    IT_VBAK_KEY                 =
ET_VBAK                     =
EXCEPTIONS
RECORDS_NOT_FOUND           = 1
RECORDS_NOT_REQUESTED       = 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.
so i confused where to call this fucntional module and what to pass. That means call this functional module before the select query or after the select query and what to pass.
i am new in ABAP.
Please help me to solve this problem .

How to use aggregate functions into Analytical functions

Similar Messages

Maybe you are looking for