子程序定义

以form开始,以endform结束,用perform语句调用,from语句可以在程序内部/外部,perform一定要写在前面

perform.
from.
子程序模块
endform.

perform writedata. "如果写到子程序模块后,这一行会提示 Statement is not accessible 问题:ABAP是编译型语言还是解释性语言
form writedata.
write 'asdfasdf'.
endform. "writedata

或者双击子程序名称,创建子程序

1.在新文件中写子程序,在调用文件中写入包含语句

INCLUDE Z_YZW_STRUC_WRITEDATAF01.

2.如果是在原文件写子程序就写在perfrom语句下面

子程序参数

• 调用子程序时用于传入/传出的值.参数一般用data语句定义的局部变量相同.
• 调用子程序使用的参数是实参, 子程序中的参数叫形参
• perform利用using/changing定义参数,位置参数,顺序要保持一致

FROM subr USING p1 TYPE type
VALUE(p2) TYPE type
…
CHANGING p3 TYPE type
VALUE(p4) TYPE type

传参

使用using和changing语句传参, 3种方法

• Call by Value, 传入参数即实参与传出参数即形参有不同的物理内存, 使用using关键字传递参数时与value语句一起搭配使用

FROM sub USING … VALUE(pi) [TYPE | LIKE ].

VALUE子句形参占用自己的单独内存, 调用子程序是,实参值复制到形参中,即使改变形参的值也不户影响实参值

data: gv_val type c length value 'I am value'. "引号内为实参

perform call_byvalue using gv_val. "执行子程序,带参数gv_val
form call_byvalue using value(p_val). "p_val是形参,是局部变量
write p_val. "打印形参,就是打印实参内容
endform.

• Call by reference, 具有相同的物理内存并且互相传递内存地址, 使用changing关键字传参, 改变子程序参数值;调用时,子程序形参内存地址空间指向实参内存地址空间

FROM subr USING … pi [TYPE |LIKE ] …
FROM subr CHANGGING …pi [TYPE |LIKE ] …

data: gv_val type c length value '我是实参'.
write / gv_val. "1打印局部变量
perform call_byvref changing gv_val. "3执行子程序,在子程序中修改了局部变量的值 这里比上面少了value关键字,如果不适用value关键字,using和changing语句都属于cal by reference
write / gv_val. "4打印被修改后的局部变量
form call_byvref changing p_val. "2子程序
p_val = 'value is changed'.
endform.

总结:

1. 在from语句中不适用value语句, using与changing
2. 出于可读性考虑,using代表传递数据,changging代表传递数据后变更值
3. 因此使用using时最好加上value语句搭配使用,一眼看出是传递数据

• Call by Value and Result, 传入传出变量语句执行成功时返回变更后的值.具有不同的物理内存地址

FORM subr CHANGING .. VALUE(PI) [TYPE| LIKE ].

using..value无法更改子程序实参值,changing…value在子程序结束时会更改实参值

data:
gv_val1 type i value ,
gv_val2 type i value ,
gv_sum type i.

perform sum_data using gv_val1 gv_val2 changing gv_sum." using ..changing,下面的子程序结束后,实参gv_sum被更改为p_sum的值
write: / 'result is:', gv_sum.

form sum_data using value(p_val1) value(p_val2) changing value(p_sum). "using .. changeing value 只传值,不能更改实参值
p_sum = p_val1 + p_val2. "三个形参,接收实参值
endform.

最后输出5

定义参数类型

form的形参可以利用type和like语句定义所有的ABAP数据类型,不指定的话默认是Generic类型,集成实参的技术属性

data gv_val type c.
perform call_byvref changing gv_val. "这里传递实参类是c
form call_byvref changing p_val type i. "指定形参数据类型为i, 两种数据类型不能直接转换
p_val = 'xxxx'.
endform.

data gv_val type d.
perform subr changing gv_val.
*形参类型定义方法有3种
*1.直接不指定形参类型,使用默认Generic
*perform subr changing pv_val.
*2.使用相同数据类型
*perform subr changing pv_val type d.
*3.使用相同类型的变量
*perform subr changing pv_val like gv_val.

