Use of function module RHPD_SEARCH_PEOPLE_WITH_QUAL

Question

Hello Gurus,
I am currently working on HR module. I want to know how RHPD_SEARCH_PEOPLE_WITH_QUAL is used. I am not able to figure out as i don't have system to work on. Just conceptual information is enough(code will be handy too). but a rough draft will do.
Thanks in advance.
Thanks and Regards,
Saurabh Chhatre

Answer 1

Hi,
The code is below
* CORRECTIONS
* DATE       CORRECTION NOTE    DESCRIPTION
* 06.03.2001 L9CK045041 0387320 Selection of applicants
* 11.06.2001 L9CK055799 0411739 Wrong search for Applicants in TA: PBAP
FUNCTION rhpd_search_people_with_qual .
*"*"Lokale Schnittstelle:
*"  IMPORTING
*"     VALUE(PLVAR) LIKE  HRP1000-PLVAR
*"     VALUE(BEGDA) LIKE  HRP1000-BEGDA DEFAULT SY-DATUM
*"     VALUE(ENDDA) LIKE  HRP1000-ENDDA DEFAULT SY-DATUM
*"     VALUE(SUBTY) LIKE  HRP1001-SUBTY DEFAULT 'B032'
*"     VALUE(GET_PERS_NAME) LIKE  SY-INPUT DEFAULT 'X'
*"     VALUE(ONLY_ESSENTIAL) TYPE  ESSENTIAL OPTIONAL
*"     VALUE(CONSIDER_ALTQ) TYPE  SUBSTITUTE OPTIONAL
*"     VALUE(TARGET_AP_IEA) LIKE  SY-INPUT DEFAULT ' '
*"  TABLES
*"      QUALI_TAB STRUCTURE  QUALI_PROF
*"      IMP_PERS_TAB STRUCTURE  HRSOBID OPTIONAL
*"      PERS_TAB STRUCTURE  PERSQ_PROF
*"      ALTQ_TAB STRUCTURE  ALTQ_STRU OPTIONAL
*"      APSTA_RANGE STRUCTURE  RANGE_APSTA OPTIONAL
*"      TARGET_OTYPE_TAB STRUCTURE  HROTYPE OPTIONAL
*"  EXCEPTIONS
*"      NO_QUALIFICATION
*"      NO_PERSON_FOUND
  DATA: adata.
  DATA: objects LIKE hrobject OCCURS 1 WITH HEADER LINE.
  DATA: sobjects LIKE hrsobid OCCURS 1 WITH HEADER LINE.
  DATA: i1001 LIKE p1001 OCCURS 1 WITH HEADER LINE.
  DATA: sobid LIKE i1001-sobid.
  DATA: BEGIN OF persons OCCURS 1,
             sclas LIKE i1001-sclas,
             sobid LIKE i1001-sobid.
  DATA: END OF persons.
  DATA: pad31 LIKE pad31.
  DATA: ok_flag.
  DATA: l_otype like hrobject-otype.
  DATA: conditions LIKE hrcond OCCURS 1 WITH HEADER LINE.
  DATA: condition_id LIKE hrrhdb-condition.
  DATA: h_no_persons.
  ranges: only_otype for objec-otype.
  DATA: h_tabix like sy-tabix.
  DATA: t77eo_prog LIKE t77eo-prog.
  data: l_function_module like rs38l-name.
  Field-symbols: <i1001-adata>. "LudwigUNI
* read t77s0 parameters
  PERFORM read_t77s0_parameters_for_pe.
* nur bei "erfüllt"-Verknüpfung Zusatzdaten (Ausprägung) lesen
  IF subty+1(3) = $ownsb+1(3).         " '032' erfüllt
    adata = 'X'.
  ENDIF.
* Tabelle für read_infty füllen
  LOOP AT quali_tab.
    objects-plvar = plvar.
    objects-otype = $quali.
    objects-objid = quali_tab-qualid.
    APPEND objects.
  ENDLOOP.
  IF sy-subrc > 0.
    RAISE no_qualification.
  ENDIF.
* Export-Tabelle leeren
  CLEAR pers_tab.
  REFRESH pers_tab.
* Wenn der Paramter target_iea gesetzt ist, wird die Tabelle
* Target_otype_tab entsprechend gefüllt ( Doku zu Parameter beachten )
  IF NOT target_ap_iea IS INITIAL.
    READ TABLE target_otype_tab WITH KEY otype = $pernr.
    IF sy-subrc NE 0.
      h_no_persons = 'X'.
    ENDIF.
    IF target_ap_iea EQ 'A' OR target_ap_iea EQ 'I'
      OR target_ap_iea EQ 'E'.
      target_otype_tab-otype = $pernr.
      APPEND target_otype_tab.
    ENDIF.
    IF target_ap_iea EQ 'A' OR target_ap_iea EQ 'E'.
      target_otype_tab-otype = $applk.
      APPEND target_otype_tab.
    ENDIF.
    SORT target_otype_tab BY otype.
    DELETE ADJACENT DUPLICATES FROM target_otype_tab.
  ENDIF.
