Updating Select Options via Function Module

I contrast to the previous posting, I would like to update the single values for a select option. I am attempting to use the DYNP_VALUES_UPDATE, but I can only update the value on the screen and not the underlying structure. I have also tried using the RD_SELECTIONSCREEN_UPDATE but with no success either. Has anyone tried this before?
I am using a bespoke screen (ALV with multiple row selection) as the F4 dropdown which works fine and I have my values but cannot then update the selection screen.
I am on 4.6C.
Thanks in advance
Ian

Hello Ian,
The option of updating the select-options internal tabler seems right for the description of your requirement. However, I would like just give you a word of caution here - <i>Do that in your <b>initialization</b> event</i>.
Example:
tables mara.
select-options s_matnr for mara-matnr.
initialization.
s_matnr-sign = 'I'.
s_matnr-option = 'EQ'.
s_matnr-low = <Value1>.
append s_matnr.
s_matnr-low = <Value2>.
append s_matnr.
s_matnr-low = <ValueN>.
append s_matnr.
Hope this helps,
Regards,
Anand Mandalika.

Similar Messages

Total funcnality of select options in function module

Dear ABAPers
i am using structure and ranges to meet the functionality of select-options in function module3
but unlike reports if i leave it blank rather than selecting all the data it comes blank.
how can i do that
coz my select query uses 8 selection criteria and user may enter one two or three as per his need.
in that case the output comes out to be blank.
how this can be resolved
Thanks and Regards
Luthra, Deep.

You have to maintain conditions for all your possibilities.
Something like this.
IF ( post_dt_from IS INITIAL AND post_dt_to IS INITIAL AND
   doc_dt_from IS INITIAL AND doc_dt_to IS INITIAL ) OR
     ( post_dt_from IS INITIAL AND post_dt_to IS NOT INITIAL AND
   doc_dt_from IS NOT INITIAL AND doc_dt_to IS NOT INITIAL ) OR
     ( post_dt_from IS NOT INITIAL AND post_dt_to IS INITIAL AND
   doc_dt_from IS NOT INITIAL AND doc_dt_to IS NOT INITIAL ) OR
     ( post_dt_from IS NOT INITIAL AND post_dt_to IS NOT INITIAL AND
   doc_dt_from IS INITIAL AND doc_dt_to IS NOT INITIAL ) OR
     ( post_dt_from IS NOT INITIAL AND post_dt_to IS NOT INITIAL AND
   doc_dt_from IS NOT INITIAL AND doc_dt_to IS INITIAL ) OR
   ( post_dt_from IS NOT INITIAL AND post_dt_to IS INITIAL AND
   doc_dt_from IS INITIAL AND doc_dt_to IS INITIAL ) OR
     ( post_dt_from IS INITIAL AND post_dt_to IS NOT INITIAL AND
   doc_dt_from IS INITIAL AND doc_dt_to IS INITIAL ) OR
     ( post_dt_from IS INITIAL AND post_dt_to IS INITIAL AND
   doc_dt_from IS NOT INITIAL AND doc_dt_to IS INITIAL ) OR
     ( post_dt_from IS INITIAL AND post_dt_to IS INITIAL AND
   doc_dt_from IS INITIAL AND doc_dt_to IS NOT INITIAL ) OR
    ( ( post_dt_from IS NOT INITIAL AND post_dt_to IS NOT INITIAL ) AND
     ( doc_dt_from IS NOT INITIAL AND doc_dt_to IS NOT INITIAL ) ).

Select options in function module

