TRANSFER Reference Manual

ATTACH-EXTOBJ
TISERV UOW Descriptions
069139, Update 1 to 40969 Tandem Computers Incorporated 2–131
ATTACH-EXTOBJ
(UOW Code 144)
ATTACH-EXTOBJ attaches a primary external object to an item or an alternate
external object to either a primary external object or an item.
DEF attach-extobj-uow.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED
VALUE 144.
02 parent PIC X(80).
02 parent-id REDEFINES parent.
03 dummy PIC X(12).
02 parent-handle REDEFINES parent TYPE
ITEM-HANDLE.
02 object-name PIC X(80).
02 defaults PIC X(16).
02 object-type TYPE BINARY 16 UNSIGNED.
02 rel-position TYPE BINARY 16.
02 user-values TYPE PIC X(32).
02 options.
03 parent-is-item TYPE BOOLEAN.
03 parent-is-object-name TYPE BOOLEAN.
03 alternate-attachment TYPE BOOLEAN.
03 make-copy 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".
END.
DEF attach-extobj-rsp.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED
VALUE 144.
02 retn-code TYPE BINARY 16.
02 retn-code-detail TYPE BINARY 16.
02 parent PIC X(80).
02 old-object-name PIC X(80).
02 new-object-name PIC X(80).
02 object-id.
03 dummy PIC X(12).
02 inserted-position TYPE BINARY 16.
END.
HDR
is the UOW header. The UOW-CODE value is 144.