Developing Z reports on PD

Question

Dear All,
    Can anyone please let me know the process on how to retrieve data of PD Module like Appraisals data.
    As  IT0025  doesn't store any data. and HRP Tables are not maintanance Allowed . so how to and where to check the data.
Thanks & Regards,
Satya.

Answer 1

Hi Satya,
I have used the same select query to update some appraisal details and displayed it in screen. I have pasted the whole program below for your reference. Please let me know if u have any doubts...
TABLES : HRHAP,
         HRHAP_T,
         HRHAP_BASIC,
         HRHAP_APPER,
         HRHAP_APPEE,
         HRHAP_FINAL.
TYPES :  BEGIN OF X_HRHAP_ID,
           PLAN_VERSION    TYPE HRHAP-PLAN_VERSION,
           APPRAISAL_ID    TYPE HRHAP-APPRAISAL_ID,
         END OF X_HRHAP_ID,
         BEGIN OF X_HRHAP,
           PLAN_VERSION    TYPE HRHAP-PLAN_VERSION,       "Plan version
           APPRAISAL_ID    TYPE HRHAP-APPRAISAL_ID,       "Appraisal id
           AP_START_DATE   TYPE HRHAP-AP_START_DATE,        "Start date
           AP_END_DATE     TYPE HRHAP-AP_END_DATE,            "End date
           AP_STATUS       TYPE HRHAP-AP_STATUS,                "Status
           AP_DATE_SET     TYPE HRHAP-AP_DATE_SET,      "Appraisal date
         END OF X_HRHAP,
         BEGIN OF X_HRHAP_T,
           LANGU          TYPE HRHAP_T-LANGU,                 "Language
           PLAN_VERSION   TYPE HRHAP_T-PLAN_VERSION,      "Plan version
           APPRAISAL_ID   TYPE HRHAP_T-APPRAISAL_ID,      "Appraisal id
         END OF X_HRHAP_T,
         BEGIN OF X_HRHAP_APPER,
           PLAN_VERSION   TYPE HRHAP_APPER-PLAN_VERSION,  "Plan version
           APPRAISAL_ID   TYPE HRHAP_APPER-APPRAISAL_ID,  "Appraisal id
           ID             TYPE HRHAP_APPER-ID,            "Appraiser id
         END OF X_HRHAP_APPER,
         BEGIN OF X_HRHAP_APPEE,
           PLAN_VERSION   TYPE HRHAP_APPEE-PLAN_VERSION,  "Plan version
           APPRAISAL_ID   TYPE HRHAP_APPEE-APPRAISAL_ID,  "Appraisal id
           ID             TYPE HRHAP_APPEE-ID,            "Appraisee id
         END OF X_HRHAP_APPEE,
         BEGIN OF X_HRHAP_BASIC,
           PLAN_VERSION    TYPE HRHAP_BASIC-PLAN_VERSION, "Plan version
           APPRAISAL_ID    TYPE HRHAP_BASIC-APPRAISAL_ID, "Appraisal id
           ROW_IID         TYPE HRHAP_BASIC-ROW_IID,            "Row id
           ELEMENT_TYPE    TYPE HRHAP_BASIC-ELEMENT_TYPE,"Template type
           ELEMENT_ID      TYPE HRHAP_BASIC-ELEMENT_ID,    "Template id
         END OF X_HRHAP_BASIC,
         BEGIN OF X_HRHAP_FINAL,
           PLAN_VERSION    TYPE HRHAP_FINAL-PLAN_VERSION, "Plan version
           APPRAISAL_ID    TYPE HRHAP_FINAL-APPRAISAL_ID, "Appraisal id
           ROW_IID         TYPE HRHAP_FINAL-ROW_IID,            "Row id
           COLUMN_ID       TYPE HRHAP_FINAL-COLUMN_ID,       "Column id
           VALUE_NUM       TYPE HRHAP_FINAL-VALUE_NUM,    "Rating value
           VALUE_NNV       TYPE HRHAP_FINAL-VALUE_NNV,     "Rating text
         END OF X_HRHAP_FINAL,
         BEGIN OF X_OUT_DATA,
           PLAN_VERSION     TYPE HRHAP-PLAN_VERSION,      "Plan version
           APPRAISAL_ID     TYPE HRHAP-APPRAISAL_ID,      "Appraisal id
           LANGU            TYPE HRHAP_T-LANGU,               "Language
           STATUS(15)       TYPE C,                             "Status
           AP_DATE_SET      TYPE HRHAP-AP_DATE_SET,     "Appraisal date
           ELEMENT_ID       TYPE HRHAP_BASIC-ELEMENT_ID,   "Template id
           CHANGED_ITEM(50) TYPE C,
           APPER_NAME(40)   TYPE C,                     "Appraiser name
           APPEE_NAME(40)   TYPE C,                     "Appraisee name
         END OF X_OUT_DATA,
         BEGIN OF X_ERRORS,
           APPRAISAL_ID     TYPE HRHAP-APPRAISAL_ID,
           ERROR_AT(50)         TYPE C,
           FAILED_ITEM(50)      TYPE C,
         END OF X_ERRORS.