* Für binary search
  SORT target_otype_tab.
* INSERT by XSC *****
*  READ TABLE imp_pers_tab INDEX 1 TRANSPORTING NO FIELDS.
*  IF sy-subrc = 0.
* Falls Zielpersonen schon bekannt sind, Bedingungen aufbauen
*    REFRESH conditions.
*    CLEAR conditions.
* Einschränkung auf Zielobjekttypen
*    LOOP AT imp_pers_tab.
*      READ TABLE target_otype_tab WITH KEY otype = imp_pers_tab-otype
*                                       BINARY SEARCH.
*      IF sy-subrc EQ 0.
*        conditions-field = 'SCLAS'.
*        conditions-opera = 'EQ'.
*        conditions-low   = imp_pers_tab-otype.
*        APPEND conditions.
*        conditions-field = 'SOBID'.
*        conditions-opera = 'EQ'.
*        conditions-low   = imp_pers_tab-sobid.
*        APPEND conditions.
*      ELSE.
*       is there any entry in target otype table
*        READ TABLE target_otype_tab INDEX 1 TRANSPORTING NO FIELDS.
*        IF sy-subrc <> 0.
*         there is no entry -> TAKE ALL object types !!!
*          conditions-field = 'SCLAS'.
*          conditions-opera = 'EQ'.
*          conditions-low   = imp_pers_tab-otype.
*          APPEND conditions.
*          conditions-field = 'SOBID'.
*          conditions-opera = 'EQ'.
*          conditions-low   = imp_pers_tab-sobid.
*          APPEND conditions.
*        ENDIF.                         "any entry in target otype ?
*      ENDIF.                           "allowed in target otype table ?
*    ENDLOOP.
* INSERT by XSC *****
  READ TABLE imp_pers_tab INDEX 1 TRANSPORTING NO FIELDS.
  IF sy-subrc = 0.
* Falls Zielpersonen schon bekannt sind, Bedingungen aufbauen
    REFRESH conditions.
    CLEAR conditions.
* INSERT by Ludwig *****
    Loop at imp_pers_tab.
      if l_otype = imp_pers_tab-otype.
        continue.
      else.       "l_otype <> im_pers_tab-otype = new objecttype
        only_otype-sign   = 'I'.
        only_otype-option = 'EQ'.
        only_otype-low    = imp_pers_tab-otype.
        append only_otype.
        l_otype = imp_pers_tab-otype.
      endif.
    endloop.
    delete target_otype_tab where not otype in only_otype.
    LOOP AT target_otype_tab.
      conditions-field = 'SCLAS'.
      conditions-opera = 'EQ'.
      conditions-low   = target_otype_tab-otype.
      APPEND conditions.
    ENDLOOP.
* Verknüpfungsart:
    conditions-field = 'SUBTY'.
    conditions-opera = 'EQ'.
    conditions-low = subty.
    APPEND conditions.
* Zeitraumeingrenzung übernehmen
    conditions-field = 'BEGDA'.
    conditions-opera = 'LE'.
    conditions-low = endda.
    APPEND conditions.
    conditions-field = 'ENDDA'.
    conditions-opera = 'GE'.
    conditions-low = begda.
    APPEND conditions.
* Bedingungstabelle für select generieren
    CALL FUNCTION 'RH_CONDITION_BUILD'
         EXPORTING
              infty            = '1001'
         IMPORTING
              condition        = condition_id
         TABLES
              condtab          = conditions
         EXCEPTIONS
              empty_condtab    = 1
              no_db_field      = 2
              unknown_infty_db = 3
              wrong_condition  = 4
              unknown_pad_db   = 5
              OTHERS           = 6.
    IF sy-subrc NE 0.
      RAISE no_person_found.
    ENDIF.
* Passende Objekte suchen. Extend = 'D' -> Conditions beachten
    CALL FUNCTION 'RH_READ_INFTY_1001'
         EXPORTING
*               AUTHORITY       = 'DISP'
*               WITH_STRU_AUTH  = 'X'
*               ISTAT           = ' '
              extend          = 'D'
*             subty           = subty
*             begda           = begda
*             endda           = endda
              condition       = condition_id
