blob: db789c0dca37187a351d6f6772aceead60ffbdc9 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
include <tbset.h>
# tbcfnd1 -- find a column
# Find a column in a table. This just calls tbcfnd.
# If the column is not found in the table, colptr will be set to NULL.
#
# Phil Hodge, 21-Aug-1995 Subroutine created.
procedure tbcfnd1 (tp, colname, colptr)
pointer tp # i: pointer to table descriptor
char colname[SZ_COLNAME] # i: name of column
pointer colptr # o: pointer to column, or NULL
#--
pointer cp[1] # pointer to column, or NULL
char cname[SZ_COLNAME,1] # name of column
errchk tbcfnd
begin
call strcpy (colname[1], cname[1,1], SZ_COLNAME)
call tbcfnd (tp, cname, cp, 1)
colptr = cp[1]
end
|
