HP 3000 Manuals HP 3000 Manuals
OLSetCurrObj
This places a new object in the current object file. The object type is
passed as a parameter and shows which of the parameters are to be set.
If HP Desk did not invoke the application containing this intrinsic no
action will be taken.
Format
OLSetCurrObj (Words, ObjType, ObjName, OLStatus)
Words is an array passed by reference or declared as a Var in Pascal. It
must contain 23 words. The value of this parameter is used as input by
HP Desk.
Pascal
Packed Array (1..23)
Cobol
01 WORD ARRAY
05 FILLER PIC S9(4) COMP
OCCURS 23 TIMES
ObjType may contain any number between 1 and 25 (see table above). The
value of this parameter is used as input by HP Desk. It must be passed
by reference or declared as a Var in Pascal.
Pascal
-32768 to 32767
Cobol
05 WORD PIC S9(4) COMP
ObjName is a 36 character string containing the name of the current
object. It is used as input by HP Desk. However, it must be passed by
reference or declared as a Var in Pascal.
Pascal
Packed Array (1..36) of CHAR
Cobol
05 OBJECTNAME PIC X(36)
OLStatus is a 10 word array used to return status information about the
successful or otherwise completion of an intrinsic call. HP Desk sets or
modifies the value of this parameter. Information is passed back to the
caller (this must be Var in Pascal).
Pascal
Packed array (1..8) of CHAR
(1..6) of BOOLEAN
Cobol
01 STATUS_TYPE
05 OLSTATUS PIC S9(4) COMP
05 FILLER PIC S9(4) COMP
OCCURS 9 TIMES