High-Level Screen Management Intrinsic Library Reference Manual (32424-90002)

4- 9
INTEGER*4 RTNBUFLEN
INTEGER*4 ENTRYCNT
EQUIVALENCE (DATADESCRPT(1), DESCRPTTYPE(,
+ (DATADESCRPT(2), BUFLEN),
+ (DATADESCRPT(3), RTNBUFLEN),
+ (DATADESCRPT(4), ENTRYCNT)
INTEGER*4 FLDLOC(12,5)
INTEGER*4 FLDLEN(12,5)
INTEGER*4 RTNFLDLEN(12,5)
INTEGER*4 TYPCNVCODE(12,5)
EQUIVALENCE (DATADESCRPT(5), FLDLOC),
+ (DATADESCRPT(5), FLDLEN),
+ (DATADESCRPT(5), RTNFLDLEN),
+ (DATADESCRPT(5), TYPCNVCODE)
CHARACTER*16 FLDID(3,5)
EQUIVALENCE (DATADESCRPT(5), FLDID)
For an example of how a record structure can be manipulated in FORTRAN,
see the COLLECT_TXNS subroutine in the FORTRAN example program in
Appendix C.
Pascal:
type
fldentry_rec = record
fldloc : integer;
fldlen : integer;
rtnfldlen : integer;
typcnvcode : integer;
fldid : packed array [1..32] of char;
end;
datadescrpt_rec = record
descrpttype : integer;
buflen : integer;
rtnbuflen : integer;
entrycnt : integer;
fldentry : array [1..5] of fldentry_rec;
end;
var
datadescrpt : datadescrpt_rec;
Data Transfer Method F
This method lets you transfer data and perform data type conversions
using an ARB you have defined in the forms file. Use method F if your
application requires data type conversions and only one buffer is used
to
transfer data.
You indictate this data transfer method by assigning the value 1000 or
1100 to
descrpttype
. The value 1000 tells Hi-Li to convert real
(floating point) numbers according to HP 3000 format rules. The value
1100 tells Hi-Li to convert real (floating point) numbers according to
IEEE format rules.
The values you must supply to use method F are:
descrpttype
Supply a value of 1000 to convert real numbers
using MPE formatting rules.
Supply a value of 1100 to convert real numbers