1.Write 叙述
   ABAP/4 用来在屏幕上输出数据的指令是 Write 指令
   语法:
         Write 资料项
      数据项可以是常量或变量, 如:
         WRITE ‘This is sample’./*常量*/
         WRITE: ‘COMPANY:’,STFL-CARRID./*变量*/
2.指定屏幕位置显示
   语法:
         Write  AT [/] [] [(]  资料项
   / : 先往下一列
   pos : 屏幕X轴坐标
   (len): 显示资料的长度

   Example:
            WRITE ‘First Line ’.
            WRITE / 6 ‘Second Line’.
            输出结果:
                     First Line
                          Second Line
            DATA: NUMBER TYPE  I  VALUE ‘1234567890’.
                   TEXT(10) VALUE  ‘ABCDEFGHIJ’.
            WRITE: (5)  NUMBER, /(6) TEXT.
            输出结果:

                    *7890
                    ABCDEF
3.指定显示格式
   语法:
         WRITE  资料项  <显示格式参数>
   显示格式参数:
   LEFT-JUSTIFIED            资料靠左显示
   CENTERED                 资料靠中间显示
   RIGHT-JUSTIFIED           资料靠右显示
   UNDER                  在资料项的X轴开始坐标显示
   NO-GAP                    紧接着显示, 不留空格
   USING EDIT MASK       使用内嵌字符显示, 如 11:20:30
   USING NO EDIT MASK       不使用内嵌字符
   NO-ZERO                   数字前面0 的部分不显示
   NO-SIGN                    不显示正负号
   DECIMALS               显示 d 位小数字数
   EXPONENT               F(浮点数) exponent 的值
   ROUND                  四舍五入至小数位数下 r 位
   CURRENCY              币别显示
   DD/MM/YY                 日期显示格式
   MM/DD/YY
   DD/MM/YYYY
   MM/DD/YYYY
   DDMMYY
   MMDDYY
   YYMMDD
   Example:
           DATA:  X  TYPE  I  VALUE ‘112030’,
                   A(5)   VALUE ’ABCDE’.　
           WRITE  X  USING  EDIT  MASK  ‘__:__:__’.
           输出结果为 11:20:30
           WRITE  X  USING  EDIT  MASK ‘＄___,___’
           输出结果为＄112,030
4.产生空白列
   产生 n 个空白列
   语法:
         SKIP  []
   Example:
          WRITE ‘PASS1’.
          SKIP.
          WRITE ‘PASS2’.
          输出结果为:
                     PASS1

                     PASS2
5.显示图示
   可以显示R/3 系统所提供的符号或图标
   语法:
          WRITE    AS  SYMBOL
          WRITE    AS  ICON
   Example:
           INCLUDE
           INCLUDE
           WRITE: / ‘Phone Symbol:’ ,  SYM_PHONE  AS  SYMBOL.
           WRITE: / ‘Alarm Icon:’ ,  ICON_ALARM  AS  ICON.
6.跳至指定列坐标
   将坐标跳至指定的Y轴列坐标
   语法:
         SKIP  TO  LINE  []

   Example:
            SKIP  TO  LINE  5.
            WRITE  ‘PASS1’.　
7.显示 CHECK BOX 资料
   以字符串数据内容的第一个字符为 CHECK BOX的输出, 如果是空白, CHECK BOX 显示
   为空白,  相反则显示 X ,  可用在逻辑判断检查
   语法:
        WRITE  <资料项>  AS  CHECKBOX.

   Example:
           DATA:  FLAG1  VALUE  ‘  ‘ .
                   FLAG2  VALUE  ‘X’.
           WRITE: / ‘CHECK FLAG 1:’ , FLAG1  AS  CHECKBOX.
           WRITE: / ‘CHECK FLAG 2:’ , FLAG2  AS  CHECKBOX.

ITPub博客

ABAP基础(三)

最新文章