problem in infotype 0591?

[Former Member]

can any one done uploading data into the table control of infotype 0591?

To update nominations of employes n to SAP

kindly send the with code?

solution rewarded.

[Former Member]

can any one done uploading data into the table control of infotype 0591?

To update nominations of employes n to SAP

kindly send the with code?

solution rewarded.

[former_member60316]

Hi salman ,

Find the code attached . The functionality of HR_INFOTYPE_OPERATION is ysed here .

Hope this helps .

REPORT Zb0591 MESSAGE-ID zhr.

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

• TABLES *

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

TABLES :pa0000,p0591.

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

• TYPES *

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

TYPES : BEGIN OF t_upload,

pernr_old TYPE string,

pernr_new TYPE string,

subty TYPE string,

begda TYPE string,

endda TYPE string,

nam01 TYPE string,

ADD01 type string,

REL01 type string,

DAT01 type string,

SHP01 type string,

GRA01 type string,

nam02 TYPE string,

ADD02 type string,

REL02 type string,

DAT02 type string,

SHP02 type string,

GRA02 type string,

nam03 TYPE string,

ADD03 type string,

REL03 type string,

DAT03 type string,

SHP03 type string,

GRA03 type string,

nam04 TYPE string,

ADD04 type string,

REL04 type string,

DAT04 type string,

SHP04 type string,

GRA04 type string,

nam05 TYPE string,

ADD05 type string,

REL05 type string,

DAT05 type string,

SHP05 type string,

GRA05 type string,

END OF t_upload.

TYPES : BEGIN OF t_pa0591,

pernr TYPE pa0014-pernr,

subty(4) TYPE c,

begda TYPE char10,

endda TYPE char10,

nam01 TYPE pa0591-nam01,

add01 TYPE pa0591-add01,

REL01 type pa0591-REL01,

DAT01 type char10,

SHP01(7) type c,

GRA01 type pa0591-gra01,

nam02 TYPE pa0591-nam02,

add02 TYPE pa0591-add02,

REL02 type pa0591-REL02,

DAT02 type char10,

SHP02(7) type c,

GRA02 type pa0591-gra02,

nam03 TYPE pa0591-nam03,

add03 TYPE pa0591-add03,

REL03 type pa0591-REL03,

DAT03 type char10,

SHP03(7) type c,

GRA03 type pa0591-gra03,

nam04 TYPE pa0591-nam04,

add04 TYPE pa0591-add04,

REL04 type pa0591-REL04,

DAT04 type char10,

SHP04(7) type c,

GRA04 type pa0591-gra04,

nam05 TYPE pa0591-nam05,

add05 TYPE pa0591-add05,

REL05 type pa0591-REL05,

DAT05 type char10,

SHP05(7) type c,

GRA05 type pa0591-gra05,

END OF t_pa0591.

TYPES : BEGIN OF t_pa0001,

pernr TYPE pa0001-pernr,

abkrs TYPE pa0001-abkrs,

bukrs TYPE pa0001-bukrs,

END OF t_pa0001.

• Internal table to store hiring action data.

TYPES : BEGIN OF t_pa0000 ,

pernr LIKE pa0000-pernr,

massn LIKE pa0000-massn,

stat2 LIKE pa0000-stat2,

END OF t_pa0000.

TYPES: BEGIN OF t_error,

pernr_old TYPE string,

pernr_new TYPE string,

begda TYPE string,

endda TYPE string,

lgart TYPE string,

betrg TYPE string,

zuord TYPE string,

END OF t_error.

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

• INTERNAL TABLES *

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

DATA : gt_pa0591 TYPE STANDARD TABLE OF t_pa0591,

gt_pa0001 TYPE STANDARD TABLE OF t_pa0001,

gt_pa0000 TYPE STANDARD TABLE OF t_pa0000,

gt_upload TYPE STANDARD TABLE OF t_upload,

gt_error TYPE STANDARD TABLE OF t_error..

DATA: BEGIN OF bdcdata OCCURS 0.

INCLUDE STRUCTURE bdcdata.

DATA: END OF bdcdata.

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

• WORK AREA *

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

DATA : gw_pa0591 TYPE t_pa0591,

gw_pa0001 TYPE t_pa0001,

gw_pa0000 TYPE t_pa0000,

gw_upload TYPE t_upload,

gw_error TYPE t_error.

data : gw_return like BAPIRETURN1 .

data :gw_p0591 like p0591.

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

• GLOBAL VARIABLES *

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

DATA : gv_fname TYPE string,

gv_ftype TYPE char10,

gv_pernr LIKE pa0000-pernr,

gv_name TYPE string,

gv_ext TYPE string,

gv_error TYPE string,

gv_day(2) TYPE c,

gv_year(4) TYPE c,

gv_mon(2) TYPE c,

gv_date TYPE p0028-exdat,

