home *** CD-ROM | disk | FTP | other *** search
/ Winzipper / Winzipper_ISO.iso / programming / oracle7 7.2 / DB / UTIL72 / PIDIAN.SQL < prev    next >
Encoding:
Text File  |  1995-05-18  |  30.5 KB  |  1,092 lines
  1. rem 
  2. rem $Header: pidian.sql 7020100.1 94/09/28 15:14:32 cli Generic<base> $ 
  3. rem 
  4. Rem  Copyright (c) 1991 by Oracle Corporation 
  5. Rem    NAME
  6. Rem      pidian.sql - <one-line expansion of the name>
  7. Rem    DESCRIPTION
  8. Rem      <short description of component this file declares/defines>
  9. Rem    RETURNS
  10. Rem 
  11. Rem    NOTES
  12. Rem      <other useful comments, qualifications, etc.>
  13. Rem    MODIFIED   (MM/DD/YY)
  14. Rem     pshaw      10/21/92 -  modify script for bug 131187 
  15. Rem     gclossma   05/08/92 -  add L_Q_HINT 
  16. Rem     gclossma   01/14/92 -  remove diana SET-method procedures 
  17. Rem     pdufour    01/03/92 -  remove connect internal and add drop package 
  18. Rem     gclossma   12/02/91 -  make smaller 
  19. Rem     gclossma   12/02/91 -  Creation 
  20. -- NOTICE NOTICE NOTICE NOTICE NOTICE NOTICE NOTICE
  21. -- NOTICE NOTICE NOTICE NOTICE NOTICE NOTICE NOTICE
  22. -- NOTE: you must be connected "internal" (i.e. as user SYS) to run this
  23. -- script.
  24. -- NOTICE NOTICE NOTICE NOTICE NOTICE NOTICE NOTICE
  25. -- NOTICE NOTICE NOTICE NOTICE NOTICE NOTICE NOTICE
  26. -- PIDI : Package Diana
  27.  
  28. -- MODIFIED
  29. --    gclossma   10/23/91 -  regen via GENIDL.PLS 
  30. --  Clare      03/16/91 - Creation
  31.  
  32.  
  33. drop package body sys.diana;
  34. drop package sys.diana;
  35.  
  36. create package sys.diana is
  37.  
  38.   D_ABORT    constant pidl.ptnty := 1;
  39.   D_ACCEPT   constant pidl.ptnty := 2;
  40.   D_ACCESS   constant pidl.ptnty := 3;
  41.   D_ADDRES   constant pidl.ptnty := 4;
  42.   D_AGGREG   constant pidl.ptnty := 5;
  43.   D_ALIGNM   constant pidl.ptnty := 6;
  44.   D_ALL      constant pidl.ptnty := 7;
  45.   D_ALLOCA   constant pidl.ptnty := 8;
  46.   D_ALTERN   constant pidl.ptnty := 9;
  47.   D_AND_TH   constant pidl.ptnty := 10;
  48.   D_APPLY    constant pidl.ptnty := 11;
  49.   D_ARRAY    constant pidl.ptnty := 12;
  50.   D_ASSIGN   constant pidl.ptnty := 13;
  51.   D_ASSOC    constant pidl.ptnty := 14;
  52.   D_ATTRIB   constant pidl.ptnty := 15;
  53.   D_BINARY   constant pidl.ptnty := 16;
  54.   D_BLOCK    constant pidl.ptnty := 17;
  55.   D_BOX      constant pidl.ptnty := 18;
  56.   D_C_ATTR   constant pidl.ptnty := 19;
  57.   D_CASE     constant pidl.ptnty := 20;
  58.   D_CODE     constant pidl.ptnty := 21;
  59.   D_COMP_R   constant pidl.ptnty := 22;
  60.   D_COMP_U   constant pidl.ptnty := 23;
  61.   D_COMPIL   constant pidl.ptnty := 24;
  62.   D_COND_C   constant pidl.ptnty := 25;
  63.   D_COND_E   constant pidl.ptnty := 26;
  64.   D_CONSTA   constant pidl.ptnty := 27;
  65.   D_CONSTR   constant pidl.ptnty := 28;
  66.   D_CONTEX   constant pidl.ptnty := 29;
  67.   D_CONVER   constant pidl.ptnty := 30;
  68.   D_D_AGGR   constant pidl.ptnty := 31;
  69.   D_D_VAR    constant pidl.ptnty := 32;
  70.   D_DECL     constant pidl.ptnty := 33;
  71.   D_DEF_CH   constant pidl.ptnty := 34;
  72.   D_DEF_OP   constant pidl.ptnty := 35;
  73.   D_DEFERR   constant pidl.ptnty := 36;
  74.   D_DELAY    constant pidl.ptnty := 37;
  75.   D_DERIVE   constant pidl.ptnty := 38;
  76.   D_ENTRY    constant pidl.ptnty := 39;
  77.   D_ENTRY_   constant pidl.ptnty := 40;
  78.   D_ERROR    constant pidl.ptnty := 41;
  79.   D_EXCEPT   constant pidl.ptnty := 42;
  80.   D_EXIT     constant pidl.ptnty := 43;
  81.   D_F_       constant pidl.ptnty := 44;
  82.   D_F_BODY   constant pidl.ptnty := 45;
  83.   D_F_CALL   constant pidl.ptnty := 46;
  84.   D_F_DECL   constant pidl.ptnty := 47;
  85.   D_F_DSCR   constant pidl.ptnty := 48;
  86.   D_F_FIXE   constant pidl.ptnty := 49;
  87.   D_F_FLOA   constant pidl.ptnty := 50;
  88.   D_F_INTE   constant pidl.ptnty := 51;
  89.   D_F_SPEC   constant pidl.ptnty := 52;
  90.   D_FIXED    constant pidl.ptnty := 53;
  91.   D_FLOAT    constant pidl.ptnty := 54;
  92.   D_FOR      constant pidl.ptnty := 55;
  93.   D_FORM     constant pidl.ptnty := 56;
  94.   D_FORM_C   constant pidl.ptnty := 57;
  95.   D_GENERI   constant pidl.ptnty := 58;
  96.   D_GOTO     constant pidl.ptnty := 59;
  97.   D_IF       constant pidl.ptnty := 60;
  98.   D_IN       constant pidl.ptnty := 61;
  99.   D_IN_OP    constant pidl.ptnty := 62;
  100.   D_IN_OUT   constant pidl.ptnty := 63;
  101.   D_INDEX    constant pidl.ptnty := 64;
  102.   D_INDEXE   constant pidl.ptnty := 65;
  103.   D_INNER_   constant pidl.ptnty := 66;
  104.   D_INSTAN   constant pidl.ptnty := 67;
  105.   D_INTEGE   constant pidl.ptnty := 68;
  106.   D_L_PRIV   constant pidl.ptnty := 69;
  107.   D_LABELE   constant pidl.ptnty := 70;
  108.   D_LOOP     constant pidl.ptnty := 71;
  109.   D_MEMBER   constant pidl.ptnty := 72;
  110.   D_NAMED    constant pidl.ptnty := 73;
  111.   D_NAMED_   constant pidl.ptnty := 74;
  112.   D_NO_DEF   constant pidl.ptnty := 75;
  113.   D_NOT_IN   constant pidl.ptnty := 76;
  114.   D_NULL_A   constant pidl.ptnty := 77;
  115.   D_NULL_C   constant pidl.ptnty := 78;
  116.   D_NULL_S   constant pidl.ptnty := 79;
  117.   D_NUMBER   constant pidl.ptnty := 80;
  118.   D_NUMERI   constant pidl.ptnty := 81;
  119.   D_OR_ELS   constant pidl.ptnty := 82;
  120.   D_OTHERS   constant pidl.ptnty := 83;
  121.   D_OUT      constant pidl.ptnty := 84;
  122.   D_P_       constant pidl.ptnty := 85;
  123.   D_P_BODY   constant pidl.ptnty := 86;
  124.   D_P_CALL   constant pidl.ptnty := 87;
  125.   D_P_DECL   constant pidl.ptnty := 88;
  126.   D_P_SPEC   constant pidl.ptnty := 89;
  127.   D_PARENT   constant pidl.ptnty := 90;
  128.   D_PARM_C   constant pidl.ptnty := 91;
  129.   D_PARM_F   constant pidl.ptnty := 92;
  130.   D_PRAGMA   constant pidl.ptnty := 93;
  131.   D_PRIVAT   constant pidl.ptnty := 94;
  132.   D_QUALIF   constant pidl.ptnty := 95;
  133.   D_R_       constant pidl.ptnty := 96;
  134.   D_R_REP    constant pidl.ptnty := 97;
  135.   D_RAISE    constant pidl.ptnty := 98;
  136.   D_RANGE    constant pidl.ptnty := 99;
  137.   D_RENAME   constant pidl.ptnty := 100;
  138.   D_RETURN   constant pidl.ptnty := 101;
  139.   D_REVERS   constant pidl.ptnty := 102;
  140.   D_S_       constant pidl.ptnty := 103;
  141.   D_S_BODY   constant pidl.ptnty := 104;
  142.   D_S_CLAU   constant pidl.ptnty := 105;
  143.   D_S_DECL   constant pidl.ptnty := 106;
  144.   D_S_ED     constant pidl.ptnty := 107;
  145.   D_SIMPLE   constant pidl.ptnty := 108;
  146.   D_SLICE    constant pidl.ptnty := 109;
  147.   D_STRING   constant pidl.ptnty := 110;
  148.   D_STUB     constant pidl.ptnty := 111;
  149.   D_SUBTYP   constant pidl.ptnty := 112;
  150.   D_SUBUNI   constant pidl.ptnty := 113;
  151.   D_T_BODY   constant pidl.ptnty := 114;
  152.   D_T_DECL   constant pidl.ptnty := 115;
  153.   D_T_SPEC   constant pidl.ptnty := 116;
  154.   D_TERMIN   constant pidl.ptnty := 117;
  155.   D_TIMED_   constant pidl.ptnty := 118;
  156.   D_TYPE     constant pidl.ptnty := 119;
  157.   D_U_FIXE   constant pidl.ptnty := 120;
  158.   D_U_INTE   constant pidl.ptnty := 121;
  159.   D_U_REAL   constant pidl.ptnty := 122;
  160.   D_USE      constant pidl.ptnty := 123;
  161.   D_USED_B   constant pidl.ptnty := 124;
  162.   D_USED_C   constant pidl.ptnty := 125;
  163.   D_USED_O   constant pidl.ptnty := 126;
  164.   D_V_       constant pidl.ptnty := 127;
  165.   D_V_PART   constant pidl.ptnty := 128;
  166.   D_VAR      constant pidl.ptnty := 129;
  167.   D_WHILE    constant pidl.ptnty := 130;
  168.   D_WITH     constant pidl.ptnty := 131;
  169.   DI_ARGUM   constant pidl.ptnty := 132;
  170.   DI_ATTR_   constant pidl.ptnty := 133;
  171.   DI_COMP_   constant pidl.ptnty := 134;
  172.   DI_CONST   constant pidl.ptnty := 135;
  173.   DI_DSCRM   constant pidl.ptnty := 136;
  174.   DI_ENTRY   constant pidl.ptnty := 137;
  175.   DI_ENUM    constant pidl.ptnty := 138;
  176.   DI_EXCEP   constant pidl.ptnty := 139;
  177.   DI_FORM    constant pidl.ptnty := 140;
  178.   DI_FUNCT   constant pidl.ptnty := 141;
  179.   DI_GENER   constant pidl.ptnty := 142;
  180.   DI_IN      constant pidl.ptnty := 143;
  181.   DI_IN_OU   constant pidl.ptnty := 144;
  182.   DI_ITERA   constant pidl.ptnty := 145;
  183.   DI_L_PRI   constant pidl.ptnty := 146;
  184.   DI_LABEL   constant pidl.ptnty := 147;
  185.   DI_NAMED   constant pidl.ptnty := 148;
  186.   DI_NUMBE   constant pidl.ptnty := 149;
  187.   DI_OUT     constant pidl.ptnty := 150;
  188.   DI_PACKA   constant pidl.ptnty := 151;
  189.   DI_PRAGM   constant pidl.ptnty := 152;
  190.   DI_PRIVA   constant pidl.ptnty := 153;
  191.   DI_PROC    constant pidl.ptnty := 154;
  192.   DI_SUBTY   constant pidl.ptnty := 155;
  193.   DI_TASK_   constant pidl.ptnty := 156;
  194.   DI_TYPE    constant pidl.ptnty := 157;
  195.   DI_U_ALY   constant pidl.ptnty := 158;
  196.   DI_U_BLT   constant pidl.ptnty := 159;
  197.   DI_U_NAM   constant pidl.ptnty := 160;
  198.   DI_U_OBJ   constant pidl.ptnty := 161;
  199.   DI_USER    constant pidl.ptnty := 162;
  200.   DI_VAR     constant pidl.ptnty := 163;
  201.   DS_ALTER   constant pidl.ptnty := 164;
  202.   DS_APPLY   constant pidl.ptnty := 165;
  203.   DS_CHOIC   constant pidl.ptnty := 166;
  204.   DS_COMP_   constant pidl.ptnty := 167;
  205.   DS_D_RAN   constant pidl.ptnty := 168;
  206.   DS_D_VAR   constant pidl.ptnty := 169;
  207.   DS_DECL    constant pidl.ptnty := 170;
  208.   DS_ENUM_   constant pidl.ptnty := 171;
  209.   DS_EXP     constant pidl.ptnty := 172;
  210.   DS_FORUP   constant pidl.ptnty := 173;
  211.   DS_G_ASS   constant pidl.ptnty := 174;
  212.   DS_G_PAR   constant pidl.ptnty := 175;
  213.   DS_ID      constant pidl.ptnty := 176;
  214.   DS_ITEM    constant pidl.ptnty := 177;
  215.   DS_NAME    constant pidl.ptnty := 178;
  216.   DS_P_ASS   constant pidl.ptnty := 179;
  217.   DS_PARAM   constant pidl.ptnty := 180;
  218.   DS_PRAGM   constant pidl.ptnty := 181;
  219.   DS_SELEC   constant pidl.ptnty := 182;
  220.   DS_STM     constant pidl.ptnty := 183;
  221.   DS_UPDNW   constant pidl.ptnty := 184;
  222.   Q_ALIAS_   constant pidl.ptnty := 185;
  223.   Q_AT_STM   constant pidl.ptnty := 186;
  224.   Q_BINARY   constant pidl.ptnty := 187;
  225.   Q_BIND     constant pidl.ptnty := 188;
  226.   Q_C_BODY   constant pidl.ptnty := 189;
  227.   Q_C_CALL   constant pidl.ptnty := 190;
  228.   Q_C_DECL   constant pidl.ptnty := 191;
  229.   Q_CHAR     constant pidl.ptnty := 192;
  230.   Q_CLOSE_   constant pidl.ptnty := 193;
  231.   Q_CLUSTE   constant pidl.ptnty := 194;
  232.   Q_COMMIT   constant pidl.ptnty := 195;
  233.   Q_COMMNT   constant pidl.ptnty := 196;
  234.   Q_CONNEC   constant pidl.ptnty := 197;
  235.   Q_CREATE   constant pidl.ptnty := 198;
  236.   Q_CURREN   constant pidl.ptnty := 199;
  237.   Q_CURSOR   constant pidl.ptnty := 200;
  238.   Q_DATABA   constant pidl.ptnty := 201;
  239.   Q_DATE     constant pidl.ptnty := 202;
  240.   Q_DB_COM   constant pidl.ptnty := 203;
  241.   Q_DECIMA   constant pidl.ptnty := 204;
  242.   Q_DELETE   constant pidl.ptnty := 205;
  243.   Q_DICTIO   constant pidl.ptnty := 206;
  244.   Q_DROP_S   constant pidl.ptnty := 207;
  245.   Q_EXP      constant pidl.ptnty := 208;
  246.   Q_EXPR_S   constant pidl.ptnty := 209;
  247.   Q_F_CALL   constant pidl.ptnty := 210;
  248.   Q_FETCH_   constant pidl.ptnty := 211;
  249.   Q_FLOAT    constant pidl.ptnty := 212;
  250.   Q_FRCTRN   constant pidl.ptnty := 213;
  251.   Q_GENSQL   constant pidl.ptnty := 214;
  252.   Q_INSERT   constant pidl.ptnty := 215;
  253.   Q_LEVEL    constant pidl.ptnty := 216;
  254.   Q_LINK     constant pidl.ptnty := 217;
  255.   Q_LOCK_T   constant pidl.ptnty := 218;
  256.   Q_LONG_V   constant pidl.ptnty := 219;
  257.   Q_NUMBER   constant pidl.ptnty := 220;
  258.   Q_OPEN_S   constant pidl.ptnty := 221;
  259.   Q_ORDER_   constant pidl.ptnty := 222;
  260.   Q_RLLBCK   constant pidl.ptnty := 223;
  261.   Q_ROLLBA   constant pidl.ptnty := 224;
  262.   Q_ROWNUM   constant pidl.ptnty := 225;
  263.   Q_S_TYPE   constant pidl.ptnty := 226;
  264.   Q_SAVEPO   constant pidl.ptnty := 227;
  265.   Q_SCHEMA   constant pidl.ptnty := 228;
  266.   Q_SELECT   constant pidl.ptnty := 229;
  267.   Q_SEQUE    constant pidl.ptnty := 230;
  268.   Q_SET_CL   constant pidl.ptnty := 231;
  269.   Q_SMALLI   constant pidl.ptnty := 232;
  270.   Q_SQL_ST   constant pidl.ptnty := 233;
  271.   Q_STATEM   constant pidl.ptnty := 234;
  272.   Q_SUBQUE   constant pidl.ptnty := 235;
  273.   Q_SYNON    constant pidl.ptnty := 236;
  274.   Q_TABLE    constant pidl.ptnty := 237;
  275.   Q_TBL_EX   constant pidl.ptnty := 238;
  276.   Q_UPDATE   constant pidl.ptnty := 239;
  277.   Q_VAR      constant pidl.ptnty := 240;
  278.   Q_VARCHA   constant pidl.ptnty := 241;
  279.   Q_VIEW     constant pidl.ptnty := 242;
  280.   QI_BIND_   constant pidl.ptnty := 243;
  281.   QI_CURSO   constant pidl.ptnty := 244;
  282.   QI_DATAB   constant pidl.ptnty := 245;
  283.   QI_SCHEM   constant pidl.ptnty := 246;
  284.   QI_TABLE   constant pidl.ptnty := 247;
  285.   QS_AGGR    constant pidl.ptnty := 248;
  286.   QS_SET_C   constant pidl.ptnty := 249;
  287.  
  288.  
  289.   function  a_ACTUAL(node pidl.ptnod) return pidl.ptnod;
  290.  
  291.   function  a_ALIGNM(node pidl.ptnod) return pidl.ptnod;
  292.  
  293.   function  a_BINARY(node pidl.ptnod) return pidl.ptnod;
  294.  
  295.   function  a_BLOCK_(node pidl.ptnod) return pidl.ptnod;
  296.  
  297.   function  a_CLUSTE(node pidl.ptnod) return pidl.ptnod;
  298.  
  299.   function  a_CONNEC(node pidl.ptnod) return pidl.ptnod;
  300.  
  301.   function  a_CONSTD(node pidl.ptnod) return pidl.ptnod;
  302.  
  303.   function  a_CONSTT(node pidl.ptnod) return pidl.ptnod;
  304.  
  305.   function  a_CONTEX(node pidl.ptnod) return pidl.ptnod;
  306.  
  307.   function  a_D_(node pidl.ptnod) return pidl.ptnod;
  308.  
  309.   function  a_D_CHAR(node pidl.ptnod) return pidl.ptnod;
  310.  
  311.   function  a_D_R_(node pidl.ptnod) return pidl.ptnod;
  312.  
  313.   function  a_D_R_VO(node pidl.ptnod) return pidl.ptnod;
  314.  
  315.   function  a_EXCEPT(node pidl.ptnod) return pidl.ptnod;
  316.  
  317.   function  a_EXP(node pidl.ptnod) return pidl.ptnod;
  318.  
  319.   function  a_EXP1(node pidl.ptnod) return pidl.ptnod;
  320.  
  321.   function  a_EXP2(node pidl.ptnod) return pidl.ptnod;
  322.  
  323.   function  a_EXP_VO(node pidl.ptnod) return pidl.ptnod;
  324.  
  325.   function  a_FORM_D(node pidl.ptnod) return pidl.ptnod;
  326.  
  327.   function  a_HAVING(node pidl.ptnod) return pidl.ptnod;
  328.  
  329.   function  a_HEADER(node pidl.ptnod) return pidl.ptnod;
  330.  
  331.   function  a_ID(node pidl.ptnod) return pidl.ptnod;
  332.  
  333.   function  a_INDICA(node pidl.ptnod) return pidl.ptnod;
  334.  
  335.   function  a_ITERAT(node pidl.ptnod) return pidl.ptnod;
  336.  
  337.   function  a_MEMBER(node pidl.ptnod) return pidl.ptnod;
  338.  
  339.   function  a_NAME(node pidl.ptnod) return pidl.ptnod;
  340.  
  341.   function  a_NAME_V(node pidl.ptnod) return pidl.ptnod;
  342.  
  343.   function  a_NOT_NU(node pidl.ptnod) return pidl.ub2;
  344.  
  345.   function  a_OBJECT(node pidl.ptnod) return pidl.ptnod;
  346.  
  347.   function  a_P_IFC(node pidl.ptnod) return pidl.ptnod;
  348.  
  349.   function  a_PACKAG(node pidl.ptnod) return pidl.ptnod;
  350.  
  351.   function  a_RANGE(node pidl.ptnod) return pidl.ptnod;
  352.  
  353.   function  a_SPACE(node pidl.ptnod) return pidl.ptnod;
  354.  
  355.   function  a_STM(node pidl.ptnod) return pidl.ptnod;
  356.  
  357.   function  a_SUBPRO(node pidl.ptnod) return pidl.ptnod;
  358.  
  359.   function  a_SUBUNI(node pidl.ptnod) return pidl.ptnod;
  360.  
  361.   function  a_TRANS(node pidl.ptnod) return pidl.ptnod;
  362.  
  363.   function  a_TYPE_R(node pidl.ptnod) return pidl.ptnod;
  364.  
  365.   function  a_TYPE_S(node pidl.ptnod) return pidl.ptnod;
  366.  
  367.   function  a_UNIT_B(node pidl.ptnod) return pidl.ptnod;
  368.  
  369.   function  a_UP(node pidl.ptnod) return pidl.ptnod;
  370.  
  371.   function  a_WHERE(node pidl.ptnod) return pidl.ptnod;
  372.  
  373.   function  as_ALTER(node pidl.ptnod) return pidl.ptnod;
  374.  
  375.   function  as_APPLY(node pidl.ptnod) return pidl.ptnod;
  376.  
  377.   function  as_CHOIC(node pidl.ptnod) return pidl.ptnod;
  378.  
  379.   function  as_COMP_(node pidl.ptnod) return pidl.ptnod;
  380.  
  381.   function  as_DECL1(node pidl.ptnod) return pidl.ptnod;
  382.  
  383.   function  as_DECL2(node pidl.ptnod) return pidl.ptnod;
  384.  
  385.   function  as_DSCRM(node pidl.ptnod) return pidl.ptnod;
  386.  
  387.   function  as_DSCRT(node pidl.ptnod) return pidl.ptnod;
  388.  
  389.   function  as_EXP(node pidl.ptnod) return pidl.ptnod;
  390.  
  391.   function  as_FROM(node pidl.ptnod) return pidl.ptnod;
  392.  
  393.   function  as_GROUP(node pidl.ptnod) return pidl.ptnod;
  394.  
  395.   function  as_ID(node pidl.ptnod) return pidl.ptnod;
  396.  
  397.   function  as_INTO_(node pidl.ptnod) return pidl.ptnod;
  398.  
  399.   function  as_ITEM(node pidl.ptnod) return pidl.ptnod;
  400.  
  401.   function  as_LIST(node pidl.ptnod) return pidl.ptseqnd;
  402.  
  403.   function  as_NAME(node pidl.ptnod) return pidl.ptnod;
  404.  
  405.   function  as_ORDER(node pidl.ptnod) return pidl.ptnod;
  406.  
  407.   function  as_P_(node pidl.ptnod) return pidl.ptnod;
  408.  
  409.   function  as_P_ASS(node pidl.ptnod) return pidl.ptnod;
  410.  
  411.   function  as_PRAGM(node pidl.ptnod) return pidl.ptnod;
  412.  
  413.   function  as_SET_C(node pidl.ptnod) return pidl.ptnod;
  414.  
  415.   function  as_STM(node pidl.ptnod) return pidl.ptnod;
  416.  
  417.   function  c_ENTRY_(node pidl.ptnod) return pidl.byte4;
  418.  
  419.   function  c_FIXUP(node pidl.ptnod) return pidl.ptr_t;
  420.  
  421.   function  c_FRAME_(node pidl.ptnod) return pidl.ub4;
  422.  
  423.   function  c_LABEL(node pidl.ptnod) return pidl.ub4;
  424.  
  425.   function  c_OFFSET(node pidl.ptnod) return pidl.byte4;
  426.  
  427.   function  c_VAR(node pidl.ptnod) return pidl.ptr_t;
  428.  
  429.   function  l_DEFAUL(node pidl.ptnod) return pidl.ub4;
  430.  
  431.   function  l_INDREP(node pidl.ptnod) return varchar2;
  432.  
  433.   function  l_NUMREP(node pidl.ptnod) return varchar2;
  434.  
  435.   function  l_Q_HINT(node pidl.ptnod) return varchar2;
  436.  
  437.   function  l_SYMREP(node pidl.ptnod) return varchar2;
  438.  
  439.   function  s_ADDRES(node pidl.ptnod) return pidl.sb4;
  440.  
  441.   function  s_ADEFN(node pidl.ptnod) return pidl.ptnod;
  442.  
  443.   function  s_BASE_T(node pidl.ptnod) return pidl.ptnod;
  444.  
  445.   function  s_BLOCK(node pidl.ptnod) return pidl.ptnod;
  446.  
  447.   function  s_BODY(node pidl.ptnod) return pidl.ptnod;
  448.  
  449.   function  s_COMP_S(node pidl.ptnod) return pidl.ptnod;
  450.  
  451.   function  s_CONSTR(node pidl.ptnod) return pidl.ptnod;
  452.  
  453.   function  s_DEFN(node pidl.ptnod) return pidl.ptnod;
  454.  
  455.   function  s_DISCRI(node pidl.ptnod) return pidl.ptnod;
  456.  
  457.   function  s_EXCEPT(node pidl.ptnod) return pidl.ptnod;
  458.  
  459.   function  s_EXP_TY(node pidl.ptnod) return pidl.ptnod;
  460.  
  461.   function  s_FIRST(node pidl.ptnod) return pidl.ptnod;
  462.  
  463.   function  s_FRAME(node pidl.ptnod) return pidl.ptnod;
  464.  
  465.   function  s_IN_OUT(node pidl.ptnod) return pidl.ub4;
  466.  
  467.   function  s_INIT_E(node pidl.ptnod) return pidl.ptnod;
  468.  
  469.   function  s_INTERF(node pidl.ptnod) return pidl.ptnod;
  470.  
  471.   function  s_LAYER(node pidl.ptnod) return pidl.sb4;
  472.  
  473.   function  s_LOCATI(node pidl.ptnod) return pidl.sb4;
  474.  
  475.   function  s_NORMAL(node pidl.ptnod) return pidl.ptnod;
  476.  
  477.   function  s_NOT_NU(node pidl.ptnod) return pidl.ub2;
  478.  
  479.   function  s_OBJ_DE(node pidl.ptnod) return pidl.ptnod;
  480.  
  481.   function  s_OBJ_TY(node pidl.ptnod) return pidl.ptnod;
  482.  
  483.   function  s_OPERAT(node pidl.ptnod) return pidl.ub4;
  484.  
  485.   function  s_PACKIN(node pidl.ptnod) return pidl.ptnod;
  486.  
  487.   function  s_POS(node pidl.ptnod) return pidl.ub4;
  488.  
  489.   function  s_RECORD(node pidl.ptnod) return pidl.ptnod;
  490.  
  491.   function  s_REP(node pidl.ptnod) return pidl.ub4;
  492.  
  493.   function  s_SCOPE(node pidl.ptnod) return pidl.ptnod;
  494.  
  495.   function  s_SIZE(node pidl.ptnod) return pidl.ptnod;
  496.  
  497.   function  s_SPEC(node pidl.ptnod) return pidl.ptnod;
  498.  
  499.   function  s_STM(node pidl.ptnod) return pidl.ptnod;
  500.  
  501.   function  s_STUB(node pidl.ptnod) return pidl.ptnod;
  502.  
  503.   function  s_T_SPEC(node pidl.ptnod) return pidl.ptnod;
  504.  
  505.   function  s_T_STRU(node pidl.ptnod) return pidl.ptnod;
  506.  
  507.   function  s_VALUE(node pidl.ptnod) return pidl.ub2;
  508.  
  509.   function  ss_BINDS(node pidl.ptnod) return pidl.ptseqnd;
  510.  
  511.   function  ss_BUCKE(node pidl.ptnod) return pidl.ptr_t;
  512.  
  513.   function  ss_EXLST(node pidl.ptnod) return pidl.ptseqnd;
  514.  
  515.   function  ss_SQL(node pidl.ptnod) return pidl.ptseqnd;
  516.  
  517. end diana;
  518. /
  519. create package body sys.diana is
  520.  
  521.   function  a_ACTUAL(node pidl.ptnod) return pidl.ptnod is
  522.   begin
  523.     return pidl.ptg_nd(node,1);
  524.   end;
  525.  
  526.   function  a_ALIGNM(node pidl.ptnod) return pidl.ptnod is
  527.   begin
  528.     return pidl.ptg_nd(node,2);
  529.   end;
  530.  
  531.   function  a_BINARY(node pidl.ptnod) return pidl.ptnod is
  532.   begin
  533.     return pidl.ptg_nd(node,3);
  534.   end;
  535.  
  536.   function  a_BLOCK_(node pidl.ptnod) return pidl.ptnod is
  537.   begin
  538.     return pidl.ptg_nd(node,4);
  539.   end;
  540.  
  541.   function  a_CLUSTE(node pidl.ptnod) return pidl.ptnod is
  542.   begin
  543.     return pidl.ptg_nd(node,5);
  544.   end;
  545.  
  546.   function  a_CONNEC(node pidl.ptnod) return pidl.ptnod is
  547.   begin
  548.     return pidl.ptg_nd(node,6);
  549.   end;
  550.  
  551.   function  a_CONSTD(node pidl.ptnod) return pidl.ptnod is
  552.   begin
  553.     return pidl.ptg_nd(node,7);
  554.   end;
  555.  
  556.   function  a_CONSTT(node pidl.ptnod) return pidl.ptnod is
  557.   begin
  558.     return pidl.ptg_nd(node,8);
  559.   end;
  560.  
  561.   function  a_CONTEX(node pidl.ptnod) return pidl.ptnod is
  562.   begin
  563.     return pidl.ptg_nd(node,9);
  564.   end;
  565.  
  566.   function  a_D_(node pidl.ptnod) return pidl.ptnod is
  567.   begin
  568.     return pidl.ptg_nd(node,10);
  569.   end;
  570.  
  571.   function  a_D_CHAR(node pidl.ptnod) return pidl.ptnod is
  572.   begin
  573.     return pidl.ptg_nd(node,11);
  574.   end;
  575.  
  576.   function  a_D_R_(node pidl.ptnod) return pidl.ptnod is
  577.   begin
  578.     return pidl.ptg_nd(node,12);
  579.   end;
  580.  
  581.   function  a_D_R_VO(node pidl.ptnod) return pidl.ptnod is
  582.   begin
  583.     return pidl.ptg_nd(node,13);
  584.   end;
  585.  
  586.   function  a_EXCEPT(node pidl.ptnod) return pidl.ptnod is
  587.   begin
  588.     return pidl.ptg_nd(node,14);
  589.   end;
  590.  
  591.   function  a_EXP(node pidl.ptnod) return pidl.ptnod is
  592.   begin
  593.     return pidl.ptg_nd(node,15);
  594.   end;
  595.  
  596.   function  a_EXP1(node pidl.ptnod) return pidl.ptnod is
  597.   begin
  598.     return pidl.ptg_nd(node,16);
  599.   end;
  600.  
  601.   function  a_EXP2(node pidl.ptnod) return pidl.ptnod is
  602.   begin
  603.     return pidl.ptg_nd(node,17);
  604.   end;
  605.  
  606.   function  a_EXP_VO(node pidl.ptnod) return pidl.ptnod is
  607.   begin
  608.     return pidl.ptg_nd(node,18);
  609.   end;
  610.  
  611.   function  a_FORM_D(node pidl.ptnod) return pidl.ptnod is
  612.   begin
  613.     return pidl.ptg_nd(node,19);
  614.   end;
  615.  
  616.   function  a_HAVING(node pidl.ptnod) return pidl.ptnod is
  617.   begin
  618.     return pidl.ptg_nd(node,20);
  619.   end;
  620.  
  621.   function  a_HEADER(node pidl.ptnod) return pidl.ptnod is
  622.   begin
  623.     return pidl.ptg_nd(node,21);
  624.   end;
  625.  
  626.   function  a_ID(node pidl.ptnod) return pidl.ptnod is
  627.   begin
  628.     return pidl.ptg_nd(node,22);
  629.   end;
  630.  
  631.   function  a_INDICA(node pidl.ptnod) return pidl.ptnod is
  632.   begin
  633.     return pidl.ptg_nd(node,23);
  634.   end;
  635.  
  636.   function  a_ITERAT(node pidl.ptnod) return pidl.ptnod is
  637.   begin
  638.     return pidl.ptg_nd(node,24);
  639.   end;
  640.  
  641.   function  a_MEMBER(node pidl.ptnod) return pidl.ptnod is
  642.   begin
  643.     return pidl.ptg_nd(node,25);
  644.   end;
  645.  
  646.   function  a_NAME(node pidl.ptnod) return pidl.ptnod is
  647.   begin
  648.     return pidl.ptg_nd(node,26);
  649.   end;
  650.  
  651.   function  a_NAME_V(node pidl.ptnod) return pidl.ptnod is
  652.   begin
  653.     return pidl.ptg_nd(node,27);
  654.   end;
  655.  
  656.   function  a_NOT_NU(node pidl.ptnod) return pidl.ub2 is
  657.   begin
  658.     return pidl.ptg_u2(node,28);
  659.   end;
  660.  
  661.   function  a_OBJECT(node pidl.ptnod) return pidl.ptnod is
  662.   begin
  663.     return pidl.ptg_nd(node,29);
  664.   end;
  665.  
  666.   function  a_P_IFC(node pidl.ptnod) return pidl.ptnod is
  667.   begin
  668.     return pidl.ptg_nd(node,30);
  669.   end;
  670.  
  671.   function  a_PACKAG(node pidl.ptnod) return pidl.ptnod is
  672.   begin
  673.     return pidl.ptg_nd(node,31);
  674.   end;
  675.  
  676.   function  a_RANGE(node pidl.ptnod) return pidl.ptnod is
  677.   begin
  678.     return pidl.ptg_nd(node,32);
  679.   end;
  680.  
  681.   function  a_SPACE(node pidl.ptnod) return pidl.ptnod is
  682.   begin
  683.     return pidl.ptg_nd(node,33);
  684.   end;
  685.  
  686.   function  a_STM(node pidl.ptnod) return pidl.ptnod is
  687.   begin
  688.     return pidl.ptg_nd(node,34);
  689.   end;
  690.  
  691.   function  a_SUBPRO(node pidl.ptnod) return pidl.ptnod is
  692.   begin
  693.     return pidl.ptg_nd(node,35);
  694.   end;
  695.  
  696.   function  a_SUBUNI(node pidl.ptnod) return pidl.ptnod is
  697.   begin
  698.     return pidl.ptg_nd(node,36);
  699.   end;
  700.  
  701.   function  a_TRANS(node pidl.ptnod) return pidl.ptnod is
  702.   begin
  703.     return pidl.ptg_nd(node,37);
  704.   end;
  705.  
  706.   function  a_TYPE_R(node pidl.ptnod) return pidl.ptnod is
  707.   begin
  708.     return pidl.ptg_nd(node,38);
  709.   end;
  710.  
  711.   function  a_TYPE_S(node pidl.ptnod) return pidl.ptnod is
  712.   begin
  713.     return pidl.ptg_nd(node,39);
  714.   end;
  715.  
  716.   function  a_UNIT_B(node pidl.ptnod) return pidl.ptnod is
  717.   begin
  718.     return pidl.ptg_nd(node,40);
  719.   end;
  720.  
  721.   function  a_UP(node pidl.ptnod) return pidl.ptnod is
  722.   begin
  723.     return pidl.ptg_nd(node,41);
  724.   end;
  725.  
  726.   function  a_WHERE(node pidl.ptnod) return pidl.ptnod is
  727.   begin
  728.     return pidl.ptg_nd(node,42);
  729.   end;
  730.  
  731.   function  as_ALTER(node pidl.ptnod) return pidl.ptnod is
  732.   begin
  733.     return pidl.ptg_nd(node,43);
  734.   end;
  735.  
  736.   function  as_APPLY(node pidl.ptnod) return pidl.ptnod is
  737.   begin
  738.     return pidl.ptg_nd(node,44);
  739.   end;
  740.  
  741.   function  as_CHOIC(node pidl.ptnod) return pidl.ptnod is
  742.   begin
  743.     return pidl.ptg_nd(node,45);
  744.   end;
  745.  
  746.   function  as_COMP_(node pidl.ptnod) return pidl.ptnod is
  747.   begin
  748.     return pidl.ptg_nd(node,46);
  749.   end;
  750.  
  751.   function  as_DECL1(node pidl.ptnod) return pidl.ptnod is
  752.   begin
  753.     return pidl.ptg_nd(node,47);
  754.   end;
  755.  
  756.   function  as_DECL2(node pidl.ptnod) return pidl.ptnod is
  757.   begin
  758.     return pidl.ptg_nd(node,48);
  759.   end;
  760.  
  761.   function  as_DSCRM(node pidl.ptnod) return pidl.ptnod is
  762.   begin
  763.     return pidl.ptg_nd(node,49);
  764.   end;
  765.  
  766.   function  as_DSCRT(node pidl.ptnod) return pidl.ptnod is
  767.   begin
  768.     return pidl.ptg_nd(node,50);
  769.   end;
  770.  
  771.   function  as_EXP(node pidl.ptnod) return pidl.ptnod is
  772.   begin
  773.     return pidl.ptg_nd(node,51);
  774.   end;
  775.  
  776.   function  as_FROM(node pidl.ptnod) return pidl.ptnod is
  777.   begin
  778.     return pidl.ptg_nd(node,52);
  779.   end;
  780.  
  781.   function  as_GROUP(node pidl.ptnod) return pidl.ptnod is
  782.   begin
  783.     return pidl.ptg_nd(node,53);
  784.   end;
  785.  
  786.   function  as_ID(node pidl.ptnod) return pidl.ptnod is
  787.   begin
  788.     return pidl.ptg_nd(node,54);
  789.   end;
  790.  
  791.   function  as_INTO_(node pidl.ptnod) return pidl.ptnod is
  792.   begin
  793.     return pidl.ptg_nd(node,55);
  794.   end;
  795.  
  796.   function  as_ITEM(node pidl.ptnod) return pidl.ptnod is
  797.   begin
  798.     return pidl.ptg_nd(node,56);
  799.   end;
  800.  
  801.   function  as_LIST(node pidl.ptnod) return pidl.ptseqnd is
  802.   begin
  803.     return pidl.ptgsnd(node,57);
  804.   end;
  805.  
  806.   function  as_NAME(node pidl.ptnod) return pidl.ptnod is
  807.   begin
  808.     return pidl.ptg_nd(node,58);
  809.   end;
  810.  
  811.   function  as_ORDER(node pidl.ptnod) return pidl.ptnod is
  812.   begin
  813.     return pidl.ptg_nd(node,59);
  814.   end;
  815.  
  816.   function  as_P_(node pidl.ptnod) return pidl.ptnod is
  817.   begin
  818.     return pidl.ptg_nd(node,60);
  819.   end;
  820.  
  821.   function  as_P_ASS(node pidl.ptnod) return pidl.ptnod is
  822.   begin
  823.     return pidl.ptg_nd(node,61);
  824.   end;
  825.  
  826.   function  as_PRAGM(node pidl.ptnod) return pidl.ptnod is
  827.   begin
  828.     return pidl.ptg_nd(node,62);
  829.   end;
  830.  
  831.   function  as_SET_C(node pidl.ptnod) return pidl.ptnod is
  832.   begin
  833.     return pidl.ptg_nd(node,63);
  834.   end;
  835.  
  836.   function  as_STM(node pidl.ptnod) return pidl.ptnod is
  837.   begin
  838.     return pidl.ptg_nd(node,64);
  839.   end;
  840.  
  841.   function  c_ENTRY_(node pidl.ptnod) return pidl.byte4 is
  842.   begin
  843.     return pidl.ptg_b4(node,65);
  844.   end;
  845.  
  846.   function  c_FIXUP(node pidl.ptnod) return pidl.ptr_t is
  847.   begin
  848.     return pidl.ptg_pt(node,66);
  849.   end;
  850.  
  851.   function  c_FRAME_(node pidl.ptnod) return pidl.ub4 is
  852.   begin
  853.     return pidl.ptg_u4(node,67);
  854.   end;
  855.  
  856.   function  c_LABEL(node pidl.ptnod) return pidl.ub4 is
  857.   begin
  858.     return pidl.ptg_u4(node,68);
  859.   end;
  860.  
  861.   function  c_OFFSET(node pidl.ptnod) return pidl.byte4 is
  862.   begin
  863.     return pidl.ptg_b4(node,69);
  864.   end;
  865.  
  866.   function  c_VAR(node pidl.ptnod) return pidl.ptr_t is
  867.   begin
  868.     return pidl.ptg_pt(node,70);
  869.   end;
  870.  
  871.   function  l_DEFAUL(node pidl.ptnod) return pidl.ub4 is
  872.   begin
  873.     return pidl.ptg_u4(node,71);
  874.   end;
  875.  
  876.   function  l_INDREP(node pidl.ptnod) return varchar2 is
  877.   begin
  878.     return pidl.ptg_tx(node,72);
  879.   end;
  880.  
  881.   function  l_NUMREP(node pidl.ptnod) return varchar2 is
  882.   begin
  883.     return pidl.ptg_tx(node,73);
  884.   end;
  885.  
  886.   function  l_Q_HINT(node pidl.ptnod) return varchar2 is
  887.   begin
  888.     return pidl.ptg_tx(node,74);
  889.   end;
  890.  
  891.   function  l_SYMREP(node pidl.ptnod) return varchar2 is
  892.   begin
  893.     return pidl.ptg_tx(node,75);
  894.   end;
  895.  
  896.   function  s_ADDRES(node pidl.ptnod) return pidl.sb4 is
  897.   begin
  898.     return pidl.ptg_s4(node,76);
  899.   end;
  900.  
  901.   function  s_ADEFN(node pidl.ptnod) return pidl.ptnod is
  902.   begin
  903.     return pidl.ptg_nd(node,77);
  904.   end;
  905.  
  906.   function  s_BASE_T(node pidl.ptnod) return pidl.ptnod is
  907.   begin
  908.     return pidl.ptg_nd(node,78);
  909.   end;
  910.  
  911.   function  s_BLOCK(node pidl.ptnod) return pidl.ptnod is
  912.   begin
  913.     return pidl.ptg_nd(node,79);
  914.   end;
  915.  
  916.   function  s_BODY(node pidl.ptnod) return pidl.ptnod is
  917.   begin
  918.     return pidl.ptg_nd(node,80);
  919.   end;
  920.  
  921.   function  s_COMP_S(node pidl.ptnod) return pidl.ptnod is
  922.   begin
  923.     return pidl.ptg_nd(node,81);
  924.   end;
  925.  
  926.   function  s_CONSTR(node pidl.ptnod) return pidl.ptnod is
  927.   begin
  928.     return pidl.ptg_nd(node,82);
  929.   end;
  930.  
  931.   function  s_DEFN(node pidl.ptnod) return pidl.ptnod is
  932.   begin
  933.     return pidl.ptg_nd(node,83);
  934.   end;
  935.  
  936.   function  s_DISCRI(node pidl.ptnod) return pidl.ptnod is
  937.   begin
  938.     return pidl.ptg_nd(node,84);
  939.   end;
  940.  
  941.   function  s_EXCEPT(node pidl.ptnod) return pidl.ptnod is
  942.   begin
  943.     return pidl.ptg_nd(node,85);
  944.   end;
  945.  
  946.   function  s_EXP_TY(node pidl.ptnod) return pidl.ptnod is
  947.   begin
  948.     return pidl.ptg_nd(node,86);
  949.   end;
  950.  
  951.   function  s_FIRST(node pidl.ptnod) return pidl.ptnod is
  952.   begin
  953.     return pidl.ptg_nd(node,87);
  954.   end;
  955.  
  956.   function  s_FRAME(node pidl.ptnod) return pidl.ptnod is
  957.   begin
  958.     return pidl.ptg_nd(node,88);
  959.   end;
  960.  
  961.   function  s_IN_OUT(node pidl.ptnod) return pidl.ub4 is
  962.   begin
  963.     return pidl.ptg_u4(node,89);
  964.   end;
  965.  
  966.   function  s_INIT_E(node pidl.ptnod) return pidl.ptnod is
  967.   begin
  968.     return pidl.ptg_nd(node,90);
  969.   end;
  970.  
  971.   function  s_INTERF(node pidl.ptnod) return pidl.ptnod is
  972.   begin
  973.     return pidl.ptg_nd(node,91);
  974.   end;
  975.  
  976.   function  s_LAYER(node pidl.ptnod) return pidl.sb4 is
  977.   begin
  978.     return pidl.ptg_s4(node,92);
  979.   end;
  980.  
  981.   function  s_LOCATI(node pidl.ptnod) return pidl.sb4 is
  982.   begin
  983.     return pidl.ptg_s4(node,93);
  984.   end;
  985.  
  986.   function  s_NORMAL(node pidl.ptnod) return pidl.ptnod is
  987.   begin
  988.     return pidl.ptg_nd(node,94);
  989.   end;
  990.  
  991.   function  s_NOT_NU(node pidl.ptnod) return pidl.ub2 is
  992.   begin
  993.     return pidl.ptg_u2(node,95);
  994.   end;
  995.  
  996.   function  s_OBJ_DE(node pidl.ptnod) return pidl.ptnod is
  997.   begin
  998.     return pidl.ptg_nd(node,96);
  999.   end;
  1000.  
  1001.   function  s_OBJ_TY(node pidl.ptnod) return pidl.ptnod is
  1002.   begin
  1003.     return pidl.ptg_nd(node,97);
  1004.   end;
  1005.  
  1006.   function  s_OPERAT(node pidl.ptnod) return pidl.ub4 is
  1007.   begin
  1008.     return pidl.ptg_u4(node,98);
  1009.   end;
  1010.  
  1011.   function  s_PACKIN(node pidl.ptnod) return pidl.ptnod is
  1012.   begin
  1013.     return pidl.ptg_nd(node,99);
  1014.   end;
  1015.  
  1016.   function  s_POS(node pidl.ptnod) return pidl.ub4 is
  1017.   begin
  1018.     return pidl.ptg_u4(node,100);
  1019.   end;
  1020.  
  1021.   function  s_RECORD(node pidl.ptnod) return pidl.ptnod is
  1022.   begin
  1023.     return pidl.ptg_nd(node,101);
  1024.   end;
  1025.  
  1026.   function  s_REP(node pidl.ptnod) return pidl.ub4 is
  1027.   begin
  1028.     return pidl.ptg_u4(node,102);
  1029.   end;
  1030.  
  1031.   function  s_SCOPE(node pidl.ptnod) return pidl.ptnod is
  1032.   begin
  1033.     return pidl.ptg_nd(node,103);
  1034.   end;
  1035.  
  1036.   function  s_SIZE(node pidl.ptnod) return pidl.ptnod is
  1037.   begin
  1038.     return pidl.ptg_nd(node,104);
  1039.   end;
  1040.  
  1041.   function  s_SPEC(node pidl.ptnod) return pidl.ptnod is
  1042.   begin
  1043.     return pidl.ptg_nd(node,105);
  1044.   end;
  1045.  
  1046.   function  s_STM(node pidl.ptnod) return pidl.ptnod is
  1047.   begin
  1048.     return pidl.ptg_nd(node,106);
  1049.   end;
  1050.  
  1051.   function  s_STUB(node pidl.ptnod) return pidl.ptnod is
  1052.   begin
  1053.     return pidl.ptg_nd(node,107);
  1054.   end;
  1055.  
  1056.   function  s_T_SPEC(node pidl.ptnod) return pidl.ptnod is
  1057.   begin
  1058.     return pidl.ptg_nd(node,108);
  1059.   end;
  1060.  
  1061.   function  s_T_STRU(node pidl.ptnod) return pidl.ptnod is
  1062.   begin
  1063.     return pidl.ptg_nd(node,109);
  1064.   end;
  1065.  
  1066.   function  s_VALUE(node pidl.ptnod) return pidl.ub2 is
  1067.   begin
  1068.     return pidl.ptg_u2(node,110);
  1069.   end;
  1070.  
  1071.   function  ss_BINDS(node pidl.ptnod) return pidl.ptseqnd is
  1072.   begin
  1073.     return pidl.ptgsnd(node,111);
  1074.   end;
  1075.  
  1076.   function  ss_BUCKE(node pidl.ptnod) return pidl.ptr_t is
  1077.   begin
  1078.     return pidl.ptg_pt(node,112);
  1079.   end;
  1080.  
  1081.   function  ss_EXLST(node pidl.ptnod) return pidl.ptseqnd is
  1082.   begin
  1083.     return pidl.ptgsnd(node,113);
  1084.   end;
  1085.  
  1086.   function  ss_SQL(node pidl.ptnod) return pidl.ptseqnd is
  1087.   begin
  1088.     return pidl.ptgsnd(node,114);
  1089.   end;
  1090.  
  1091. end diana;
  1092. /