HP 3000 Manuals HP 3000 Manuals
OLEnableCurrObj This is used to initialize all other Intrinsics except OLMenuStatus. Format OLEnableCurrObj (OLStatus) OLStatus is set or modified by HP DeskManager. Information is passed back to the caller. It must be declared as a Var in Pascal. It is used to indicate the successful completion or otherwise of an intrinsic. Except when using OLMenuStatus, OLStatus should be the last parameter of any HP Desk procedure call. If the call is successful, the first word of the OLStatus array will be 0. If the call is not successful, the first word is reserved for an HP Desk Intrinsics error number, the second word in the array shows how many error conditions are present, and the remaining pairs of numbers indicate the subsystem in which the error was detected and the error number associated with that subsystem. The subsystems represented by each code are shown below: 1 File System (FSERR) 2 MPE Command Interpreter (CIERR) 3 Office Library (OL) 4 reserved 5 VPLUS/3000 (VERR) 6 reserved 7 DSG (DSGERR) 8 reserved 9 KSAM (KSAM) Below are some examples, along with their meanings, of OLStatusarrays which could be returned after a procedure call: OLStatus [1] => 1001 Shows the HP Desk Intrinsic error number OLStatus [2] => 2 Indicates two subsystem errors OLStatus [3] => 1 Error in File System (1 above) OLStatus [4] => 53 FSERR 53 OLStatus [5] => 2 Error in Cmmd Interpretor (2 above) OLStatus [6] => 123 CIERR 123
NOTE If OLStatus [2] => 0 then only an HP Desk error is being reported.
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