HP 3000 Manuals HP 3000 Manuals
GENERATE PROCEDURES
Generates SQL statements to recreate one or more procedures in a
DBEnvironment.
Scope
SQLGEN only
SQLGEN Syntax
>> [GEN[ERATE]] PROCEDURE[S] Schema File Name or '//' to STOP command >>
SchemaFileName Owner Name >> OwnerName Do you wish to specify Procedure
Names for each Owner (n/y)? {N[O] } Procedure Name for Owner OwnerName
{Y[ES]}
>> ProcedureName
Parameters
SchemaFileName is the name of the schema file where SQLGEN
places generated commands.
OwnerName is the name of the owner whose procedures you
wish to generate.
NO or YES respond NO to select all procedures for the
owner; respond YES to select certain procedures
for the owner.
ProcedureName is the name of a procedure you wish to generate.
Description
* GENERATE PROCEDURES builds CREATE PROCEDURE commands to recreate
one or more procedures in the DBEnvironment.
Example
[REV BEG]
>> gen procedures
ALLBASE/SQL Command Generator for Procedures
Schema File Name or '//' to STOP command >> partsch
Please enter Owner Names. Type @ for all, ? for a list of
Owner Names, or RETURN to quit.
Owner Name >> PurchDB
Do you wish to specify Procedure Names for each Owner (n/y)? n
Generating command to CREATE PROCEDURE PURCHDB.DISCOUNTPART
Generating command to CREATE PROCEDURE PURCHDB.REPORTMONITOR
Owner Name >> Return
>>
[REV END]
Schema File Produced
/* This file was created with a user language environment of */
/* NATIVE-3000 */
CREATE PROCEDURE PURCHDB.DISCOUNTPART
(PARTNUMBER CHAR 16)) AS
begin declare SalesPrice decimal(10,2); declare Discount
decimal(10,2); select SalesPrice into :SalesPrice from
PurchDB.Parts where PartNumber = :PartNumber; if :SalesPrice >
100. then :Discount = .80*:SalesPrice; insert into
PurchDB.Discounts values (:PartNumber, :Discount); endif; end;
CREATE PROCEDURE PURCHDB.REPORTMONITOR
(NAME CHAR( 20) NOT NULL,
OWNER CHAR( 20) NOT NULL,
TYPE CHAR( 10) NOT NULL) AS
begin insert into PurchDB.ReportMonitor values (:Type,
CURRENT_DATETIME, USER, :Name, :Owner); end;
COMMIT WORK;