17,377
社区成员
发帖
与我相关
我的任务
分享
SQL> create or replace package t1Package
2 is
3 procedure Interface_Main;
4 end t1Package;
5 /
程序包已创建。
SQL> create OR REPLACE PACKAGE BODY T1PACKAGE
2 IS
3
4 PROCEDURE Interface_Main
5 IS
6 l_Tsbgti TIMESTAMP;
7
8 BEGIN
9 l_Tsbgti := Systimestamp;
10 dbms_output.put_line(l_Tsbgti);
11 END Interface_Main;
12
13 END T1PACKAGE;
14 /
程序包体已创建。
SQL> execute t1package.interface_Main;
06-3月 -10 10.24.42.921000 上午
PL/SQL 过程已成功完成。
create OR REPLACE PACKAGE BODY T1PACKAGE
IS
PROCEDURE Interface_Main
IS
l_Tsbgti TIMESTAMP;
BEGIN
l_Tsbgti := Systimestamp;
dbms_output.put_line(l_Tsbgti);
END Interface_Main;
END T1PACKAGE;
/
SQL> conn scott/tiger
已连接。
SQL> declare
2 v_t timestamp;
3 begin
4 v_t:=systimestamp;
5 dbms_output.put_line(v_t);
6 end;
7 /
PL/SQL 过程已成功完成。
SQL> set serveroutput on;
SQL> /
06-3月 -10 10.04.10.390000 上午
PL/SQL 过程已成功完成。