DATA: IT_HRHAP_ID        TYPE TABLE OF X_HRHAP_ID    INITIAL SIZE 0,
      IT_HRHAP           TYPE TABLE OF X_HRHAP       INITIAL SIZE 0,
      IT_HRHAP_T         TYPE TABLE OF X_HRHAP_T     INITIAL SIZE 0,
      IT_HRHAP_APPER     TYPE TABLE OF X_HRHAP_APPER INITIAL SIZE 0,
      IT_HRHAP_APPEE     TYPE TABLE OF X_HRHAP_APPEE INITIAL SIZE 0,
      IT_HRHAP_BASIC     TYPE TABLE OF X_HRHAP_BASIC INITIAL SIZE 0,
      IT_HRHAP_FINAL     TYPE TABLE OF X_HRHAP_FINAL INITIAL SIZE 0,
      IT_OUT_DATA        TYPE TABLE OF X_OUT_DATA    INITIAL SIZE 0,
      IT_ERRORS          TYPE TABLE OF X_ERRORS      INITIAL SIZE 0.
Work area declaration
DATA: WA_HRHAP_ID    LIKE LINE OF IT_HRHAP_ID,      WA_HRHAP       LIKE LINE OF IT_HRHAP,
      WA_HRHAP_T     LIKE LINE OF IT_HRHAP_T,      WA_HRHAP_APPER LIKE LINE OF IT_HRHAP_APPER,      WA_HRHAP_APPEE LIKE LINE OF IT_HRHAP_APPEE,
      WA_HRHAP_BASIC LIKE LINE OF IT_HRHAP_BASIC,      WA_HRHAP_FINAL LIKE LINE OF IT_HRHAP_FINAL,      WA_OUT_DATA    LIKE LINE OF IT_OUT_DATA,
      WA_ERRORS      LIKE LINE OF IT_ERRORS.
*Variables
DATA: LV_APPER_ID   TYPE PA0001-PERNR,       "To store the appraiser id
      LV_APPEE_ID   TYPE PA0001-PERNR,       "To store the appraisee id
      LV_APPER_NAME(40) TYPE C,            "To store the appraiser name
      LV_APPEE_NAME(40) TYPE C.            "To store the appraisee name
CONSTANTS: C_OLD_TEMP_ID TYPE HRHAP_BASIC-ELEMENT_ID   VALUE '60000192',
           C_NEW_TEMP_ID TYPE HRHAP_BASIC-ELEMENT_ID   VALUE '60011450',
           C_TYPE_VA     TYPE HRHAP_BASIC-ELEMENT_TYPE VALUE 'VA',
           C_ROW_ID_1    TYPE HRHAP_FINAL-ROW_IID      VALUE '1',
           C_COL_ID_FAPP TYPE HRHAP_FINAL-COLUMN_ID    VALUE 'FAPP',
           C_RATING_VAL  TYPE HRHAP_FINAL-VALUE_NUM    VALUE '0.000'.
