程序不运行问题

ttx2000

我在数据库写了一个存储过程，目的是更新某张表的数据，除了log以外并没有输出信息，我现在在ORACLE ERP里面注册成一个可执行并发程序，挂到请求组里面运行后去查看运行状态一直都是待定，运行不出来，这是为什么啊，这个存储过程我在PL/SQL里面测试是没有问题的啊，请高手赐教，谢谢！！

纵横四海

一个独力运行的存储过程和一个请求的存储过程是有区别的，请注意红色部分的区别。
errbuf OUT VARCHAR2, retcode OUT NUMBER这两个参数一定要有。

1. 
   
2. create or replace package cux_other01_report is
   
3.   -- Author  : Wanjun Hu
   
4.   -- Created : 2004-7-9 下午 01:44:57
   
5.   -- Purpose : other01 用户，职责表
   
6.   procedure do(errbuf OUT VARCHAR2, retcode OUT NUMBER);
   
7. end cux_other01_report;
   
8. /
   
9. create or replace package body cux_other01_report is
   
10.   cursor cursor_user_role is
    
11.     select c.user_name           as login_name,
    
12.            d.full_name           as employee_name,
    
13.            f.name                as department_name,
    
14.            a.user_id             as user_id,
    
15.            a.responsibility_id   as responsibility_id,
    
16.            b.RESPONSIBILITY_NAME as RESPONSIBILITY_NAME
    
17.       from FND_USER_RESP_GROUPS         a,
    
18.            FND_RESPONSIBILITY_VL        b,
    
19.            fnd_user                     c,
    
20.            hr_employees                 d,
    
21.            per_assignments_f            e,
    
22.            hr_all_organization_units_tl f
    
23.      where a.user_id = c.user_id
    
24.        and c.employee_id = d.employee_id
    
25.        and c.employee_id = e.PERSON_ID
    
26.        and e.ORGANIZATION_ID = f.organization_id
    
27.        and a.responsibility_id = b.RESPONSIBILITY_ID
    
28.        and sysdate > e.EFFECTIVE_START_DATE
    
29.        and sysdate < e.EFFECTIVE_END_DATE
    
30.      order by c.description, c.user_name, a.responsibility_id
    
31.    
    
32.     ;
    
33.   -- Author  : Wanjun Hu
    
34.   -- Created : 2004-8-24 下午 01:47:23
    
35.   -- Purpose : 在控制台输出和在报表中输出
    
36.   procedure print(content varchar2) is
    
37.   begin
    
38.     dbms_output.put_line(content);
    
39.     fnd_file.put_line(fnd_file.output, content);
    
40.   end print;
    
41.   procedure do(errbuf OUT VARCHAR2, retcode OUT NUMBER) is
    
42.     p_row_cursor_user_role cursor_user_role%rowtype;
    
43.   begin
    
44.   
    
45.     open cursor_user_role;
    
46.     loop
    
47.       --循环
    
48.       fetch cursor_user_role
    
49.         into p_row_cursor_user_role;
    
50.       EXIT WHEN cursor_user_role%NOTFOUND OR cursor_user_role%NOTFOUND IS NULL;
    
51.       print(p_row_cursor_user_role.login_name || ',' ||
    
52.             replace(p_row_cursor_user_role.employee_name, ',', '') || ',' ||
    
53.             p_row_cursor_user_role.department_name || ',' ||
    
54.             p_row_cursor_user_role.user_id || ',' ||
    
55.             p_row_cursor_user_role.responsibility_id || ',' ||
    
56.             p_row_cursor_user_role.RESPONSIBILITY_NAME);
    
57.    
    
58.     end loop;
    
59.   
    
60.     close cursor_user_role;
    
61.   
    
62.   end do;
    
63. end cux_other01_report;
    
64. /
    
65. 
    
66. 
    

复制代码

ttx2000

thank you very much!!

ttx2000

还想请教一个问题，我的存储过程本身是没有输出的，只是一个更新数据库的动作，现在要把更新后的结果以log的方式输出，怎样把log以文件的形式输出并保存，以便给用户看呢

纵横四海

原帖由 ttx2000 于 2006-11-18 16:52 发表
还想请教一个问题，我的存储过程本身是没有输出的，只是一个更新数据库的动作，现在要把更新后的结果以log的方式输出，怎样把log以文件的形式输出并保存，以便给用户看呢

注意上面的例子中有一个函数为：

1.   -- Author  : Wanjun Hu
   
2.   -- Created : 2004-8-24 下午 01:47:23
   
3.   -- Purpose : 在控制台输出和在报表中输出
   
4.   procedure print(content varchar2) is
   
5.   begin
   
6.     dbms_output.put_line(content);
   
7.     fnd_file.put_line(fnd_file.output, content);
   
8.   end print;

复制代码

这个函数中dbms_output.put_line为向控制台输出文件，fnd_file.put_line为写log日志。
log日志你可以在请求运行完后点击＂查看输出＂进行日志查看．
希望对你有帮助．．．

ttx2000

用纵横四海的方法搞定了，非常感谢。但还有一点我不明白，就是“dbms_output.put_line为向控制台输出文件”，这个输出文件是什么，在哪里可以找到它呢。我是新手，请赐教！