How to use a function in a Where Clause?

Hi,
I've got a doubt. If MY_FUNCT is a function that returns a boolean, can I use it in a where clause for writing a query like this?:
select ...
from table a
where ...
and MY_FUNC (a.field) = true
Thanks!
Edited by: Mark1970 on 2-lug-2010 3.27

Bear in mind that this could kill your performance.
Depending on what you're doing, how many tables and other predicates are involved, you might want to try to eliminate all other data early before applying your function predicate otherwise your function might be called more times than you might have imagined. Strategies for this include subquery factoring and the old ROWNUM trick for materialising an inline view.
If performance is impacted, you might also want to consider using a function-based index provided that the function is deterministic.

Similar Messages

Trouble using a function in the where clause

Hello,
I am using a function found at ask.tom.oracle.com which converts a long data type to a character. The function is returning an error when it is placed in the where clause. The sql statement , error message and the function from ask tom are shown below. Does anyone know how to fix this?
<pre>
SELECT A.FLDPHYSICAL,
A.FLDEXPOSURE,
A.FLDDATEDUE,
A.FLDDATELAST,
A.FLDEMPLOYEE,
B.FLDBDATE,
B.FLDMAILSTOP,
B.FLDREC_NUM,
B.FLDLNAME,
B.FLDMI,
B.FLDFNAME,
B.FLDBDATE,
B.FLDDEPT,
B.FLDSTATUS,
B.FLDSSN,
B.FLDHOMEPHON,
B.FLDWORKPHON,
B.FLDID,
B.FLDDIVISION
FROM REQEXAM A,
EMPLOYEE B,
EMPLOYEE_MEMO C
WHERE A.FLDEMPLOYEE = B.FLDREC_NUM
AND b.flduserstr = c.fldrec_num
AND OHM_PKG.GET_LONG('EMPLOYEE_MEMO', 'FLDDATA', C.ROWID) LIKE '%CDL YES%'
AND A.FLDDATEDUE > '01/01/1900'
AND A.FLDPHYSICAL ='CDP'
ORDER BY B.FLDDIVISION,
B.FLDLNAME,
B.FLDFNAME,
B.FLDMI,
A.FLDDATEDUE
The error message
Error at Command Line:26 Column:4
Error report:
SQL Error: ORA-00904: "OHM_PKG"."GET_LONG": invalid identifier
00904. 00000 - "%s: invalid identifier"
create or replace
PACKAGE OHM_PKG AS
/* TODO enter package declarations (types, exceptions, methods etc) here */
function getlong( p_tname in varchar2,p_cname in varchar2,p_rowid in rowid ) return varchar2;
END OHM_PKG;
create or replace
PACKAGE BODY OHM_PKG AS
function getlong( p_tname in varchar2,p_cname in varchar2,p_rowid in rowid ) return varchar2 as
l_cursor integer default dbms_sql.open_cursor;
l_n number;
l_long_val varchar2(4000);
l_long_len number;
l_buflen number := 4000;
l_curpos number := 0;
begin
dbms_sql.parse( l_cursor,
'select ' || p_cname || ' from ' || p_tname ||
' where rowid = :x',
dbms_sql.native );
dbms_sql.bind_variable( l_cursor, ':x', p_rowid );
dbms_sql.define_column_long(l_cursor, 1);
l_n := dbms_sql.execute(l_cursor);
if (dbms_sql.fetch_rows(l_cursor)>0)
then
dbms_sql.column_value_long(l_cursor, 1, l_buflen, l_curpos ,
l_long_val, l_long_len );
end if;
dbms_sql.close_cursor(l_cursor);
return l_long_val;
end getlong;
END OHM_PKG;
</prev>

Remove the '_' from the function's name as below:
AND OHM_PKG.GETLONG('EMPLOYEE_MEMO', 'FLDDATA', C.ROWID) LIKE '%CDL YES%'

How to use a case statement in where clause

Hi All,
I have a requirement which is to bring all the claims that are created in the last month.So, i wrote a query something like this
select * from claims
where
(Month(ClaimOpenDate) = Month(Getdate())-1 and year(claimopendate) = year(getDate()))
which would give me any new claims created in last month of current year, but this condition fails if we are in the first month of a new year( lets say if we are in 2016 jan then month(getdate())-1 would be 0 and year(getdate()) would be 2016 so we dont
find any records where year is 2016 and month is 0 for claimopen).
So, i would like to use a case statament or something which can help me get around this one.
Can someone please help me with any suggestions?
Thanks

