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

3- 32
INTEGER*4 ACTUALCNT
EQUIVALENCE (FIELDLIST(1), LISTTYPE),
+ (FIELDLIST(2), ALLOCNT),
+ (FIELDLIST(3), ACTUALCNT)*j*Q
EQUIVALENCE (FIELDLIST(4), FIELDID)
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
itementry_rec = record
itemtype : integer;
itemident : integer;
readopt : integer;
end;
readitems_rec = record
itemcnt : integer;
itementry : array [1..9] of
itementry_rec;
end;
var
readitems : readitems_rec;
type
fieldlist_rec = record
listtype : integer;
allocnt : integer;
actualcnt : integer;
fieldid : array [1..5] of integer;
end;
var
fieldlist : fieldlist_rec;
HPDSEND
Gets a form and displays it on the screen.
Syntax
HPDSEND globalpak, returnpak, sendpak, formpak, cursorposition, msg,
datadescrpt, databuf, labeldescrpt, labelbuf
Parameter Descriptions
globalpak A compound parameter that passes information
between intrinsics. For a complete description
of this parameter, see "Global Parameters" in
Chapter 3.
returnpak A compound parameter that passes information
back from the intrinsic to the application.
For a complete description of this parameter,
see "Global Parameters" in Chapter 3.
sendpak A compound parameter that modifies the default
operations of HPDSEND. It is made up of the
following subparameters:
dontenableinput A four-byte integer
that is used by the
application to