AL11的目录配置和open dataset访问共享文件的权限

最近准备学习open dataset, 之前项目也遇到了一个共享目录的权限问题, 所以我决定先学习一下AL11和共享目录的问题,

这里先说AL11吧.

AL11里面有很多目录, 有些是安装了SAP后就已经存在了, 有些是人为地加上去的.

AL11的目录                                                                                                                  

对于已经存在的目录, AL11通过下面代码逐个获取它们的路径, 例如: DIR_HOME, DIR_GEN                                        

1. CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_XXX'
2. ID 'VALUE' FIELD searchpoints-dirname.

对于人手维护的目录, 它们保存在表user_dir里面, 这个表还是maintenance allowed                                                       

AL11的user_dir创建                                                                                                     

Step 1: 点configure

Step 2: 点Save保存, Create这个键没什么用, 有兴趣的可以看看代码

Step 3: 查看结果

AL11的目录是否存在的问题                                                                                          

在AL11有纪录, 但实际上不存在的目录                                                                                                                            

Step 1: DIR_ZEROLI2在服务器上其实是不存在的, 当我们双击它, 会有error message抛出

Step 2: 当我们用open dataset语句去这个目录建一个文件时, 是不会成功的, 代码如下:

1. DATA: lv_file TYPE string VALUE 'E:\zerotest2\ZZERO.TXT'.
3. TYPES: BEGIN OF ty_luke,
4. key1 TYPE zluke-key1,
5. year1 TYPE zluke-year1,
6. month1 TYPE zluke-month1,
7. test TYPE zluke-test,
8. END OF ty_luke.
10. DATA: lw_luke_temp TYPE ty_luke.
12. OPEN DATASET lv_file FOR OUTPUT
13. IN TEXT MODE
14. ENCODING DEFAULT.
16. IF sy-subrc = 0.
17. CLEAR: lw_luke_temp.
18. lw_luke_temp-key1 = '1'.
19. lw_luke_temp-year1 = '1999'.
20. lw_luke_temp-month1 = '01'.
21. lw_luke_temp-test = 'Zerot'.
23. TRANSFER lw_luke_temp TO lv_file.
24. IF sy-subrc = 0.
25. BREAK-POINT ID z_zero_test.
26. ENDIF.
28. CLOSE DATASET lv_file.
29. ENDIF.

在AL11没有纪录, 但实际上存在的目录                                                                                                                            

Step 1: 测试系统的服务器是windows系统, 所以c:\windows是存在的, 我们用代码建一个文件

1. DATA: lv_file TYPE string VALUE 'C:\windows\zrobin.TXT'.
3. TYPES: BEGIN OF ty_luke,
4. key1 TYPE zluke-key1,
5. year1 TYPE zluke-year1,
6. month1 TYPE zluke-month1,
7. test TYPE zluke-test,
8. END OF ty_luke.
10. DATA: lw_luke_temp TYPE ty_luke.
12. OPEN DATASET lv_file FOR OUTPUT
13. IN TEXT MODE
14. ENCODING DEFAULT.
16. IF sy-subrc = 0.
17. CLEAR: lw_luke_temp.
19. lw_luke_temp-key1 = '1'.
20. lw_luke_temp-year1 = '1999'.
21. lw_luke_temp-month1 = '01'.
22. lw_luke_temp-test = 'Zerot'.
24. TRANSFER lw_luke_temp TO lv_file.
25. IF sy-subrc = 0.
26. BREAK-POINT ID z_zero_test.
27. ENDIF.
29. CLOSE DATASET lv_file.
30. ENDIF.

Step 2: 我们把c:\windows挂上AL11, 查看我们的结果

在服务器上建文件夹                                                                                                     

方法1: SM69 or SM49                                                                                                                                                      

Step 1: 在SM69建一条命令, 支持dos或unix命令, 先保存再执行, 这里当然是建文件夹的命令, /c代表command

Step 2: 查看AL11结果

方法2: CALL 'SYSTEM'                                                                                                                                                    

用C的函数system来调用system command

1. DATA: command1(64) TYPE c.
3. DATA: BEGIN OF tabl OCCURS 0,
4. line(200),
5. END OF tabl.
7. DATA: lt_string TYPE STANDARD TABLE OF string,
8. lv_strin TYPE string.
10. COMMAND1(9) = 'mkdir -p '.
11. COMMAND1 9(55) = 'e:\zerotest'.
13. CALL 'SYSTEM' ID 'COMMAND' FIELD COMMAND1
14. ID 'TAB' FIELD TABL-*SYS*.
16. BREAK-POINT ID z_zero_test.

Open dataset访问共享文件的权限（Windows）                                                           

工作组的共享文件                                                                                                                                                           

Step 1: 测试环境： A机Laoxiang： XP系统(共享文件夹所在机); B机Lupkid: Win7系统(SAP gui所在机); C机Vmecc: Win2003(装在B机的VMware, 同时C机也是SAP服务器).

保证AB相互ping通， AC相互ping通

Step 2: 测试代码：

1. TYPE-POOLS: z07tp.
3. DATA: gw_rec TYPE z07tp_rec,
4. gt_rec TYPE STANDARD TABLE OF z07tp_rec.
6. CONSTANTS: cn_fname(8) TYPE c VALUE 'CUST07AD'.
8. CONSTANTS: cn_path(20) TYPE c VALUE '\\Laoxiang\zerotest\'.
10. SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.
11. PARAMETERS: pr_file(40) TYPE c.
12. SELECTION-SCREEN END OF BLOCK blk1.
14. INITIALIZATION.
15. pr_file = cn_fname.
17. START-OF-SELECTION.
18. CONCATENATE cn_path pr_file INTO pr_file.
19. OPEN DATASET pr_file IN TEXT MODE FOR INPUT ENCODING DEFAULT.
20. IF sy-subrc <> 0.
21. WRITE:/ text-002.
22. EXIT.
23. ENDIF.
24. DO.
25. READ DATASET pr_file INTO gw_rec.
26. IF sy-subrc <> 0.
27. EXIT.
28. ENDIF.
29. APPEND gw_rec TO gt_rec.
30. ENDDO.
32. END-OF-SELECTION.
33. CLOSE DATASET pr_file.
34. LOOP AT gt_rec INTO gw_rec.
35. WRITE:/ gw_rec-kunnr, gw_rec-name1, gw_rec-sortl,gw_rec-ort01,
36. gw_rec-pstlz, gw_rec-land1, gw_rec-spras.
37. ENDLOOP.

Step 3: 源文件

Step 4: 读取效果

Step 5: C机的截图

Step 6: 去掉A机共享文件夹的Everyone权限

Step 7: C机无法访问zerotest

Step 8: 同时程序也没法访问共享文件

其实我更想测试的是: 是否可以通过限制启动SAP的这个用户的访问文件夹权限就能限制open dataset读取共享文件的权限， 但工作组模式没法做到这点测试， 因为工作组模式只能限制本地的账号和everyone的访问权限...

所以我也在2003开启了域控制器来测试， 因为域的共享模式可以很好地控制每台机子的权限， 域中所有的用户都属于域， 而不属于某台计算机， 但当我配好一切后， 却发现SAP无法登陆， 估计是某个端口被占用了... 有机会我再找三台独立的物理机子来测试看看吧， 一台作为域控制器， 一台SAP服务器， 一台GUI客户机...