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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
include <tbset.h>
# MOVTBROW -- Move columns from one table to another where not null
#
# B.Simon 25-Apr-88 Original
# B.Simon 15-Jan-99 now calls mov_elem
procedure movtbrow (rtp, rrow, wtp, wrow)
pointer rtp # i: Table descriptor of table read from
int rrow # i: Row number of table read from
pointer wtp # i: Table descriptor of table written to
int wrow # i: Row number of table written to
#--
int ncol, icol
pointer sp, rcp, wcp, colname
pointer tbpsta(), tbcnum()
begin
call smark (sp)
call salloc (colname, SZ_COLNAME, TY_CHAR)
ncol = tbpsta (rtp, TBL_NCOLS)
do icol = 1, ncol {
rcp = tbcnum (rtp, icol)
call tbcigt (rcp, TBL_COL_NAME, Memc[colname], SZ_COLNAME)
call tbcfnd (wtp, Memc[colname], wcp, 1)
# Column names beginning with an underscore are for internal
# use by the program and do not contain actual data
if (Memc[colname] != '_' && wcp != NULL) {
# Copy the row and column in its native type
call mov_elem (rtp, rcp, rrow, wtp, wcp, wrow)
}
}
call sfree (sp)
end
|
