Or you can use the 'P_ORIGN' authority object for the infotype 0024.

http://help.sap.com/erp2005_ehp_04/helpdata/EN/97/27973b3ea3eb0fe10000000a114084/frameset.htm
REPORT ZTEST_DYNAMIC_ALV.
TYPE-POOLS: SLIS.
FIELD-SYMBOLS:TYPE STANDARD TABLE,
.
DATA: ALV_FLDCAT TYPE SLIS_T_FIELDCAT_ALV,
IT_FLDCAT TYPE LVC_T_FCAT.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETERS: P_FLDS(5) TYPE C.
SELECTION-SCREEN END OF BLOCK B1.
START-OF-SELECTION.
* build the dynamic internal table
PERFORM BUILD_DYN_ITAB.
* write 5 records to the alv grid
DO 5 TIMES.
PERFORM BUILD_REPORT.
ENDDO.
* call the alv grid.
PERFORM CALL_ALV.
************************************************************************
* Build_dyn_itab
************************************************************************
FORM BUILD_DYN_ITAB.
DATA: NEW_TABLE TYPE REF TO DATA,
NEW_LINE TYPE REF TO DATA,
WA_IT_FLDCAT TYPE LVC_S_FCAT.
* Create fields .
DO P_FLDS TIMES.
CLEAR WA_IT_FLDCAT.
WA_IT_FLDCAT-FIELDNAME = SY-INDEX.
WA_IT_FLDCAT-DATATYPE = 'CHAR'.
WA_IT_FLDCAT-INTLEN = 5.
APPEND WA_IT_FLDCAT TO IT_FLDCAT .
ENDDO.
* Create dynamic internal table and assign to FS
CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE
EXPORTING
IT_FIELDCATALOG = IT_FLDCAT
IMPORTING
EP_TABLE = NEW_TABLE.
ASSIGN NEW_TABLE->* TO.
* Create dynamic work area and assign to FS
CREATE DATA NEW_LINE LIKE LINE OF.
ASSIGN NEW_LINE->* TO.
ENDFORM. "build_dyn_itab
*********************************************************************
* Form build_report
*********************************************************************
FORM BUILD_REPORT.
DATA: FIELDNAME(20) TYPE C.
DATA: FIELDVALUE(5) TYPE C.
DATA: INDEX(3) TYPE C.
FIELD-SYMBOLS:.
DO P_FLDS TIMES.
INDEX = SY-INDEX.
* Set up fieldvalue
CONCATENATE 'FLD' INDEX INTO
FIELDVALUE.
CONDENSE FIELDVALUE NO-GAPS.
ASSIGN COMPONENT INDEX OF STRUCTURETO .
= FIELDVALUE.
ENDDO.
* Append to the dynamic internal table
APPENDTO .
ENDFORM. "build_report
************************************************************************
* CALL_ALV
************************************************************************
FORM CALL_ALV.
DATA: WA_CAT LIKE LINE OF ALV_FLDCAT.
DO P_FLDS TIMES.
CLEAR WA_CAT.
WA_CAT-FIELDNAME = SY-INDEX.
WA_CAT-SELTEXT_S = SY-INDEX.
WA_CAT-OUTPUTLEN = '5'.
APPEND WA_CAT TO ALV_FLDCAT.
ENDDO.
* Call ABAP List Viewer (ALV)
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
IT_FIELDCAT = ALV_FLDCAT
TABLES
T_OUTTAB =.
ENDFORM. "call_alv
PSPAR-DMSNR = DT_P9077-SEQNR.
PSPAR-SEQNR = DT_P9077-SEQNR.
PERFORM RP_INFOTYP(SAPFP50G) USING DT_P9077-PERNR
'DEL' '9077' "PSPAR-INFTY
DT_P9077-SUBTY "PSPAR-NSUBT
SPACE "PSPAR-NOBJP
DT_P9077-BEGDA "PSPAR-NBEGD
DT_P9077-ENDDA "PSPAR-NENDD
L_RCODE. "PSPAR-RCODE
PERFORM REFRESH_P0003_FROM_PS(SAPFP50M).
CLEAR PSPAR-ASKEY.
The P_ORGIN object (HR: Master Data) used in the standard system consists of the following fields:
INFTY: Infotype Number
SUBTY: Subtype Number
AUTHC: Authorization Level
WERKS: Personnel Area
PERSG: Employee Group
PERSK: Employee Subgroup
VDSK1: Organizational Key
You can therefore assign authorizations for personnel data in Human Resources at infotype/subtype level according to the employee’s personnel area, employee group, employee subgroup, and organizational key.
Authorization objects for the HR object class:
· P_CH_PK (HR-CH: Pension Fund: Account Access)
· P_DE_BW (HR-DE: Statements SAPScript)
· P_DK_PBS (HR-DK: Authorization Check for Access to PBS Company)
· P_PYEVDOC (HR: Posting Document)
· P_OCWBENCH (HR: Activities in the Off-Cycle Workbench)
· P_BEN (HR: Benefit Area)
· P_CATSXT (HR: Time Sheet for Service Providers Type/ Level Check)
· P_PE01 (HR: Authorization for Personnel Calculation Schemas)
· P_PE02 (HR: Authorization for Personnel Calculation Rule)
· P_HRF_INFO (HR: Authorization Check InfoData Maintenance for HR Forms)
· P_HRF_META (HR: Authorization Check Master Data Maintenance for HR Forms)
· P_CERTIF (HR: Statements)
· P_APPL (HR: Applicants)
· P_PYEVRUN (HR: Posting Run)
· P_PCLX (HR: Clusters)
· P_DBAU_SKV (HR: DBAU: Construction Pay Germany – Social Fund Procedure)
· P_PCR (HR: Payroll Control Record)
· P_ABAP (HR: Reporting)
· P_ORGIN (HR: Master Data)
· P_PERNR (HR: Master Data – Personnel Number Check)
· P_ORGXX (HR: Master Data – Extended Check)
· P_TCODE (HR Transaction Code)
· P_USTR (HR: US Tax Reporter)
· PLOG (Personnel Planning)
· S_MWB_FCOD (BC-BMT-OM: Allowed Function Codes for Manager’s Desktop)
· P_NNNNN (Customer-Specific Authorization Object)
· P_ORGINCON (HR: Master Data with Context)
· P_ORGXXCON (HR: Extended Check with Context)
· P_NNNNNCON (HR Master Data: Customer-Specific Authorization Object with Context)
The following authorization objects are also important for mySAP HR:
· S_TABU_DIS (Table Maintenance (Using Standard Tools such as SM30))
· S_TABU_CLI (Table Maintenance of Cross-Client Tables)
· S_TABU_LIN (Authorization for Organizational Unit)
· S_TMS_ACT (TemSE: Actions on TemSe Objects)
READ TABLE GT_WPBP INTO GS_WPBP INDEX 1.
IF SY-SUBRC = 0.
CALL FUNCTION 'HR_FEATURE_BACKFIELD'
EXPORTING
FEATURE = 'PPMOD'
STRUC_CONTENT = GS_WPBP
IMPORTING
BACK = GS_TAB-MOMAG.
ENDIF.