[SAP - ABAP] 程序设计基础

SY-SUBRC：语句执行后的返回值，0表示成功
SY-DATUM：当前服务器日期
SY-UZEIT：当前服务器时间
SY-ULINE：255长度的水平线
SY-VLINE：垂直线
SY-INDEX：循环说执行的次数
SY-TABIX：内表循环的次数
SY-DYNNR：当前Screen号
SY-MANDT：当前登录的Client号
SY-STEPL：返回当前操作的屏幕行号（Table Control）
SY-LOOPC：当前表格控件在屏幕中的总行数（Table Control）
SY-UCOMM：PAI所出发的功能代码
SY-DYNNR：当前屏幕号
SY-MSGID：Message Class
SY-MSGNR：Message Number
SY-MSGTY：Message Type
SY-MSGV1~4：Message Variant
SY-LINCT：REPROT语句中设定的LINE-COUNT
SY-LINSZ：REPROT语句中设定的LINE-SIZE
SY-SROWS：当前窗口的列表行数
SY-SCOLS：当前窗口的列表栏目数
SY-PAGNO：当前页的页码
SY-LINNO：当前选定行的行号
SY-COLNO：当前选定列的列号
SY-LSIND：当前列表索引，第一级列表为1
SY-LILLI：选择某行时光标行位置
SY-CUROW：选择某行时光标列位置

 

 

===== 1 简单处理快 =====

REPORT  z_processing_blocks.

DATA: text1(10) TYPE c VALUE 'Basic List',
      text2(14) TYPE c VALUE 'Secondary List'.

* Processing Block 1 : Event Block - START-OF-SELECTION
START-OF-SELECTION.
  DO 5 TIMES.
    PERFORM output_line USING sy-index.
  ENDDO.
* Processing Block 2 : Event Block - AT line-selection
AT LINE-SELECTION.
  WRITE: text2 , sy-lsind.     
* processing block 3 : procedure - subroutine output_line
FORM output_line USING p_index.
  WRITE: / text1 , p_index.
ENDFORM.

 

===== 2 程序调用程序 =====

REPORT  z_calling_program.

START-OF-SELECTION.
  WRITE  'This program calls another program.'.
*  SUBMIT z_simple_program.
  SUBMIT z_simple_program AND RETURN.   " 注意这里的语法

 

===== 3 数据定义 =====

DATA txt1(15) TYPE c VALUE 'Data Object'.

TYPES t_txt(15) TYPE c.
DATA txt2 TYPE t_txt VALUE 'Data Object'.

TYPES: BEGIN OF t_staff,
  s_no(3) TYPE n,
  name(20),
  END OF t_staff.
DATA staff TYPE t_staff.

DATA: date TYPE d,
 time TYPE t.
date = '20051231'.
time = '121520'.
date = date+1. "新值为2006年1月1日

DATA: chinese_name(20) TYPE c,
 f_name TYPE t_name VALUE 'Cheong',
 l_name LIKE f_name VALUE 'Jacky'.

（1数据字典基本类型）
DATA: carr TYPE z_carr. "这里 z_carr是在数据字典中定义的基本类型（数据元素），见95页
carr = 'CZ'.
（2数据字典引用类型）
DATA myref TYPE z_zef.
CREATE DATA myref TYPE z_ref.
（3数据字典结构类型）
DATA mystruc TYPE z_struc,
 mycomp TYPE z_struc-comp1.
（4数据字典表类型）
DATA mytable TYPE z_table,
 myline TYPE LINE OF z_table.

CONSTANTS: pi TYPE p DECIMALS 10 VALUE '3.1415926'.

 

===== 4 ABAP内置基本数据类型 =====

C  文本字符串  'Name'
N  数字文本  '1234'
T  时间   '120301'
D  日期   '20091113'
I  整型   99
F  浮点数   5E+04
P  压缩数   12.91
X  十六进制数  '3A'
String 字符串   'A String'
XSring 十六进制字符串 'A3FF'

 

 

 

===== 5 结构体 =====

REPORT  z_define_structure_90_djb."该程序点运行后无反应?

TYPES:spfli_type    TYPE spfli,"spfli是一个数据字典g结构
      surname(20)   TYPE c,
      BEGIN OF address,
            name       TYPE surname,
            street(30) TYPE c,
            city       TYPE spfli_type-cityfrom,
       END OF address.
DATA my_add TYPE address.

my_add-name = 'Zhang Ming'.
my_add-street = 'No.10 Nanyang Ave'.
my_add-city = 'Singapore'.

 

===== 6 系统数据对象 =====

SY-DATUM 系统日期
SY-UZEIT 系统时间
SY-INDEX 当前循环的次数索引

 

 

 

===== 7 确定运行时数据对象属性 =====

REPORT  z_describe_attribute_99_djb.

DATA: text(18) TYPE c VALUE  'abcdefgh' ,  len TYPE i.

*DESCRIBE FIELD text OUTPUT-LENGTH len.
*WRITE: text , 'has length' , len.

DESCRIBE FIELD text LENGTH len IN CHARACTER MODE.
WRITE: text , 'has length' , len.