gv_wtfld TYPE string,

gv_wtfld1 TYPE string,

gv_success(10) type c,

gv_failure(10) type c.

.

data: l_bapireturn like bapireturn1.

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

• CONSTANTS

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

DATA : gc_session TYPE d0100-mapn VALUE 'ZHRPYB0591',

gc_tcode TYPE tstc-tcode VALUE 'PA30',

gc_err(4) TYPE c VALUE '_err',

gc_txt(4) TYPE c VALUE '.txt'.

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

• SELECTION SCREEN *

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

SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.

SELECTION-SCREEN SKIP.

PARAMETERS: p_fname LIKE rlgrap-filename OBLIGATORY,

p_ftype LIKE rlgrap-filetype OBLIGATORY DEFAULT 'ASC'.

SELECTION-SCREEN END OF BLOCK blk1.

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

• AT SELECTION SCREEN *

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

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_fname.

CALL FUNCTION 'F4_FILENAME'

EXPORTING

program_name = syst-cprog

dynpro_number = syst-dynnr

• FIELD_NAME =

IMPORTING

file_name = p_fname.

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

• START OF SELECTION *

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

START-OF-SELECTION.

MOVE : p_fname TO gv_fname,

p_ftype TO gv_ftype.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

filename = gv_fname

filetype = gv_ftype

has_field_separator = 'X'

TABLES

data_tab = gt_upload

EXCEPTIONS

file_open_error = 1

file_read_error = 2

no_batch = 3

gui_refuse_filetransfer = 4

invalid_type = 5

no_authority = 6

unknown_error = 7

bad_data_format = 8

header_not_allowed = 9

separator_not_allowed = 10

header_too_long = 11

unknown_dp_error = 12

access_denied = 13

dp_out_of_memory = 14

disk_full = 15

dp_timeout = 16

OTHERS = 17.

IF sy-subrc <> 0.

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

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

ENDIF.

LOOP AT gt_upload INTO gw_upload.

MOVE :gw_upload-pernr_new to gw_pa0591-pernr,

gw_upload-subty to gw_pa0591-subty,

gw_upload-begda to gw_pa0591-begda,

gw_upload-endda to gw_pa0591-endda,

gw_upload-nam01 to gw_pa0591-nam01,

gw_upload-ADD01 to gw_pa0591-ADD01,

gw_upload-REL01 to gw_pa0591-REL01,

gw_upload-DAT01 to gw_pa0591-DAT01,

gw_upload-SHP01 to gw_pa0591-SHP01,

gw_upload-GRA01 to gw_pa0591-GRA01,

gw_upload-nam02 to gw_pa0591-nam02,

gw_upload-ADD02 to gw_pa0591-ADD02,

gw_upload-REL02 to gw_pa0591-REL02,

gw_upload-DAT02 to gw_pa0591-DAT02,

gw_upload-SHP02 to gw_pa0591-SHP02,

gw_upload-GRA02 to gw_pa0591-GRA02,

gw_upload-nam03 to gw_pa0591-nam03,

gw_upload-ADD03 to gw_pa0591-ADD03,

gw_upload-REL03 to gw_pa0591-REL03,

gw_upload-DAT03 to gw_pa0591-DAT03,

gw_upload-SHP03 to gw_pa0591-SHP03,

gw_upload-GRA03 to gw_pa0591-GRA03,

gw_upload-nam04 to gw_pa0591-nam04,

gw_upload-ADD04 to gw_pa0591-ADD04,

gw_upload-REL04 to gw_pa0591-REL04,

gw_upload-DAT04 to gw_pa0591-DAT04,

gw_upload-SHP04 to gw_pa0591-SHP04,

gw_upload-GRA04 to gw_pa0591-GRA04,

gw_upload-nam05 to gw_pa0591-nam05,

gw_upload-ADD05 to gw_pa0591-ADD05,

gw_upload-REL05 to gw_pa0591-REL05,

gw_upload-DAT05 to gw_pa0591-DAT05,

gw_upload-SHP05 to gw_pa0591-SHP05,

gw_upload-GRA05 to gw_pa0591-GRA05.

APPEND gw_pa0591 TO gt_pa0591.

CLEAR :gw_pa0591,

gw_upload.

ENDLOOP.

• *For all the records read from the application server file, get their hiring information

SELECT pernr massn stat2 INTO TABLE gt_pa0000

FROM pa0000

FOR ALL ENTRIES IN gt_pa0591

WHERE pernr = gt_pa0591-pernr

AND stat2 = '3'

AND massn = '01'.

IF sy-subrc = 0.

SORT gt_pa0000 BY pernr.

ENDIF.

• ENDIF.

*

• PERFORM open_group.

LOOP AT gt_pa0591 INTO gw_pa0591.

split gw_pa0591-dat01 at '.' into gv_day gv_mon gv_year.

