PLSQL/Lexer/test/unit/data/TestComments.apy
author Subhashini Sooriarachchi <subslk@netbeans.org>
Mon, 12 Aug 2013 11:26:54 +0530
changeset 464 e10b2e8563fc
permissions -rw-r--r--
EADS-3749 encountering issues with the displaying of code in Developer Studio when code folding is enabled
     1 -----------------------------------------------------------------------------
     2 --
     3 --  Logical unit: <<<LU: Put your LU name here>>>
     4 --
     5 --  IFS Developer Studio Template Version 2.5
     6 --
     7 --  Date    Sign    History
     8 --  ------  ------  ---------------------------------------------------------
     9 -----------------------------------------------------------------------------
    10 
    11 DEFINE MODULE        = <<<MODULE:   Put your module name here>>>
    12 DEFINE LU            = <<<LU:       Put your lu name here>>>
    13 DEFINE PKG           = <<<PKG:      Put your PACKAGE name here>>>
    14 
    15 PROMPT Creating &PKG SPECIFICATION
    16 
    17 CREATE OR REPLACE PACKAGE BODY &PKG IS
    18 
    19 -----------------------------------------------------------------------------
    20 -------------------- LU SPECIFIC IMPLEMENTATION METHODS ---------------------
    21 -----------------------------------------------------------------------------
    22 
    23 
    24 -----------------------------------------------------------------------------
    25 -------------------- LU SPECIFIC PRIVATE METHODS ----------------------------
    26 -----------------------------------------------------------------------------
    27 
    28 
    29 -----------------------------------------------------------------------------
    30 -------------------- LU SPECIFIC PROTECTED METHODS --------------------------
    31 -----------------------------------------------------------------------------
    32 
    33 
    34 -----------------------------------------------------------------------------
    35 -------------------- LU SPECIFIC PUBLIC METHODS -----------------------------
    36 -----------------------------------------------------------------------------
    37 
    38 PROCEDURE Delete___ (
    39    objid_  IN VARCHAR2,
    40    remrec_ IN &VIEW%ROWTYPE )
    41 
    42 IS
    43         key_ VARCHAR2(2000);
    44         key_ VARCHAR2(2000);
    45    type_ intface_header_tab.procedure_name%TYPE;
    46 BEGIN
    47    temp =: NULL;
    48    --
    49    -- Call to Intface_Util_API.Register_Delete_ removed.
    50    -- Logic is now handled in Intface_Util_API.Drop_IC_Table_
    51    --
    52    
    53    key_ := remrec_.intface_name || '^' || remrec_.column_name || '^';
    54    Reference_SYS.Do_Cascade_Delete(lu_name_, key_);
    55    DELETE           
    56       FROM  intface_detail_tab
    57       WHERE &OBJID = objid_;   
    58 END Delete___;