参数与结构体

结构体与形参一样可以使用所有的ABAP数据类型

当结构体作为参数时,可以使用type/like定义,还可以使用structrue语句定义结构体类型

FORM subr USING p_str STRUCTURE str …
FORM subr USING p_str TYPE str …
FORM subr USING p_str LIKE str …

data: begin of gs_str,
col1 value 'A',
col2 value 'B',
end of gs_str.
perform write_data using gs_str.

form write_data using ps_str structure gs_str. "形参使用结构体数据类型
write: ps_str-col1, ps_str-col2.
endform.

参数与内表

子程序参数为内表时也可以使用关键字USING/CHANGING

FROM subr CHANGING … [TYPE | LIKE ]

types: begin of t_str,
col1 type c,
col2 type i,
end of t_str. "定义结构体

types: t_itab type table of t_str."定义内表形式

data: gs_str type t_str,"根据结构体分别定义变量和内表,内表具有两列
gt_itab type t_itab.

gs_str-col1 = 'A'.
gs_str-col2 = .
append gs_str to gt_itab.

gs_str-col1 = 'B'.
gs_str-col2 = .
append gs_str to gt_itab.

perform test_itab using gt_itab. "gt_itab是实参,内表类型
form test_itab using pt_itab type t_itab."形参指定数据类型为内表
read table pt_itab with key col1 = 'A' into gs_str. "read table tabname with key condition into 变量,从表中读取符合条件的数据保存到变量
if sy-subrc = .
write : gs_str-col1, gs_str-col2.
endif.
endform.

types: begin of t_str,
col1 type c,
col2 type i,
end of t_str. "定义结构体

types: t_itab type table of t_str."定义内表形式

data: gs_str type t_str,"根据结构体分别定义变量和内表,内表具有两列
gt_itab type t_itab.

gs_str-col1 = 'A'.
gs_str-col2 = .
append gs_str to gt_itab.

data: gv_name type char10. gv_name = 'COL1'. "

gs_str-col1 = 'B'.
gs_str-col2 = .
append gs_str to gt_itab.

perform test_itab using gt_itab. "gt_itab是实参,内表类型
form test_itab using pt_itab type any table."形参指定为任意表类型, 下面的read要用动态条件,即传值进去,不然动态表找不到列名
read table pt_itab with key (gv_name) = 'A' into gs_str. "read table tabname with key condition into 变量,从表中读取符合条件的数据保存到变量
if sy-subrc = .
write : gs_str-col1, gs_str-col2.
endif.
endform.

使用内表指定参数也有三种方法:

• 使用Generic type

FROM subr CHANGING pt_itab TYPE TABLE.
FROM subr CHANGING pt_itab TYPE ANY TABLE.
FROM subr CHANGING pt_itab TYPE INDEX TABLE.
FROM subr CHANGING pt_itab TYPE STANDARD TABLE.
FROM subr CHANGING pt_itab TYPE SORTED TABLE.
FROM subr CHANGING pt_itab TYPE HASHED TABLE.

• 使用与实参相同的内表类型

FROM subr CHANGING pv_val TYPE i_tab.

• 使用与实参具有相同类型的内表

FROM subr CHANGING pv_val LIKE gt_itab.

TABLES语句

Rel3.0以前使用tables,可以替代USING与CHANGING语句

调用子程序

• 调用子程序的方法有Inetrnal/External,外部调用的子程序名后面要明确指定盖子程序所属程序名
• 通过perform可以调用ABAP程序内部子程序,也可以调用其他程序的子程序

调用语法

PERFORM sub.
PERFORM subr(prog) [IF FOUND]. 括号内是外部程序名

• 调用内部子程序

data:
gv_val1() type c value 'Enjoy',
gv_val2() type c value 'ABAP',
gv_val3() type c.
perform concate_string using gv_val1 gv_val2 changing gv_val3.
*form concate_string using value(p_val1) value(p_val2) changing value(p_val3).
form concate_string using p_val1 p_val2 changing p_val3.
concatenate p_val1 p_val2 into p_val3 separated by space.
perform write_data using p_val3. "嵌套一个子程序,直接输出不行?
endform.
form write_data using value(p_val).
write: / p_val.
endform.