*Selection screen to determine the criteria for the selection of the
performance plan documents.
SELECTION-SCREEN BEGIN OF BLOCK A1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS : SO_DATE   FOR HRHAP-AP_DATE_SET.       "Appraisal date
SELECT-OPTIONS : SO_AP_ID FOR HRHAP-APPRAISAL_ID.        "Appraisal id
"Checkbox to enable or disable the updation of HRHAP tables.
PARAMETERS     : P_UPDATE AS CHECKBOX.
SELECTION-SCREEN END OF BLOCK A1.
START-OF-SELECTION.
  SELECT PLAN_VERSION
         APPRAISAL_ID
    FROM HRHAP INTO TABLE IT_HRHAP_ID
    WHERE APPRAISAL_ID IN SO_AP_ID AND
          AP_START_DATE  = '20080101' AND
          AP_END_DATE    = '20081231' AND
          AP_DATE_SET IN SO_DATE.
  IF IT_HRHAP_ID IS NOT INITIAL.
table
  SELECT PLAN_VERSION
         APPRAISAL_ID
         ROW_IID
         ELEMENT_TYPE
         ELEMENT_ID
    FROM HRHAP_BASIC INTO TABLE IT_HRHAP_BASIC
    FOR ALL ENTRIES IN IT_HRHAP_ID
    WHERE APPRAISAL_ID = IT_HRHAP_ID-APPRAISAL_ID AND
          ELEMENT_ID   = C_OLD_TEMP_ID AND
          ELEMENT_TYPE = C_TYPE_VA.
    IF IT_HRHAP_BASIC IS NOT INITIAL.
       SELECT PLAN_VERSION
              APPRAISAL_ID
              AP_START_DATE
              AP_END_DATE
              AP_STATUS
              AP_DATE_SET
         FROM HRHAP INTO TABLE IT_HRHAP
         FOR ALL ENTRIES IN IT_HRHAP_BASIC
         WHERE APPRAISAL_ID = IT_HRHAP_BASIC-APPRAISAL_ID.
      SELECT LANGU
              PLAN_VERSION
              APPRAISAL_ID
         FROM HRHAP_T INTO TABLE IT_HRHAP_T
         FOR ALL ENTRIES IN IT_HRHAP_BASIC
         WHERE APPRAISAL_ID = IT_HRHAP_BASIC-APPRAISAL_ID.
       SELECT PLAN_VERSION
              APPRAISAL_ID
              ID
         FROM HRHAP_APPER INTO TABLE IT_HRHAP_APPER
         FOR ALL ENTRIES IN IT_HRHAP_BASIC
         WHERE APPRAISAL_ID = IT_HRHAP_BASIC-APPRAISAL_ID.
       SELECT PLAN_VERSION
              APPRAISAL_ID
              ID
         FROM HRHAP_APPEE INTO TABLE IT_HRHAP_APPEE
         FOR ALL ENTRIES IN IT_HRHAP_BASIC
         WHERE APPRAISAL_ID = IT_HRHAP_BASIC-APPRAISAL_ID.
       SELECT PLAN_VERSION
              APPRAISAL_ID
              ROW_IID
              COLUMN_ID
              VALUE_NUM
              VALUE_NNV
          FROM HRHAP_FINAL INTO TABLE IT_HRHAP_FINAL
          FOR ALL ENTRIES IN IT_HRHAP_BASIC
          WHERE APPRAISAL_ID = IT_HRHAP_BASIC-APPRAISAL_ID AND
                ROW_IID      = C_ROW_ID_1 AND
                COLUMN_ID    = C_COL_ID_FAPP.
    ELSE.
      WRITE:/ 'No Performance plans exist.'.
      EXIT.
    ENDIF.
     LOOP AT IT_HRHAP INTO WA_HRHAP.
       MOVE WA_HRHAP-APPRAISAL_ID TO WA_OUT_DATA-APPRAISAL_ID.
       MOVE WA_HRHAP-AP_DATE_SET TO WA_OUT_DATA-AP_DATE_SET.
       CASE WA_HRHAP-AP_STATUS.
         WHEN 1.
           MOVE TEXT-002 TO WA_OUT_DATA-STATUS.
         WHEN 2.
           MOVE TEXT-003 TO WA_OUT_DATA-STATUS.
         WHEN 3.
           MOVE TEXT-004 TO WA_OUT_DATA-STATUS.
         WHEN 4.
           MOVE TEXT-005 TO WA_OUT_DATA-STATUS.
         WHEN 5.
           MOVE TEXT-006 TO WA_OUT_DATA-STATUS.
         WHEN 6.
           MOVE TEXT-007 TO WA_OUT_DATA-STATUS.
         WHEN 7.
           MOVE TEXT-008 TO WA_OUT_DATA-STATUS.
         WHEN 8.
           MOVE TEXT-009 TO WA_OUT_DATA-STATUS.
         WHEN 9.
           MOVE TEXT-010 TO WA_OUT_DATA-STATUS.
         WHEN OTHERS.
           CLEAR WA_OUT_DATA-STATUS.
       ENDCASE.
       READ TABLE IT_HRHAP_T INTO WA_HRHAP_T
         WITH KEY APPRAISAL_ID = WA_HRHAP-APPRAISAL_ID.
       MOVE WA_HRHAP_T-LANGU TO WA_OUT_DATA-LANGU.
       READ TABLE IT_HRHAP_APPER INTO WA_HRHAP_APPER
         WITH KEY APPRAISAL_ID = WA_HRHAP-APPRAISAL_ID.
       MOVE WA_HRHAP_APPER-ID TO LV_APPER_ID.
       CALL FUNCTION 'CATS_PERNR_NAME'
         EXPORTING
           BEG  = WA_HRHAP-AP_DATE_SET
           PNR  = LV_APPER_ID
         IMPORTING
           NAME = LV_APPER_NAME.
       READ TABLE IT_HRHAP_APPEE INTO WA_HRHAP_APPEE
         WITH KEY APPRAISAL_ID = WA_HRHAP-APPRAISAL_ID.
       MOVE WA_HRHAP_APPEE-ID TO LV_APPEE_ID.
       CALL FUNCTION 'CATS_PERNR_NAME'
         EXPORTING
           BEG           = WA_HRHAP-AP_DATE_SET
           PNR           = LV_APPEE_ID
        IMPORTING
           NAME          = LV_APPEE_NAME.
     Move the appraisee name to the output work area.
       MOVE LV_APPEE_NAME TO WA_OUT_DATA-APPEE_NAME.
       READ TABLE IT_HRHAP_BASIC INTO WA_HRHAP_BASIC
            WITH KEY ELEMENT_TYPE = C_TYPE_VA
                     ELEMENT_ID   = C_OLD_TEMP_ID.
       IF SY-SUBRC EQ 0.
         READ TABLE IT_HRHAP_FINAL INTO WA_HRHAP_FINAL
              WITH KEY ROW_IID = C_ROW_ID_1 COLUMN_ID = C_COL_ID_FAPP.
         IF SY-SUBRC EQ 0.
           IF P_UPDATE = 'X'.
             UPDATE HRHAP_BASIC SET ELEMENT_ID = C_NEW_TEMP_ID
             WHERE ELEMENT_TYPE = C_TYPE_VA AND
                   ELEMENT_ID   = C_OLD_TEMP_ID.
              IF SY-SUBRC EQ 0.
               UPDATE HRHAP_FINAL SET VALUE_NUM = C_RATING_VAL
               WHERE ROW_IID = C_ROW_ID_1 AND COLUMN_ID = C_COL_ID_FAPP.
               IF SY-SUBRC EQ 0.
                 MOVE 'ID & Rating' TO WA_OUT_DATA-CHANGED_ITEM.
               ELSE.
                 MOVE WA_HRHAP-APPRAISAL_ID TO WA_ERRORS-APPRAISAL_ID.
                 MOVE 'Updation of Rating' TO WA_ERRORS-FAILED_ITEM.
               ENDIF.
             ELSE.
               MOVE WA_HRHAP-APPRAISAL_ID TO WA_ERRORS-APPRAISAL_ID.
               MOVE ' Updation of ID & Rating' TO WA_ERRORS-FAILED_ITEM.
             ENDIF.
           ENDIF.
         ELSEIF SY-SUBRC EQ 4.
           IF P_UPDATE = 'X'.
             UPDATE HRHAP_BASIC SET ELEMENT_ID = C_NEW_TEMP_ID WHERE
             ELEMENT_TYPE = C_TYPE_VA.
              IF SY-SUBRC eq 0.
                MOVE 'Template ID' TO WA_OUT_DATA-CHANGED_ITEM.
              ELSE.
                MOVE WA_HRHAP-APPRAISAL_ID TO WA_ERRORS-APPRAISAL_ID.
                MOVE 'Updation of ID' TO WA_ERRORS-FAILED_ITEM.
              ENDIF.
           ELSE.
             CONTINUE.
           ENDIF.
         ELSE.
           MOVE WA_HRHAP-APPRAISAL_ID TO WA_ERRORS-APPRAISAL_ID.
           MOVE 'Reading HRHAP_FINAL' TO WA_ERRORS-ERROR_AT.
         ENDIF.
       ELSEIF SY-SUBRC EQ 4.
         MOVE 'None' TO WA_OUT_DATA-CHANGED_ITEM.
       ELSE.
         MOVE WA_HRHAP-APPRAISAL_ID TO WA_ERRORS-APPRAISAL_ID.
         MOVE 'Reading HRHAP_BASIC' TO WA_ERRORS-ERROR_AT.
       ENDIF.
       APPEND WA_OUT_DATA TO IT_OUT_DATA.
       IF WA_ERRORS-APPRAISAL_ID IS NOT INITIAL.
       APPEND WA_ERRORS   TO IT_ERRORS.
       ELSE.
         CLEAR: WA_ERRORS.
       ENDIF.
       CLEAR : WA_HRHAP,               WA_HRHAP_T,               WA_HRHAP_APPER,
               WA_HRHAP_APPEE,               WA_HRHAP_BASIC,               WA_HRHAP_FINAL,
               WA_OUT_DATA.
       CLEAR: LV_APPEE_ID,              LV_APPER_ID,              LV_APPEE_NAME,              LV_APPER_NAME.
     ENDLOOP.
