据说是Jack Wu的自定义函数！烂

Jack Wu的自定义函数！
1、建立自定义函数
1.1 整数显示
FUNCTION CONVERSION_EXIT_Z0002_OUTPUT.
*"----------------------------------------------------------------------
*"*"Local interface:
*"  IMPORTING
*"    REFERENCE(INPUT)
*"  EXPORTING
*"    REFERENCE(OUTPUT)
*"----------------------------------------------------------------------
  DATA: OUTPUT1(12) TYPE C,
      OUTDATUM TYPE INT4.
  IF INPUT <> SPACE.
OUTDATUM = INPUT.
if input > 0.
   move OUTDATUM TO OUTPUT .
else.
   OUTDATUM = OUTDATUM * ( -1 ).
   move OUTDATUM TO OUTPUT1 .
   CONCATENATE '-' output1 into output.
   CONDENSE output NO-GAPS .
endif.
  ELSE.
OUTPUT = SPACE.
  ENDIF.
ENDFUNCTION.
1.2 浮点数显示
FUNCTION conversion_exit_zsign_output.
*"----------------------------------------------------------------------
*"*"Local interface:
*"  IMPORTING
*"    REFERENCE(INPUT)
*"  EXPORTING
*"    REFERENCE(OUTPUT)
*"----------------------------------------------------------------------

DATA: output1(19) TYPE c,
      output2(19),
      outdatum TYPE p DECIMALS 2.
  IF  not input is initial.
outdatum = input.
IF input > 0.
   WRITE outdatum TO output1 ."RIGHT-JUSTIFIED .
   CONCATENATE ' ' output1 INTO output1.
ELSE.
   outdatum = outdatum * ( -1 ).
   WRITE outdatum TO output1 ."RIGHT-JUSTIFIED.
   CONCATENATE '-' output1 INTO output1.
ENDIF.
  ELSE.
* output = '0.00'.
CLEAR output1.
  ENDIF.
  CONDENSE output1 NO-GAPS .
  WRITE output1 TO output2 RIGHT-JUSTIFIED .
  output = output2.
ENDFUNCTION.

2、设置ALV输出格式字段格式
  clear ls_fcat.
  ls_fcat-fieldname = 'INT4'.
  ls_fcat-inttype = 'I'.
  ls_fcat-intlen = 10.
  ls_fcat-col_pos = l_lin.
  ls_fcat-seltext_s = ls_fcat-fieldname.
  ls_fcat-seltext_m = ls_fcat-fieldname.
  ls_fcat-seltext_l = ls_fcat-fieldname.
  ls_fcat-edit_mask = '==Z0002'.
  append ls_fcat to ct_fcat.

3、调用函数就可达到负数符号前显的效果。
  call function 'REUSE_ALV_GRID_DISPLAY'
exporting
   it_fieldcat                      = lt_fcat
tables
   t_outtab                         = gt_outtab
exceptions
   program_error                   = 1
   others                         = 2.

据说是Jack Wu的自定义函数！烂相关推荐

详解Python模块化编程-自定义函数
本文目录 0.楔子 1.自定义函数格式 2.编写函数说明文档 3.函数参数函数形参和实参区别位置实参关键字实参默认实参让实参可选传递任意数量的实参结合使用位置实参和任意数量实参使用任意数量的关键字实参 ...
自定义函数_python3基础07函数（自定义）
"pythonic生物人"的第43篇分享. 详细介绍python中:自定义函数的构建:参数传递:模块中调用函数. 目录 0.楔子 1.自定义函数格式 2.编写函数说明文档 3.函数 ...
mysql 自定义函数事务_MySQL存储过程、触发器、自定义函数、事务
1.存储过程 MySQL中存储过程的参数中有IN.OUT.INOUT类型,但是函数的参数只能是IN类型的. "in" 参数:跟 C 语言的函数参数的值传递类似, MySQL 存储过 ...
柱底反力求和lisp软件_AutoLISP 基础——认识自定义函数
AutoLISP 基础--认识自定义函数 ( 本文由 LL_J ‚认识自定义函数‛和‚ Autolisp 编程心得‛两篇巨著合成, 并融入了其他人的一些经验,以快速打通你的任督二脉 --自贡黄明儒注 ...
python自定义函数的关键字_python学习之--自定义函数：
Python之--自定义函数: 在Python中,定义一个函数要使用def语句,依次写出函数名.括号.括号中的参数和冒号:,然后,在缩进块中编写函数体,函数的返回值用return语句返回. 以下自定义 ...
Origin使用自定义函数拟合曲线函数
(2019年2月19日注:这篇文章原先发在自己github那边的博客,时间是2016年10月28日) 最近应该是六叔的物化理论作业要交了吧,很多人问我六叔的作业里面有两道题要怎么进行图像函数的拟合.综 ...
构建一个轻量级的嵌入式虚拟平台，开发工程用板stm32 picoc解释器，大量自定义函数，sarm拓展，lwip移植，nes模拟器移植，系统优化，等等技术的融合
让嵌入式想java一样一处编写到处运行第一次写博客,其实接触嵌入式已经快两年了,从开始学51单片机的时候,怀着满腔的热情.写出了点亮第一个流水灯代码的时候那个无比的激动,到后面自己做许多有趣的东西( ...
你所不知道的Excel自定义函数BUG
使用VBA开发自定义函数,可以弥补Excel内置函数的不足,简化函数公式,但是需要注意实现同样功能,自定义函数的效率远远不如内置函数,所以不要试图重新发明轮子. 最近发现了一个自定义函数的BUG(也可 ...
8.Hive基础—函数—系统内置函数、常用内置函数、自定义函数、自定义UDF函数、自定义UDTF函数
本文目录如下: 第8章函数 8.1 系统内置函数 8.2 常用内置函数 8.2.1 空字段赋值 8.2.2 CASE WHEN THEN ELSE END 8.2.3 行转列 8.2.4 列转行 8 ...

据说是Jack Wu的自定义函数！烂

据说是Jack Wu的自定义函数！烂相关推荐

最新文章

热门文章