TRANSFER Reference Manual

GET-EXTOBJ
TISERV UOW Descriptions
069139, Update 1 to 40969 Tandem Computers Incorporated 2–247
GET-EXTOBJ
(UOW Code 145)
GET-EXTOBJ retrieves the names and object IDs of the objects attached to an item or to
a primary external object.
DEF get-extobj-uow.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED
VALUE 145.
02 parent PIC X(80).
02 parent-id REDEFINES parent.
03 dummy PIC X(12).
02 parent-handle REDEFINES parent TYPE
ITEM-HANDLE.
02 start-position TYPE BINARY 16.
02 options.
03 parent-is-item TYPE BOOLEAN.
03 parent-is-object-name TYPE BOOLEAN.
03 alternate-attachment TYPE BOOLEAN.
03 filter-by-user-values TYPE BOOLEAN.
03 reserved-1 TYPE BOOLEAN value "N".
03 reserved-2 TYPE BOOLEAN value "N".
03 reserved-3 TYPE BOOLEAN value "N".
03 reserved-4 TYPE BOOLEAN value "N".
02 filter-values.
03 user-values PIC X(32).
03 start-index TYPE BINARY 16 UNSIGNED.
03 compare-length TYPE BINARY 16 UNSIGNED.
02 num-requested TYPE BINARY 16 UNSIGNED
VALUE 20.
END.
DEF get-extobj-rsp.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED
VALUE 145.
02 retn-code TYPE BINARY 16.
02 retn-code-detail TYPE BINARY 16.
02 parent PIC X(80).
02 num-returned TYPE BINARY 16 UNSIGNED.
02 a-entry OCCURS 0 TO !NUM-
REQUESTED! 20 TIMES
DEPENDING ON
num-returned.
03 object-name PIC X(80).