SUBMIT ukm_rfdkli20更新客户信贷数据

2023-12-30 15:12

本文主要是介绍SUBMIT ukm_rfdkli20更新客户信贷数据,希望对大家解决编程问题提供一定的参考价值,需要的开发者们随着小编来一起学习吧!

业务需求

要求通过执行程序ukm_rfdkli20,将跑出来的交货单下发给外围系统

实现思路

SUBMIT ukm_rfdkli20程序的时候,会弹出一些屏幕,所以需要利用后台作业去跑,因为跑出来数据在另一个子屏幕里面,所以我们没办法直接通过SUBMIT获取到数据,最后发现程序跑完之后,系统会更新v_ukm_item表,所以我的想法是,利用UUID生成后台作业名,然后判断此UUID的后台作业已经实行完毕,再查v_ukm_item表进行数据下发。
具体逻辑参考代码

  DATA lo_uuid TYPE REF TO if_system_uuid.DATA lv_uuid_x16 TYPE sysuuid_x16. "DATA lv_uuid_c26 TYPE sysuuid_c26.LOOP AT gt_kunnr ASSIGNING FIELD-SYMBOL(<fs_kunnr>) .TRY.lo_uuid = cl_uuid_factory=>create_system_uuid(  ).lv_uuid_x16 = lo_uuid->create_uuid_x16( ).lo_uuid->convert_uuid_x16(EXPORTINGuuid     = lv_uuid_x16IMPORTINGuuid_c26 = lv_uuid_c26 ).CATCH cx_uuid_error.ENDTRY.<fs_kunnr>-uuid = lv_uuid_c26 .ENDLOOP .LOOP AT gt_kunnr INTO gs_kunnr .CALL FUNCTION 'ZSD001' "STARTING NEW TASK gs_kunnr-kunnr
*      PERFORMING frm_task_end ON END OF TASKEXPORTINGkunnr                 = gs_kunnr-kunnruuid                  = gs_kunnr-uuidEXCEPTIONScommunication_failure = 1system_failure        = 2resource_failure      = 3.*    WAIT UNTIL gt_vukm IS NOT INITIAL.PERFORM frm_task_end USING gs_kunnr-kunnr .CLEAR : gs_kunnr .ENDLOOP .
FUNCTION zsd001.
*"----------------------------------------------------------------------
*"*"本地接口:
*"  IMPORTING
*"     VALUE(KUNNR) TYPE  KUNNR OPTIONAL
*"     VALUE(UUID) TYPE  CHAR26 OPTIONAL
*"--------------------------------------------------------------------DATA : lr_alv_data TYPE REF TO data .FIELD-SYMBOLS <lt_alv_data> TYPE ANY TABLE .DATA: number           TYPE tbtcjob-jobcount,name             TYPE tbtcjob-jobname,print_parameters TYPE pri_params.DATA: it_seltab TYPE TABLE OF rsparams,iw_seltab LIKE LINE OF it_seltab.RANGES:r_kunnr FOR knvv-kunnr,r_kkber FOR knvv-kkber.name = uuid .r_kunnr-sign   = 'I'.r_kunnr-option = 'EQ'.r_kunnr-low    = kunnr.APPEND r_kunnr.r_kkber-sign   = 'I'.r_kkber-option = 'EQ'.r_kkber-low    = '1000'.APPEND r_kkber .cl_salv_bs_runtime_info=>set(display  = abap_truemetadata = abap_falsedata     = abap_true  ).CALL FUNCTION 'JOB_OPEN'EXPORTINGjobname          = nameIMPORTINGjobcount         = numberEXCEPTIONScant_create_job  = 1invalid_job_data = 2jobname_missing  = 3OTHERS           = 4.IF sy-subrc = 0.SUBMIT ukm_rfdkli20WITH sdchd = 'X'WITH testlauf = ''WITH pkunnr IN r_kunnrWITH pkkber IN r_kkberTO SAP-SPOOLSPOOL PARAMETERS print_parametersWITHOUT SPOOL DYNPROVIA JOB name NUMBER numberAND RETURN.IF sy-subrc = 0.CALL FUNCTION 'JOB_CLOSE'EXPORTINGjobcount             = numberjobname              = namestrtimmed            = 'X'EXCEPTIONScant_start_immediate = 1invalid_startdate    = 2jobname_missing      = 3job_close_failed     = 4job_nosteps          = 5job_notex            = 6lock_failed          = 7OTHERS               = 8.IF sy-subrc = 0.ENDIF.ENDIF .ENDIF.
ENDFUNCTION.
FORM frm_task_end USING gv_kunnr.DATA : ls_likpvb TYPE likpvb,lt_likpvb TYPE TABLE OF likpvb.READ TABLE gt_kunnr INTO DATA(ls_kunnr) WITH KEY kunnr = gv_kunnr .IF sy-subrc = 0 .DO 50 TIMES.SELECT SINGLE COUNT(*) FROM tbtco WHERE jobname = ls_kunnr-uuid AND status = 'F' .IF sy-subrc = 0 .SELECT * FROM v_ukm_item INTO TABLE @gt_vukm WHERE partner = @gv_kunnr AND objtype = 'LIKP' .LOOP AT gt_vukm INTO gs_vukm .gs_vbeln-vbeln = gs_vukm-objkey+0(10) .APPEND gs_vbeln TO gt_vbeln .CLEAR : gs_vukm ,gs_vbeln .ENDLOOP .LOOP AT gt_vbeln ASSIGNING FIELD-SYMBOL(<fs_vbeln>) .SELECT SINGLE * FROM likp INTO @DATA(ls_likp) WHERE vbeln = @<fs_vbeln>-vbeln AND cmgst = 'A' AND wbstk <> 'C' .MOVE-CORRESPONDING ls_likp TO ls_likpvb .APPEND ls_likpvb TO lt_likpvb .CLEAR : ls_likpvb .IF sy-subrc = 0 . "下发全域CALL FUNCTION 'ZPOFM_OUTB_DLV_STATUS_SEND'EXPORTINGim_type = '02'TABLESit_likp = lt_likpvb.APPEND <fs_vbeln> TO gt_alv .ENDIF .CLEAR : lt_likpvb ,ls_likpvb ,ls_likp .ENDLOOP .EXIT .ELSE .WAIT UP TO 2 SECONDS .ENDIF .ENDDO.ENDIF .
ENDFORM.

