plsql_utility::generate_attribute_parameters (public)

 plsql_utility::generate_attribute_parameters [ -indent indent ] \
    attr_list

Defined in packages/acs-subsite/tcl/plsql-utility-procs.tcl

Generates the arg list to a pl/sql function or procedure

Switches:

-indent (optional, defaults to "9")

Parameters:

attr_list (required)

Author:

Michael Bryzek <mbryzek@arsdigita.com>

Created:

11/2000

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Source code:

        set pieces [list]
        foreach triple $attr_list {
            set table [string toupper [string trim [lindex $triple 0]]]
            set attr [string toupper [string trim [lindex $triple 1]]]
            if { [lindex $triple 2] eq "" } {
                set default_string ""
            } else {
                set default_string " DEFAULT [lindex $triple 2]"
            }
            lappend pieces [list $attr "IN ${table}.${attr}%TYPE${default_string}"]
        }
        return [format_pieces -indent $indent $pieces]

XQL Not present:

Generic, PostgreSQL, Oracle