ABAP AS文件目录动态创建

        项目上需要将附件上传得到ABAP AS的文件系统上,文件需要按照上传日期存放在 YYYY\MM对应的目录下,所以我们需要动态的创建文件夹,以应对不同月份的所需的新文件夹。以下便是使用ABAP在 AS上创建文件夹的code:

class ZCL_FILE_SYSTEM_UTIL definitionpublicfinalcreate public .public section.class-methods CHECK_DIRECTORY_EXISTimporting!IV_DIR type STRINGreturningvalue(RV_EXIST) type ABAP_BOOL .class-methods CREATE_DIRECTORYimporting!IV_CREATE_DIR type STRINGreturningvalue(RV_SUCCESS) type ABAP_BOOL .
protected section.
private section.types:TY_SEPARATOR(1)  type c .class-data GC_SEPARATOR_SLASH type TY_SEPARATOR value '/' ##NO_TEXT.class-data GC_SEPARATOR_BACKSLASH type TY_SEPARATOR value '\' ##NO_TEXT.
ENDCLASS.CLASS ZCL_FILE_SYSTEM_UTIL IMPLEMENTATION.* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZCL_FILE_SYSTEM_UTIL=>CHECK_DIRECTORY_EXIST
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_DIR                         TYPE        STRING
* | [<-()] RV_EXIST                       TYPE        ABAP_BOOL
* +--------------------------------------------------------------------------------------</SIGNATURE>METHOD check_directory_exist.
**********************************************************************
* 检查目录是否存在
**********************************************************************DATA:lv_dir      TYPE sxpgcolist-parameters,lv_status   TYPE extcmdexex-status,lv_exitcode TYPE extcmdexex-exitcode,lt_protocol TYPE  TABLE OF btcxpm.lv_dir = iv_dir.
* 调用SM69中定义的OS命令CALL FUNCTION 'SXPG_COMMAND_EXECUTE'EXPORTINGcommandname                   = 'ZLS'additional_parameters         = lv_dirIMPORTINGstatus                        = lv_statusexitcode                      = lv_exitcodeTABLESexec_protocol                 = lt_protocolEXCEPTIONSno_permission                 = 1command_not_found             = 2parameters_too_long           = 3security_risk                 = 4wrong_check_call_interface    = 5program_start_error           = 6program_termination_error     = 7x_error                       = 8parameter_expected            = 9too_many_parameters           = 10illegal_command               = 11wrong_asynchronous_parameters = 12cant_enq_tbtco_entry          = 13jobcount_generation_error     = 14.IF sy-subrc EQ 0 AND lv_status EQ 'O' AND lv_exitcode EQ '0'.rv_exist = abap_true.ELSE.rv_exist = abap_false.ENDIF.ENDMETHOD.* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZCL_FILE_SYSTEM_UTIL=>CREATE_DIRECTORY
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_CREATE_DIR                  TYPE        STRING
* | [<-()] RV_SUCCESS                     TYPE        ABAP_BOOL
* +--------------------------------------------------------------------------------------</SIGNATURE>METHOD create_directory.
**********************************************************************
* 在AS上创建目录
**********************************************************************DATA:lv_dir      TYPE string,lv_para     TYPE sxpgcolist-parameters,lv_status   TYPE extcmdexex-status,lv_exitcode TYPE extcmdexex-exitcode,lt_protocol TYPE  TABLE OF btcxpm.DATA:lv_separator TYPE string." 目录分隔符DATA:lt_dir TYPE TABLE OF string.IF check_directory_exist( iv_dir = iv_create_dir ) EQ abap_false." 目录不存在* 判断分隔符IF iv_create_dir CS gc_separator_slash.lv_separator = gc_separator_slash.ELSE.lv_separator = gc_separator_backslash.ENDIF.* 逐级检查目录SPLIT iv_create_dir AT lv_separator INTO TABLE lt_dir.CLEAR lv_dir.LOOP AT  lt_dir INTO DATA(ls_dir).IF ls_dir eq ''.CONTINUE.ENDIF.lv_dir = |{ lv_dir }{ lv_separator }{ ls_dir }|.
* 检查目录是否存在IF  check_directory_exist( iv_dir = lv_dir ) EQ abap_false." 不存在,则创建lv_para = lv_dir.
** 调用SM69中定义的 OS 命令CALL FUNCTION 'SXPG_COMMAND_EXECUTE'EXPORTINGcommandname                   = 'ZMKDIR'additional_parameters         = lv_paraIMPORTINGstatus                        = lv_statusexitcode                      = lv_exitcodeTABLESexec_protocol                 = lt_protocolEXCEPTIONSno_permission                 = 1command_not_found             = 2parameters_too_long           = 3security_risk                 = 4wrong_check_call_interface    = 5program_start_error           = 6program_termination_error     = 7x_error                       = 8parameter_expected            = 9too_many_parameters           = 10illegal_command               = 11wrong_asynchronous_parameters = 12cant_enq_tbtco_entry          = 13jobcount_generation_error     = 14.IF  sy-subrc EQ 0 AND lv_status EQ 'O' AND lv_exitcode EQ '0'." 创建成功ELSE." 创建失败rv_success = abap_false.EXIT.ENDIF.ELSE." 存在,则继续检查下级目录ENDIF.ENDLOOP.IF sy-subrc EQ 0 AND lv_status EQ 'O' AND lv_exitcode EQ '0'.rv_success = abap_true.ELSE.rv_success = abap_false.ENDIF.ELSE." 目录存在,直接返回成功rv_success = abap_true.ENDIF.ENDMETHOD.ENDCLASS.

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.mzph.cn/diannao/18786.shtml