这篇关于SUBMIT ukm_rfdkli20更新客户信贷数据的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!



http://www.chinasem.cn/article/553244

相关文章

Python获取中国节假日数据记录入JSON文件

《Python获取中国节假日数据记录入JSON文件》项目系统内置的日历应用为了提升用户体验,特别设置了在调休日期显示“休”的UI图标功能,那么问题是这些调休数据从哪里来呢?我尝试一种更为智能的方法:P... 目录节假日数据获取存入jsON文件节假日数据读取封装完整代码项目系统内置的日历应用为了提升用户体验,

Java利用JSONPath操作JSON数据的技术指南

《Java利用JSONPath操作JSON数据的技术指南》JSONPath是一种强大的工具,用于查询和操作JSON数据,类似于SQL的语法,它为处理复杂的JSON数据结构提供了简单且高效... 目录1、简述2、什么是 jsONPath?3、Java 示例3.1 基本查询3.2 过滤查询3.3 递归搜索3.4

MySQL大表数据的分区与分库分表的实现

《MySQL大表数据的分区与分库分表的实现》数据库的分区和分库分表是两种常用的技术方案,本文主要介绍了MySQL大表数据的分区与分库分表的实现,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有... 目录1. mysql大表数据的分区1.1 什么是分区?1.2 分区的类型1.3 分区的优点1.4 分

Mysql删除几亿条数据表中的部分数据的方法实现

《Mysql删除几亿条数据表中的部分数据的方法实现》在MySQL中删除一个大表中的数据时,需要特别注意操作的性能和对系统的影响,本文主要介绍了Mysql删除几亿条数据表中的部分数据的方法实现,具有一定... 目录1、需求2、方案1. 使用 DELETE 语句分批删除2. 使用 INPLACE ALTER T

Python Dash框架在数据可视化仪表板中的应用与实践记录

《PythonDash框架在数据可视化仪表板中的应用与实践记录》Python的PlotlyDash库提供了一种简便且强大的方式来构建和展示互动式数据仪表板,本篇文章将深入探讨如何使用Dash设计一... 目录python Dash框架在数据可视化仪表板中的应用与实践1. 什么是Plotly Dash?1.1

MySQL新增字段后Java实体未更新的潜在问题与解决方案

《MySQL新增字段后Java实体未更新的潜在问题与解决方案》在Java+MySQL的开发中,我们通常使用ORM框架来映射数据库表与Java对象,但有时候,数据库表结构变更(如新增字段)后,开发人员可... 目录引言1. 问题背景:数据库与 Java 实体不同步1.1 常见场景1.2 示例代码2. 不同操作

Redis 中的热点键和数据倾斜示例详解

《Redis中的热点键和数据倾斜示例详解》热点键是指在Redis中被频繁访问的特定键,这些键由于其高访问频率,可能导致Redis服务器的性能问题,尤其是在高并发场景下,本文给大家介绍Redis中的热... 目录Redis 中的热点键和数据倾斜热点键(Hot Key)定义特点应对策略示例数据倾斜(Data S

Python实现将MySQL中所有表的数据都导出为CSV文件并压缩

《Python实现将MySQL中所有表的数据都导出为CSV文件并压缩》这篇文章主要为大家详细介绍了如何使用Python将MySQL数据库中所有表的数据都导出为CSV文件到一个目录,并压缩为zip文件到... python将mysql数据库中所有表的数据都导出为CSV文件到一个目录,并压缩为zip文件到另一个

SpringBoot整合jasypt实现重要数据加密

《SpringBoot整合jasypt实现重要数据加密》Jasypt是一个专注于简化Java加密操作的开源工具,:本文主要介绍详细介绍了如何使用jasypt实现重要数据加密,感兴趣的小伙伴可... 目录jasypt简介 jasypt的优点SpringBoot使用jasypt创建mapper接口配置文件加密

使用Python高效获取网络数据的操作指南

《使用Python高效获取网络数据的操作指南》网络爬虫是一种自动化程序,用于访问和提取网站上的数据,Python是进行网络爬虫开发的理想语言,拥有丰富的库和工具,使得编写和维护爬虫变得简单高效,本文将... 目录网络爬虫的基本概念常用库介绍安装库Requests和BeautifulSoup爬虫开发发送请求解