2020-09-22 16:49发布
点击此处---> 群内免费提供SAP练习系统（在群公告中）加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）我有一个报告程序，该程序使用开放... 显示全部
加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）
我有一个报告程序，该程序使用开放数据集语法从程序中指定的文件夹路径（如上载文件夹）中读取文件，然后它将对其进行处理并将文件移动到其他位置。
报告程序在前台也可以正常工作，它在后台也可以工作，但是在后台处理过程中上传文件夹中的文件很少。
我已经使用JDBG调试了后台作业，它在后台的调试模式下工作正常。
请帮助。
纳马杰夫。
嗨Namadev，
在下面创建FM并实现ABAP代码并进行测试。
*局部变量
数据：lv_buffer TYPE int4，
lv_buflen TYPE i。
*开放源文件并开始复制
在BINARY模式下输入OPEN DATASET iv_file_path_s。
IF sy-subrc NE 0。
*例外
RAISE ex_open_file_source。
ENDIF。
*打开目标文件并开始写入
OPEN DATASET iv_file_path_t用于二进制模式下的输出。
RAISE ex_open_file_target。
*读取和传输
做。
清除：lv_buffer。
*读取数据集
读取数据集iv_file_path_s INTO lv_buffer长度lv_buflen。
CASE sy-subrc。
何时0。
*传输源文件
将lv_buffer传输到iv_file_path_t长度lv_buflen。
RAISE ex_write_block_target。
何时4。
*文件结尾
退出。
别人的时候。
RAISE ex_read_block_source。
结束。
ENDDO。
*关闭DataSet源文件
关闭数据集iv_file_path_s。
RAISE ex_close_file_source。
*关闭数据集目标文件
关闭数据集iv_file_path_t。
RAISE ex_close_file_target。
*删除DataSet文件源
删除数据集iv_file_path_s。
RAISE ex_delete_dile_source。
此致
最多设置5个标签!
{var%20f='http://v.t.sina.com.cn/share/share.php?appkey=1515056452',u=z||d.location,p=['&url=',e(u),'&title=',e(t||d.title),'&source=',e(r),'&sourceUrl=',e(l),'&content=',c||'gb2312','&pic=',e(p||'')].join('');function%20a(){if(!window.open([f,p].join(''),'mb',['toolbar=0,status=0,resizable=1,width=440,height=430,left=',(s.width-440)/2,',top=',(s.height-430)/2].join('')))u.href=[f,p].join('');};if(/Firefox/.test(navigator.userAgent))setTimeout(a,0);else%20a();})(screen,document,encodeURIComponent,'','','http://www.easysap.com/data/attach/logo/logo.png', '推荐 浮生未央 的问题《计划的程序在backgroung可以正常运行，但在前景不佳》','https://www.easysap.com/answer/96599/261604.html','页面编码gb2312|utf-8默认gb2312'));){kind=link}
嗨Namadev，
在下面创建FM并实现ABAP代码并进行测试。
*局部变量
数据：lv_buffer TYPE int4，
lv_buflen TYPE i。
*开放源文件并开始复制
在BINARY模式下输入OPEN DATASET iv_file_path_s。
IF sy-subrc NE 0。
*例外
RAISE ex_open_file_source。
ENDIF。
*打开目标文件并开始写入
OPEN DATASET iv_file_path_t用于二进制模式下的输出。
IF sy-subrc NE 0。
*例外
RAISE ex_open_file_target。
ENDIF。
*读取和传输
做。
清除：lv_buffer。
*读取数据集
读取数据集iv_file_path_s INTO lv_buffer长度lv_buflen。
CASE sy-subrc。
何时0。
*传输源文件
将lv_buffer传输到iv_file_path_t长度lv_buflen。
IF sy-subrc NE 0。
*例外
RAISE ex_write_block_target。
ENDIF。
何时4。
*文件结尾
退出。
别人的时候。
*例外
RAISE ex_read_block_source。
结束。
ENDDO。
*关闭DataSet源文件
关闭数据集iv_file_path_s。
IF sy-subrc NE 0。
*例外
RAISE ex_close_file_source。
ENDIF。
*关闭数据集目标文件
关闭数据集iv_file_path_t。
IF sy-subrc NE 0。
*例外
RAISE ex_close_file_target。
ENDIF。
*删除DataSet文件源
删除数据集iv_file_path_s。
IF sy-subrc NE 0。
*例外
RAISE ex_delete_dile_source。
ENDIF。
此致
一周热门 更多>