如若内容造成侵权/违法违规/事实不符,请联系多彩编程网进行投诉反馈email:809451989@qq.com,一经查实,立即删除!

相关文章

spring aop 内部引用失效分析

背景 用了spring retry 发现在有些场景下失效&#xff0c;也让我想起了之前看spring 事务时会有一些场景下失效的这个问题 代码 接口public interface UserService {public void start() ;public void stop(); }实现类 Service public class UserServiceImpl implements User…

AI绘画Stable Diffusion XL 可商用模型!写实艺术时尚摄影级真实感大模型推荐(附模型下载)

大家好&#xff0c;我是设计师阿威 大家在使用AI绘画的时候&#xff0c;是不是遇到这种问题&#xff1a;收藏的模型确实很多&#xff0c;可商用的没几个&#xff0c;而今天阿威将给大家带来的这款写实艺术时尚摄影级真实感大模型-墨幽人造人XL&#xff0c; 对于个人来讲完全是…

Springboot事务控制中A方法调用B方法@Transactional生效与不生效情况实战总结

介绍 本篇对Springboot事务控制中A方法调用B方法Transactional生效与不生效情况进行实战总结&#xff0c;让容易忘记或者困扰初学者甚至老鸟的开发者&#xff0c;只需要看这一篇文章即可立马找到解决方案&#xff0c;这就是干货的价值。喜欢的朋友别忘记来个一键三连哈&#x…

【wiki知识库】03.前后端的初步交互(展现所有的电子书)

&#x1f4dd;个人主页&#xff1a;哈__ 期待您的关注 目录 一、&#x1f525;今日目标 二、&#x1f4c2;前端配置文件补充 三、&#x1f30f;前端Vue的改造 四、&#x1f4a1;总结 一、&#x1f525;今日目标 在上一篇文章当中&#xff0c;我已带大家把后端的一些基本工…

【算法】重建二叉树并进行后序遍历的Java实现

人不走空 &#x1f308;个人主页&#xff1a;人不走空 &#x1f496;系列专栏&#xff1a;算法专题 ⏰诗词歌赋&#xff1a;斯是陋室&#xff0c;惟吾德馨 目录 &#x1f308;个人主页&#xff1a;人不走空 &#x1f496;系列专栏&#xff1a;算法专题 ⏰诗词歌…

服务器主机托管一站式托管服务有哪些?

服务器主机托管一站式托管服务&#xff0c;作为现代企业信息化建设的重要一环&#xff0c;为企业提供了一种高效、安全、可靠的服务器运行环境。下面&#xff0c;我们将从多个方面详细介绍这一服务的内容。 一、硬件与基础设施 服务器主机托管服务首先涵盖了服务器硬件和网络基…

Java 18 新特性详解:提升开发效率与性能

Java 18 新特性详解 Java 18 是 Oracle 于 2022 年发布的最新版本,带来了许多新的特性和改进。本文将深入探讨 Java 18 的主要新特性及其应用场景,帮助开发者更好地理解和利用这些新功能。 1. 简单的 Web 服务器 Java 18 引入了一个简单的 HTTP 文件服务器,旨在为开发和测…

论文解读之A General-Purpose Self-Supervised Model for Computational Pathology

一、前言 目前&#xff0c;有很多无知者认为计算机在疾病诊断上超过了人类&#xff0c;他们的理解是计算机在美丽国的某个什么医师测评上得分超过了人类。这比较可笑和无知。 笔者认为&#xff1a;病理图像的病症复杂、种类繁多&#xff0c;同时数据集很少并且标注极为困难。…

【JavaEE进阶】——Spring Web MVC (响应)

