topic Re: Maintain infotype in Application Development and Automation Discussions

Maintain infotype

Former Member — Wed, 13 Feb 2008 10:04:17 GMT

Hello people,

I need a fonction or a code to modify or update specific fields in an infotype !!!

Thanks.

Re: Maintain infotype

Former Member — Wed, 13 Feb 2008 10:13:16 GMT

PA30 is the T-code to Create/Modify Infotypes records.

PA20 is to View Infotype Records.

Regards

Re: Maintain infotype

Former Member — Wed, 13 Feb 2008 10:16:12 GMT

USE FM

HR_INFOTYPE_OPERATION ...

Re: Maintain infotype

Former Member — Wed, 13 Feb 2008 10:27:29 GMT

Thanks but it is for infotype 1035 , so I need a general fonction or a code ! For example a fonction which use a table to update an infotype !!!

Re: Maintain infotype

amit_khare — Wed, 13 Feb 2008 10:35:03 GMT

For 1035 use RH_UPDATE_INFTY.

Re: Maintain infotype

Former Member — Wed, 13 Feb 2008 12:00:16 GMT

ok, I am going to try "RH_UPDATE_INFTY" do have a axemple with this fonction !!!

Re: Maintain infotype

Former Member — Wed, 13 Feb 2008 12:14:39 GMT

DATA: lt1035_mod LIKE p1035 OCCURS 0 WITH HEADER

LINE,

CALL FUNCTION 'RH_UPDATE_INFTY'

EXPORTING

vtask = 'D'

TABLES

innnn = lt1035_mod

EXCEPTIONS

OTHERS = 1.

Re: Maintain infotype

Former Member — Wed, 13 Feb 2008 13:26:10 GMT

Here is my code and I have this error RAPID FORM INITIAL !!!! What is wrong ?

DATA: li_schedule LIKE p1035 OCCURS 0 WITH HEADER LINE,

lw_schedule LIKE LINE OF li_schedule.

li_schedule-plvar = lw_course-plvar.

li_schedule-otype = lw_course-otype.

li_schedule-objid = lw_course-objid.

li_schedule-begda = lw_course-begda.

li_schedule-endda = lw_course-endda.

li_schedule-infty = '1035'.

li_schedule-ndays = '3'.

li_schedule-nhours = '10'.

Append li_schedule.

CALL FUNCTION 'RH_UPDATE_INFTY'

EXPORTING

vtask ='S'

* ORDER_FLG = 'X'

* COMMIT_FLG = 'X'

* AUTHY = 'X'

* PPPAR_IMP =

* OLD_TABNR_NEW_LANGU = ''

* REPID = ' '

* FORM = ' '

* KEEP_LUPD =

* WORKF_ACTV = 'X'

tables

innnn = li_schedule

* ILFCODE =

* EXCEPTIONS

* ERROR_DURING_UPDATE = 1

* NO_AUTHORIZATION = 2

* REPID_FORM_INITIAL = 3

* CORR_EXIT = 4

* OTHERS = 5

IF sy-subrc <> 0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.