*               SORT            = 'X'
*               WITH_EV         = ' '
              adata           = adata
         TABLES
              i1001           = i1001
              objects         = objects
         EXCEPTIONS
              nothing_found   = 1
              wrong_condition = 2
              OTHERS          = 3.
    IF sy-subrc NE 0.
      RAISE no_person_found.
    ENDIF.
* Bedingung wieder löschen
    CALL FUNCTION 'RH_CONDITION_DELETE'
         EXPORTING
              condition = condition_id
         EXCEPTIONS
              OTHERS    = 0.
* INSERT by Ludwig *****
    read table imp_pers_tab index 1 transporting no fields.
    if sy-subrc = 0.
*    The found persons in the table persons are all persons which
*    have a valid qualification.
*    Delete persons out of table persons which not belong to the
*    organization_unit.
*    Sort table persons by otype objectid objecttext qualiid and date
      sort imp_pers_tab by plvar otype sobid.
      clear h_tabix.
      loop at i1001.
        h_tabix = sy-tabix.
        read table imp_pers_tab with key otype  = i1001-sclas
                                         sobid  = i1001-sobid
                                         binary search.
        if sy-subrc <> 0.       "person not in the organzation_unit
          delete i1001 index h_tabix.  "delete person out of i1001
        endif.
      endloop.
    endif.                             "imported persons
* INSERT by XSC *****
  ELSEIF ( target_ap_iea EQ 'I' ) OR
         ( target_ap_iea EQ 'E' ) OR
         ( target_ap_iea EQ 'A' ).
* Sonderbehandlung für Bewerber, falls da : (für Bewerberverwaltung)
    LOOP AT target_otype_tab.  "Correction L9CK055799 0411739 11.06.2001
* Dynamisches Form zur Bewerberstatuseinschränkung lesen:
      SELECT SINGLE * FROM t77eo WHERE otype = $applk.
      t77eo_prog = t77eo-prog.
* Status der Bewerber beim RH_READ_OBJECT berücksichtigen:
      READ TABLE apsta_range INDEX 1 TRANSPORTING NO FIELDS.
      IF sy-subrc = 0.
        PERFORM set_apsta IN PROGRAM (t77eo_prog) TABLES apsta_range
                                  USING begda endda    IF FOUND.
      ENDIF.
    ENDLOOP.
* Bedingungen aufbauen
    REFRESH conditions.
    CLEAR conditions.
* Einschränkung auf Zielobjekttyp:
*    IF target_ap_iea eq 'A' or         "Alle Bewerber selektieren
*       target_ap_iea = 'E'.            "externe Bewerber selektieren
*      conditions-field = 'SCLAS'.
*      conditions-opera = 'EQ'.
*      conditions-low = $applk.         "Bewerber:
*      APPEND conditions.
*    ENDIF.
*    IF target_ap_iea eq 'A' or         "Alle Bewerber selektieren
*       target_ap_iea = 'I'.            "interne Bewerber selektieren
*      conditions-field = 'SCLAS'.
*      conditions-opera = 'EQ'.         "Personen auslesen:  ! Rollen-
*      conditions-low = $pernr.         "interner Bewerber   ! konzept
*      APPEND conditions.
*    ENDIF.
    LOOP AT target_otype_tab.
      conditions-field = 'SCLAS'.
      conditions-opera = 'EQ'.
      conditions-low   = target_otype_tab-otype.
      APPEND conditions.
    ENDLOOP.
* Verknüpfungsart:
    conditions-field = 'SUBTY'.
    conditions-opera = 'EQ'.
    conditions-low = subty.
    APPEND conditions.
* Zeitraumeingrenzung übernehmen - Anfang Quali vor Ende Zeitraum
    conditions-field = 'BEGDA'.
    conditions-opera = 'LE'.
    conditions-low = endda.
    APPEND conditions.
    conditions-field = 'ENDDA'.
    conditions-opera = 'GE'.
    conditions-low = begda.
    APPEND conditions.
    CALL FUNCTION 'RH_CONDITION_BUILD'
         EXPORTING
              infty            = '1001'
         IMPORTING
              condition        = condition_id
         TABLES
              condtab          = conditions
         EXCEPTIONS
              empty_condtab    = 1
              no_db_field      = 2
              unknown_infty_db = 3
              wrong_condition  = 4
              unknown_pad_db   = 5
              OTHERS           = 6.
    IF sy-subrc NE 0.
      RAISE no_person_found.
    ENDIF.
* Extend = 'D' -> Conditions beachten
    CALL FUNCTION 'RH_READ_INFTY_1001'
         EXPORTING