目录 &#x1f6a9;学习Spring MVC &#x1f388;返回静态网页 &#x1f388;返回数据ResponseBody &#x1f388;返回html代码片段 &#x1f388;返回JSON &#x1f388;设置状态码 &#x1f388;设置Header &#x1f6a9;学习Spring MVC 既然是 Web 框架, 那么当⽤⼾在…

剪画小程序:自媒体创作的第一步:如何将视频中的文案提取出来?

自媒体创作第一步&#xff0c;文案提取无疑是至关重要的一环。 做自媒体之所以要进行文案提取&#xff0c;有以下重要原因&#xff1a; 首先&#xff0c;提高效率。通过文案提取&#xff0c;可以快速获取关键信息&#xff0c;避免在无关紧要的内容上浪费时间&#xff0c;从而…

Flutter 中的 YearPicker 小部件:全面指南

Flutter 中的 YearPicker 小部件&#xff1a;全面指南 在 Flutter 应用开发中&#xff0c;为用户提供日期和时间选择功能是常见的需求。YearPicker 是一个允许用户选择年份的小部件&#xff0c;它通常用于实现日期选择器或表单中年份字段的输入。虽然 Flutter 的标准库中没有直…

YOLOV10阅读总结

GitHub - THU-MIG/yolov10: YOLOv10: Real-Time End-to-End Object Detection YOLOv10 - Ultralytics YOLO Docs https://arxiv.org/pdf/2405.14458 论文地址 最近yolo又出了个yolov10了&#xff0c;不得不感慨CV是真卷&#xff0c;毕竟yolov9也才没多久。记录一下阅读笔记。…

第一站挺进巴中,茅仙酒带来“1+1”模式新玩法

执笔 | 尼 奥 编辑 | 扬 灵 今年春糖期间&#xff0c;以“盛世华章何以鉴 酱酒经典品茅仙”为主题的茅仙酒新品发布会给白酒行业留下深刻印象。这瓶传承历史、恪守匠心、创美奋进的佳酿在“茅台家族、集团出品”的品牌加持下&#xff0c;开启了全国化征程的新步伐。 近日&…

突破空间限制,这些远程控制软件为父母送上“手把手”的教导,解决异地办公难题,出差无忧

在现代社会&#xff0c;科技的飞速发展带来了诸多便利&#xff0c;但同时也给一些年长的父母们带来了困扰。 当父母们面对智能手机电脑等高科技产品时&#xff0c;他们往往感到无所适从&#xff0c;而子女们忙于工作、学习或其他原因&#xff0c;常常无法时刻陪伴在父母身边&a…

Qt6 QSslSocket 客户端设计踩坑

QSslSocket 默认自动搜索代理设置&#xff0c;当系统中存在代理时&#xff0c;执行 connectToHostEncrypted 会导致 socket error: UnsupportedSocketOperationError&#xff0c;具体错误是 connect error is "The proxy type is invalid for this operation"&#…

门限签名技术

私钥永远不存在 (t, n) 门限签名方案 (TSS) 是一种密码协议&#xff0c;允许一组 n 个参与者共同签署文档或交易&#xff0c;其中 t 1 个或更多参与者的任何子集都可以产生有效签名&#xff0c;但 t 的子集 或更少的人不能。 该方案旨在通过确保没有任何一方可以单方面生成签名…

QCC30XX如何查找本地地址码

查找本地地址段/********************************************************************** Copyright (c) 2016 - 2017 Qualcomm Technologies International, Ltd. FILE NAME sink_private_data.c DESCRIPTION This module works as a container for all private and common…

企业内部聊天软件Riot部署

ubuntu docker 简介 Riot(原Vector)是使用Matrix React SDK构建的Matrix网络聊天客户端,开源免费,功能丰富,支持私人对话,团队对话,语言视频对话,上传文件,社区互动。支持在聊天界面添加各种有趣的插件,比如RSS等各种机器人、虚拟币实时监控等。并且所有通过Riot传…

注意力机制篇 | YOLOv8改进之引入用于目标检测的混合局部通道注意力MLCA

前言:Hello大家好,我是小哥谈。注意力机制是可以帮助神经网络突出重要元素,抑制无关元素。然而,绝大多数通道注意力机制只包含通道特征信息,忽略了空间特征信息,导致模型表示效果或目标检测性能较差,且空间注意模块往往较为复杂。为了在性能和复杂性之间取得平衡,本文提…

2024年刚刚翻新前端vue面试题

1、vue中常用的指令及作用? v-text指令:用于更新标签包含的文本,它的作用跟双大括号效果是一样的v-html指令:绑定一些包含html代码的数据在视图上v-show指令:指令的取值为true/false,分别对应着显示/隐藏,改变的是元素css样式的display属性v-if指令:取值为true/false,…