home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / PRECOM.ZIP / SQLDA.DEF < prev    next >
Encoding:
Modula Definition  |  1992-09-22  |  2.0 KB  |  64 lines
  1.  
  2. DEFINITION MODULE SQLDA;
  3. (*# call(o_a_size => off,
  4.          o_a_copy=>off,
  5.          result_optional=>on,
  6.          reg_saved => (si, di, ds, st1, st2),
  7.          reg_param => (),
  8.          seg_name => none,
  9.          near_call => off,
  10.          ds_eq_ss => off) *)
  11. (*# module(implementation=>off, init_code => off) *)
  12. (*# name(prefix => os2_lib) *)
  13. (*# data(near_ptr => off,var_enum_size=>off) *)
  14. (*# check(index=>off,range=>off,overflow=>off,nil_ptr=>off) *)
  15. (****************************************************************************
  16.  
  17.    Module Name      = SQLDA.H                         12/10/91
  18.  
  19.    Descriptive Name = SQLDA External Include File
  20.  
  21.    Copyright = nnnnnnnn (C) Copyright IBM Corp. 1987
  22.            Licensed Material - Program Property of IBM
  23.            Refer to Copyright Instructions Form Number G120-3083
  24.  
  25.    Function = Include File defining SQLDA
  26.  
  27.    Operating System = OS/2 Extended Edition
  28.  
  29. ****************************************************************************)
  30.  
  31.  
  32. (* SQLDA: SQL Descriptor Area - Variable descriptor               *)
  33. (* this structure can not be allocated using NEW because of the *)
  34. (* variable number of data elements *)
  35.  
  36.  
  37. TYPE
  38.   SQLVar = RECORD
  39.     type   : CARDINAL; (* sql type of data *)
  40.     len    : CARDINAL; (* length of data   *)
  41.     bufaddr: ADDRESS;  (* address of buffer *)
  42.     NulVar : POINTER TO CARDINAL;
  43.     namlen : CARDINAL;
  44.     name   : ARRAY[0..29] OF CHAR;  (* colum name or var name *)
  45.   END;
  46.  
  47.   SQLHeader = RECORD
  48.    sqlaid : ARRAY[0..7] OF CHAR; (* Eye catcher = 'SQLDA   '    *)
  49.    sqldabc: LONGINT;             (* SQLDA size in bytes=16+44*SQLN *)
  50.    sqln   : CARDINAL;               (* Number of SQLVAR elements alloc *)
  51.    sqld   : CARDINAL;            (* # of used SQLVAR elements       *)
  52.   END;
  53.  MaxVars = [0..10];
  54.  
  55.  sqldaPtr = POINTER TO sqlda;
  56.  
  57.  sqlda = RECORD
  58.    header : SQLHeader;
  59.    vars   : ARRAY MaxVars OF SQLVar; (* this gets allocated as an array variables *)
  60.  
  61. END;
  62.  
  63. (*  SQLDASIZE(n) (sizeof(struct sqlda) + (n-1)*sizeof(struct sqlvar)) *)
  64. END SQLDA.