Developing Z reports on PD

[Former Member]

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.

[Former Member · Accepted solution]

Hi Satya,

I hope the below code will answer your question and you will get a image to make a new z report..

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.

• To fetch row id, template type and template id from HRHAP_BASIC

• 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.

• To fetch Language from HRHAP_T table

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.

• To fetch Appraiser id from HRHAP_APPER table

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.

• To fetch Appraisee id from HRHAP_APPEE table

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.

• To fetch row id, column id, rating value and rating text

• from HRHAP_FINAL table

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.

Thanks & Regards,

Ganesh R K

[Former Member · Accepted solution]

Very helpful Answer.

[Former Member · Accepted solution]

Dear Ganesh,

If data is not picked then how to cross check it...

C actually there are some employees Information in IT0025.

But when I was trying with your code ... while fetching the data after each and every selection the Internal Table is empty...

So how to cross verify, could you please guide me.

[Former Member · Accepted solution]

Dear Ganesh,

Even YOuis also not fetching the data here...

After Start of selection the first select is itself getting failed...

Can you please let me know any areas where I need to check it.

Thanks & Regards,

Satya

[Former Member · Accepted solution]

Hi Satya,

Please check in debug mode whether hrhap table contains data or not. Try with simple select statement to fetch from hrhap table. Paste ur code i ll check it out.

Thanks & Regards,

Ganesh R K

[Former Member · Accepted solution]

REPORT Z_HR_PD.

tables : pernr,

pa0001,

hrhap_appee,

hrhap.

data : begin of i_data1 occurs 0,

PLAN_VERSION type hrhap-plan_version,

APPRAISAL_ID type hrhap-appraisal_id,

end of i_data1.

SELECT PLAN_VERSION

APPRAISAL_ID

FROM HRHAP INTO TABLE IT_HRHAP_ID

WHERE AP_START_DATE = '20090101' AND

AP_END_DATE = '20091231'.

Even in the above code... In the selection there is no data from the HrHAP Table.

But in IT0025 there is data when we check through PA30.

[Former Member · Accepted solution]

Hi Satya,

Please use the below code and let me know. i have created a test program its fetching the appraisal document id..

Please make sure whether you have give the proper structure for the tables which ur using. If the data is present on the table, then i am sure this will fetch the data.

REPORT Z_HR_PD.

tables : pernr,

pa0001,

hrhap_appee,

hrhap.

Types: 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.

Data : IT_HRHAP TYPE TABLE OF X_HRHAP INITIAL SIZE 0.

SELECT PLAN_VERSION

APPRAISAL_ID

FROM HRHAP INTO TABLE IT_HRHAP

WHERE AP_START_DATE = '20090101' AND

AP_END_DATE = '20091231'.

write : 'emp'.

Thanks & Regards,

Ganesh R K

[Former Member · Accepted solution]

Dear Ganesh,

I am still Unable to get the data ...

Pasted the code given by you and just executed but no result....

Could you please let me know, what and where to check now to make things work properly.

Thanks & Regards,

Satya.

[Former Member · Accepted solution]

Hi Satya,

I have checked again its working properly for me i can able to fetch 5 datas from db.. Please change the date range and check. Else check without date range. Keep a break point before write statement and check the internal table.

If the problem is still there then please check the configuration of pd.

Thanks & Regards,

Ganesh R K

[Former Member · Accepted solution]

Dear Ganesh...

Let me check arround ... as I am faining to get the list.

Anyways... thanks a lot for your kind contributions....

Thanks & Regards,

Satya.

[Former Member]

Hi

When you are making a Z report for retrival of PD data what is the problem in this here.

The abaper will be able to help you on this.

R K

[Former Member]

Have some more doubts

[Former Member]

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

[sikindar_a]

https://forums.sdn.sap.com/click.jspa?searchID=22394225&messageID=7031958