HP Business BASIC/XL Reference Manual - HP 3000 MPE/iX Computer Systems - Edition 1 (32715-90001)

4-: 35
in the corresponding position in the ordered set of
values contained in str_var . Any search or sort items
defined for the entry must be included in item_list .
Fields of unreferenced items are filled with binary
zeros.
If the item_list is a string variable, the list of data
item names must be left justified in the string.
Individual data item names are separated by commas and
the last is followed by a semicolon or blank. Embedded
blanks are not allowed and no name can appear more than
once.
The data item_list can contain special symbols such as
@, which specifies all data items in the data set.
Consult the Special List Parameter Constructs table in
the explanation of the DBPUT library procedure in the
TurboIMAGE/XL Database Management System for additional
special symbols and their usage.
If referencing data items by number, the first word in
the short integer array must be the total number of
elements in the array. This number is followed by that
number of unique data item numbers.
The item_list specified is returned internally by
TurboIMAGE as the current list . Consult the
TurboIMAGE/XL Database Management System for details
about the benefits of using TurboIMAGE's current list .
If the ITEMS option is not specified, HP Business
BASIC/XL sets the item_list to "@;".
Examples
The following examples show the use of the DBPUT statement.
110 DBPUT Db$ FROM S$,DATASET=Ds$,STATUS=S(*)
130 DBPUT Db$ FROM S$,DATASET=Ds$,STATUS=S(*)
150 DBPUT Db$ FROM S$,DATASET Ds$,STATUS S(*),ITEMS I$
170 DBPUT Db$ FROM S$,DATASET Ds$,ITEMS I$,STATUS S(*)
220 DBPUT Db$ USING 400; DATASET Ds$
230 DBPUT Db$ USING Pack1; DATASET Ds$,STATUS=S(*)
400 IN DATASET Ds$ USE A,B, SKIP 10,D$
410 Pack1: PACKFMT A,B, SKIP 10,D$
420 DBPUT D6$ USING 400, FROM=S$,DATASET=Ds$
The following statements:
100 DBPUT Dbase$ USING 200 FROM=D$; DATASET = "parts"
200 PACKFMT A,Price,Company$
are equivalent to:
100 PACK USING 200;D$
100 DBPUT Dbase$ FROM D$;DATASET="parts"
200 PACKFMT A,Price,Company$
DBUNLOCK
The DBUNLOCK statement cancels the restriction imposed by the DBLOCK
statement with the same dbname .
Syntax
DBUNLOCK dbname $[, STATUS[=] status_array (*)]
Parameters
dbname $ A string variable, whose value is a TurboIMAGE database
name. dbname must be the variable that was passed to a
successful DBOPEN.
status_array A 10-element short integer array to which TurboIMAGE