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

4- 52
an external Pascal program. The Pascal program is called using the
PASCAL EXTENSIBLE keywords.
extrext2
10 EXTERNAL PASCAL EXTENSIBLE=2 Pascal_extensible_2(SHORT INTEGER P1,&
REAL VALUE P2, INTEGER P3, SHORT REAL VALUE P4)
15 ! Declare and initialize the variables to be used as actual parameters
20 SHORT INTEGER Sint1
30 REAL Real1
40 INTEGER Int1
50 SHORT REAL Sreal1
60 Sint1=1;Real1=2;Int1=3;Sreal1=4
70 CALL Pascal_extensible_2(Sint1,Real1) ! pass 2 parameters
80 CALL Pascal_extensible_2(Sint1,Real1,Int1) ! pass 3 parameters
90 CALL Pascal_extensible_2(Sint1,Real1,Int1,Sreal1) ! pass 4 parameters
FILES ARE IN
The FILES ARE IN statement is used to specify a different default
location for data files, for example; a group, group.account, or account
other than that assigned by the operating system. Each data file resides
in the newly specified default location. However, explicitly stating the
group or the group.account in a data file name in a subsequent statement
overrides the location specified in the FILES ARE IN statement.
Syntax
FILES [ARE] [IN] str_expr
Parameters
str_expr A string expression that evaluates to a group.account.
Examples
100 FILES ARE IN "sfm.mktg"
110 CREATE "File1",FILESIZE=1200 !File1=FILE1.SFM.MKTG
120 CREATE "File2",FILESIZE=1500 !File2=FILE2.SFM.MKTG
130 CREATE "File3.lab.HP",FILESIZE=5000 !File3=FILE3.LAB.HP
999 END
FILTER
The FILTER statement starts the database retrieval process for HP
Business BASIC/XL's Data Base Sort Feature. A boolean expression that
can contain both built-in or user-defined functions, is used as the
search condition. When the FILTER statement is executed, the data sets
contained in the thread list are accessed in the order and hierarchy
specified by the THREAD IS statement. The data retrieved from each data
set are unpacked into the local variables as defined in the respective IN
DATASET statement. For each data set from the thread list, the search
condition is evaluated. If the search condition is true, the record
pointers of the data set records that have been read are written out to
the workfile; otherwise, they are ignored and the next data set record is
searched.
If a search condition is not needed, the keyword ALL can be used to
retrieve all the records.
The FILTER statement expects the workfile to be non-empty. If the
workfile is empty and the FILTER statement is executed, an error occurs.
Syntax
{ search_condition }
FILTER USING line_id ; {ALL }
Parameters
line_id Line label on line number that identifies the line that
defines the THREAD IS statement.
search_ Any logical expression.