Re: Calling SQLPlus scripts from Forms
From: Maarten van Breemen <vbreemen_at_knoware.nl>
Date: Thu, 28 Jan 1999 09:51:07 +0100
Message-ID: <917513636.540786_at_ns2.knoware.nl>
THIS_COMMAND := :AMES_SYSTEM.SQLPLUS_IMAGE||
ELSE
THIS_COMMAND :=:AMES_SYSTEM.SQLPLUS_IMAGE||
END IF;
Date: Thu, 28 Jan 1999 09:51:07 +0100
Message-ID: <917513636.540786_at_ns2.knoware.nl>
bdg_at_hotmail.com wrote in message <78nbj0$31r$1_at_nnrp1.dejanews.com>...
>I have less than 10 SQLPlus reports that I need to kick off from various
>Forms modules. Any pointers on how to implement this?
>
You could use this procedure as a starting point. Put the OS dependant SQL*Plus command like PLUS33 in the field :AMES_SYSTEM.SQLPLUS_IMAGE in your form. Let the form application call PLUS('yourfilename.sql') on a button click or whatever.
PROCEDURE PLUS(SCRIPT VARCHAR2) IS
THIS_USER VARCHAR2(60); THIS_PASSWORD VARCHAR2(60); THIS_CONNECT VARCHAR2(60); THIS_COMMAND VARCHAR2(2000); BEGIN THIS_USER := Get_Application_Property(USERNAME);THIS_PASSWORD := Get_Application_Property(PASSWORD); THIS_CONNECT := Get_Application_Property(CONNECT_STRING); if THIS_CONNECT IS NOT NULL THEN
THIS_COMMAND := :AMES_SYSTEM.SQLPLUS_IMAGE||
' '|| THIS_USER|| '/'|| THIS_PASSWORD|| '_at_'|| THIS_CONNECT|| ' _at_'|| SCRIPT;
ELSE
THIS_COMMAND :=:AMES_SYSTEM.SQLPLUS_IMAGE||
' '|| THIS_USER|| '/'|| THIS_PASSWORD|| ' _at_'|| SCRIPT;
END IF;
- Do not report password information. MESSAGE('Script '||SCRIPT||' started.',NO_ACKNOWLEDGE); SYNCHRONIZE; HOST(THIS_COMMAND); END;