HR_infotype_operation无法正常工作。 我添加下面的代码。 但是仍然无法更新

请提供帮助。

报告ZBDC_SCN1。
信息类型：0021,0412。
*-类型声明
类型：TY_pa0021的开始，
PERNR类型PERNR-PERNR，"人员编号
SUBTY类型 SUBTY，"子类型
ENAME TYPE ENAME，"员工名称
DESGN TYPE DESGN"，"名称 STRAS TYPE STRAS"，"街道和门牌号码
LOCAT TYPE LOCAT"，"第二条地址线
ORT01 TYPE ORT01，" TY_pa0021的城市
结尾，

数据：TY_pa0021的T_FILE类型标准表，
WA_FILE TY_pa0021。TYPE_TABLE数据：fs_return TYPE bapireturn1，"用于保存消息的结构
G_FILE TYPE IBIPPARMS-PATH。选择画面以块标题TEXT-003在块B3处开始。
parameters：P_FILE1类型STRING修改ID M2。 ""类似于rlgrap文件名的修改ID M2。
B3的选择屏幕结束。

在P_File1的值请求上处于选择屏幕。

调用函数'F4_FILENAME'< br>导出
PROGRAM_NAME = SYST-CPROG
DYNPRO_NUMBER = SYST-DYNNR
FIELD_NAME ='P_File1'
IMPORTING
FILE_NAME = G_File。
P_File1 = G_File。


开始选择。

* ---从桌面获取文本文件

调用功能'GUI_UPLOAD'
导出
FILENAME = P_File1
FILETYPE ='ASC'
HAS_FIELD_SEPARATOR ='X'
* HEADER_LENGTH = 0
* READ_BY_LINE ='X'
* DAT_MODE =''
*代码页=''
* IGNORE_CERR = ABAP_TRUE
*替换='#'
* CHECK_BOM =''
* VIRUS_SCAN_PROFILE =
* NO_AUTH_CHECK =''
* ISDOWNLOAD =''
*导入
*文件长度 =
*标题=
表
DATA_TAB = T_FILE
*更改
* ISSCANPERFORMED =''
例外情况
FILE_OPEN_ERROR = 1
FILE_READ_ERROR = 2
NO_BATCH = 3
GUI_REFUSE_FILETRANSFER = 4
INVALI D_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_D = = 13
DP_OUT_OF_MEMORY = 14
DISK_FULL = 15
DP_TIMEOUT = 16
其他= 17
。
如果SY-SUBRC <> 0.
消息ID SY-MSGID类型SY -MSGTY编号SY-MSGNO
与SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4。
ENDIF。

在T_FILe处循环进入WA_FILE。 >导出
编号= P0021-PERNR
导入
返回= FS_RETURN
。
如果FS_RETURN-id网元空间。
写：/'入队失败'。
退出。
ENDIF。
* ----------------------------------------- ------------------------------------- *
" CALL HR_INFOTYPE_OPERATION FM
*- -------------------------------------------------- --------------------------- *

通话功能'HR_INFOTYPE_OPERATION'
导出
INFTY ='0021 '
编号= P0021-PERNR
子类型= P0021-S UBTY
*对象ID =
* LOCKINDICATOR =
* VALENDITYEND =
* VALIDITYBEGIN =
* RECORDNUMBER =
RECORD = P0021
OPERATION ='MOD'
* TCLAS ='A'
DIALOG_MODE ='1'
* NOCOMMIT =
* VIEW_IDENTIFIER =
* SECONDARY_RECORD = RETURN = FS_RETURN。
" KEY = KEY1。< br>
如果FS_RETURN-id等于SPACE。
将WA_FILE附加到T_FILE。
ENDIF。
呼叫功能'BAPI_EMPLOYEE_DEQUEUE'
导出
号码= P0021-PERNR
导入< br> RETURN = FS_RETURN。

ENDLOOP。