F110 参数保存和重新运行录屏
**初始界面回车 PERFORM frm_dynpro USING 'SAPF110V' '0200' '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' '0200' 'X'. PERFORM frm_dynpro USING '' 'BDC_CURSOR' 'F110V-LAUFD'. PERFORM frm_dynpro USING '' 'BDC_OKCODE' '=PAR'. **填写运行截至日期 PERFORM frm_dynpro USING 'SAPF110V' '0200' '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' '0200' '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 = '084'. IF sy-subrc EQ 0. CLEAR:gt_bdcdata,gt_bdcdata[],gt_messtab,gt_messtab[], lv_msg. PERFORM frm_dynpro USING 'SAPF110V' '0200' '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' '1106' '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 = '084'. IF sy-subrc EQ 0. CONCATENATE gw_f110-zmsg 'S4成功!截止在'(163) 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 1. 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重新建议失败:'(162) lv_msg INTO gw_f110-zmsg. gw_f110-msgty = 'E'. gw_f110-zicon = '@02@'. gw_f110-zstep = 3. lv_flag = 'X'. ENDIF. ENDIF. ELSE. CONCATENATE gw_f110-zmsg 'S4修改参数失败:'(162) lv_msg INTO gw_f110-zmsg. gw_f110-msgty = 'E'. gw_f110-zicon = '@02@'. gw_f110-zstep = 3. lv_flag = 'X'. ENDIF. ENDIF.
本人常年接收SAP运维和远程项目,ECC,S/4HANA,CRM,WDA.
远程人天可谈,终身售后,有活请联系V信:18925782767(问问题免费,欢迎交流!)
!!请关注本人技术分享公众号:SAP翔子(可扫头像二维码)
每天分享新知识,博客文章也会陆续整理并迁移至公众号,与您一起共同学习