Retrieve long text from Infotype 0019 (Monitoring of Tasks) in HR
Posted by Arun - 29/01/09 at 06:01 pm
Infotype 0019 (Monitoring of Tasks) has 3 lines of comments that can be used to store comments regarding the tasks assigned to employee. This text is not directly stored in the database table PA0019. This data is stored in the ‘PCL1′ cluster with Cluster ID ‘TX’.
Since this text is stored in PCL1 cluster, READ_TEXT function module cannot be used to retrieve it. Instead, make use of one of the 2 ways mentioned below to retrieve this text.
- Make use of IMPORT ptext FROM DATABASE pcl1(tx) command
- Use RP-IMP-C1-TX macro stored in TRMAC table.
Sample program Using IMPORT statement
REPORT zhr_read_cluster.
TYPES:
BEGIN OF t_pa0019,
pernr TYPE persno,
subty TYPE subty,
objps TYPE objps,
sprps TYPE sprps,
endda TYPE endda,
begda TYPE begda,
seqnr TYPE seqnr,
itxex TYPE itxex,
END OF t_pa0019,BEGIN OF t_text,
line(72),
END OF t_text.DATA:
gt_pa0019 TYPE STANDARD TABLE OF t_pa0019,
gw_pa0019 TYPE t_pa0019,
ptext TYPE STANDARD TABLE OF t_text INITIAL SIZE 10,
gw_text TYPE t_text,
gw_key TYPE pskey.SELECTION-SCREEN BEGIN OF BLOCK abc WITH FRAME TITLE text-001.
PARAMETERS:
p_pernr LIKE pernr-pernr,
p_date LIKE sy-datum.
SELECTION-SCREEN END OF BLOCK abc.
START-OF-SELECTION.
SELECT pernr subty objps sprps endda begda seqnr itxex
FROM pa0019
INTO TABLE gt_pa0019
WHERE pernr EQ p_pernr.LOOP AT gt_pa0019 INTO gw_pa0019 WHERE itxex EQ ‘X’.
MOVE-CORRESPONDING gw_pa0019 TO gw_key.
gw_key-infty = ‘0019′.
IMPORT ptext FROM DATABASE pcl1(tx) ID gw_key.
LOOP AT ptext INTO gw_text.
WRITE: p_pernr, gw_text-line.
ENDLOOP.
ENDLOOP.
Sample Program using RP-IMP-C1-TX Macro
REPORT ZHUGE_LONGTEXTS .
TABLES: PCL1,PA0000,T582S.
DATA: TX-KEY LIKE PSKEY.
DATA: BEGIN OF TEXT-VERSION,
NUMMER TYPE X VALUE ‘02′,
END OF TEXT-VERSION.
DATA: BEGIN OF PTEXT OCCURS 200.
DATA: LINE(78).
DATA: END OF PTEXT.
DATA: KEY1 LIKE PCL1-SRTFD.
DATA: KEY2 LIKE PCL1-SRTFD.
DATA: FINAL_KEY LIKE PCL1-SRTFD.
DATA: BLANK(7).
DATA: BLANK1(3).
PARAMETERS: PERNR LIKE PA0000-PERNR,
INFTY LIKE T582S-INFTY,
SUBTY LIKE PA0000-SUBTY,
ENDDA LIKE PA0000-ENDDA,
BEGDA LIKE PA0000-BEGDA.IF SUBTY IS INITIAL.
CONCATENATE PERNR INFTY INTO KEY1.
CONCATENATE ENDDA BEGDA ‘000′ INTO KEY2.
CONCATENATE KEY1 KEY2 INTO FINAL_KEY SEPARATED BY BLANK.
ELSE.
*– if with subtypes
CONCATENATE PERNR INFTY SUBTY INTO KEY1.
CONCATENATE ENDDA BEGDA ‘000′ INTO KEY2.
CONCATENATE KEY1 KEY2 INTO FINAL_KEY SEPARATED BY BLANK1.
ENDIF.MOVE FINAL_KEY TO TX-KEY.
RP-IMP-C1-TX.LOOP AT PTEXT.
WRITE:/ PTEXT.
ENDLOOP.
No Related Posts.
