blob: 7070f8c0ed2d7d13356048c76cafbded85a45264 (
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
include "cqdef.h"
# CQ_LOCATE -- Locate a catalog by name. Return 0 if the catalog is not found.
int procedure cq_locate (cq, name)
pointer cq #I the catalog descriptor
char name[ARB] #I the catalog name
int i
bool streq()
begin
do i = 1, CQ_NRECS(cq) {
if (streq (name, CQ_NAME(cq, i)))
return (i)
}
return (0)
end
# CQ_LOCATEN -- Locate a catalog by number and retrieve its name. Return 0 if
# the catalog is not found.
int procedure cq_locaten (cq, catno, name, maxch)
pointer cq #I the catalog descriptor
int catno #I the catalog sequence record number
char name[ARB] #O the output catalog name
int maxch #I the maximum size of the catalog name
begin
if (catno > 0 && catno <= CQ_NRECS(cq)) {
call strcpy (CQ_NAME(cq, catno), name, maxch)
return (catno)
}
return (0)
end
|
