Chinaunix首页 | 论坛 | 博客
  • 博客访问: 720957
  • 博文数量: 158
  • 博客积分: 6010
  • 博客等级: 准将
  • 技术积分: 1643
  • 用 户 组: 普通用户
  • 注册时间: 2007-10-11 14:37
个人简介

人法地,地法天,天法道,道法自然

文章分类

全部博文(158)

文章存档

2022年(1)

2020年(3)

2016年(1)

2014年(7)

2013年(4)

2010年(5)

2009年(86)

2008年(25)

2007年(26)

我的朋友

分类:

2008-11-14 11:11:28

PERFORM用法总结:

Syntax
PERFORM { { { subr
            | {subr|(sname) IN PROGRAM [prog|(pname)] [IF FOUND]}
            | {n OF subr1 subr2 ...}
            | {subr(prog) [IF FOUND]} }
            [TABLES itab1 itab2 ...]
            [USING a1 a2 ...]
            [CHANGING a1 a2 ...] }
        | { ON { {COMMIT [LEVEL idx]}
               | ROLLBACK } } }.
 
Effect
Calls a subroutine. 调用子程序
 
Additions
Specification of the subroutine:
 
subr - Subroutine subr from the same program.

subr|(sname) IN PROGRAM [prog|(pname)] - Static or dynamic specification of a subroutine in another or the current program.

n OF subr1 subr2 ... - Subroutine n from a list of subroutines.

subr(prog) - Obsolete: Static specification of a subroutine in another program prog.

IF FOUND
Suppresses an exception if the subroutine is not found. .

Specification of the parameter:
TABLES itab1 itab2 ...
Assigns internal tables itab1, itab2, ...to the table parameters of the same position.

USING a1 a2 ...
Assigns current parameters a1, a2, ...to the formal parameters of the same position.

CHANGING a1 a2 ...
Assigns current parameters a1, a2, ... to the formal parameters of the same position.

Specification of Execution:
ON COMMIT [LEVEL idx]
Registers the subroutine for execution with COMMIT WORK, where the execution sequence time can be controlled with LEVEL.

ON ROLLBACK
Registers the subroutine for execution with ROLLBACK WORK.

 
阅读(9799) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~