concatenate gv_year gv_mon gv_day into gw_p0591-dat01.

clear : gv_day,

gv_mon,

gv_year.

split gw_pa0591-dat02 at '.' into gv_day gv_mon gv_year.

concatenate gv_year gv_mon gv_day into gw_p0591-dat02.

clear : gv_day,

gv_mon,

gv_year.

split gw_pa0591-dat03 at '.' into gv_day gv_mon gv_year.

concatenate gv_year gv_mon gv_day into gw_p0591-dat03.

clear : gv_day,

gv_mon,

gv_year.

split gw_pa0591-dat04 at '.' into gv_day gv_mon gv_year.

concatenate gv_year gv_mon gv_day into gw_p0591-dat04.

clear : gv_day,

gv_mon,

gv_year.

split gw_pa0591-dat05 at '.' into gv_day gv_mon gv_year.

concatenate gv_year gv_mon gv_day into gw_p0591-dat05.

clear : gv_day,

gv_mon,

gv_year.

move: gw_pa0591-pernr to gw_p0591-pernr,

gw_pa0591-subty to gw_p0591-subty ,

• gw_pa0591-begda to gw_p0591-begda ,

• gw_pa0591-endda to gw_p0591-endda,

gw_pa0591-nam01 to gw_p0591-nam01,

gw_pa0591-ADD01 to gw_p0591-add01,

gw_pa0591-REL01 to gw_p0591-rel01,

• gw_pa0591-DAT01 to gw_p0591-dat01,

gw_pa0591-SHP01 to gw_p0591-shp01,

gw_pa0591-GRA01 to gw_p0591-gra01,

gw_pa0591-nam02 to gw_p0591-nam02,

gw_pa0591-ADD02 to gw_p0591-add02,

gw_pa0591-REL02 to gw_p0591-rel02,

• gw_pa0591-DAT02 to gw_p0591-dat02,

gw_pa0591-SHP02 to gw_p0591-shp02,

gw_pa0591-GRA02 to gw_p0591-gra02,

gw_pa0591-nam03 to gw_p0591-nam03,

gw_pa0591-ADD03 to gw_p0591-add03,

gw_pa0591-REL03 to gw_p0591-rel03,

• gw_pa0591-DAT03 to gw_p0591-dat03,

gw_pa0591-SHP03 to gw_p0591-shp03,

gw_pa0591-GRA03 to gw_p0591-gra03,

gw_pa0591-nam04 to gw_p0591-nam04,

gw_pa0591-ADD04 to gw_p0591-add04,

gw_pa0591-REL04 to gw_p0591-rel04,

• gw_pa0591-DAT04 to gw_p0591-dat04,

gw_pa0591-SHP04 to gw_p0591-shp04,

gw_pa0591-GRA04 to gw_p0591-gra04,

gw_pa0591-nam05 to gw_p0591-nam05,

gw_pa0591-ADD05 to gw_p0591-add05,

gw_pa0591-REL05 to gw_p0591-rel05,

• gw_pa0591-DAT05 to gw_p0591-dat05,

gw_pa0591-SHP05 to gw_p0591-shp05,

gw_pa0591-GRA05 to gw_p0591-gra05.

gw_p0591-infty = '0591'.

split gw_pa0591-begda at '.' into gv_day gv_mon gv_year.

concatenate gv_year gv_mon gv_day into gw_p0591-begda.

clear : gv_day,

gv_mon,

gv_year.

split gw_pa0591-endda at '.' into gv_day gv_mon gv_year.

concatenate gv_year gv_mon gv_day into gw_p0591-endda.

clear : gv_day,

gv_mon,

gv_year.

call function 'BAPI_EMPLOYEE_ENQUEUE'

exporting

number = gw_p0591-pernr

importing

return = l_bapireturn.

if l_bapireturn is initial.

CALL FUNCTION 'HR_INFOTYPE_OPERATION'

EXPORTING

infty = gw_p0591-infty

number = gw_p0591-pernr

SUBTYPE = gw_p0591-subty

• OBJECTID =

• LOCKINDICATOR =

VALIDITYEND = gw_p0591-endda"'20070401'

VALIDITYBEGIN = gw_p0591-begda"'20070101'

• RECORDNUMBER =

record = gw_p0591

operation = 'INS'

• TCLAS = 'A'

DIALOG_MODE = '0'

• NOCOMMIT =

• VIEW_IDENTIFIER =

• SECONDARY_RECORD =

IMPORTING

RETURN = gw_return

• KEY =

.

call function 'BAPI_EMPLOYEE_DEQUEUE'

exporting

number = gw_pa0591-pernr

importing

return = l_bapireturn.

endif.

ENDLOOP.

Rewards if usefule.

Regards,

SureshP

[Former Member]

Dear Suresh,

I had done this requirement through BDC it is working fine.

Thanks for ur valuable reply.

Regards,

Salman.