拿一个实例来说:先将文件写入服务器,然后再从应用服务器上读取,len一次读取的字节长度,如果是IN TEXT MODE的话则是字符长度。
*&---------------------------------------------------------------------*
*& Report ZTCXHTEST_READ_FILE
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZTCXHTEST_READ_FILE.
DATA: fname(60) TYPE c VALUE 'samplefile2.txt',
text1(12) TYPE c VALUE 'abcdefghijkl',
text2(5) TYPE c,
len TYPE i.
OPEN DATASET fname FOR OUTPUT IN BINARY MODE.
TRANSFER text1 TO fname.
CLOSE DATASET fname.
OPEN DATASET fname FOR INPUT IN BINARY MODE.
DO.
READ DATASET fname INTO text2 LENGTH len.
WRITE: / sy-subrc, text2, len.
IF sy-subrc <> 0.
EXIT.
ENDIF.
ENDDO.
CLOSE DATASET fname.
设置断点;
设置watchpoint
这里Variable填入你要观察的变量名len,然后点击NO Additional Condition按钮
在Free Condition Entry输入框中填入break条件:len = 4,保存,这样按F8执行以后,当len = 4时程序就停在了下一行代码处。如下图所示:
*&---------------------------------------------------------------------*
*& Report ZTCXHTEST_READ_FILE
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZTCXHTEST_READ_FILE.
DATA: fname(60) TYPE c VALUE 'samplefile2.txt',
text1(12) TYPE c VALUE 'abcdefghijkl',
text2(5) TYPE c,
len TYPE i.
OPEN DATASET fname FOR OUTPUT IN BINARY MODE.
TRANSFER text1 TO fname.
CLOSE DATASET fname.
OPEN DATASET fname FOR INPUT IN BINARY MODE.
DO.
READ DATASET fname INTO text2 LENGTH len.
WRITE: / sy-subrc, text2, len.
IF sy-subrc <> 0.
EXIT.
ENDIF.
ENDDO.
CLOSE DATASET fname.
设置断点;
设置watchpoint
这里Variable填入你要观察的变量名len,然后点击NO Additional Condition按钮
在Free Condition Entry输入框中填入break条件:len = 4,保存,这样按F8执行以后,当len = 4时程序就停在了下一行代码处。如下图所示:
读取与写入服务器文件的实例
本文通过实例展示了如何在应用服务器上进行文件的读取与写入操作,包括使用二进制模式和字符模式,以及如何利用watchpoint进行代码调试。
572

被折叠的 条评论
为什么被折叠?



