ABAP 写数据到SAP服务器文件

• 在应用服务器中打开文件OPEN  DATASET  <dsn>  [options] 此语句打开文件 <dsn> 。如果不指定任何模式 选项，则文件将按二进 制模式打开。如果系统不能打开文件，则将系统字段 SY-SUBRC 设置为8，否则 SY-SUBRC 返回0
• 打开文件读取OPEN DATASET <dsn> FOR INPUT IN TEXT MODE ENCODING DEFAULT .（以TXT文件打开）
• 打开文件写入OPEN DATASET <dsn> FOR OUTPUT IN TEXT MODE ENCODING DEFAULT .（以TXT文件打开写入，这种是打开文件完全重写）
• 打开文件追加 OPEN DATASET <dsn> FOR APPENDING IN TEXT MODE ENCODING DEFAULT .（以TXT文件打开写入，这种是打开文件追加记录）
• 关闭应用服务器上的文件 CLOSE DATASET <dsn>.
• 删除应用服务器上的文件 DELETE DATASET <dsn>.
• 向应用服务器上文件上写入数据TRANSFER  <f>  to  <dsn>  [LENGTH <len>].
• 向应用服务器上文件上读取数据READ  DATASET  <dsn>  INTO  <f>  [LENGTH <len>].
  

常用事务代码：

• AL11，服务器上的文件目录
• CG3Y 下载文件
• CG3Z 上传文件
  

从程序上传数据到服务器文件中（保存内表数据到服务器程序）：

1. TABLES:vbak,vbap.
   
2. 
   
3. DATA:BEGIN OF wa_itab ,
   
4.      vbeln LIKE vbak-vbeln,
   
5.      vkorg LIKE vbak-vkorg,
   
6.      erdat LIKE vbak-erdat,
   
7.      kunnr LIKE vbak-kunnr,
   
8.      posnr LIKE vbap-posnr,
   
9.      matnr LIKE vbap-matnr,
   
10.      kwmeng LIKE vbap-kwmeng,
    
11. END OF wa_itab.
    
12. DATA:itab LIKE wa_itab OCCURS 0 WITH HEADER LINE.
    
13. DATA:g_file LIKE rlgrap-filename.
    
14. DATA:s_file LIKE rlgrap-filename.
    
15. DATA:menge(20).
    
16. DATA:line(1000) TYPE c.
    
17. 
    
18. SELECTION-SCREEN BEGIN OF BLOCK bl1 WITH FRAME TITLE t1.
    
19. SELECT-OPTIONS:s_erdat FOR vbak-erdat,
    
20.                s_vbeln FOR vbak-vbeln,
    
21.                s_kunnr FOR vbak-kunnr,
    
22.                s_vkorg FOR vbak-vkorg.
    
23. PARAMETERS:p_client AS CHECKBOX,
    
24.            p_dnfile LIKE rlgrap-filename DEFAULT 'D:\',
    
25.            p_server AS CHECKBOX,
    
26.            p_sefile LIKE rlgrap-filename DEFAULT '/usr/sap/tmp/'.
    
27. SELECTION-SCREEN END OF BLOCK bl1 .
    
28. 
    
29. INITIALIZATION.
    
30.   t1 = '选择条件'.
    
31. 
    
32. START-OF-SELECTION.
    
33.   PERFORM sub_read_data.
    
34. 
    
35. END-OF-SELECTION.
    
36.   PERFORM sub_write_data.
    
37. *&---------------------------------------------------------------------*
    
38. *&      Form  SUB_READ_DATA
    
39. *&---------------------------------------------------------------------*
    
40. *       text
    
41. *----------------------------------------------------------------------*
    
42. *  -->  p1        text
    
43. *  <--  p2        text
    
44. *----------------------------------------------------------------------*
    
45. FORM sub_read_data .
    
46.   SELECT vbak~vbeln vkorg vbak~erdat kunnr posnr matnr kwmeng
    
47.   INTO TABLE itab
    
48.   FROM vbak
    
49.   JOIN vbap ON vbap~vbeln = vbak~vbeln
    
50.   WHERE vbak~vbeln IN s_vbeln
    
51.     AND vbak~erdat IN s_erdat
    
52.     AND vkorg IN s_vkorg
    
