HP QUERY, Reference Manual, Page: 265 / 280

DATA_BASE_NAME.BDB_NAME := 'ACCTS ';
DATA_SET_NAME.BDS_NAME := 'SHIP-D ';
CALLAGAIN := -1; (* 4 *)
END
ELSE (* SHIP-D DATA SET *)
BEGIN
M := 1;
FOR N := 39 TO 55 DO
BEGIN
LINEBUF.BLINEBUF[N] := FMTDATE [M];
M := M + 1;
END;
CALLAGAIN := 0;
END;
END;
BEGIN
END.
P ASCAL Notes
(* 1 *)
V ariant records can b e used when it is necessary to access arrays that con tain dieren t data
t yp es. V ariant records are allo cated the maximum amoun t of storage needed for the record.
Because of this it is p ossible to 'ov erla y' the elds so data can b e accessed as dieren t t yp es.
F or example, DBBUF can no w b e accessed as c haracter data if DBBUF CHAR is referenced,
or as a single w ord in teger data if DBBUF INT is referenced.
(* 2 *)
F or prop er storage (one c haracter p er b yte), c haracter data should b e in a P A CKED ARRA Y
OF CHAR (P A Cs). Ho w ev er, P A Cs ha v e b yte addresses and the data passed b et w een
QUER Y and the user-dened pro cedure m ust ha v e w ord addresses. When a P A C is declared
as a eld in a RECORD, it has a w ord address.
(* 3 *)
QUER Y passes all parameters as w ord addresses. The parameters m ust b e declared as V AR
so that indirect addressing is p erformed, otherwise, the addresses will b e taken as v alues.
(* 4 *)
When P ASCAL assigns TR UE to a BOOLEAN, a one is placed in the left b yte of the
BOOLEAN v alue. When SPL tests TR UE or F ALSE, it tests for o dd or ev en resp ectiv ely .
The P ASCAL TR UE will b e considered F ALSE. So CALLA GAIN is declared to b e a
SMALLINT and is assigned the SPL con v en tion of min us one for TR UE and zero for F ALSE.
USER-DEFINED PROCEDURES F-13