HP 3000 Manuals HP 3000 Manuals
OLGetCurrObj
This is used to obtain the name of one of the Current Objects. It can
contain up to 36 characters and a short integer from 1 to 25
corresponding to the current object type.
Format
OLGetCurrObj (Words, ObjType, ObjName, OLStatus)
Words is a 23 word array in a global area. Its value 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..23) of WORD
Cobol
01 WORD ARRAY
05 FILLER PIC S9(4) comp
OCCURS 23 TIMES
ObjType can be set to any one of 25 types shown below. If 0 is returned,
the current object to be retrieved was not found. If the number
associated with the current object is found then the number requested is
the number returned.
HP Desk uses the value and returns another value (this must be Var in
Pascal).
Values returned and the object type they represent:
1 ASCII text
2 HP Word document
3 HP Slate document
4 Chart file
5 Chart name (in file)
6 HP EasyChart file name
7 Data
8 SD file
9 HP List
10 Slide
11 Drawing name
12 Figure file
13 Figure name
14 Roster
15 Custom file
16 Environment file
17 Raster file
18 Device
19 spare
20 spare
21 User 1
22 User 2
23 User 3
24 User 4
25 User 5
Pascal
-32768 to 32767
Cobol
05 WORD PIC S9(4) COMP
ObjName is a packed array of up to 36 characters associated with a
current object number. If no current object is active, a blank line is
returned.
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..36) of CHAR
Cobol
05 OBJECTNAME PIC X(36)
OLStatus is a ten word array used to return status information about
the successful or unsuccessful completion of an intrinsic (see
OLEnableCurrObj).
Pascal
Packed Array (1..10) of WORD
Cobol
01 STATUS_TYPE
05 OLSTATUS PIC S9(4) COMP
05 FILLER PIC S9(4) COMP
OCCURS 9 TIMES