ABAP学习(35):常用Function
ABAP Function
ABAP Coding过程中比较好用的Function整理。
1.获取Domain信息
代码实例:
"********************************获取domain
FORM f_get_domain.
DATA:fs_taba TYPE dd07v.
DATA:it_taba TYPE STANDARD TABLE OF dd07v.
DATA:it_tabb TYPE STANDARD TABLE OF dd07v. CALL FUNCTION 'DD_DOMA_GET'
EXPORTING
DOMAIN_NAME = 'XXX'
LANGU = SY-LANGU
WITHTEXT = 'X'
TABLES
DD07V_TAB_A = it_taba
DD07V_TAB_N = it_tabb
EXCEPTIONS
ILLEGAL_VALUE = 1
OP_FAILURE = 2
OTHERS = 3.
IF SY-SUBRC = 0.
LOOP AT it_taba INTO fs_taba.
WRITE:/ sy-tabix,fs_taba-domvalue_l,fs_taba-ddtext.
ENDLOOP.
LOOP AT it_tabb INTO fs_taba.
WRITE:/ sy-tabix,fs_taba-domvalue_l,fs_taba-ddtext.
ENDLOOP.
ENDIF.
ENDFORM.
2.非金额单位数据转换
代码实例:
"*************************单位数据转换
FORM f_change_unit.
DATA:v_out TYPE P DECIMALS 1.
DATA:v_in TYPE P DECIMALS 1 VALUE 1000.
CALL FUNCTION 'UNIT_CONVERSION_SIMPLE'
EXPORTING
INPUT = v_in
* NO_TYPE_CHECK = 'X'
* ROUND_SIGN = ' '
UNIT_IN = 'G'
UNIT_OUT = 'KG'
IMPORTING
OUTPUT = v_in. IF SY-SUBRC <> 0.
MESSAGE s000 WITH 'error'.
ELSE.
MESSAGE s000 WITH v_in.
* Implement suitable error handling here
ENDIF.
ENDFORM.
3.获取金额转换汇率
代码实例:
"获取汇率转换汇率
FORM f_get_rate.
DATA:lv_type TYPE tcurr-kurst.
DATA:lv_rate TYPE P LENGTH 15 DECIMALS 2.
DATA:lv_msg TYPE string.
lv_type = 'AVTW'.
"获取汇率
CALL FUNCTION 'READ_EXCHANGE_RATE'
EXPORTING
CLIENT = sy-mandt
DATE = sy-datum
FOREIGN_CURRENCY = 'RMB'
LOCAL_CURRENCY = 'USD'
TYPE_OF_RATE = lv_type
IMPORTING
EXCHANGE_RATE = lv_rate
EXCEPTIONS
NO_RATE_FOUND = 1
NO_FACTORS_FOUND = 2
NO_SPREAD_FOUND = 3
DERIVED_2_TIMES = 4
OVERFLOW = 5
ZERO_RATE = 6.
IF sy-subrc <> 0.
lv_msg = 'Get exchange rate failed!'.
MESSAGE lv_msg TYPE 'E'.
ELSE.
lv_msg = 'Translate RMB TO USD Rate:' && lv_rate.
MESSAGE lv_msg TYPE 'S'.
ENDIF.
ENDFORM.
4.字符串转换到字符串内表
Function Group:SCMS_CONV
字符串转换到字符串内表:SCMS_STRING_TO_FTEXT
字符串转换成Xstring: SCMS_STRING_TO_XSTRING
字符串内表转换Xstring: SCMS_FTEXT_TO_XSTRING
字符串内表转换String: SCMS_FTEXT_TO_STRING
代码实例:
"***********************字符串转换为字符串内表
FORM f_trans_strtoitab.
TYPES:BEGIN OF t_str,
str(255) TYPE C,
END OF t_str.
DATA:lt_str TYPE TABLE OF t_str.
DATA:ls_str LIKE LINE OF lt_str.
DATA:lv_length TYPE i.
CALL FUNCTION 'SCMS_STRING_TO_FTEXT'
EXPORTING
TEXT = 'hello world懒得看缴费对的看法角度abcdef'
IMPORTING
LENGTH = lv_length
TABLES
FTEXT_TAB = lt_str.
WRITE:/ lv_length.
LOOP AT lt_str INTO ls_str.
WRITE:/ ls_str-str.
ENDLOOP.
ENDFORM.
5.根据字符串公式计算值
代码实例:
"******************通过公式计算分数
TYPES:t_p TYPE p LENGTH 15 DECIMALS 2.
FORM f_calculate_formula
USING iv_formula TYPE string
CHANGING ev_result TYPE t_p.
DATA:lv_qsollwerte TYPE qsollwerte.
DATA:lv_float TYPE float. CALL FUNCTION 'EVAL_FORMULA'
EXPORTING
formula = iv_formula
IMPORTING
value = lv_float. ev_result = lv_float.
ENDFORM.
FORM f_test_cal.
DATA:lv_formula TYPE string.
DATA:lv_res TYPE P LENGTH 15 DECIMALS 2. lv_formula = '1000/200+20*(0.25/1.2)*10'.
PERFORM f_calculate_formula USING lv_formula CHANGING lv_res.
lv_res = lv_res.
WRITE:/ lv_res.
ENDFORM.
6.字符串前导0的添加与删除
代码实例:
"******************字符串前补0,删除前导0
FORM f_numb_0.
"*******************************************数字符串前补0
WRITE:/'数字字符串前补0'.
DATA: input_p(3) type N value '344'.
DATA: output_p(20) type N. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = input_p
IMPORTING
OUTPUT = output_p
.
WRITE:/ input_p,'----', output_p. "*****************************************消除数字符串前0
DATA: input_p1(10) type N value '00034'.
DATA: output_p1(3) type N .
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
EXPORTING
INPUT = input_p1
IMPORTING
OUTPUT = output_p1
.
WRITE:/ input_p1,'----',output_p1.
ENDFORM.
7.全角半角转换
代码实例:
"*******************************全角半角转换
FORM f_change_quanjiao.
DATA:lv_c TYPE C LENGTH 20.
lv_c = ' hello自大'. "全角转换半角
CALL FUNCTION 'SJIS_DBC_TO_SBC'
EXPORTING
ALL = 'X'
CHANGING
TEXT = lv_c.
IF SY-SUBRC <> 0. ELSE.
WRITE:/ lv_c.
CONDENSE lv_c NO-GAPS.
WRITE:/ lv_c.
ENDIF. "半角转换全角
CALL FUNCTION 'SJIS_SBC_TO_DBC'
EXPORTING
ALL = 'X'
* IMPORTING
* CONVERTED =
* HIT =
CHANGING
TEXT = lv_c
EXCEPTIONS
OVERFLOW = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
MESSAGE 'error' TYPE 'E'.
ELSE.
WRITE:/ lv_c.
ENDIF.
ENDFORM.
ABAP学习(35):常用Function的更多相关文章
- abap 常用 function
ABAP常用函数总结 alv .smartform. excel .text.邮件 .远程访问,FTP服务器... **********常用功能function REUSE_ALV_GRID_DI ...
- 转载-聊一聊深度学习的activation function
目录 1. 背景 2. 深度学习中常见的激活函数 2.1 Sigmoid函数 2.2 tanh函数 2.3 ReLU函数 2.4 Leaky ReLu函数 2.5 ELU(Exponential Li ...
- SAP ABAP学习路线图--标准教程
SAP ABAP学习路线图--标准教程 摘自:http://www.cnblogs.com/clsoho/archive/2010/07/05/1771400.html
- IOS学习:常用第三方库(GDataXMLNode:xml解析库)
IOS学习:常用第三方库(GDataXMLNode:xml解析库) 解析 XML 通常有两种方式,DOM 和 SAX: DOM解析XML时,读入整个XML文档并构建一个驻留内存的树结构(节点树),通过 ...
- Swift学习之常用UI的使用
Swift学习之常用UI的使用 最近笔者在开始学习苹果最新的编程语言,因为笔者认为,苹果既然出了这门语言就绝对不会放弃,除非苹果倒闭了(当然这里知识一个玩笑). 所以在不久的将来,swift绝对是iO ...
- IOS开发-OC学习-常用功能代码片段整理
IOS开发-OC学习-常用功能代码片段整理 IOS开发中会频繁用到一些代码段,用来实现一些固定的功能.比如在文本框中输入完后要让键盘收回,这个需要用一个简单的让文本框失去第一响应者的身份来完成.或者是 ...
- springmvc学习笔记(常用注解)
springmvc学习笔记(常用注解) 1. @Controller @Controller注解用于表示一个类的实例是页面控制器(后面都将称为控制器). 使用@Controller注解定义的控制器有如 ...
- c/c++再学习:常用字符串转数字操作
c/c++再学习:常用字符串转数字操作 能实现字符串转数字有三种方法,atof函数,sscanf函数和stringstream类. 具体demo代码和运行结果 #include "stdio ...
- 一张图学习vim常用命令
一张图学习vim常用命令
- Python 常用模块系列学习(1)--random模块常用function总结--简单应用--验证码生成
random模块--random是一个生成器 首先: import random #导入模块 print (help(random)) #打印random模块帮助信息 常用function ...
随机推荐
- 学习ASP.NET Core Blazor编程系列二十二——登录(1)
学习ASP.NET Core Blazor编程系列文章之目录 学习ASP.NET Core Blazor编程系列一--综述 学习ASP.NET Core Blazor编程系列二--第一个Blazor应 ...
- 在 SpringBoot 项目中简单实现 JWT 验证
使用 SpringBoot 提供 api 的时候,我更喜欢使用 jwt 的方式来做验证.网上有会多 Spring Security 整合 jwt 的,也有 Shiro 整合 jwt 的,感觉有点复杂. ...
- 【大型软件开发】浅谈大型Qt软件开发(四)动态链接库的宏冲突问题、COM组件开发的常见问题
最近工作的时候有一个链接库的对接工作,在对接时发生了一些小问题,这篇FAQ是办公室写这个库的工程师戴工写的,这里记录一下: 一.编译工程时报链接错误"不允许dllimport静态数据成员的定 ...
- 亲测有效! Bypass V1.15.5 12306分流抢票助手 for Windows
亲测有效! Bypass V1.15.5 12306分流抢票助手 for Windows 12306Bypass也就是12306分流抢票软件,是一款全程自动抢票,自动识别验证码,多线程秒单.稳定捡漏, ...
- C# winform 一个窗体需要调用自定义用户控件的控件名称
给用户控件ucQRCode增加属性: //二维码图片 private PictureBox _pictureBoxFSHLQrCode; public PictureBox PictureBoxFSH ...
- 二:Spring Mvc 框架
二:SpringMVC 异常码: 405:请求不允许 404:资源不存在 400:参数有问题 500:代码有问题 SpringMvc是Spring FrameWork提供的WEB组件,是目前的主流的实 ...
- 0x06_自制操作系统My-OS,IDT,GDT,PIC初始化,实现键盘中断
把class03改成class04 IDT,GDT,PIC 我来介绍什么是IDT和GDT,PIC,怎么实现键盘中断 GDT全局描述表在16位CPU用不到,到了32位CPU要用. 16位CPU实模式用基 ...
- Winform 程序多开
在使用应用程序的过程中,经常要求应用程序只能运行一次.如果发现重复开启,应从系统进程列表中搜索到已经开启的进程,并将该进程窗口移到最前端显示. 记录一下过程. 实现过程 在 Program.cs 文件 ...
- JZOJ 1075. 【GDKOI2006】新红黑树
\(\text{Problem}\) A君和B君在玩一种叫做新红黑树的游戏,即在一棵由红枝和黑枝构成的树上轮流砍树枝,每次砍一枝,A君每次只能砍红枝,B君每次只能砍黑枝,当其中某人已经没有树枝砍的时候 ...
- JZOJ 5415. 【NOIP2017提高A组集训10.22】公交运输
题目 城市中有一条长度为 \(n\) 的道路,每隔 \(1\) 的长度有一个公交车站,编号从 \(0\) 到 \(n\),学校在 \(0\) 号车站的位置.其中每个公交车站(除了 \(n\) 号车站) ...