Created by Jerry Wang, last modified on Jun 19, 2014

输出所有可供传输的application object 列表:

REPORT zsi_get_app_transportable.
DATA: lv_application TYPE  cmst_application VALUE 'SI'.
DATA :  ls_app_prf       TYPE cmst_lo_app_prf,lt_e071          TYPE tr_objects,ls_e071          TYPE e071,ls_request       TYPE trwbo_request_header,lv_pos           TYPE ddposition VALUE 0,lv_program       TYPE progname,lv_function_poolTYPE rs38l_area,lt_selscr        TYPE cmst_lo_scr_map_tab,ls_selscr        TYPE cmst_lo_scr_map.
CONSTANTS : lc_cust_namespace TYPE namespace VALUE '/0CUST/',lc_sap_namespace  TYPE namespace VALUE '/0SAP/'.
CONSTANTS:gc_pgmid_r3tr  TYPE pgmid      VALUE 'R3TR',gc_object_prog TYPE cmst_param_value VALUE 'PROG',gc_object_fugr TYPE trobjtype  VALUE 'FUGR',gc_object_ttyp TYPE trobjtype  VALUE 'TTYP',gc_object_enqu TYPE trobjtype  VALUE 'ENQU',gc_object_tabl TYPE trobjtype  VALUE 'TABL',gc_object_doma TYPE trobjtype  VALUE 'DOMA',gc_object_dtel TYPE trobjtype  VALUE 'DTEL',gc_object_devc TYPE trobjtype  VALUE 'DEVC',gc_type        TYPE e071-object VALUE 'Type',gc_name        TYPE e071-obj_name VALUE 'Name'.
DATA : lv_repname     TYPE progname,lv_namespace   TYPE namespace,lv_flag        TYPE trparflag,lv_change_devc TYPE boolean VALUE space.
CLEAR ls_app_prf.
CALL FUNCTION 'CMS_LO_APPL_ATTRIBUTES_GET'EXPORTINGiv_application     = lv_applicationIMPORTINGes_appl_attributes = ls_app_prf.
IF ls_app_prf IS NOT INITIAL.CALL FUNCTION 'CMS_LO_COLLECT_APP_PRF_OBJECTS'EXPORTINGis_app_prf       = ls_app_prfCHANGINGct_e071          = lt_e071cv_no_of_objects = lv_pos.
* Profile qualifier objectsCALL FUNCTION 'CMS_LO_COLLECT_APP_QUAL_OBJ'EXPORTINGiv_application   = lv_applicationCHANGINGct_e071          = lt_e071cv_no_of_objects = lv_pos.
* Status objectsCALL FUNCTION 'CMS_LO_COLLECT_APP_STATUS_OBJ'EXPORTINGiv_application   = lv_applicationCHANGINGct_e071          = lt_e071cv_no_of_objects = lv_pos.
ENDIF.
* Application objects
* TABL types
ls_e071-pgmid    = gc_pgmid_r3tr.
ls_e071-object   = gc_object_tabl.
* Header intf str
IF ls_app_prf-intf_str_h IS NOT INITIAL.lv_pos = lv_pos + 1.ls_e071-as4pos = lv_pos.ls_e071-obj_name = ls_app_prf-intf_str_h.INSERT ls_e071 INTO TABLE lt_e071.
ENDIF.
* Item intf str
IF ls_app_prf-intf_str_i IS NOT INITIAL.lv_pos = lv_pos + 1.ls_e071-as4pos = lv_pos.ls_e071-obj_name = ls_app_prf-intf_str_i.INSERT ls_e071 INTO TABLE lt_e071.
ENDIF.
* Exec str
IF ls_app_prf-exec_str IS NOT INITIAL.lv_pos = lv_pos + 1.ls_e071-as4pos = lv_pos.ls_e071-obj_name = ls_app_prf-exec_str.INSERT ls_e071 INTO TABLE lt_e071.
ENDIF.
* Index str
IF ls_app_prf-indx_str IS NOT INITIAL.lv_pos = lv_pos + 1.ls_e071-as4pos = lv_pos.ls_e071-obj_name = ls_app_prf-indx_str.INSERT ls_e071 INTO TABLE lt_e071.
ENDIF.
* BSP Index str
IF ls_app_prf-bsp_indx_str IS NOT INITIAL.lv_pos = lv_pos + 1.ls_e071-as4pos = lv_pos.ls_e071-obj_name = ls_app_prf-bsp_indx_str.INSERT ls_e071 INTO TABLE lt_e071.
ENDIF.
* Index table
IF ls_app_prf-indx_table IS NOT INITIAL.lv_pos = lv_pos + 1.ls_e071-as4pos = lv_pos.ls_e071-obj_name = ls_app_prf-indx_table.INSERT ls_e071 INTO TABLE lt_e071.
ENDIF.
* BSP Header str
IF ls_app_prf-bsp_str_h IS NOT INITIAL.lv_pos = lv_pos + 1.ls_e071-as4pos = lv_pos.ls_e071-obj_name = ls_app_prf-bsp_str_h.INSERT ls_e071 INTO TABLE lt_e071.
ENDIF.
* BSP Item str
IF ls_app_prf-bsp_str_i IS NOT INITIAL.lv_pos = lv_pos + 1.ls_e071-as4pos = lv_pos.ls_e071-obj_name = ls_app_prf-bsp_str_i.INSERT ls_e071 INTO TABLE lt_e071.
ENDIF.
* Enq str
IF ls_app_prf-enq_str IS NOT INITIAL.lv_pos = lv_pos + 1.ls_e071-as4pos = lv_pos.ls_e071-obj_name = ls_app_prf-enq_str.INSERT ls_e071 INTO TABLE lt_e071.
ENDIF.
* BW str
IF ls_app_prf-bw_str IS NOT INITIAL.lv_pos = lv_pos + 1.ls_e071-as4pos = lv_pos.ls_e071-obj_name = ls_app_prf-bw_str.INSERT ls_e071 INTO TABLE lt_e071.
* BW_C strlv_pos = lv_pos + 1.ls_e071-as4pos = lv_pos.CONCATENATE ls_app_prf-bw_str'_C'INTO ls_e071-obj_name.INSERT ls_e071 INTO TABLE lt_e071.
ENDIF.
* TTYP types
CLEAR ls_e071.
ls_e071-pgmid    = gc_pgmid_r3tr.
ls_e071-object   = gc_object_ttyp.
IF ls_app_prf-intf_tty_h IS NOT INITIAL.lv_pos = lv_pos + 1.ls_e071-as4pos = lv_pos.ls_e071-obj_name = ls_app_prf-intf_tty_h.INSERT ls_e071 INTO TABLE lt_e071.
ENDIF.
IF ls_app_prf-intf_tty_i IS NOT INITIAL.lv_pos = lv_pos + 1.ls_e071-as4pos = lv_pos.ls_e071-obj_name = ls_app_prf-intf_tty_i.INSERT ls_e071 INTO TABLE lt_e071.
ENDIF.
IF ls_app_prf-indx_tty IS NOT INITIAL.lv_pos = lv_pos + 1.ls_e071-as4pos = lv_pos.ls_e071-obj_name = ls_app_prf-indx_tty.INSERT ls_e071 INTO TABLE lt_e071.
ENDIF.
* BSP Index str
IF ls_app_prf-bsp_indx_tty IS NOT INITIAL.lv_pos = lv_pos + 1.ls_e071-as4pos = lv_pos.ls_e071-obj_name = ls_app_prf-bsp_indx_tty.INSERT ls_e071 INTO TABLE lt_e071.
ENDIF.
IF ls_app_prf-exec_tty IS NOT INITIAL.lv_pos = lv_pos + 1.ls_e071-as4pos = lv_pos.ls_e071-obj_name = ls_app_prf-exec_tty.INSERT ls_e071 INTO TABLE lt_e071.
ENDIF.
IF ls_app_prf-bsp_tty_h IS NOT INITIAL.lv_pos = lv_pos + 1.ls_e071-as4pos = lv_pos.ls_e071-obj_name = ls_app_prf-bsp_tty_h.INSERT ls_e071 INTO TABLE lt_e071.
ENDIF.
IF ls_app_prf-bsp_tty_i IS NOT INITIAL.lv_pos = lv_pos + 1.ls_e071-as4pos = lv_pos.ls_e071-obj_name = ls_app_prf-bsp_tty_i.INSERT ls_e071 INTO TABLE lt_e071.
ENDIF.
IF ls_app_prf-bw_tty IS NOT INITIAL.lv_pos = lv_pos + 1.ls_e071-as4pos = lv_pos.ls_e071-obj_name = ls_app_prf-bw_tty.INSERT ls_e071 INTO TABLE lt_e071.
ENDIF.
IF ls_app_prf-enq_str IS NOT INITIAL.lv_pos = lv_pos + 1.ls_e071-as4pos = lv_pos.CONCATENATE ls_app_prf-enq_str'_TAB' INTO ls_e071-obj_name.INSERT ls_e071 INTO TABLE lt_e071.
ENDIF.
* ENQU types
CLEAR ls_e071.
ls_e071-pgmid    = gc_pgmid_r3tr.
ls_e071-object   = gc_object_enqu.
IF ls_app_prf-enq_obj IS NOT INITIAL.lv_pos = lv_pos + 1.ls_e071-as4pos = lv_pos.ls_e071-obj_name = ls_app_prf-enq_obj.INSERT ls_e071 INTO TABLE lt_e071.
ENDIF.
* Generated routines
CLEAR ls_e071.
ls_e071-pgmid    = gc_pgmid_r3tr.
ls_e071-object   = gc_object_prog.
CALL FUNCTION 'CMS_LO_MAPPING_PROGRAM_GET'EXPORTINGiv_application = lv_applicationIMPORTINGev_program     = lv_program.
IF lv_program IS NOT INITIAL.lv_pos = lv_pos + 1.ls_e071-as4pos = lv_pos.ls_e071-obj_name = lv_program.INSERT ls_e071 INTO TABLE lt_e071.
ENDIF.
* Function groups
CLEAR ls_e071.
ls_e071-pgmid    = gc_pgmid_r3tr.
ls_e071-object   = gc_object_fugr.
CALL FUNCTION 'CMS_LO_APPL_FUNCPOOL_NAME_GET'EXPORTINGiv_application     = lv_applicationiv_appl_package    = ls_app_prf-appl_packageIMPORTINGev_functionpool    = lv_function_poolEXCEPTIONSnamespace_mismatch = 1OTHERS             = 2.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
IF lv_function_pool IS NOT INITIAL.lv_pos = lv_pos + 1.ls_e071-as4pos = lv_pos.ls_e071-obj_name = lv_function_pool.INSERT ls_e071 INTO TABLE lt_e071.
ENDIF.
* Selection Screens
CALL FUNCTION 'CMS_LO_APPL_SELSCR_GET_CB'EXPORTINGiv_application = lv_applicationIMPORTINGet_selscr      = lt_selscr.
LOOP AT lt_selscr INTO ls_selscr.CALL FUNCTION 'CMS_LO_SELECTION_REP_NAME_GET'EXPORTINGiv_application = lv_applicationiv_screen_id   = ls_selscr-screen_idIMPORTINGev_repname     = lv_repnameev_namespace   = lv_namespace.lv_pos = lv_pos + 1.ls_e071-as4pos = lv_pos.ls_e071-pgmid  = gc_pgmid_r3tr.ls_e071-object = gc_object_prog.ls_e071-obj_name = lv_repname.INSERT ls_e071 INTO TABLE lt_e071.CLEAR : lv_flag, lv_change_devc.CALL FUNCTION 'TR_CHECK_OBJECT_LOCAL'EXPORTINGiv_e071_pgmid         = ls_e071-pgmidiv_e071_object        = ls_e071-objectiv_e071_obj_name      = ls_e071-obj_nameIMPORTINGev_object_local       = lv_flagEXCEPTIONStadir_entry_not_found = 1OTHERS                = 2.IF sy-subrc <> 0.lv_change_devc = 'X'.ELSE.IF sy-subrc EQ 0 ANDlv_flag NE space.lv_change_devc = 'X'.ENDIF.ENDIF.
ENDLOOP.
WRITE: / gc_type, gc_name COLOR COL_NEGATIVE.
LOOP AT lt_e071 ASSIGNING FIELD-SYMBOL(<item>).WRITE: / <item>-object UNDER gc_type COLOR COL_TOTAL, <item>-obj_name UNDER gc_name COLOR COL_GROUP.
ENDLOOP.