Hi Jason,
Thanks a lot for your help. This is what exactly i am looking for but i just gave a sample query above below is my original query
select
row_number() over (order by [ClaimNumber]) as DataElementName
,c.PolicyNumber as PolicyNum
, c.FirstName as CustNameF
,c.LastName as CustNameL
,c.PolicyForm as PolType
,'Homesite' as Company
,[ClaimNumber] as ClaimNum
,E.office as Ofc
,e.Supervisior_FullName as Team
, RIGHT(e.adjuster_Name ,LEN(e.adjuster_Name)- charindex(',' ,e.adjuster_Name)) as FORepF
, case when charindex(',' ,e.adjuster_Name) <> 0 then left(e.adjuster_Name,charindex(',' ,e.adjuster_Name)-1) else e.adjuster_Name end as FORepL
,e.AdjusterID as RepC -- not sure
,CONVERT ( varchar,c.LossDate ,101) as DOL
,convert (varchar,c.ClaimOpenDate,101) as DOR
,rtrim(c.Loss_State) as LossSt
,c.Loss_ZipCode as LossZIP
,c.Loss_City as LossCity
,c.LossType as FOL
,'' as PR
,'' as PRNum
,1 as FeaNum
,'HO' as FeaType
,case when rtrim(c.claimStatus)= 'Closed' then 'Closed' else 'Open' end as FeaStat
,'' as FeaOpen
,'' as FeaClosed
,s.PaymentIndemnityAmount as PaidAmt
,s.ReserveIndemnityAmount as Reserve
,'' as Sub
,'' as Sal
,'' as FeatOwnOfc
,e.Supervisior_FullName as FeatOwnTeam
,RIGHT(e.adjuster_Name ,LEN(e.adjuster_Name)- charindex(',' ,e.adjuster_Name)) as FeatOwnRepF
,case when charindex(',' ,e.adjuster_Name) <> 0 then left(e.adjuster_Name,charindex(',' ,e.adjuster_Name)-1) else e.adjuster_Name end as FeatOwnRepL
,e.AdjusterID as FeatOwnRepCode
,NULL AS Description --not sure
from [Stg].[HS_DW_RV_Claims] c
inner join [dbo].[Claims_Primary_Adjuster] a on a.CLAIM_NUMBER = c.ClaimNumber
inner join [dbo].[vw_Adjuster] e on e.adjuster_Name = a.primary_ADJUSTER
left outer join [Stg].[HS_DW_LossClaimSummary] s on c.ClaimKey=s.ClaimKey
where c.LoadSource = 'CMS'
and
(s.PaymentIndemnityAmount <>0 or s.PaymentExpenseAmount <>0)
and
ClaimOpenDate BETWEEN DATEADD(mm, DATEDIFF(mm, 0, CURRENT_TIMESTAMP) -1, 0) AND DATEADD(mm, DATEDIFF(mm, 0, CURRENT_TIMESTAMP), 0)
UNION ALL
select
row_number() over (order by [ClaimNumber]) as DataElementName
,c.PolicyNumber as PolicyNum
, c.FirstName as CustNameF
,c.LastName as CustNameL
,c.PolicyForm as PolType
,'Homesite' as Company
,[ClaimNumber] as ClaimNum
,E.office as Ofc
,e.Supervisior_FullName as Team
, RIGHT(e.adjuster_Name ,LEN(e.adjuster_Name)- charindex(',' ,e.adjuster_Name)) as FORepF
, case when charindex(',' ,e.adjuster_Name) <> 0 then left(e.adjuster_Name,charindex(',' ,e.adjuster_Name)-1) else e.adjuster_Name end as FORepL
,e.AdjusterID as RepC -- not sure
,CONVERT ( varchar,c.LossDate ,101) as DOL
,convert (varchar,c.ClaimOpenDate,101) as DOR
,rtrim(c.Loss_State) as LossSt
,c.Loss_ZipCode as LossZIP
,c.Loss_City as LossCity
,c.LossType as FOL
,'' as PR
,'' as PRNum
,1 as FeaNum
,'HO' as FeaType
,case when rtrim(c.claimStatus)= 'Closed' then 'Closed' else 'Open' end as FeaStat
,'' as FeaOpen
,'' as FeaClosed
,s.PaymentIndemnityAmount as PaidAmt
,s.ReserveIndemnityAmount as Reserve
,'' as Sub
,'' as Sal
,'' as FeatOwnOfc
,e.Supervisior_FullName as FeatOwnTeam
,RIGHT(e.adjuster_Name ,LEN(e.adjuster_Name)- charindex(',' ,e.adjuster_Name)) as FeatOwnRepF
,case when charindex(',' ,e.adjuster_Name) <> 0 then left(e.adjuster_Name,charindex(',' ,e.adjuster_Name)-1) else e.adjuster_Name end as FeatOwnRepL
,e.AdjusterID as FeatOwnRepCode
,DESCRIPTION --not sure
from Stg.IG_Document D
inner join [Stg].[HS_DW_RV_Claims] c on D.PARENTREF = C.ClaimNumber
inner join [dbo].[Claims_Primary_Adjuster] a on a.CLAIM_NUMBER = c.ClaimNumber
inner join [dbo].[vw_Adjuster] e on e.adjuster_Name = a.primary_ADJUSTER
left outer join [Stg].[HS_DW_LossClaimSummary] s on c.ClaimKey=s.ClaimKey
where c.LoadSource = 'CMS'
and
DESCRIPTION like '%Denial Letter%'
and
ClaimOpenDate BETWEEN DATEADD(mm, DATEDIFF(mm, 0, CURRENT_TIMESTAMP) -1, 0) AND DATEADD(mm, DATEDIFF(mm, 0, CURRENT_TIMESTAMP), 0)
So if i use your logic in the end for both the where clauses its been more than 10 minutes and the query is still running however if i use my old method it doesnt even take a second. Looks like its affecting the execution plan. Any suggestions to get around
this one please?
Thanks

