首先创建2个表,一个HEAD,一个BODY
这是保存表头信息
这是以2进制形式保存文件数据的表
执行如下代码。
TABLES:ZFILEHEAD, ZFILEDATA, SSCRFIELDS.
DATA : GS_FHEAD LIKE ZFILEHEAD,
GT_FDATA LIKE ZFILEDATA OCCURS 0 WITH HEADER LINE.
*attache file
DATA : BEGIN OF GT_UPTAB OCCURS 0,
CONTENT(255) TYPE X,
END OF GT_UPTAB.
DATA : GV_LENGTH TYPE INT4,
GV_FNAME TYPE STRING,
GV_FNAME2 TYPE STRING,
GV_FTYPE TYPE ZFILEHEAD-FILETYPE,
GV_TEMP(120).
DATA: GV_WORK_DIR TYPE STRING VALUE 'C:\Users\Bong\Desktop\',
GV_CMD(128).
PARAMETERS : P_CARRID TYPE S_CARR_ID OBLIGATORY,
P_FNAME TYPE ZFILEHEAD-FILENAME.
SELECTION-SCREEN FUNCTION KEY 1.
INITIALIZATION.
SSCRFIELDS