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

3- 3
are using. You can initialize this parameter to A.00.00 for this release
of Hi-Li unless you want to use the
dontenableinput option of the
HPDPROMPT
promptpak parameter. If you want to use dontenableinput , set
this parameter to a value equal to or greater than A.00.10. Once set,
this parameter should not be changed. As future enhancements to Hi-Li
occur, you will use this parameter to pass the version code for the
version containing the features you decide to use.
For information about the
dontenableinput option of the promptpak
parameter, see HPDPROMPT in this chapter.
Examples
COBOL:
01 globalpak.
05 expectedvuf pic x(8).
05 callprotocol pics9(8) comp.
05 comarealen pic s9(8) comp.
05 comarea pic x(300).
FORTRAN:
CHARACTER*8 EXPECTEDVUF
INTEGER*4 CALLPROTOCOL
INTEGER*4 COMAREALEN
EQUIVALENCE (GLOBALPAK(1), EXPECTEDVUF),
+ (GLOBALPAK(3), CALLPROTOCOL),
+ (GLOBALPAK(4), COMAREALEN),
+ (GLOBALPAK(5), COMAREA)
Pascal:
type
comarea_type = array [1..75] of integer;
globalpak_rec = record
expectedvuf : packed array [1..8] of char;
callprotocol : integer;
comarealen : integer;
comarea : comarea_type;
var
globalpak : globalpak_rec;
RETURNPAK
Returns information about a Hi-Li call to the application.
Parameter Descriptions
returnstatus A four-byte integer that indicates the status
code returned by the intrinsic. The following
ranges indicate the status:
0 = successful
<0 = error (programming or system problem)
>0 = exception (operator or data problem)
sublayerstatus A four-byte integer that indicates the status
code returned by the underlying facilities.
This information is intended to augment
returnstatus for diagnostic purposes only.
returnmsglen A four-byte integer that indicates the length
in bytes of returnmsg .