Error con Function hr_read_infotype

[Irua]

Hola a todos,

El codigo me trae el siguiente error al llamar la function hr_read_infotype

Le anexo el codigo y el error esperando que me puedan ayudar :( gracias


Errores tiempo ejecucióCALL_FUNCTION_PARM_MISSING
Excepción CX_SY_DYN_CALL_PARAM_MISSING
ocurrido el 25.06.2007 a 11:19:02


Fehlender Parameter bei CALL FUNCTION.


¿Qué ha sucedido?


Beim Aufruf eines Funktionsbausteins wurde ein Parameter nicht
mitgegeben.
Error in ABAP application program.

The current ABAP program "Z_USUA_RED_LOTUS" had to be terminated because one of
the
statements could not be executed.

This is probably due to an error in the ABAP program.


¿Qué puede hacer?

Print out the error message (using the "Print" function)
and make a note of the actions and input that caused the
error.

To resolve the problem, contact your SAP system administrator.
You can use transaction ST22 (ABAP Dump Analysis) to view and administer
termination messages, especially those beyond their normal deletion
date.

Anál.errores

Es ist eine Ausnahme aufgetreten, die weiter unten näher erläutert wird.
Die Ausnahme, der die Klasse 'CX_SY_DYN_CALL_PARAM_MISSING' zugeordnet ist,
wurde nicht abgefangen und führte deshalb zu einem Laufzeitfehler.
Der Grund für die Ausnahme ist:

Bei Aufruf des Funktionsbausteins "HR_READ_INFOTYPE" wurde ein Parameter, de
laut Schnittstellenbeschreibung gebraucht wird, nicht mitgegeben.

Es handelt sich um den Parameter "PERNR".

Notas para corregir errores

You may able to find an interim solution to the problem
in the SAP note system. If you have access to the note system yourself,
use the following search criteria:

*********************************************************

El codigo:


TABLES: ZTHR_USUA_EMPL,PA0001,PA0002.

******* TABLA INTERNA******************
DATA: BEGIN OF T_DATA1 OCCURS 0,
BUKRS LIKE ZTHR_USUA_EMPL-BUKRS,
PERNR LIKE ZTHR_USUA_EMPL-PERNR,
USUARIO LIKE ZTHR_USUA_EMPL-USUARIO,
FEC_ING LIKE ZTHR_USUA_EMPL-FEC_ING,
TIP_CTA LIKE ZTHR_USUA_EMPL-TIP_CTA,
FECHA LIKE ZTHR_USUA_EMPL-FECHA,
HORA LIKE ZTHR_USUA_EMPL-HORA,
NACHN LIKE PA0002-NACHN,
ORGEH LIKE PA0001-ORGEH,
PERNR LIKE PA0002-PERNR,
END OF T_DATA1.


******* VARIABLE**********************

DATA: CONTADOR TYPE I.



SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-001.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 3(15) TEXT-003.
SELECT-OPTIONS: s_tsoc FOR ZTHR_USUA_EMPL-BUKRS.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 3(15) TEXT-004.
SELECT-OPTIONS: s_templ FOR ZTHR_USUA_EMPL-PERNR.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK b1.


SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE TEXT-002.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 3(16) TEXT-005.
PARAMETERS p_red AS CHECKBOX.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 3(16) TEXT-006.
PARAMETERS p_correo AS CHECKBOX.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK b2.

*IF p_red = 'x'.

* CALL FUNCTION 'SXPG_COMMAND_EXECUTE'.
*ENDIF.

START-OF-SELECTION.
PERFORM OBTENER_DATOS.
PERFORM IMPRIMIR_DATOS.

DATA: t_PA0002 LIKE PA0002 OCCURS 0 WITH HEADER LINE.

call function 'HR_READ_INFOTYPE'
EXPORTING
T_PERNR = S_TEMPL
INFTY = '0002'
TABLES
INFTY_TAB = T_PA0002
EXCEPTIONS
infty_not_found = 1
others = 2.


FORM OBTENER_DATOS.

SELECT BUKRS PERNR TIP_CTA
INTO T_DATA1
FROM ZTHR_USUA_EMPL
WHERE BUKRS IN S_TSOC
AND PERNR IN S_TEMPL.
APPEND T_DATA1.
ENDSELECT.

LOOP AT T_DATA1.
CONTADOR = SY-TABIX.

MODIFY T_DATA1 INDEX CONTADOR.

ENDLOOP.

ENDFORM.


FORM IMPRIMIR_DATOS.

WRITE:/1'SOCIEDAD', 15'NUM_EMPL',40 'NOMBRE', 60 'TIP0'.

LOOP AT T_DATA1.
WRITE:/1 T_DATA1-BUKRS,15 T_DATA1-PERNR, 40 T_DATA1-NACHN, 60 T_DATA1-TIP_CTA .
ENDLOOP.

ENDFORM.