• 调用外部子程序

data:
gv_first() type c value 'External',
gv_second() type c value 'call',
gv_result() type c.
perform concate_string(z_yzw_struc) if found
using gv_first gv_second
changing gv_result.

• 动态调用子程序,就是将程序名和子程序名当做实参传进去

data:
gv_first() type c value 'External',
gv_second() type c value 'call',
gv_result() type c.
data:
gv_pname() type c value 'Z_YZW_STRUC',"要用大写,不然系统识别不到
gv_subname() type c value 'CONCATE_STRING'."要用大写,不然系统识别不到
perform (gv_subname) in program (gv_pname) if found
using gv_first gv_second
changing gv_result.

利用list调用子程序

PERFORM idx OF subr1 subr2 .. subrn

根据顺序索引调用列出的子程序,只能调用内部子程序,且不能指定参数

do times.
perform sy-index of subr1 subr2.
enddo.

form subr1.
write / '1 subroutine is called'.
endform.
form subr2.
write / '2 subroutine is called'.
endform.

循环

do ~ while

• 可以指定循环次数的语句,不指定次数,进入死循环
• 循环次数保存在系统变量sy-index

do times.
…
enddo.

while ~ endwhile

• 当while语句的表达式结果为真,进入循环
• 循环次数保存在系统变量sy-index

while gv_flag = 'X'.
~~
endwhile.

loop ~ endloop

• 按顺序依次循环内表,将读取内表行数据保存到工作区或者表头的循环语句.
• 循环次数保存在系统变量sy-index, sy-tabix表示内表的当前行数

loop at gt_itab to gs_wa.

endloop.

**结束子程序**

*   endform, 正常结束
*   exit, 直接跳出子程序
*   check, 结果为假跳出子程序

parameters: p\_val type char10.  
perform end\_subr using p\_val.  
form end\_subr using value(p\_val).  
  case p\_val.  
    when 'EXIT'.  "屏幕输入后系统会转换成大写  
      write 'subroutine exit'.  
      exit.  
    when 'CHECK'.  
      write 'value check'.  
    when others.  
  endcase.  
  write 'subroutine is normally ended'.  
endform.                    "end\_subr

#### 判断语句

if condition.  

elseif codition.

else.  

endif.

case variable
when value1.

when value2.  

when OTHERS.

endcase.

#### 临时子程序

创建一个程序池,存储子程序

GENERATE Subroutin POOL <itab> NAME <PROG>.

**PERFORM ON COMMIT**

*   using perform on cmmit, 遇到commit work时调用子程序

select single \* from scarr into gs\_scarr where carrid ='AA'.  "gs\_scarr存储1条数据

perform delete\_data using gs\_scarr.  "子程序正常执行  
perform insert\_data on commit. "子程序定义时带有选项on commit,遇到commit work才执行

if gv\_flg = 'X'.  
 commit work.  "第二个子程序再这里开始执行  
endif.

form delete\_data using value(ps\_scarr) type scarr.  
delete scarr from ps\_scarr. "从表scarr中删除符合条件的条目  
if sy-subrc = .  
 gv\_flg = 'X'.  
endif.  
endform.

form insert\_data.  
 insert scarr  
 from gs\_scarr.  
endform.

*   using perform on rollback, 遇到rollback work时调用子程序

**局部Macro**

减少代码重复,定义如下,但是不能在其他程序中调用

DEFINE macro.  

END-OF-DEFINITION.

data:
gv_val1 type c value 'A',
gv_val2 type c value 'B',
gv_val3 type char3.

define conn.
concatenate & & into & separated by space.
dis &. "这里在调用一个define,作为实参传递过去
end-of-definition.

define dis.
write / &. "打印传进来的内容
end-of-definition.

conn gv_val1 gv_val2 gv_val3.

全局MACRO

可以在其他程序中调用,全局MACRO维护在表TRMAC中,可以指定断点时用BREAK语句