How to use maximum date condition in where clause ?

Hi I want to check if SWITCH_FLAG has 'Y' for the latest batch run..how can write it?
(select a.SWITCH_FLAG
from MORTGAGE
where SYS_EFF_DATE = max(SYS_EFF_DATE)
) as expected_result
Error message:
ORA-00934: group function is not allowed here

This will give you the switch_flag for the latest eff_date,
SELECT SWITCH_FLAG
FROM (SELECT A.SWITCH_FLAG, ROW_NUMBER () OVER (ORDER BY SYS_EFF_DATE DESC) rn
FROM mortgage A)
WHERE rn = 1;
--if you want to test try this,
SELECT SWITCH_FLAG,SYS_EFF_DATE
FROM (SELECT A.SWITCH_FLAG,SYS_EFF_DATE , ROW_NUMBER () OVER (ORDER BY SYS_EFF_DATE DESC) rn
FROM mortgage A)
WHERE rn = 1;G.

How to use standard function keys as custom keys

how to use standard function keys as custom keys.
i have encountered that problem while developing a screen, there i'm supposed to use standard function key F2 ( which actually meant for choose) for clearing the screen fields where the cursor is present and f1 for saving data that entered in screen fields, etc...
kindly help me out.

Hi ,
Solution to use SAP reserve function keys F1 .. F4 (mostly this requirement comes up for RF screens) can be acheived by assigning your new Function code using the Menu path Utilities --> F key Consistency in the Menu Painter (SE41) . Once you assign your cutom function code to the standard Fn keys the only remaining step is to make sure that you set a curson on any of the field on sceen by using the Key Word "SET CURSOR" .
If you dont use the key word SET CURSOR in the PBO of the screen then you might not see any response for F4.
Thanks

How to use SQL functions in the queries

hey guys i wanna know how to use SQL functions in the queries is it possible or not .