hi friends, pls help me reg my query.
I have wERKS select-options
on the selection screen.
(This same thing, i want to pass in FM)
2. So in FM, I have used the
TABLES parameter (Not import, nor export)
3. And the type given is
WERKS_RANG
i defined it like
plant type WERKS_RANG
(This WERKS_RANG has 4 fields,
just like a select option
SIGN
OPTION
LOW
HIGH
4. Then inside fm,
i used SELECT Query,
and use IN WERKS.
below is my code in FM.
select lgort labst
from mard
into table imard1
where PLANT in werks
and material1 = matnr.
but i am getting an error "field plant is unknown". i have defined it under tables parameter..pls help
how shud i get the values i enter in select option for main program in se38 to function module field 'plant'...

Hi
You can define your TABLE parameter WERK without reference and define a range in your fm:
FUNCTION Z_PROVA_PROVA.
""Interfaccia locale:
*" IMPORTING
*"     REFERENCE(MATNR) TYPE MATNR
*" TABLES
*"      SEL_WERKS
RANGES R_WERKS FOR MARD-WERKS.
R_WERKS[] = SEL_WERKS[].
DATA: BEGIN OF IMARD1 OCCURS 0,
           LGORT LIKE MARD-LGORT,
           LABST LIKE MARD-LABST,
        END   OF IMARD1.
SELECT LGORT LABST FROM MARD INTO TABLE IMARD1
WHERE WERKS IN R_WERKS
AND MATNR = MATNR.
Max

How to define select option in function module

Hi expert,
Actually in my program i am using two select options plant and project definition. i have to pass those two select options to my function module. What i did is i declared that two select options in tables tab using RSDSSELOPT structure. My function module is working correctly when i am testing in se37 but if i am calling my function module from my program its showing dump error 'TYPE CONFLICT WHEN CALLING A FUNCTION MODULE(field length)'. please tell me how to solve this problem.
Regards,
Rathish

Problem solved

Select option in function module

I have:
select-options: s_date for oijne-astdtt. in my screen.
I want to put my code in a function module, but as known that the s_date structure is
s_date-low
s_date-high
also in select statment,
select nomtk into table int_fnomtk from oijne where astdtf in s_date.
I want to pass the s_date value to the where condition in the select statment.
how i can u solve this problem.

Hi Ali,
You can use ranges,
Kindly go through the sample code below:
RANGES : r_afaber FOR anlp-afaber, " for depreciation area
         r_peraf FOR anlp-peraf.   " for depreciation period
         INITIALIZATION
         TO INITIALIZE ALL THE VARIABLES TO BE USED
         IN THE PROGRAM
INITIALIZATION.
r_afaber-sign = 'I'.        " for inclusive
r_afaber-option = 'EQ'.     " for equal operator
r_afaber-low = c_afaber_01. " depreciation area(low value)
APPEND r_afaber.            " append values for depreciation area
r_afaber-sign = 'I'.        " for inclusive
r_afaber-option = 'EQ'.     " for equal operator
r_afaber-low = c_afaber_07. " depreciation area(low value)
APPEND r_afaber.            " append values for depreciation area
r_peraf-sign = 'I'.         " for inclusive
r_peraf-option = 'BT'.      " for between operator
r_peraf-low = c_peraf_001. " depreciation period(low value)
r_peraf-high = c_peraf_012. " depreciation period(high value)
APPEND r_peraf.             " append values for depreciation period
Hope it helps you
Regrds
Mansi

Select options to Function Module parameter

Hello,
I have a select options parameter in my report and then I have a function module that have to select into a database table using this SO.
How can I pass the SO to the FM?
The code must be something like that:
REPORT ZXXXX.
SELECT-OPTIONS: so_werks FOR marc-werks.
CALL FUNCTION 'ZFUNCTION'
FUNCTION ZFUNCTION
SELECT matnr FROM marc INTO TABLE it
WHERE werks IN so_werks
The select options must be a TABLES parameter? I have to create a structure type for that SO?

Hi,
In FM interface you can use
structure EFG_RANGES ( In Tables Parameter ) . This structure is same as select options.
Or in Importing parameters use EFG_TAB_RANGES . This is an internal table type .
In both ways you can pass your select option to FM diretcly.
Check the following link as well
https://forums.sdn.sap.com/click.jspa?searchID=11071891&messageID=4908310
Regards,
Raj.

Using select option and function module in single view

Hi All,
I Have a requirment ,using service call i get a function module and bind to specified UI elements with low and high attributes to input fileds which i designed in my view . And i have to keep range for input values using select options for those input values and clicking on submit i have to display data in VC but it's going to dump
the bug is
Adapter error in INPUT_FIELD "SALEDOC_TXT" of view "ZSD_ORDERSTATUS.MAIN": Context binding of property VALUE cannot be resolved: Node COMPONENTCONTROLLER.1.ZSD_ORDER_STATUS.1.CHANGING.1.S_VBELN does not contain any elements
can any one get me out of this.
Thank U,
Madhan

Hi,
Call FM using CALL FUNCTION, if you want to pass selectoptions type values to FM..
Try like this...
DATA : delivery TYPE TABLE OF RVBELN,
         wa_delivery TYPE RVBELN,
wa_delivery-sign   = 'E'.
wa_delivery-option = 'BT'.
wa_delivery-low    = lv_FROM_DELIVERYNO.
wa_delivery-high   = lv_TO_DELIVERYNO.
APPEND wa_delivery to delivery.
CLEAR wa_delivery.
Pass Delivery to FM.
Cheers,
Kris.

Select options with function modules.

Hello People,
I found few threads on this topic already, I tried solving with the help of those clues but in vain.
I want to create a function module which accepts a date range like in ACC_T_RA_DATE, and output a list of materials.
The list of materials correspond to the purchase orders that were created in the given date range.
Please kindly observe, I am not using a program to pass any value - I will be using only the function module throughout the process.
Please advice me on this.
Thanks in advance,
Disha.

What is your exact requirement, FM should look like
FUNCTION z_mm_xxx.
*"*"Lokale Schnittstelle:
*" IMPORTING
*"     REFERENCE(RANGE_DATE) TYPE ACC_T_RA_DATE
*" EXPORTING
*"     REFERENCE(MATERIAL_LIST) TYPE /SAPXCQM/EKPO_TAB
*" EXCEPTIONS
*"      INVALID_DATE_RANGE
*"      NO_PURCHASE_ORDER
*"      NO_ITEM_FOUND
DATA: lv_ebeln LIKE ekko-ebeln,                           "#EC NEEDED
        lv_datum LIKE syst-datum.
FIELD-SYMBOLS <fs> TYPE acc_s_ra_date.
* Init
REFRESH material_list.
* Check date range
LOOP AT range_date ASSIGNING <fs>.
    lv_datum = <fs>-low.
    CALL FUNCTION 'DATE_CHECK_PLAUSIBILITY'
         EXPORTING
              date                      = lv_datum
         EXCEPTIONS
              plausibility_check_failed = 1.
    IF sy-subrc NE 0.
      RAISE invalid_date_range.
    ENDIF.
    IF <fs>-option EQ 'BT'
    OR <fs>-option EQ 'NB'.
      IF <fs>-high LT <fs>-low.                           "#EC PORTABLE
        RAISE invalid_date_range.
      ENDIF.
      lv_datum = <fs>-high.
      CALL FUNCTION 'DATE_CHECK_PLAUSIBILITY'
           EXPORTING
                date                      = lv_datum
           EXCEPTIONS
                plausibility_check_failed = 1.
      IF sy-subrc NE 0.
        RAISE invalid_date_range.
      ENDIF.
    ENDIF.
ENDLOOP.
* Check existence of PO
SELECT SINGLE ebeln INTO lv_ebeln
    FROM ekko
    WHERE aedat IN range_date.
IF sy-subrc NE 0.
    RAISE no_purchase_order.
ENDIF.
* Read item
SELECT * INTO CORRESPONDING FIELDS OF TABLE material_list
    FROM ekpo
    JOIN ekko ON ekko~ebeln EQ ekpo~ebeln
    WHERE ekko~aedat IN range_date.
IF sy-subrc NE 0.
    RAISE no_item_found.
ENDIF.
ENDFUNCTION.
Regards,
Raymond

Passing Select-option to Function Module

Hi ,
I want to pass a select-option directly to the function Module tables parameter . Can anyone highlight on how i can declare the table in Function module side .
Thanks & Regards,
Raj

Hi.
In the TABLES tab of the specific FM ,
give the parameter name ( which u have defined as Select options ). Since select options is like an Internal Table with values sign,option,low and high , u can give it here.
Also give the ref. type and type specification.
Pl try this.
Thanks,
Maheshwari.V

Place selection-option in function module

hai,
i want to place select-option for one field usinf functionmodule as import parameter.
plz tell me .

Hi Suresh,
             in se37 import parameters give the date range like this
             erdat1 like vbak-erdat
             erdat2 like vbak-erdat
SELECT erdat
              vbeln
              posnr
              FROM vbak
              INTO CORRESPONDING FIELDS OF TABLE it_final
              WHERE erdat BETWEEN erdat1 AND erdat2.

Using selection options in functions..

Hi,
I have written abap program in which there are 3 selection options.. I want to pass these selection options to a function. so I want to know how to define or refer selection options in functions which is called by some other abap program ?
Regards,
Santosh

The select options are basically just tables with a specific structure. One option would be to specify them as TABLES parameters, e.g. check out function module BAPI_MATERIAL_GETLIST and you can see for example a call via function IAC_SHMA_MATERIALS_SELECT (or check dictionary table type SHP_MATNR_RANGE_T in SE11).
Cheers, harald

Generic Delta Extraction via Function Module

Hello,
i need a help for a generic delta extraction based on a Function Module. As an example i take the function module RSVD_BW_GET_DELTA_DATA.
My generic delta extractor based on the field AEDAT - Change Date and i will extract purchase service orders and entry sheets.
In the sample function module the select for the extraction worked with the table ROBWQTSTAT, but this table ist empty after the initialization.
OPEN CURSOR WITH HOLD G_CURSOR FOR
      SELECT * FROM ROVERCUBE1
               WHERE COUNTRY IN L_R_COUNTRY AND
                     REGION IN L_R_REGION AND
                     KUNNR   IN L_R_KUNNR AND
                     TYPE    IN L_R_TYPE AND
                     GJAHR   IN L_R_GJAHR AND
Here the timerange calculated in form GET_TIME_INTERVAL is evaluated.
                     TSTMP   IN S_R_TSTMP AND
                     OBJVERS = 'A'.
I found the table ROOSGENDLM. In this table i found the field DELTAID with the last date of the extraction and the field REPEATID with the date for the repead-Update.
My Questions:
Is this the right way to build an generic delta extraction with an function module or must i install a coding in my function module for an update of the table ROBWQTSTAT?
Which settings are needed in the table ROOSOURCE for a generic delta extraction via function module?
Best regards
Uwe

Hi Uwe,
please have a look at https://weblogs.sdn.sap.com/pub/wlg/2415. [original link is broken] [original link is broken] [original link is broken] It might help
kind regards
Siggi
PS: We already had almost the same question here today.

Regarding select option in a module pool prog .

hello .. i need some help regarding select options in a module pool program .. i hav tried putting a select options in a module pool prog but i am not able 2 ... can any one tel me why select options r not aloowed in a module pool prog ?? and i read that we hav 2 use ranges 2 fulfil the needs of the select options . is there any way i cal get all the functionality of select options ( eg including , excludig , equal to , not equal to , .... .) using a range ??

Hi
Select-options won't work if you declare the program as Module POOL.
if you wants to use select-options like utility in module pool programming
use ranges
declare and develop ranges and use that in select statement where condition.
ranges: r_vbeln for vbak-vbeln.
r_vbeln-low = '0018900678'.
r_vbeln-sign = 'I'.
r_vbeln-option = 'EQ'.
append r_vbeln.
r_vbeln-low = '0018900456'.
r_vbeln-sign = 'I'.
r_vbeln-option = 'EQ'.
append r_vbeln.
reward if useful
regards
Anji

Datasource via function module

Hi,
I am building a function that is due to be used by a Datasource (via Function Module).
This function uses table WDRD. It applies to this table a code that needs the use of an internal table for the calculation (for intermediary calculation storage). After which, I want to get the result of this internal table (say T1_DATA), and return it to E_T_DATA, which will be used to fill my datasource. This is where I am stuck.
-> When I try to get the content of my internal table in my cursor (code: OPEN CURSOR WITH HOLD S_CURSOR FOR
select * from T1_DATA
endif.),
I get an error message stating the table is not defined in the ABAP dictionary.
-> When I try to avoid the cursor and put directly the content of my table T1_DATA in table E_T_DATA, I don't get anything in my Datasource.
Any help would be greatly appreciated.
Thanks,
Pierre

Hi,
Which structure are you using??
Are you using the same old structure for this function module as well.
Have you enhanced the structure with new required fields.
New extrac fields needs to be added to existing structure if you are using the same or create a new one and make sure that you have all the fields in the structure which you are going to use in the data source.
You need to take care for the append as well and the issue could be in the code as well.
Make sure you have written the proper code and just for the new fields done an append
Thanks
Ajeet

Changing option in function module

sir,
plz explain the role or importance of changing option in function module SE37

hi check this example it had the usage of the changing option..
here the using will input the value to the perform and do some prosses and output some value..
PERNR               TYPE P0001-PERNR                           Personnel Number
PLANS               TYPE P0001-PLANS                           Position
ORGEH               TYPE P0001-ORGEH                           Organizational Unit
DATE                TYPE SY-DATUM       SY-DATUM               Date and time, current (applic
PLVAR               TYPE PLOG-PLVAR     '01'                   Plan Version
ISTAT               TYPE PLOG-ISTAT     '1'                    Planning Status
MANAGER     TYPE     ZHMSS_MANAGER     Structure for manager for MSS
NO_PERNR_PLANS_ORGEH_SPEC     No pernr, position or org unit specified
NO_EXIST_PLANS                Position does not exist
INVALID_PLANS                 Position invalid
NO_EXIST_ORGEH                Org unit does not exist
NO_EXIST_PERNR                Personnel number does not exist
function z_get_orgunit_manager_info.
""Local interface:
*" IMPORTING
*"     REFERENCE(PERNR) TYPE P0001-PERNR OPTIONAL
*"     REFERENCE(PLANS) TYPE P0001-PLANS OPTIONAL
*"     REFERENCE(ORGEH) TYPE P0001-ORGEH OPTIONAL
*"     REFERENCE(DATE) TYPE SY-DATUM DEFAULT SY-DATUM
*"     REFERENCE(PLVAR) TYPE PLOG-PLVAR DEFAULT '01'
*"     REFERENCE(ISTAT) TYPE PLOG-ISTAT DEFAULT '1'
*" EXPORTING
*"     REFERENCE(MANAGER) TYPE ZHMSS_MANAGER
*" EXCEPTIONS
*"      NO_PERNR_PLANS_ORGEH_SPEC
*"      NO_EXIST_PLANS
*"      INVALID_PLANS
*"      NO_EXIST_ORGEH
*"      NO_EXIST_PERNR
if pernr is initial and
     plans is initial and
     orgeh is initial.
    raise no_pernr_plans_orgeh_spec.
endif."pernr is initial and
if not pernr is initial.
    if pernr cn '0123456789'.
      exit.
    endif.
*-- See if pernr exists
    call function 'P_EMPLOYEE_CHECKEXISTENCE'
         exporting
              object_id          = pernr
              date               = date
         exceptions
              employee_not_found = 01.
    if sy-subrc ne 0.
      raise no_exist_pernr.
      exit.
    endif.
*-- Obtain pernr position
    call function 'HR_READ_INFOTYPE'
         exporting
              pernr           = pernr
              infty           = c_infty_0001
              begda           = date
              endda           = date
         importing
              subrc           = g_retcd
         tables
              infty_tab       = i0001
         exceptions
              infty_not_found = 01
              others          = 02.
    if sy-subrc eq 0.
      describe table i0001 lines g_lines.
      if g_lines > 0.
        read table i0001 index 1.
*-- Got position now find org unit
        perform zf_proc_get_om_objects tables i_objects
                                       using c_otype_position
                                             i0001-plans
                                             plvar
                                             c_rsign_a
                                             c_relat_003
                                             istat
                                             date
                                             date
                                             c_otype_orgunit
                                    changing g_retcd.
        if g_retcd eq 0.
          read table i_objects index 1.
          g_orgeh = i_objects-sobid(8).
        endif. "g_retcd eq 0.
      endif. "g_lines > 0. for i0001
    endif. "sy-subrc eq 0 hr_read_infotype
elseif not plans is initial.
    if plans co '9' or
       plans co '0'.
      raise invalid_plans.
      exit.
    endif.
    call function 'RH_READ_OBJECT'
         exporting
              plvar     = plvar
              otype     = c_otype_position
              objid     = plans
              istat     = istat
              begda     = date
              endda     = date
              langu     = sy-langu
         exceptions
              not_found = 1
              others    = 2.
    if sy-subrc <> 0.
      raise no_exist_plans.
      exit.
    endif.
*-- Find org unit
    perform zf_proc_get_om_objects tables i_objects
                                   using c_otype_position
                                         plans
                                         plvar
                                         c_rsign_a
                                         c_relat_003
                                         istat
                                         date
                                         date
                                         c_otype_orgunit
                                changing g_retcd.
    if g_retcd eq 0.
      read table i_objects index 1.
      g_orgeh = i_objects-sobid(8).
    endif."g_retcd eq 0.
elseif not orgeh is initial.
    call function 'RH_READ_OBJECT'
         exporting
              plvar     = plvar
              otype     = c_otype_orgunit
              objid     = orgeh
              istat     = istat
              begda     = date
              endda     = date
              langu     = sy-langu
              CHECK_STRU_AUTH   = space              "ASikaria, 10/15
         exceptions
              not_found = 1
              others    = 2.
    if sy-subrc <> 0.
      raise no_exist_orgeh.
      exit.
    endif.
    g_orgeh = orgeh.
endif. "not pernr is initial.
if not g_orgeh is initial.
    manager-orgeh = g_orgeh.
*-- Got org unit now find manager
    perform zf_proc_get_om_objects tables i_objects
                                   using c_otype_orgunit
                                         manager-orgeh
                                         plvar
                                         c_rsign_b
                                         c_relat_012
                                         istat
                                         date
                                         date
                                         c_otype_position
                                changing g_retcd.
    if g_retcd eq 0.
      read table i_objects index 1.
      if sy-subrc eq 0.
        manager-plans = i_objects-sobid.
        call function 'Z_GET_POSITION_HOLDER'
             exporting
                  plans              = manager-plans
                  plvar              = plvar
                  istat              = istat
                  date               = date
             importing
                  pernr              = manager-pernr
             exceptions
                  position_not_exist = 1
                  position_invalid   = 2
                  others             = 3.
        if sy-subrc <> 0.
          clear: manager-pernr.
        endif.
        if not manager-pernr is initial.
*- BOC RTDK902962
*-- Obtained formatted name
          clear: i0001.
          refresh: i0001.
          call function 'HR_READ_INFOTYPE'
               exporting
                    pernr           = manager-pernr
                    infty           = c_infty_0001
                    begda           = date
                    endda           = date
               importing
                    subrc           = g_retcd
               tables
                    infty_tab       = i0001
               exceptions
                    infty_not_found = 1
                    others          = 2.
          if sy-subrc eq 0.
            read table i0001 index 1.
            if sy-subrc eq 0.
              manager-ename = i0001-ename.
            endif.
          endif.
*- EOC RTDK902962
*-- Obtain pernr information
*- Get 0002 data
          clear: i0002.
          refresh: i0002.
          call function 'HR_READ_INFOTYPE'
               exporting
                    pernr           = manager-pernr
                    infty           = c_infty_0002
                    begda           = date
                    endda           = date
               importing
                    subrc           = g_retcd
               tables
                    infty_tab       = i0002
               exceptions
                    infty_not_found = 1
                    others          = 2.
          if sy-subrc eq 0.
            read table i0002 index 1.
            if sy-subrc eq 0.
              manager-inits = i0002-inits.
              manager-vorna = i0002-vorna.
              manager-nachn = i0002-nachn.
              manager-midnm = i0002-midnm.
            endif.
          endif.
*- Get 0105 data
          clear: i0105.
          refresh: i0105.
          call function 'HR_READ_INFOTYPE'
               exporting
                    pernr           = manager-pernr
                    infty           = c_infty_0105
                    begda           = date
                    endda           = date
               importing
                    subrc           = g_retcd
               tables
                    infty_tab       = i0105
               exceptions
                    infty_not_found = 1
                    others          = 2.
          if sy-subrc eq 0.
            describe table i0105 lines g_lines.
            if g_lines > 0.
*- SAP usrid
              loop at i0105 where subty = c_0105_usrid_subty.
                manager-usrid = i0105-usrid.
              endloop.
*- Email address
*// not sure where email is going to be stored but assume it is subtype
*// 0010
              loop at i0105 where subty = c_0105_email_subty.
                manager-email = i0105-usrid_long.
              endloop.
            endif. "g_lines > 0
          endif."sy-subrc eq 0.
        endif. "not manager-pernr is initial.
      endif. "sy-subrc eq 0.
    endif."g_retcd eq 0.
endif. "not g_orgeh is initial.
endfunction.
zposition holder
PLANS     TYPE     PLOG-OBJID                               Object ID
PLVAR     TYPE     PLOG-PLVAR     '01'     Plan Version
ISTAT     TYPE     PLOG-ISTAT     '1'     Planning Status
DATE     TYPE     SY-DATUM     SY-DATUM     Date and time, current (application server) date
PERNR               TYPE      P0001-PERNR                 Personnel Number
POSITION_NOT_EXIST            Position does not exist
POSITION_INVALID              Invalid position
function z_get_position_holder.
""Local interface:
*" IMPORTING
*"     REFERENCE(PLANS) TYPE PLOG-OBJID
*"     REFERENCE(PLVAR) TYPE PLOG-PLVAR DEFAULT '01'
*"     REFERENCE(ISTAT) TYPE PLOG-ISTAT DEFAULT '1'
*"     REFERENCE(DATE) TYPE SY-DATUM DEFAULT SY-DATUM
*" EXPORTING
*"     REFERENCE(PERNR) TYPE P0001-PERNR
*" EXCEPTIONS
*"      POSITION_NOT_EXIST
*"      POSITION_INVALID
if plans cn '0123456789'.
    raise position_invalid.
endif."plans cn '0123456789'.
if plans co '9'. "default position
    exit.
endif.
call function 'RH_READ_OBJECT'
       exporting
            plvar     = plvar
            otype     = c_otype_position
            objid     = plans
            begda     = date
            endda     = date
       exceptions
            not_found = 01
            others    = 02.
if sy-subrc ne 0.
    raise position_not_exist.
else.
    perform zf_proc_get_om_objects tables i_objects
                                   using c_otype_position
                                         plans
                                         plvar
                                         c_rsign_a
                                         c_relat_008
                                         istat
                                         date
                                         date
                                         c_otype_pernr
                                changing g_retcd.
    if g_retcd eq 0.
      sort i_objects by begda descending. "get earliest rec
      read table i_objects index 1.
      if sy-subrc eq 0.
        pernr = i_objects-sobid(8).
      endif.
    endif. "g_retcd eq 0.
endif. "sy-subrc ne 0.
endfunction.
regards,
venkat

Updating Select Options via Function Module

Similar Messages

Maybe you are looking for