ITPub博客

首页 > Linux操作系统 > Linux操作系统 > oracle sqr 报表工具之procedure定义及调用示例

oracle sqr 报表工具之procedure定义及调用示例

原创 Linux操作系统 作者:wisdomone1 时间:2012-02-14 14:19:58 0 删除 编辑
在public.lic文件中编写要调用的procedure代码
!获取TCBS系统日期
Begin-Procedure Get-The-PostDate(:$Value)
    Move 'IN Get-The-PostDate' To $_Global-ProcName
  Let $Value = ''
Begin-Select On-Error=Global-Got-Fatal-SQL-Error
TO_DATE(BankOptionValue, 'YYYY-MM-DD')    &Value
 Let $Value = &Value
  From BankOption
 Where BankOptionCd = 'PDAT'
End-Select
End-Procedure


而在sqr报表展现代码DEP_ATMPFTD.sqr中可以调用上述的public.lic文件中的过程procedure

#define addtlsetup
#include 'Rptstub.lib'
#include '{libpath}tkit_batchstartup.inc'
#include '{libpath}tkit_rptheader.inc'
#include '{libpath}tkit_queappl.inc'
#include '{libpath}public.lic'  !注意:就是通过此类代码在sqr中引用lic文件定义的procedure
#include '{libpath}tkit_Sqrfunc.inc'

此处略去非相关代码

BEGIN-procedure NP($a)
do Get-The-PostDate($dt) !注:通过do调用了lic文件的
move $dt to $dt 'YYYYMMDD'
do GET-APPL-NAME($appnam)
Do Get-Bank-Option('RPTT',$Len)
let $out=$Len||$dt||'\'||$a||'_'||$appnam|| '.LIS'
NEW-REPORT $out
use-procedure before-page = pheading
do selectRpt($a)
end-procedure

小结:

1,procedure定义的参数(procedure类似于java的方法,而此处参数就像方法的输入输出参数)
2,上述public.lic的Get-The-PostDate(:$Value)过程之参数为输出参数,在sqr中参数以:前缀,表示输出参数




来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/9240380/viewspace-716242/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
提供针对oracle初学者及进阶的数据库培训,欢迎大家咨询: 微信: wisdomone 微信公众号: lovedb qq: 305076427 微博: wisdomone9

注册时间:2008-04-04

  • 博文量
    2164
  • 访问量
    11714122