用ABAP代码将某个report的源代码复制到系统剪切板里

简介: 用ABAP代码将某个report的源代码复制到系统剪切板里

REPORT zread_report.

INCLUDE: crm_object_names_con.

TYPES:

 BEGIN OF ty_clipdata,

   data TYPE c LENGTH 100,

 END   OF ty_clipdata .

TYPES:

 tt_formatted TYPE STANDARD TABLE OF ty_clipdata .

DATA: lt_source    TYPE string_table,

     lv_ret       TYPE int4,

     lt_token     TYPE TABLE OF stokes,

     lt_statement TYPE TABLE OF sstmnt,

     lt_export    TYPE tt_formatted.

CONSTANTS: gc_variable TYPE char20 VALUE 'Variable',

          gc_value    TYPE char20 VALUE 'Value'.

READ REPORT 'LCRM_ORDER_OWF03' INTO lt_source .

SCAN ABAP-SOURCE lt_source TOKENS INTO lt_token

                     STATEMENTS INTO lt_statement.

WRITE:  10 gc_variable COLOR COL_NEGATIVE, 40 gc_value COLOR COL_POSITIVE.

APPEND |{ gc_variable } \| { gc_value } | TO lt_export.

APPEND '-----|-----' TO lt_export.

LOOP AT lt_token ASSIGNING FIELD-SYMBOL() WHERE str = 'WHEN'.

 DATA(lv_name) = lt_token[ sy-tabix + 1 ]-str.

 ASSIGN (lv_name) TO FIELD-SYMBOL().

 WRITE:/  lv_name UNDER gc_variable,  UNDER gc_value.

 APPEND |{ lv_name } \| {  }| TO lt_export.

ENDLOOP.

cl_gui_frontend_services=>clipboard_export(

   EXPORTING

       no_auth_check        = abap_true

       IMPORTING

         data                 = lt_export

       CHANGING

         rc                   = lv_ret

       EXCEPTIONS

         cntl_error           = 1

         error_no_gui         = 2

         not_supported_by_gui = 3

     ).

目录
相关文章
|
2月前
|
前端开发 开发工具 Android开发
小技巧分享 - 使用 Visual Studio Code 查看和修改 ABAP 代码试读版
小技巧分享 - 使用 Visual Studio Code 查看和修改 ABAP 代码试读版
小技巧分享 - 使用 Visual Studio Code 查看和修改 ABAP 代码试读版
|
2月前
|
开发者 供应链 BI
SAP ABAP CALL SUBSCREEN 代码解析
SAP ABAP CALL SUBSCREEN 代码解析
|
2月前
|
存储
使用 ABAP 代码打印出 SAP CRM 系统里所有维护了 Sales Area 的 business partner id
使用 ABAP 代码打印出 SAP CRM 系统里所有维护了 Sales Area 的 business partner id
|
2月前
|
JSON 应用服务中间件 API
使用 ABAP 代码消费 SAP 系统的 OData 服务
使用 ABAP 代码消费 SAP 系统的 OData 服务
|
2月前
|
开发工具 Web App开发 IDE
如何对 SAPGUI 里的 ABAP 代码语法检查功能进行自定义增强配套代码
如何对 SAPGUI 里的 ABAP 代码语法检查功能进行自定义增强配套代码
如何对 SAPGUI 里的 ABAP 代码语法检查功能进行自定义增强配套代码
|
2月前
|
SQL 监控 Oracle
SAP ABAP 系统错误 Return value of the database layer SQL dbsl rc 99
SAP ABAP 系统错误 Return value of the database layer SQL dbsl rc 99
|
2月前
|
存储 前端开发 Linux
在 SAP ABAP 系统里访问 FTP 服务器
在 SAP ABAP 系统里访问 FTP 服务器
|
2月前
|
监控 Java 网络安全
在 ABAP 系统启用 Git-Enabled Change and Transport System 的先决条件
在 ABAP 系统启用 Git-Enabled Change and Transport System 的先决条件
|
2月前
|
存储 安全 网络安全
SAP ABAP 系统 STRUST 事务码里 System PSE 的概念介绍
SAP ABAP 系统 STRUST 事务码里 System PSE 的概念介绍
|
2月前
|
监控 安全 测试技术
SAP ABAP 系统 STRUST 事务码里 Distribute 功能介绍
SAP ABAP 系统 STRUST 事务码里 Distribute 功能介绍