Hi,
Wat exactly that set values are?
those from sql query?
How to use count():
The COUNT() function returns the number of rows that matches a specified criteria.
SQL COUNT(column_name) Syntax
The COUNT(column_name) function returns the number of values (NULL values will not be counted) of the specified column:
SELECT COUNT(column_name) FROM table_name
SQL COUNT(*) Syntax
The COUNT(*) function returns the number of records in a table:
SELECT COUNT(*) FROM table_name
SQL COUNT(DISTINCT column_name) Syntax
The COUNT(DISTINCT column_name) function returns the number of distinct values of the specified column:
SELECT COUNT(DISTINCT column_name) FROM table_name
The IN function helps reduce the need to use multiple OR conditions.
The syntax for the IN function is:
SELECT columns
FROM tables
WHERE column1 in (value1, value2, .... value_n);

How to use data function using characterstics variable for calculation on

how to use data function using characterstics variable for calculation on attribute as key figure

Hi Gayatri
Did you not see my answer for CASE because CASE does indeed offer the use of the BETWEEN clause, but DECODE does not. Let me give you a little synopsis of DECODE.
In its most simple form it takes 4 values and looks like this: DECODE(A, B, C, D)
This essentially means, IF A = B THEN C ELSE D
The trick to solving BETWEEN in a DECODE is to work out algoriths where A = B. Because we don't know how many values are between 00 and 99, although I could guess there were 100 we could of course have 100 parts in the DECODE but that would be awful. How about if we look at it another way and say this:
IF PART_NUMBER < 'SDK00' THEN pay_amount
ELSE IF PART_NUMBER > 'SDK99' THEN pay_AMOUNT
ELSE pay_amount + 100
This statement only had 2 hard coded values, but how to make DECODE work with less than? Easy, we use the LEAST function. The LEAST function takes 2 values and returns the one with the lowest value. So I use LEAST(PART_NUMBER, 'SDK00') then whenever the PART_NUMBER is lower than SDK00 it will be true. A similar situation exists for the opposite function GREATEST. Putting all of this together then, you can do this:
DECODE(PART_NUMBER, GREATEST(PART_NUMBER, 'SDK00'), DECODE(PART_NUMBER, LEAST(PART_NUMBER, 'SDK99'), PAY_AMOUNT * 100, PAY_AMOUNT), PAY_AMOUNT)
In English this can be read as follows:
IF the PART_NUMBER is greater than or equal to SDK00 and the PART_NUMBER is less than or equal to SDK99 THEN PAY_AMOUNT x 100 ELSE 0
Best wishes
Michael

How to use complex function as condition in Oracle Rule Decision Table?

How to use complex function as condition in Oracle Rule Decision Table?
We want to compare an incoming date range with the date defined in the rules. This date comparison is based on the input date in the fact & the date as defined for each rule. Can this be done in a decision table?

I see a couple of problems here.
First, what you posted below is not a syntactically valid query. It seems to be part of a larger query, specifically, this looks to be only the GROUP BY clause of a query.
Prabu ammaiappan wrote:
Hi,
I Have a group function in the Query. Below is the Query i have used it,
GROUP BY S.FREIGHTCLASS,
R.CONTAINERKEY,
S.SKU,
S.DESCR ||S.DESCRIPTION2,
S.PVTYPE,
RD.LOTTABLE06,
R.WAREHOUSEREFERENCE,
RD.TOLOC,
R.ADDWHO,
R.TYPE,
S.CWFLAG,
S.STDNETWGT,
S.ORDERUOM,
R.ADDDATE,
C.DESCRIPTION,
(CASE WHEN P.POKEY LIKE '%PUR%' THEN 'NULL' ELSE to_char(P.PODATE,'dd/mm/yyyy') END),
NVL((CASE WHEN R.ADDWHO='BOOMI' THEN RDD.SUPPLIERNAME END),SS.COMPANY),
RDD.BRAND,
S.NAPA,
RD.RECEIPTKEY,
R.SUSR4,
P.POKEY,
RDD.SUSR1,
r.STATUS, DECODE(RDD.SUSR2,' ',0,'',0,RDD.SUSR2),
rd.SUSR3Second, the answer to your primary question, "How do I add a predicate with with a MAX() function to my where clause?" is that you don't. As you discovered, if you attempt to do so, you'll find it doesn't work. If you stop and think about how SQL is processed, it should make sense to you why the SQL is not valid.
If you want to apply a filter condition such as:
trunc(max(RD.DATERECEIVED)) BETWEEN TO_DATE('01/08/2011','DD/MM/YYYY') AND TO_DATE('01/08/2011','DD/MM/YYYY')you should do it in a HAVING clause, not a where clause:
select ....
from ....
where ....
group by ....
having max(some_date) between this_date and that_date;Hope that helps,
-Mark