53.     AND kunnr IN s_kunnr.
    
54. ENDFORM.                    " SUB_READ_DATA
    
55. *&---------------------------------------------------------------------*
    
56. *&      Form  SUB_WRITE_DATA
    
57. *&---------------------------------------------------------------------*
    
58. *       text
    
59. *----------------------------------------------------------------------*
    
60. *  -->  p1        text
    
61. *  <--  p2        text
    
62. *----------------------------------------------------------------------*
    
63. FORM sub_write_data .
    
64.   IF p_client = 'X'.
    
65.     CONCATENATE p_dnfile 'SD' sy-datum sy-uzeit '.TXT' INTO g_file. "文本格式
    
66.     CALL FUNCTION 'WS_DOWNLOAD'
    
67.       EXPORTING
    
68.         filename = g_file
    
69.         filetype = 'DAT'
    
70.       TABLES
    
71.         data_tab = itab.  "被下载的内表
    
72.   ENDIF.
    
73.   IF p_server = 'X'.
    
74.     CONCATENATE p_sefile 'SD' sy-datum '.txt' INTO s_file. "服务器保存的目录和文件名
    
75.     OPEN DATASET s_file FOR OUTPUT IN TEXT MODE  ENCODING DEFAULT .  "打开文件
    
76.     IF sy-subrc = 0.
    
77.       LOOP AT itab INTO wa_itab.
    
78.         menge = wa_itab-kwmeng.
    
79.         CONCATENATE wa_itab-vkorg
    
80.                     wa_itab-kunnr
    
81.                     wa_itab-vbeln
    
82.                     wa_itab-erdat
    
83.                     wa_itab-posnr
    
84.                     wa_itab-matnr
    
85.                     menge
    
86.         INTO line SEPARATED BY ''.
    
87.         TRANSFER line TO s_file .
    
88.         IF sy-subrc NE 0 .
    
89.           MESSAGE 'ERROR！！' TYPE 'E'.
    
90.         ENDIF.
    
91.         CLEAR line .
    
92.       ENDLOOP.
    
93.       CLOSE DATASET s_file.
    
94.     ELSE.
    
95.       MESSAGE 'OPEN ERROR！！' TYPE 'E'.
    
96.     ENDIF.
    
97.   ENDIF.
    
98. ENDFORM.                    " SUB_WRITE_DATA

复制代码

从服务器下载文件到程序中（读取服务器上的文件）：

1. DATA:p_file LIKE rlgrap-filename VALUE '/usr/sap/tmp/SD20111130.txt'.
   
2. DATA:p_line(100).
   
3. 
   
4. OPEN DATASET p_file FOR INPUT IN TEXT MODE ENCODING DEFAULT.
   
5. IF sy-subrc NE 0.
   
6.   MESSAGE '读取文件出错！' TYPE 'E'.
   
7. ENDIF.
   
8. 
   
9. DO.
   
10.   READ DATASET p_file INTO p_line.
    
11.   IF sy-subrc NE 0.
    
12.     EXIT.
    
13.   ELSE.
    
14.     WRITE:/ p_line.
    
15.   ENDIF.
    
16. ENDDO.
    
17. 
    
18. CLOSE DATASET p_file.

复制代码

Twilight 发表于 2018-4-18 21:40
有些操作是要写文件的，比如数据大规模抽取，如果直接抽取DB数据库，很可能耗尽服务器资源，数据以增量的 ...

以我遇见某大型项目为例，也是我现在在做的。BW抽数据，BSEG的。数据差不多有4千万靠上，初始化数据用了大概两天。还是甲骨文的数据库，对日常的用户操作丝毫没有影响。影响主要来源于两类，都可以通过技术规避的。

如果系统不能打开文件，则将系统字段 SY-SUBRC 设置为 0，否则 SY-SUBRC 返回 8。 这段写反了吧

我有一个不成熟的疑问，如果保存在Sap的服务器，和保存在Sap的DB区别很大么

z3765295 发表于 2018-4-18 16:46
我有一个不成熟的疑问，如果保存在Sap的服务器，和保存在Sap的DB区别很大么 ...

有些操作是要写文件的，比如数据大规模抽取，如果直接抽取DB数据库，很可能耗尽服务器资源，数据以增量的文件形式可以缓解