Spool display
     ULINE.
     FORMAT  COLOR = 1 INTENSIFIED ON.
     WRITE:/ SY-VLINE,
             (2)  'No', SY-VLINE,
             (33) 'Appraisal ID', SY-VLINE,
             (4)  'Lang', SY-VLINE,
             (10) 'App date', SY-VLINE,
             (16) 'Status', SY-VLINE,
             (20) 'Appraiser name', SY-VLINE,
             (20) 'Appraisee name', SY-VLINE,
             (12) 'Changed item', SY-VLINE.
     ULINE.
     LOOP AT IT_OUT_DATA INTO WA_OUT_DATA.
       IF IT_OUT_DATA IS NOT INITIAL.
         FORMAT  COLOR = 2 INTENSIFIED OFF.
         WRITE:/ SY-VLINE,
                 (2)  SY-TABIX, SY-VLINE,
                 (33) WA_OUT_DATA-APPRAISAL_ID, SY-VLINE,
                 (4)  WA_OUT_DATA-LANGU, SY-VLINE,
                 (10) WA_OUT_DATA-AP_DATE_SET, SY-VLINE,
                 (16) WA_OUT_DATA-STATUS, SY-VLINE,
                 (20) WA_OUT_DATA-APPER_NAME, SY-VLINE,
                 (20) WA_OUT_DATA-APPEE_NAME, SY-VLINE,
                 (12) WA_OUT_DATA-CHANGED_ITEM,SY-VLINE.
         ULINE.
       ELSE.
         WRITE:/ 'List contains no data'.
       ENDIF.
     ENDLOOP.
  ELSE.
    WRITE:/ 'No Performance plans exist.'.
  ENDIF.
  IF IT_ERRORS IS NOT INITIAL.
    FORMAT  COLOR = 6 INTENSIFIED OFF.
    WRITE :/(33) 'Appraisal id',
            (50) 'Error occurred in',
            (50) 'Failed item'.
    LOOP AT IT_ERRORS INTO WA_ERRORS.
      FORMAT  COLOR = 6 INTENSIFIED OFF.
      WRITE :/(33) WA_ERRORS-APPRAISAL_ID,
              (50) WA_ERRORS-ERROR_AT,
              (50) WA_ERRORS-FAILED_ITEM.
    ENDLOOP.
  ELSE.
    FORMAT  COLOR = 3 INTENSIFIED ON.
    WRITE:/ 'No errors occured'.
  ENDIF.
Thanks & Regards,
ganesh R K