一步步实现ABAP后台导入EXCEL到数据库【2】
前文:http://www.cnblogs.com/hhelibeb/p/5912330.html
既然后台作业只能在应用服务器运行,那么,我们可以先将要上传的数据保存在应用服务器中,之后再以后台作业的形式导入数据库。这里需要使用的关键字是OPEN DATASET。
1. OPEN DATASET
Syntax
OPEN DATASET dset
FOR { INPUT | OUTPUT | APPENDING | UPDATE }
IN { { BINARY MODE }
| { TEXT MODE ENCODING { DEFAULT
| {UTF-8 [SKIPPING|WITH BYTE-ORDER MARK]}
| NON-UNICODE }
[WITH {NATIVE|SMART|UNIX|WINDOWS} LINEFEED] }
| { LEGACY BINARY MODE [{BIG|LITTLE} ENDIAN]
[CODE PAGE cp] }
| { LEGACY TEXT MODE [{BIG|LITTLE} ENDIAN]
[CODE PAGE cp]
[WITH {NATIVE|SMART|UNIX|WINDOWS} LINEFEED] } }
[AT POSITION pos]
[TYPE attr]
[FILTER opcom]
[MESSAGE msg]
[IGNORING CONVERSION ERRORS]
[REPLACEMENT CHARACTER rc].
效果
打开由dset指定的应用服务器上的文件。
附加项
- FOR { INPUT | OUTPUT | APPENDING | UPDATE }
以输入、输出、追加、更新模式打开文件.
- IN [LEGACY] { BINARY | TEXT } MODE
以普通的二进制或者文本模式打开文件, 或者以LEGACY二进制或文本模式. LEGACY模式可以指定字节顺序和内码表。在Unicode系统中,LEGACY关键字可能会影响到以东亚文字写入的字段的内容。因此,建议只在没有使用LEGACY附加项的打开的文本中写入内容。
- ENCODING {DEFAULT|UTF-8|NON-UNICODE}
决定了使用何种字符表现形式来操作文件的内容:DEFAULT -
Unicode系统中的UTF-8; 非Unicode系统则不转换.NON-UNICODE -在Unicode系统中,内码表与非Unicode系统文本环境(text evirionment)一致; 非Unicode系统则不转换.
tips: text evirionment
text evirionment是ABAP程序的运行时环境的一部分,由语言、locale和系统内码表组成。同一个内部会话中的所有程序有一个共同的文本环境。默认情况下,内部会话的text environment由登录语言决定,并且也可以被语句set locale指定。当前的text environment包含在系统字段sy-langu中 |
- SKIPPING|WITH BYTE-ORDER MARK
控制UTF-8文件中的字节顺序标记(BOM)操作.
- {BIG|LITTLE} ENDIAN
决定文件中数值型数据对象被操作的顺序.
- CODE PAGE cp
决定文件中字符型数据对象以指定的内码表cp操作.
- AT POSITION pos
将文件指针设置到指定的位置pos.
- TYPE attr
为文件设置操作系统参数,或者控制文本文件的行尾选项.
- FILTER opcom
将一个语句传输给操作系统.
例子:
创建一个文件test.dat。TYPE指定的文件属性是操作系统IBM i5/OS(在OS/400之前)中的。
OPEN DATASET 'test.dat'
TYPE 'lrecl=80, blksize=8000, recfm=FB'
FOR OUTPUT IN TEXT MODE
ENCODING DEFAULT
WITH SMART LINEFEED.
- MESSAGE msg
如果发生了错误,可以在msg中返回操作系统信息.
- IGNORING CONVERSION ERRORS
如果会话错误发生,该语句可以阻止异常.
- REPLACEMENT CHARACTER rc
指定一个字符rc替换无法转换的字符。如果未指定rc,则使用“#”.
使用OPEN DATASET来实现上传数据到应用服务器,即程序中的output_data子进程:
*&---------------------------------------------------------------------*
*& Form OUTPUT_DATA
*&---------------------------------------------------------------------*
* 将数据写入到Applacation Server
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM output_data . DATA s_file TYPE rlgrap-filename. PERFORM generate_filename_in_server USING s_file. OPEN DATASET s_file FOR OUTPUT IN TEXT MODE ENCODING DEFAULT. IF sy-subrc = . LOOP AT itab INTO wa. TRANSFER wa TO s_file. IF sy-subrc <> .
MESSAGE 'ERROR!!' TYPE 'E'.
ENDIF. ENDLOOP. CLOSE DATASET s_file. WRITE: /'写入服务器文件成功'. PERFORM submit_insert_program USING s_file. "调用导入程序 ELSE. WRITE: /'写入服务器文件失败' . ENDIF. ENDFORM.
*&---------------------------------------------------------------------*
*& Form GET_file_name_in_server
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM generate_filename_in_server USING s_file . DATA s_name TYPE string. CALL FUNCTION 'SO_SPLIT_FILE_AND_PATH'
EXPORTING
full_name = p_source
IMPORTING
stripped_name = s_name
* FILE_PATH =
EXCEPTIONS
x_error =
OTHERS = .
IF sy-subrc <> .
* Implement suitable error handling here
ENDIF. GET TIME. CONCATENATE '/tmp/' sy-datum sy-uzeit s_name '.txt' INTO s_file. TRANSLATE s_file TO LOWER CASE. ENDFORM.
2,实现导入程序
上传到服务器的程序已经实现,现在新建一个程序ztest_import,实现导入到数据库的功能。同样使用OPEN DATASET语句来实现:
REPORT ztest_import. SELECTION-SCREEN: BEGIN OF BLOCK blk.
PARAMETERS: s_file TYPE rlgrap-filename .
SELECTION-SCREEN END OF BLOCK blk. DATA: BEGIN OF wa,
col1() TYPE c,
col2() TYPE c,
col3() TYPE c,
END OF wa. FIELD-SYMBOLS: <hex_container> TYPE c. TRANSLATE s_file TO LOWER CASE. OPEN DATASET s_file FOR INPUT IN TEXT MODE ENCODING DEFAULT. IF sy-subrc = . ASSIGN wa TO <hex_container> CASTING. DO.
"由于没有使用MAXIMUM LENGTH选项,所以每次读取的最大字节数
"由<hex_container>所占字节数决定
READ DATASET s_file INTO <hex_container>. IF sy-subrc = . *"ztestly是在SE11中新建的表,结构和上传的excel相符,过程省略 INSERT ztestly FROM wa. ELSE. EXIT. ENDIF. ENDDO. CLOSE DATASET s_file. DELETE DATASET s_file. "成功执行导入后,删除服务器上的文件 ELSE. MESSAGE 'open failed' TYPE 'I
3,在上传程序中调用导入程序
如果你看过我博客中有关submit的文章,可能会记得,submit语句是可以安排程序作为后台作业进行的。下面我们就使用这个特性,在上传程序ztest_upload的子程序submit_insert_program中调用导入程序ztest_import,代码如下:
*&---------------------------------------------------------------------*
*& Form SUBMIT_INSERT_PROGRAM
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM submit_insert_program USING s_file. DATA: w_jobid TYPE tbtcjob-jobcount,
w_stepnm TYPE tbtcjob-stepcount,
p_job_nm TYPE tbtcjob-jobname VALUE 'ZTEST_IMPORT'. CLEAR:w_jobid. CALL FUNCTION 'JOB_OPEN'
EXPORTING
* DELANFREP = ' '
* JOBGROUP = ' '
jobname = p_job_nm
* SDLSTRTDT = NO_DATE
* SDLSTRTTM = NO_TIME
IMPORTING
jobcount = w_jobid
EXCEPTIONS
cant_create_job =
invalid_job_data =
jobname_missing =
OTHERS = . SUBMIT ztest_import WITH s_file = s_file VIA JOB p_job_nm NUMBER w_jobid AND RETURN. IF sy-subrc = . CALL FUNCTION 'JOB_CLOSE'
EXPORTING
jobcount = w_jobid
jobname = p_job_nm
strtimmed = 'X'
EXCEPTIONS
cant_start_immediate =
invalid_startdate =
jobname_missing =
job_close_failed =
job_nosteps =
job_notex =
lock_failed =
OTHERS = . IF sy-subrc <> .
WRITE: /'后台作业发布失败'.
ELSE.
WRITE: /'后台作业发布成功'.
ENDIF. ENDIF. ENDFORM.
运行zterst_upload,上传一个有效的excel文件,我们便可以在上一篇文章提到的自有作业界面看到后台作业执行成功,并且在SE16中查到自建表zestly中已经插入了相关数据。如果要改变后台作业的计划时间,可以在JOB_CLOSE函数中设置相关参数。
一步步实现ABAP后台导入EXCEL到数据库【2】的更多相关文章
- 一步步实现ABAP后台导入EXCEL到数据库【3】
在一步步实现ABAP后台导入EXCEL到数据库[2]里,我们已经实现计划后台作业将数据导入数据库的功能.但是,这只是针对一个简单的自定义结构的导入程序.在实践应用中,面对不同的表.不同的导入文件,我们 ...
- 一步步实现ABAP后台导入EXCEL到数据库【1】
在SAP的应用当中,导入.导出EXCEL文件的情况是一个常见的需求,有时候用户需要将大量数据定期导入到SAP的数据库中.这种情况下,使用导入程序在前台导入可能要花费不少的时间,如果能安排导入程序为后台 ...
- 如何使用NPOI 导出到excel和导入excel到数据库
近期一直在做如何将数据库的数据导出到excel和导入excel到数据库. 首先进入官网进行下载NPOI插件(http://npoi.codeplex.com/). 我用的NPOI1.2.5稳定版. 使 ...
- django后台导入excel文件
1.django 如何从后台上传excel中批量解析数据 要从django后台导入的excel中批量解析数据,举一个例子,我们向后抬批量导入svn历史数据数据格式 假设excel表中有4列,每列分别是 ...
- OpenXML_导入Excel到数据库
(1).实现功能:通过前台选择.xlsx文件的Excel,将其文件转化为DataTable和List集合 (2).开发环境:Window7旗舰版+vs2013+Mvc4.0 (2).在使用中需要用到的 ...
- ASP.NET MVC导入excel到数据库
MVC导入excel和webform其实没多大区别,以下为代码: 视图StationImport.cshtml的代码: @{ ViewBag.Title = "StationImport&q ...
- xadmin后台 导入 excel 功能拓展
新建 excel 文件 在 xadmin 的 plugins 下添加一个 excel.py # _*_ coding:utf-8 _*_ __author__ = "yangtuo" ...
- jxl读取excel实现导入excel写入数据库
@RequestMapping(params = "method=import", method = RequestMethod.POST) @ResponseBody publi ...
- OpenXML_导入Excel到数据库(转)
(1).实现功能:通过前台选择.xlsx文件的Excel,将其文件转化为DataTable和List集合 (2).开发环境:Window7旗舰版+vs2013+Mvc4.0 (2).在使用中需要用到的 ...
随机推荐
- CYQ.Data 从入门到放弃ORM系列:开篇:自动化框架编程思维
前言: 随着CYQ.Data 开始回归免费使用之后,发现用户的情绪越来越激动,为了保持这持续的激动性,让我有了开源的念头. 同时,由于框架经过这5-6年来的不断演进,以前发的早期教程已经太落后了,包括 ...
- Topshelf 学习 跨平台
Topshelf是一个开源的跨平台的宿主服务框架,支持Windows和Mono,只需要几行代码就可以构建一个很方便使用的服务宿主. 官网:http://topshelf-project.com Git ...
- 介绍一位OWin服务器新成员TinyFox
TinyFox 是一款支持OWIN标准的WEB应用的高性能的HTTP服务器,是Jexus Web Server的"姊妹篇".TinyFox本身的功能是html服务器,所有的WEB应 ...
- 我认为JS还可以改进的点
曾经我一度在寻找JS的替代语言,尝试过CoffeeScript/TypeScript/Dart(都是浅尝).不为什么原因,而是当你写的越多的JS,越觉得JS很多时候显得很操蛋.好在ES2015和Bab ...
- 【Java并发编程实战】----- AQS(二):获取锁、释放锁
上篇博客稍微介绍了一下AQS,下面我们来关注下AQS的所获取和锁释放. AQS锁获取 AQS包含如下几个方法: acquire(int arg):以独占模式获取对象,忽略中断. acquireInte ...
- 镜像切换Logreader Agent报错:分发数据库中可能存在不一致的状态(续)
报错: 分发数据库中可能存在不一致的状态: dist_backup_lsn {00000030:000001ba:0004},dist_last_lsn {00000030:000001cd:0004 ...
- 基于java的分布式爬虫
分类 分布式网络爬虫包含多个爬虫,每个爬虫需要完成的任务和单个的爬行器类似,它们从互联网上下载网页,并把网页保存在本地的磁盘,从中抽取URL并沿着这些URL的指向继续爬行.由于并行爬行器需要分割下载任 ...
- ABP源码分析三十二:ABP.SignalR
Realtime Realtime是ABP底层模块提供的功能,用于管理在线用户.它是使用SignalR实现给在线用户发送通知的功能的前提 IOnlineClient/OnlineClient: 封装在 ...
- ios 常见问题解决
一,libxml/HTMLparser.h file not find 第一种方法: 点击左边项目的根目录,再点击右边的Build Settings,手工输入文字:“Header search pat ...
- lr文件下载脚本(文件参数化重命名)
http://wenku.baidu.com/link?url=6oiIadyF9eFS4VshKbfJDnxrBh2IX919ndi0JO8yoqTRNRNIpavFrZJ9LPVb-FBSfbRY ...