How to use EVALUATE_AGGR function

Hi,
How to use this function in OBIEE
EVALUATE_AGGR('db_agg_function(%1...%N)' [AS datatype] [, column1, columnN])

Hi solved,
i have 3 rows as
a
b
c
i want to get a,b,c for that i used below code
EVALUATE_AGGR('LISTAGG(%3) WITHIN GROUP (order BY %1,%2 DESC)',"KQ_TASK"."ASSIGNED_TO",',',"KQ_TASK"."ASSIGNED_TO")
where %3 is third column which u want to get in single row

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 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 TRUNC function with dates in Expression Builder in OBIEE.

Hi There,
How to use TRUNC function with dates in Expression Builder in OBIEE.
TRUNC (SYSDATE, 'MM') returns '07/01/2010' where sysdate is '07/15/2010' in SQL. I need to use the same thing in expression builder in BMM layer logical column.
Thanks in advance

use this instead:
TIMESTAMPADD(SQL_TSI_DAY, ( DAYOFMONTH(CURRENT_DATE) * -1) + 1, CURRENT_DATE)

How to use the function module ....

hi
how to use the function module ssf_function_module_name in smartforms

Hi..
If you are using this Function module, you can get the generated function module name of smartform dynamically. It is good progrmaming practice to get the fucntion module name dynamically because there might be some problems if you are hard coding in program.
This will return the name of the function module and then from the exporting parameters you can use the fucntion module name to pass parameters to Smartforms.
Check this link.I am expalining here how to use this function module.
https://wiki.sdn.sap.com/wiki/pages/pointstab/viewpageversion.action?pageId=36109&version=2
Calling SMARTFORMS from your ABAP program
REPORT ZSMARTFORM.
Calling SMARTFORMS from your ABAP program.
Collecting all the table data in your program, and pass once to SMARTFORMS
SMARTFORMS
Declare your table type in :-
Global Settings -> Form Interface
Global Definintions -> Global Data
Main Window -> Table -> DATA
Written by : SAP Hints and Tips on Configuration and ABAP/4 Programming
http://sapr3.tripod.com
TABLES: MKPF.
DATA: FM_NAME TYPE RS38L_FNAM.
DATA: BEGIN OF INT_MKPF OCCURS 0.
INCLUDE STRUCTURE MKPF.
DATA: END OF INT_MKPF.
SELECT-OPTIONS S_MBLNR FOR MKPF-MBLNR MEMORY ID 001.
SELECT * FROM MKPF WHERE MBLNR IN S_MBLNR.
MOVE-CORRESPONDING MKPF TO INT_MKPF.
APPEND INT_MKPF.
ENDSELECT.
At the end of your program.
Passing data to SMARTFORMS
call function 'SSF_FUNCTION_MODULE_NAME'
exporting
formname = 'ZSMARTFORM'
VARIANT = ' '
DIRECT_CALL = ' '
IMPORTING
FM_NAME = FM_NAME
EXCEPTIONS
NO_FORM = 1
NO_FUNCTION_MODULE = 2
OTHERS = 3.
if sy-subrc <> 0.
WRITE: / 'ERROR 1'.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
call function FM_NAME
EXPORTING
ARCHIVE_INDEX =
ARCHIVE_INDEX_TAB =
ARCHIVE_PARAMETERS =
CONTROL_PARAMETERS =
MAIL_APPL_OBJ =
MAIL_RECIPIENT =
MAIL_SENDER =
OUTPUT_OPTIONS =
USER_SETTINGS = 'X'
IMPORTING
DOCUMENT_OUTPUT_INFO =
JOB_OUTPUT_INFO =
JOB_OUTPUT_OPTIONS =
TABLES
GS_MKPF = INT_MKPF
EXCEPTIONS
FORMATTING_ERROR = 1
INTERNAL_ERROR = 2
SEND_ERROR = 3
USER_CANCELED = 4
OTHERS = 5.
if sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
<b>Reward points if useful</b>
Regards
Ashu

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 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 a function in a Where Clause?

Similar Messages

Maybe you are looking for