子程序定义
以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 <T>| LIKE <F>].
VALUE子句形参占用自己的单独内存, 调用子程序是,实参值复制到形参中,即使改变形参的值也不户影响实参值
data: gv_val type c length 20 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 <T> |LIKE <F>] ... FROM subr CHANGGING ...pi [TYPE <T> |LIKE <F>] ...
data: gv_val type c length 30 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.
总结:
- 在from语句中不适用value语句, using与changing
- 出于可读性考虑,using代表传递数据,changging代表传递数据后变更值
- 因此使用using时最好加上value语句搭配使用,一眼看出是传递数据
- Call by Value and Result, 传入传出变量语句执行成功时返回变更后的值.具有不同的物理内存地址
FORM subr CHANGING .. VALUE(PI) [TYPE<T>| LIKE <F>].
using..value无法更改子程序实参值,changing...value在子程序结束时会更改实参值
data: gv_val1 type i value 2, gv_val2 type i value 3, 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 ... <itab> [TYPE<t> | LIKE <f>]
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 = 1. append gs_str to gt_itab. gs_str-col1 = 'B'. gs_str-col2 = 2. 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 = 0 . 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 = 1. append gs_str to gt_itab. data: gv_name type char10. gv_name = 'COL1'. " gs_str-col1 = 'B'. gs_str-col2 = 2. 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 = 0 . 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(10) type c value 'Enjoy', gv_val2(10) type c value 'ABAP', gv_val3(20) 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(10) type c value 'External', gv_second(10) type c value 'call', gv_result(20) type c. perform concate_string(z_yzw_struc) if found using gv_first gv_second changing gv_result.
- 动态调用子程序,就是将程序名和子程序名当做实参传进去
data: gv_first(10) type c value 'External', gv_second(10) type c value 'call', gv_result(20) type c. data: gv_pname(20) type c value 'Z_YZW_STRUC',"要用大写,不然系统识别不到 gv_subname(20) 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 2 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 3 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 = 0. 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 &1 &2 into &3 separated by space. dis &3. "这里在调用一个define,作为实参传递过去 end-of-definition. define dis. write / &1. "打印传进来的内容 end-of-definition. conn gv_val1 gv_val2 gv_val3.
全局MACRO
可以在其他程序中调用,全局MACRO维护在表TRMAC中,可以指定断点时用BREAK语句