BW 0HR_PA_2 - 3 Update rules assignment for 0PA_DS02 - 3

Question

Hello experts
I am just another one tryng to figure out how to assign the update rulesfor DSO's  0PA_DS02 and 3. The business content activation of the update rules yields a no update type of rule. So I guess we need to assign the fields manually. I read the <How-to> document on the BW/HR authorization but I am still trying to pass <GO> and load the initial data as the document does not mention the update rules assignment. In that regards I searched SDN on how to modify the update rules but I can't seem to pin point the exact complete information.
Please help.
Thanks.
YB.

Answer 1

=========================
Update Rules for 0PA_DS03 (Part 2)
=========================
0TCTNDEF  -  BW Reporting Authorizations: Node Variables Defaul
Initial value
0TCTNIOBJNM - InfoObject of Node
Routine:
PROGRAM UPDATE_ROUTINE.
$$ begin of global - insert your declaration only below this line  -
TABLES: ...
DATA:   ...
$$ end of global - insert your declaration only before this line   -
FORM compute_key_field
  TABLES   MONITOR STRUCTURE RSMONITOR "user defined monitoring
  USING    COMM_STRUCTURE LIKE /BIC/CS0HR_PA_3
           RECORD_NO LIKE SY-TABIX
           RECORD_ALL LIKE SY-TABIX
           SOURCE_SYSTEM LIKE RSUPDSIMULH-LOGSYS
  CHANGING RESULT LIKE /BI0/APA_DS0300-TCTNIOBJNM
           RETURNCODE LIKE SY-SUBRC
           ABORT LIKE SY-SUBRC. "set ABORT <> 0 to cancel update
$$ begin of routine - insert your code only below this line        -
fill the internal table "MONITOR", to make monitor entries
  RETURNCODE = 0.
result value of the routine
  IF COMM_STRUCTURE-hr_otyobj IS INITIAL.
    RESULT = '1NODENAME'.
  ELSE.
    CASE COMM_STRUCTURE-hr_objtype.
      WHEN 'O'.   RESULT = '0ORGUNIT'.
      WHEN 'C'.   RESULT = '0JOB'.
      WHEN 'S'.   RESULT = '0HRPOSITION'.
      WHEN 'P'.   RESULT = '0EMPLOYEE'.
      WHEN 'Q'.   RESULT = '0QUALIFICTN'.
      WHEN 'QK'.  RESULT = '0QUALIGROUP'.
      WHEN 'BA'.  RESULT = '0APPRAISAL'.
      WHEN 'A'.   RESULT = '0HRWORKCNTR'.
      WHEN 'BK'.  RESULT = '0AP_CRIT'.
      WHEN 'BS'.  RESULT = '0AP_SCHEME'.
      WHEN 'E'.   RESULT = '0EVENT'.
      WHEN 'D'.   RESULT = '0EVENTTYPE'.
      WHEN 'L'.   RESULT = '0EVENTGROUP'.
      WHEN 'F'.   RESULT = '0EVLOCATION'.
      WHEN 'G'.   RESULT = '0RESOU'.
      WHEN 'R'.   RESULT = '0RESTYPE'.
      WHEN 'H'.   RESULT = '0EXTPERS'.
      WHEN 'U'.   RESULT = '0EXTORG'.
      WHEN OTHERS.RETURNCODE = 4.
    ENDCASE.
  ENDIF.
if the returncode is not equal zero, the result will not be updated
if abort is not equal zero, the update process will be canceled
  ABORT = 0.
$$ end of routine - insert your code only before this line         -
ENDFORM.
0TCTNODE    - Nodes of a Hierarchy
Routine:
PROGRAM UPDATE_ROUTINE.
$$ begin of global - insert your declaration only below this line  -
TABLES: ...
DATA:   ...
$$ end of global - insert your declaration only before this line   -
FORM compute_key_field
  TABLES   MONITOR STRUCTURE RSMONITOR "user defined monitoring
  USING    COMM_STRUCTURE LIKE /BIC/CS0HR_PA_3
           RECORD_NO LIKE SY-TABIX
           RECORD_ALL LIKE SY-TABIX
           SOURCE_SYSTEM LIKE RSUPDSIMULH-LOGSYS
  CHANGING RESULT LIKE /BI0/APA_DS0300-TCTNODE
           RETURNCODE LIKE SY-SUBRC
           ABORT LIKE SY-SUBRC. "set ABORT <> 0 to cancel update
$$ begin of routine - insert your code only below this line        -
fill the internal table "MONITOR", to make monitor entries
result value of the routine
  IF COMM_STRUCTURE-hr_otyobj IS INITIAL.
    RESULT = 'ROOT_H'.
  ELSE.
    RESULT = COMM_STRUCTURE-hr_otyobj.
  ENDIF.
if the returncode is not equal zero, the result will not be updated
  RETURNCODE = 0.
if abort is not equal zero, the update process will be canceled
  ABORT = 0.
$$ end of routine - insert your code only before this line         -
ENDFORM.
0TCTOBJVERS- Object Version
Constant: A
0TCTSYSID  - BW System
Routine:
PROGRAM UPDATE_ROUTINE.
$$ begin of global - insert your declaration only below this line  -
TABLES: ...
DATA:   ...
$$ end of global - insert your declaration only before this line   -
FORM compute_key_field
  TABLES   MONITOR STRUCTURE RSMONITOR "user defined monitoring
  USING    COMM_STRUCTURE LIKE /BIC/CS0HR_PA_3
           RECORD_NO LIKE SY-TABIX
           RECORD_ALL LIKE SY-TABIX
           SOURCE_SYSTEM LIKE RSUPDSIMULH-LOGSYS
  CHANGING RESULT LIKE /BI0/APA_DS0300-TCTSYSID
           RETURNCODE LIKE SY-SUBRC
           ABORT LIKE SY-SUBRC. "set ABORT <> 0 to cancel update
$$ begin of routine - insert your code only below this line        -
fill the internal table "MONITOR", to make monitor entries
result value of the routine
  CALL METHOD cl_rso_repository=>get_logical_system_self
    RECEIVING
      r_logsys = RESULT.
if the returncode is not equal zero, the result will not be updated
  RETURNCODE = 0.
if abort is not equal zero, the update process will be canceled
  ABORT = 0.
$$ end of routine - insert your code only before this line         -
ENDFORM.