Textos en Infotipos

Si bien leer los textos de los infotipos, es bastante sencillo, la mayoría de personas no saben como hacerlo, y se pasan horas o días buscando una solución...Este código aliviará mucho su trabajo.

REPORT Z_ATG_DUMMY.

DATA: BEGIN OF PSKEY OCCURS 1.
      INCLUDE STRUCTURE PSKEY.
DATA: END OF PSKEY.

DATA: INFOTYPE_TEXT LIKE HRWPC_S_INFOTYPE_TEXT
      OCCURS 0 WITH HEADER LINE.

PSKEY-PERNR = '00000003'.
PSKEY-INFTY = '0001'.
PSKEY-BEGDA = '20050201'.
PSKEY-ENDDA = '99991231'.

CALL FUNCTION 'HRWPC_RFC_IT0XXX_TEXT_GET'
  EXPORTING
    PSKEY               = PSKEY
  TABLES
    INFOTYPE_TEXT       = INFOTYPE_TEXT.

LOOP AT INFOTYPE_TEXT.
  WRITE:/ INFOTYPE_TEXT-TEXTLINE.
ENDLOOP.

Saludos,

Blag.