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

相关文章

Spring 请求之传递 JSON 数据的操作方法

《Spring请求之传递JSON数据的操作方法》JSON就是一种数据格式,有自己的格式和语法,使用文本表示一个对象或数组的信息,因此JSON本质是字符串,主要负责在不同的语言中数据传递和交换,这... 目录jsON 概念JSON 语法JSON 的语法JSON 的两种结构JSON 字符串和 Java 对象互转

C++如何通过Qt反射机制实现数据类序列化

《C++如何通过Qt反射机制实现数据类序列化》在C++工程中经常需要使用数据类,并对数据类进行存储、打印、调试等操作,所以本文就来聊聊C++如何通过Qt反射机制实现数据类序列化吧... 目录设计预期设计思路代码实现使用方法在 C++ 工程中经常需要使用数据类,并对数据类进行存储、打印、调试等操作。由于数据类

SpringBoot使用GZIP压缩反回数据问题

《SpringBoot使用GZIP压缩反回数据问题》:本文主要介绍SpringBoot使用GZIP压缩反回数据问题,具有很好的参考价值,希望对大家有所帮助,如有错误或未考虑完全的地方,望不吝赐教... 目录SpringBoot使用GZIP压缩反回数据1、初识gzip2、gzip是什么,可以干什么?3、Spr

SpringBoot集成Milvus实现数据增删改查功能

《SpringBoot集成Milvus实现数据增删改查功能》milvus支持的语言比较多,支持python,Java,Go,node等开发语言,本文主要介绍如何使用Java语言,采用springboo... 目录1、Milvus基本概念2、添加maven依赖3、配置yml文件4、创建MilvusClient

SpringValidation数据校验之约束注解与分组校验方式

《SpringValidation数据校验之约束注解与分组校验方式》本文将深入探讨SpringValidation的核心功能,帮助开发者掌握约束注解的使用技巧和分组校验的高级应用,从而构建更加健壮和可... 目录引言一、Spring Validation基础架构1.1 jsR-380标准与Spring整合1

MySQL 中查询 VARCHAR 类型 JSON 数据的问题记录

《MySQL中查询VARCHAR类型JSON数据的问题记录》在数据库设计中,有时我们会将JSON数据存储在VARCHAR或TEXT类型字段中,本文将详细介绍如何在MySQL中有效查询存储为V... 目录一、问题背景二、mysql jsON 函数2.1 常用 JSON 函数三、查询示例3.1 基本查询3.2

SpringBatch数据写入实现

《SpringBatch数据写入实现》SpringBatch通过ItemWriter接口及其丰富的实现,提供了强大的数据写入能力,本文主要介绍了SpringBatch数据写入实现,具有一定的参考价值,... 目录python引言一、ItemWriter核心概念二、数据库写入实现三、文件写入实现四、多目标写入

使用Python将JSON,XML和YAML数据写入Excel文件

《使用Python将JSON,XML和YAML数据写入Excel文件》JSON、XML和YAML作为主流结构化数据格式,因其层次化表达能力和跨平台兼容性,已成为系统间数据交换的通用载体,本文将介绍如何... 目录如何使用python写入数据到Excel工作表用Python导入jsON数据到Excel工作表用

Mysql如何将数据按照年月分组的统计

《Mysql如何将数据按照年月分组的统计》:本文主要介绍Mysql如何将数据按照年月分组的统计方式,具有很好的参考价值,希望对大家有所帮助,如有错误或未考虑完全的地方,望不吝赐教... 目录mysql将数据按照年月分组的统计要的效果方案总结Mysql将数据按照年月分组的统计要的效果方案① 使用 DA

鸿蒙中Axios数据请求的封装和配置方法

《鸿蒙中Axios数据请求的封装和配置方法》:本文主要介绍鸿蒙中Axios数据请求的封装和配置方法,本文给大家介绍的非常详细,对大家的学习或工作具有一定的参考借鉴价值,需要的朋友参考下吧... 目录1.配置权限 应用级权限和系统级权限2.配置网络请求的代码3.下载在Entry中 下载AxIOS4.封装Htt