*               AUTHORITY       = 'DISP'
*               WITH_STRU_AUTH  = 'X'
*               ISTAT           = ' '
              extend          = 'D'
*              subty           = subty
*              begda           = begda
*              endda           = endda
              condition       = condition_id
*               SORT            = 'X'
*               WITH_EV         = ' '
              adata           = adata
         TABLES
              i1001           = i1001
              objects         = objects
         EXCEPTIONS
              nothing_found   = 1
              wrong_condition = 2
              OTHERS          = 3.
*   applicant selection !
    l_function_module = 'RHPD_DC_INTERPRET_TARGET_IEA'.
    CALL FUNCTION 'FUNCTION_EXISTS'                  "XSC DC
      EXPORTING
        FUNCNAME                 = l_function_module
      EXCEPTIONS
        FUNCTION_NOT_EXIST       = 1
        OTHERS                   = 2.
    IF SY-SUBRC = 0.
*     HR SYSTEM
      CALL FUNCTION l_function_module
        EXPORTING
          TARGET_AP_IEA          = TARGET_AP_IEA
        TABLES
          I1001                  = i1001.
    else.
*     NO HR SYSTEM
*     -> no applicant selection or determination
    ENDIF.
  ELSE.
* Einschränkung auf Zielobjekttypen ungleich Bewerber:
* Ist jetzt nahezu das gleiche wie bei target_ap_iea ne space. Aber
* weil's dann übersichtlicher bleibt, steht's halt nochmal extra.
* Bedingungen aufbauen
    CLEAR conditions.
    REFRESH conditions.
* Einschränkung auf Zielobjekttypen: ( Sobids sind nicht bekannt )
    LOOP AT target_otype_tab.
      conditions-field = 'SCLAS'.
      conditions-opera = 'EQ'.
      conditions-low = target_otype_tab-otype.
      APPEND conditions.
    ENDLOOP.
* Verknüpfungsart:
    conditions-field = 'SUBTY'.
    conditions-opera = 'EQ'.
    conditions-low = subty.
    APPEND conditions.
* Zeitraumeingrenzung übernehmen
    conditions-field = 'BEGDA'.
    conditions-opera = 'LE'.
    conditions-low = endda.
    APPEND conditions.
    conditions-field = 'ENDDA'.
    conditions-opera = 'GE'.
    conditions-low = begda.
    APPEND conditions.
    CALL FUNCTION 'RH_CONDITION_BUILD'
         EXPORTING
              infty            = '1001'
         IMPORTING
              condition        = condition_id
         TABLES
              condtab          = conditions
         EXCEPTIONS
              empty_condtab    = 1
              no_db_field      = 2
              unknown_infty_db = 3
              wrong_condition  = 4
              unknown_pad_db   = 5
              OTHERS           = 6.
    IF sy-subrc NE 0.
      RAISE no_person_found.
    ENDIF.
    CALL FUNCTION 'RH_READ_INFTY_1001'
         EXPORTING
*               AUTHORITY       = 'DISP'
*               WITH_STRU_AUTH  = 'X'
*               ISTAT           = ' '
              extend          = 'D'
              subty           = subty
              begda           = begda
              endda           = endda
              condition       = condition_id
*               SORT            = 'X'
*               WITH_EV         = ' '
              adata           = adata
         TABLES
              i1001           = i1001
              objects         = objects
         EXCEPTIONS
              nothing_found   = 1
              wrong_condition = 2
              OTHERS          = 3.
    IF sy-subrc NE 0.
      RAISE no_person_found.
    ENDIF.
  ENDIF.
* Die Bedingungen wieder löschen
  CALL FUNCTION 'RH_CONDITION_DELETE'
       EXPORTING
            condition = condition_id
       EXCEPTIONS
            OTHERS    = 0.
* Wenn nur Personen gefunden werden sollen, die auf jeden Fall einen
* Teil der Qualis (Mußanforderungen) haben,
* müssen die Personen wieder rausgeschmissen werden, die nicht diese
* Qualifikationen erfüllen.
  IF only_essential = 'X'.
*   Zunächst alle gefundenen Personen ermitteln:
    LOOP AT i1001.
      persons-sclas = i1001-sclas.
      persons-sobid = i1001-sobid.
      APPEND persons.
    ENDLOOP.
    SORT persons BY sclas sobid.       "Schneller als
    DELETE ADJACENT DUPLICATES FROM persons.   "collect
