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

3- 39
For a discussion of the labelset subparameter,
see the Discussion for HPDSEND that follows
these parameters.
labelbuf A byte array of characters that identifies for
HPDSEND the application area that contains the
label strings. For the HP3000, 16 bytes are
sent to each label.
Discussion
HPDSEND is one of the three core intrinsics that make up the screen
management intrinsics. Its role is to establish the overall context for
an interactive transaction. The context is established by getting the
form. It determines the form's display position, initializes fields and
loads application data, places an application message in the message
window, displays the screen and key labels, and places the cursor at a
selected input field.
Parameters that are not required by your application can be compacted
and passed as abbreviated parameters.
Creating Function Key Label Sets Using LABELSET. Because there is no
facility within FORMSPEC/V for defining free- floating function key la-
bel sets,the HPDPROMPT and HPDSEND
labelset ,a subparameter of the
labeldescrpt parameter, provides this ability by "borrowing" the func-
tion key labelset from the form you specify in the
labelset subparameter.
This form can be any of the "live" forms in the forms file or it can be a
"dummy" form which exists only as a place holder for the function key
label set. You can create a place holder for a key label set by adding a
form to the forms file, defining a set of labels for the form, and
building a one-character, text-only, screen image for the dummy form.
Examples
COBOL:
01 formpak.
05 formname pic x (32).
05 formposition pic s9(8) comp.
05 chnglisttype pic s9(8) comp.
05 listcount pic s9(8) comp.
05 chngentry occurs 5 times.
10 fieldident pic x(32)
10 chngtype pic s9(8) comp.
10 chngspec pic s9(8).
01 labeldescrpt.
05 descrptcnt pic s9(8) comp.
05 descrptentry occurs 8 times.
10 labelident pic s9(8) comp.
10 labelenh pic x(8).
01 labelbuf.
05 labelentry occurs 8 times.
10 labeltext pic X(16).
FORTRAN:
INTEGER*4 FORMPAK(44)
CHARACTER*32 FORMNAME
INTEGER*4 FORMPOSITION