使用ABAP代码释放某个传输请求 -transport request
发布日期:2021-06-30 14:06:35
浏览次数:3
分类:技术文章
本文共 5531 字,大约阅读时间需要 18 分钟。
REPORT rswbo011 .DATA: gv_released TYPE trboolean VALUE ' '.PARAMETERS: request TYPE trkorr obligatory, wobjchk AS CHECKBOX, "without objects' check wlocking AS CHECKBOX. "without locking*----------------------------------------------------------------------*START-OF-SELECTION. IF sy-batch <> 'X'. MESSAGE e070(to). ENDIF. PERFORM release_request USING request wobjchk wlocking gv_released. PERFORM send_info_popup USING request wobjchk gv_released. PERFORM list_messages.*&---------------------------------------------------------------------**& Form RELEASE_REQUEST*&---------------------------------------------------------------------*FORM release_request USING pv_trkorr TYPE trkorr pv_without_objects_check TYPE trboolean pv_without_locking TYPE trboolean pv_released TYPE trboolean. DATA: lv_msgid LIKE sy-msgid, lv_msgno LIKE sy-msgno, lv_msgv1 LIKE sy-msgv1, lv_msgv2 LIKE sy-msgv2, lv_msgv3 LIKE sy-msgv3, lv_msgv4 LIKE sy-msgv4, lv_without_objects_check TYPE trboolean, lv_without_locking TYPE trboolean. lv_without_objects_check = pv_without_objects_check. lv_without_locking = pv_without_locking. CLEAR pv_released. CALL FUNCTION 'ENQUEUE_E_TRKORR' EXPORTING trkorr = pv_trkorr EXCEPTIONS OTHERS = 1. IF sy-subrc <> 0. MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. EXIT. ENDIF. CALL FUNCTION 'TRINT_RELEASE_REQUEST' EXPORTING iv_trkorr = pv_trkorr iv_dialog = ' ' iv_without_objects_check = lv_without_objects_check iv_without_locking = lv_without_locking EXCEPTIONS error_in_export_methods = 1 OTHERS = 2. CASE sy-subrc. WHEN 0. pv_released = 'X'. WHEN 1. lv_msgid = sy-msgid. lv_msgno = sy-msgno. lv_msgv1 = sy-msgv1. lv_msgv2 = sy-msgv2. lv_msgv3 = sy-msgv3. lv_msgv4 = sy-msgv4. PERFORM read_memory. MESSAGE ID lv_msgid TYPE 'S' NUMBER lv_msgno WITH lv_msgv1 lv_msgv2 lv_msgv3 lv_msgv4. WHEN 2. MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDCASE. CALL FUNCTION 'DEQUEUE_E_TRKORR' EXPORTING trkorr = pv_trkorr.ENDFORM. " RELEASE_REQUEST*&---------------------------------------------------------------------**& Form SEND_INFO_POPUP*&---------------------------------------------------------------------*FORM send_info_popup USING pv_trkorr TYPE trkorr pv_without_objects_check TYPE trboolean pv_released TYPE trboolean. DATA: lt_receivers LIKE soos7 OCCURS 0 WITH HEADER LINE, ls_message LIKE sotxtinfo, lv_title LIKE soep-title. CLEAR: ls_message.* choose correct message for info popup IF pv_without_objects_check = ' '. ls_message-msgid = 'TO'. IF pv_released = 'X'. ls_message-msgno = '066'. ELSE. ls_message-msgno = '064'. ENDIF. ELSE. ls_message-msgid = 'TR'. IF pv_released = 'X'. ls_message-msgno = '783'. ls_message-msgv1 = pv_trkorr. ELSE. ls_message-msgno = '784'. ls_message-msgv1 = 'RELEASE OF &'. REPLACE '&' WITH pv_trkorr INTO ls_message-msgv1. ENDIF. ENDIF. lv_title = text-001. REPLACE '&' WITH pv_trkorr INTO lv_title. lt_receivers-recnam = sy-uname. APPEND lt_receivers. CALL FUNCTION 'SO_EXPRESS_FLAG_SET' EXPORTING text_info = ls_message inbox = ' ' popup_title = lv_title TABLES rec_tab = lt_receivers EXCEPTIONS OTHERS = 0.ENDFORM. " SEND_INFO_POPUP*&---------------------------------------------------------------------**& Form READ_MEMORY*&---------------------------------------------------------------------*FORM read_memory. DATA: lt_log LIKE trlogm OCCURS 0, ls_log LIKE trlogm. CALL FUNCTION 'TRINT_READ_LOG_FROM_MEMORY' EXPORTING iv_logname_memory = 'APPEND_LOG' TABLES et_log = lt_log EXCEPTIONS OTHERS = 1. IF sy-subrc = 0. LOOP AT lt_log INTO ls_log. MESSAGE ID ls_log-ag TYPE 'S' NUMBER ls_log-msgnr WITH ls_log-var1 ls_log-var2 ls_log-var3 ls_log-var4. ENDLOOP. ENDIF.ENDFORM. " READ_MEMORY*---------------------------------------------------------------------** FORM list_messages **---------------------------------------------------------------------*FORM list_messages.* list all messages that are used generically IF 1 = 2. MESSAGE s066(to). MESSAGE s064(to). MESSAGE s783(tr) WITH ''. MESSAGE s784(tr) WITH '' ''. ENDIF.ENDFORM.
要获取更多Jerry的原创文章,请关注公众号"汪子熙":
转载地址:https://jerry.blog.csdn.net/article/details/104031591 如侵犯您的版权,请留言回复原文章的地址,我们会给您删除此文章,给您带来不便请您谅解!
发表评论
最新留言
路过,博主的博客真漂亮。。
[***.116.15.85]2024年04月15日 11时54分49秒
关于作者
喝酒易醉,品茶养心,人生如梦,品茶悟道,何以解忧?唯有杜康!
-- 愿君每日到此一游!
推荐文章
Hibernate常见的20个问题
2019-05-01
二进制协议处理
2019-05-01
MySQL性能诊断与调优
2019-05-01
MYSQL的慢查询分析
2019-05-01
MySQL服务器性能剖析
2019-05-01
sysbench的安装和性能测试
2019-05-01
1.MySQL整体逻辑架构
2019-05-01
DDAL技术议案选型
2019-05-01
Linux容器虚拟化技术介绍
2019-05-01
JVM Management API
2019-05-01
Linux的sysctl 命令参数
2019-05-01
Linux sysctl.conf优化方案
2019-05-01
dubbo分布式SOA框架
2019-05-01
JAVA NIO2模式之Proactor( JDK7 AIO异步网络IO初探)
2019-05-01
I/O系统:中断、DMA、通道
2019-05-01
java NIO模式之Reactor
2019-05-01
JAVA系列之对象的序列化与反序列化
2019-05-01
性能调优攻略
2019-05-01