*   Dann die Personen wieder rausschmeißen, die nicht alle MußQ's haben:
    LOOP AT persons.
      LOOP AT quali_tab WHERE essential = 'X'.
        READ TABLE i1001 WITH KEY objid = quali_tab-qualid
                                  sclas = persons-sclas
                                  sobid = persons-sobid.
        IF sy-subrc > 0.               "Person hat Quali nicht
          IF consider_altq IS INITIAL. "ErsatzQ nicht beachten
            DELETE persons.            "also Person rausscheißen
            EXIT.
          ELSE. " consider_altq = 'X'  SUCHE NACH ERSATZQUALIFIKATIONEN
            CLEAR ok_flag.
            LOOP AT altq_tab WHERE robid = quali_tab-qualid.
              READ TABLE i1001 WITH KEY objid = altq_tab-tobid
                                        sclas = persons-sclas
                                        sobid = persons-sobid.
              IF sy-subrc = 0.         "Person hat ErsatzQ
                ok_flag = 'X'.
                EXIT.
              ENDIF.
            ENDLOOP.
            IF ok_flag IS INITIAL.
              DELETE persons.
              EXIT.
            ENDIF.
          ENDIF.  "consider_altq is initial. "ErsatQ beachten
        ENDIF.  "sy-subrc > 0.      "Person hat Quali nicht
      ENDLOOP.                         " at quali_tab
    ENDLOOP.                           " at persons.
* Und noch die i1001 bereinigen:
    LOOP AT i1001.
      READ TABLE persons WITH KEY sclas = i1001-sclas
                                  sobid = i1001-sobid.
      IF sy-subrc > 0. "Person nicht in persons => in i1001 löschen
        DELETE i1001.
      ENDIF.
    ENDLOOP.
  ENDIF.                               " only_essential = 'X'
* Wenn Namen gewünscht, Text_buffer füllen.
  IF NOT get_pers_name IS INITIAL.
    LOOP AT i1001.
      sobjects-plvar = plvar.
      sobjects-otype = i1001-sclas.
      sobjects-sobid = i1001-sobid.
      APPEND sobjects.
    ENDLOOP.
    CALL FUNCTION 'RH_TEXT_BUFFER_FILL_EXTERNAL'
*        EXPORTING
*             CHECK_STRU_AUTH = 'X'
         TABLES
              objects         = sobjects
         EXCEPTIONS
              OTHERS          = 0.
  ENDIF. " get_pers_name = 'X'.                                        .
* Fülle Pers_tab.
  LOOP AT i1001.
    CLEAR pers_tab.
    pers_tab-otype = i1001-sclas.
    pers_tab-sobid = i1001-sobid.
    IF get_pers_name = 'X'.
      sobid = i1001-sobid.
      CALL FUNCTION 'RH_READ_OBJECT'
           EXPORTING
                plvar           = plvar
                otype           = i1001-sclas
*               objid           = objid
                realo           = sobid
*               ISTAT           = ' '
                begda           = begda
                endda           = endda
*               LANGU           = SY-LANGU
*               OINTERVAL       = 'X'
*               STORE           = 'X'
*               CHECK_STRU_AUTH = 'X'
*               READ_DB         = ' '
           IMPORTING
*                obeg            =
*                oend            =
*                ostat           =
*                histo           =
                 short           = pers_tab-short
                 stext           = pers_tab-stext
           EXCEPTIONS
                not_found       = 1
                OTHERS          = 2.
      IF sy-subrc > 0.
        CONTINUE.
      ENDIF.
    ENDIF.
    IF pers_tab-stext IS INITIAL.
      pers_tab-stext = pers_tab-short.
    ENDIF.
    pers_tab-qualid = i1001-objid(8).
    READ TABLE quali_tab WITH KEY qualid = i1001-objid(8).
    pers_tab-qualstxt  = quali_tab-qualstxt.
    pers_tab-essential = quali_tab-essential.
    assign i1001-adata to <i1001-adata> casting type c. "LudwigUNI
    pad31 = <i1001-adata>.
*   get proficiency for the qualification                in the future:
*   profile-profcy = pad31-chara / 10000000           "for NUMC8
    pers_tab-profcy = pad31-chara.
*   Verknüpfungszeitraum füllen:
    pers_tab-vbegda = i1001-begda.
    pers_tab-vendda = i1001-endda.
    APPEND pers_tab.
  ENDLOOP.
* Einschränkung des Bewerberstatus zurücknehmen:
  IF target_ap_iea EQ 'I' OR
     target_ap_iea EQ 'E' OR
     target_ap_iea EQ 'A'.
    LOOP AT target_otype_tab WHERE otype = $applk.
      PERFORM reset_apsta IN PROGRAM (t77eo_prog) IF FOUND.
    ENDLOOP.
  ENDIF.
ENDFUNCTION.
Regards,
Shailaja