列出Sell in application所有可以传输的application object相关推荐

  1. 新建Application 报错android.app.Application cannot be cast

    我在开发APP的时候重新使用了一个类,继承了android.app.Application.但是在运行的时候提示java.lang.ClassCastException: android.app.Ap ...

  2. android获得application类对象,android之Application类介绍

    Application类 application是用来保存全局变量的,并且是在package创建的时候就跟着存在了. 当我们需要创建全局变量的时候,而直接在application中去实现. 只需要调用 ...

  3. application.properties amp;amp;amp; application.yml 配置文件详解(转)

    #COMMON SPRING BOOT PROPERTIES ## 提供此示例文件作为指导.请勿将其 全部 复制到您自己的应用程序.^^^ #============================= ...

  4. （The application/json Media Type for JavaScript Object Notation (JSON)）RFC4627-JSON格式定义

    原文  http://laichendong.com/rfc4627-zh_cn/ 摘要 JavaScript Object Notation (JSON)是一个轻量级的,基于文本的,跨语言的数据交换 ...

  5. multipart/form-data与application/octet-stream的区别、application/x-www-form-urlencoded

    情景再现: 上传文件到.net(wcf)后台时,总是上传不成功,后台要求Content-Type是application/octet-stream,我使用multipart/form-data方式,c ...

  6. 在32及64位系统中拒绝访问 ProgID: excel.application及配置Microsoft Excel Application权限解决方案

    最近在服务器和本地调用delphi写的导出Excel 的webservices,出现一系列配置和权限问题,现在一一记录下来. Error 信息: "/"应用程序中的服务器错误. - ...

  7. Developing a Large Scale Application with a Single Page Application (S

    https://www.codeproject.com/Articles/808213/Developing-a-Large-Scale-Application-with-a-Single 使用 An ...

  8. application/x-www-form-urlencoded 与multipart/form-data

    为什么上传文件的表单里要加个属性 enctype 上传文件的表单中<form>要加属性enctype="multipart/form-data",很多人只是死记硬背知道 ...

  9. ABP框架官网例子实践（2）（ASP.NET core+Multi Page Web Application）

    ABP框架官网例子实践(1)(ASP.NET core+Multi Page Web Application) 第三步:开始在Application中进行编写代码 1.为app service定义一个 ...

最新文章

  1. 弹性碰撞后速度方向_$1.1.1 弹性碰撞经典例题1——力学及运动学
  2. Health Check in eShop -- 解析微软微服务架构Demo（五）
  3. 全球及中国速冻菠萝市场消费潜力及供需前景调研报告2021-2027年
  4. 【运营】“顶级运营”最强速成攻略！目前国内不超过200人！
  5. [XSY] 宝藏（LCS，DP）
  6. MATLAB字符串和ASCII码的转换
  7. Django多域名配置之Django-hosts插件的使用
  8. 1.gloox开发环境搭建
  9. oracle的perfstat用户,安装statspack的最后一步出错：ORA-01918: 用户'PERFSTAT'不存在
  10. SqlServer数据库同步方案详解
  11. 矩阵乘法+快速幂+序列递推公式
  12. Extra Credits: Project Ten Dollar 10
  13. 【企业微信点餐系统】
  14. hal linux 手册_Linux服务之：haldaemon服务 | 旺旺知识库
  15. 生成项目有roslyn_Roslyn的代码生成：UML的骨架类
  16. 【网络通信 -- 直播】SRS 实战记录 -- 开源流媒体服务器对比与 SRS 直播效果测试
  17. PostgreSQL更改表格的owner
  18. ASP.Net使用ADSI操作IIS遇到的0x80070005等问题研究记录
  19. 播音主持必练的绕口令
  20. 龙腾世纪审判一直连接服务器,【1.7.2】【rpg】我的世界龙腾世纪群组服务器

热门文章

  1. kettle于javascript步骤错误处理
  2. Atitit 插件机制原理与设计微内核 c# java 的实现attilax总结
  3. UVa 489 - Hangman Judge
  4. oracle 10g 返回RemoteOperationException: ERROR: Wrong password for user
  5. 文献记录(part6)--Dynamic Tree Cut in-depth description, tests and applications
  6. 图卷积神经网络(part2)--图卷积概述
  7. scala to java_Scala 2.13 以后Java集合与Scala集合互相转换
  8. vba 修改下拉列表_Excel隐藏的超实用技能，涉及VBA技巧，建议【收藏】
  9. 客制化键盘键位修改_干电池 支持5设备无线连接 - 高斯ALT71机械键盘拆解评测...
  10. 知识点实用梳理：点对点协议（PPP）、广播信道多址访问、SMTP与POP3、RS232C、协议与端口号