Creation of Evaluation Paths for Standard Role

Parag Joshi paragjoshi at ureach.com
Wed Sep 11 15:58:23 EDT 2002


One more way, faster, better:
 
Query table HRP1001.
 
data: pos_holder like hrp1001-sobid. (Personnel Number)
 
select single hrp1001-sobid from hrp1001 into pos_holder
           where otype = 'S'
           and   objid = <query position>
           and   begda ge sy-datum
           and   endda le sy-datum
           and   subty = 'A008'. (holder relation, pls confirm)
 
Regards.
 
Parag Joshi.
Workflow Consultant.
Indianapolis, USA.
 
---- On    , =?iso-8859-1?Q?Vincze_=C1rp=E1d?=
(Arpad.Vincze at itelligence.hu) wrote:
 
> Hello,
>   I have a solution for that
>   ( probably it is not the simplest )
>  LET US SEE the program part:
> ********
> CONSTANTS:
>
>            USER     LIKE OBJEC-OTYPE VALUE 'US'.
>
> FORM GET_USER_TO_POS TABLES R_OBJEC STRUCTURE OBJEC
>                             R_STRUC STRUCTURE STRUC
>                      USING
>                            ACT_OBJID LIKE HRP1001-SOBID
>                            ACT_PLVAR LIKE OBJEC-PLVAR.
>   CONSTANTS: USER_TO_POS LIKE GDSTR-WEGID VALUE 'B008',
>              AUTHORY_CHECK LIKE HRRHAS-AUTHY VALUE SPACE.
>
>   CLEAR R_OBJEC.
>   CLEAR R_STRUC.
>   REFRESH R_OBJEC.
>   REFRESH R_STRUC.
>
>   CALL FUNCTION 'RH_STRUC_GET'
>        EXPORTING
>             ACT_OTYPE       = USER
>             ACT_OBJID       = ACT_OBJID
>             ACT_WEGID       = USER_TO_POS
>             ACT_PLVAR       = ACT_PLVAR
> *         ACT_BEGDA       = SY-DATUM
> *         ACT_ENDDA       = SY-DATUM
> *         ACT_TDEPTH      = 0
> *         ACT_TFLAG       = 'X'
> *         ACT_VFLAG       = 'X'
>             AUTHORITY_CHECK = AUTHORY_CHECK
> *    IMPORTING
> *         ACT_PLVAR       =
>        TABLES
> *          RESULT_TAB      =
>             RESULT_OBJEC    = R_OBJEC
>             RESULT_STRUC    = R_STRUC
>        EXCEPTIONS
>             NO_PLVAR_FOUND  = 1
>             NO_ENTRY_FOUND  = 2
>             OTHERS          = 3.
>
>   DELETE R_STRUC WHERE OTYPE EQ USER.
> ENDFORM.
>
> *  How to call this form:
>
> * get act_plvar
>
>   CLEAR ACT_PLVAR.
>   CALL FUNCTION 'RH_GET_ACTIVE_WF_PLVAR'
>        IMPORTING
>             ACT_PLVAR       = ACT_PLVAR
>        EXCEPTIONS
>             NO_ACTIVE_PLVAR = 1
>             OTHERS          = 2.
>
>
>   ACT_SOBID = SY-UNAME.
>
> * r_strpos will contain  all positions
> * belong to the actual SAP user
>
>   PERFORM GET_USER_TO_POS TABLES  R_OBJPOS R_STRPOS
>                       USING  ACT_SOBID ACT_PLVAR .
>
>  Regards:
>                    Arpad
>
> -----Original Message-----
>> From: Nat 4 Govender [mailto:ngovender4 at toyota.co.za]
> Sent: Wednesday, September 11, 2002 11:23 AM
> To: SAP-WUG at MITVMA.MIT.EDU
> Subject: Re: Creation of Evaluation Paths for Standard Role
>
>
> Hi All,
>
> I believe that there is a function module where you provide
the position
> number and the result can be a person or a user, does anyone
know of this
> function module
>
>
 
 
________________________________________________
Get your own "800" number
Voicemail, fax, email, and a lot more
http://www.ureach.com/reg/tag
 


More information about the SAP-WUG mailing list