1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/PLSQL/Lexer/test/unit/data/TestComments.apy	Mon Aug 12 11:26:54 2013 +0530
     1.3 @@ -0,0 +1,58 @@
     1.4 +-----------------------------------------------------------------------------
     1.5 +--
     1.6 +--  Logical unit: <<<LU: Put your LU name here>>>
     1.7 +--
     1.8 +--  IFS Developer Studio Template Version 2.5
     1.9 +--
    1.10 +--  Date    Sign    History
    1.11 +--  ------  ------  ---------------------------------------------------------
    1.12 +-----------------------------------------------------------------------------
    1.13 +
    1.14 +DEFINE MODULE        = <<<MODULE:   Put your module name here>>>
    1.15 +DEFINE LU            = <<<LU:       Put your lu name here>>>
    1.16 +DEFINE PKG           = <<<PKG:      Put your PACKAGE name here>>>
    1.17 +
    1.18 +PROMPT Creating &PKG SPECIFICATION
    1.19 +
    1.20 +CREATE OR REPLACE PACKAGE BODY &PKG IS
    1.21 +
    1.22 +-----------------------------------------------------------------------------
    1.23 +-------------------- LU SPECIFIC IMPLEMENTATION METHODS ---------------------
    1.24 +-----------------------------------------------------------------------------
    1.25 +
    1.26 +
    1.27 +-----------------------------------------------------------------------------
    1.28 +-------------------- LU SPECIFIC PRIVATE METHODS ----------------------------
    1.29 +-----------------------------------------------------------------------------
    1.30 +
    1.31 +
    1.32 +-----------------------------------------------------------------------------
    1.33 +-------------------- LU SPECIFIC PROTECTED METHODS --------------------------
    1.34 +-----------------------------------------------------------------------------
    1.35 +
    1.36 +
    1.37 +-----------------------------------------------------------------------------
    1.38 +-------------------- LU SPECIFIC PUBLIC METHODS -----------------------------
    1.39 +-----------------------------------------------------------------------------
    1.40 +
    1.41 +PROCEDURE Delete___ (
    1.42 +   objid_  IN VARCHAR2,
    1.43 +   remrec_ IN &VIEW%ROWTYPE )
    1.44 +
    1.45 +IS
    1.46 +        key_ VARCHAR2(2000);
    1.47 +        key_ VARCHAR2(2000);
    1.48 +   type_ intface_header_tab.procedure_name%TYPE;
    1.49 +BEGIN
    1.50 +   temp =: NULL;
    1.51 +   --
    1.52 +   -- Call to Intface_Util_API.Register_Delete_ removed.
    1.53 +   -- Logic is now handled in Intface_Util_API.Drop_IC_Table_
    1.54 +   --
    1.55 +   
    1.56 +   key_ := remrec_.intface_name || '^' || remrec_.column_name || '^';
    1.57 +   Reference_SYS.Do_Cascade_Delete(lu_name_, key_);
    1.58 +   DELETE           
    1.59 +      FROM  intface_detail_tab
    1.60 +      WHERE &OBJID = objid_;   
    1.61 +END Delete___;