abap 上传图片函数

DATA: p_filename       TYPE rlgrap-filename,
               p_name           TYPE stxbitmaps-tdname,
               p_object         TYPE stxbitmaps-tdobject,
               p_id             TYPE stxbitmaps-tdid,
               p_btype          TYPE stxbitmaps-tdbtype,
               p_format         TYPE c,
               p_title          LIKE bds_description,
               p_resident       TYPE stxbitmaps-resident,
               p_autoheight     TYPE stxbitmaps-autoheight,
               p_bmcomp         TYPE stxbitmaps-bmcomp,
               p_docid          TYPE stxbitmaps-docid,
               p_resolution     TYPE stxbitmaps-resolution.


"上传bmp图片
PERFORM import_bitmap_bds IN PROGRAM saplstxbitmaps
                         USING p_filename                   "文件路径
                               'NAMEABCD' "p_name            "名字
                               'GRAPHICS'"p_object          "对象 固定为 GRAPHIC
                               'BMAP'"p_id                  "ID 固定为 BMAP
                               'BCOL'"'BMON'"p_btype        "颜色模式 BMON黑白  BCOL彩色
                               'BMP'"p_format               "BMP 格式
                               'DESCRIPTION'"description    "描述
                               ''"p_resident               "依照打印请求驻留在打印机内存中 X 驻留
                               ''"p_autoheight              "自动高度
                               'X'"p_bmcomp                 "是否压缩
                     CHANGING  p_docid                      "文档ID
                               p_resolution                 "分辨率