**初始界面回车

PERFORM frm_dynpro USING 'SAPF110V' '' 'X'.

PERFORM frm_dynpro USING '' 'BDC_CURSOR' 'F110V-LAUFD'.

PERFORM frm_dynpro USING '' 'BDC_OKCODE' '/00'.

PERFORM frm_dynpro USING '' 'F110V-LAUFD' gw_f110-laufd."record-LAUFD_001.

PERFORM frm_dynpro USING '' 'F110V-LAUFI' gw_f110-laufi."record-LAUFI_002.

**点击参数视图

PERFORM frm_dynpro USING 'SAPF110V' '' 'X'.

PERFORM frm_dynpro USING '' 'BDC_CURSOR' 'F110V-LAUFD'.

PERFORM frm_dynpro USING '' 'BDC_OKCODE' '=PAR'.

**填写运行截至日期

PERFORM frm_dynpro USING 'SAPF110V' '' 'X'.

PERFORM frm_dynpro USING '' 'BDC_CURSOR' 'F110C-GRDAT'.

PERFORM frm_dynpro USING '' 'BDC_OKCODE' '/00'.

PERFORM frm_dynpro USING '' 'F110C-GRDAT' sy-datum."record-GRDAT_004.

**返回

PERFORM frm_dynpro USING 'SAPF110V' '' 'X'.

PERFORM frm_dynpro USING '' 'BDC_OKCODE' '/EBCK'.

IF gt_bdcdata[] IS NOT INITIAL.

CALL TRANSACTION 'F110' USING gt_bdcdata

MODE p_mode

UPDATE 'S'

MESSAGES INTO gt_messtab.

READ TABLE gt_messtab WITH KEY msgid = 'F0' msgnr = ''.

IF sy-subrc EQ .

CLEAR:gt_bdcdata,gt_bdcdata[],gt_messtab,gt_messtab[],

lv_msg.

PERFORM frm_dynpro USING 'SAPF110V' '' 'X'.

PERFORM frm_dynpro USING '' 'BDC_CURSOR' 'F110V-LAUFD'.

PERFORM frm_dynpro USING '' 'BDC_OKCODE' '=VOEX'.

PERFORM frm_dynpro USING '' 'F110V-LAUFD' gw_f110-laufd.

PERFORM frm_dynpro USING '' 'F110V-LAUFI' gw_f110-laufi.

PERFORM frm_dynpro USING 'SAPF110V' '' 'X'.

PERFORM frm_dynpro USING '' 'BDC_CURSOR' 'F110V-XSTRF'.

PERFORM frm_dynpro USING '' 'BDC_OKCODE' '=EP'.

PERFORM frm_dynpro USING '' 'F110V-XSTRF' 'X'.

IF gt_bdcdata[] IS NOT INITIAL.

CALL TRANSACTION 'F110' USING gt_bdcdata

MODE p_mode

UPDATE 'S'

MESSAGES INTO gt_messtab.

READ TABLE gt_messtab WITH KEY msgid = 'F0' msgnr = ''.

IF sy-subrc EQ .

CONCATENATE gw_f110-zmsg 'S4成功！截止在'() sy-datum

INTO gw_f110-zmsg SEPARATED BY space.

gw_f110-zstep = lv_i.

gw_f110-zicon = '@01@'.

gw_f110-msgty = 'S'.

lv_flag = lv_i.

EXIT.

ELSE.

READ TABLE gt_messtab INDEX .

LOOP AT gt_messtab.

CALL FUNCTION 'MESSAGE_TEXT_BUILD'

EXPORTING

msgid = gt_messtab-msgid

msgnr = gt_messtab-msgnr

msgv1 = gt_messtab-msgv1

msgv2 = gt_messtab-msgv2

msgv3 = gt_messtab-msgv3

msgv4 = gt_messtab-msgv4

IMPORTING

message_text_output = lv_msg.

ENDLOOP.

CONCATENATE gw_f110-zmsg 'S4重新建议失败：'() lv_msg INTO gw_f110-zmsg.

gw_f110-msgty = 'E'.

gw_f110-zicon = '@02@'.

gw_f110-zstep = .

lv_flag = 'X'.

ENDIF.

ENDIF.

ELSE.

CONCATENATE gw_f110-zmsg 'S4修改参数失败：'() lv_msg INTO gw_f110-zmsg.

gw_f110-msgty = 'E'.

gw_f110-zicon = '@02@'.

gw_f110-zstep = .

lv_flag = 'X'.

ENDIF.

ENDIF.