TRANSFER Reference Manual

COPY-ITEM-B40
TISERV UOW Descriptions
069139, Update 1 to 40969 Tandem Computers Incorporated 2–147
COPY-ITEM-B40
(UOW Code 108)
COPY-ITEM-B40 makes a copy of an existing item. The correspondent can save the
copy in any local group folder to which the correspondent has access, or in any of the
folders in the correspondent's private depot. Unlike the COPY-ITEM UOW, this UOW
selectively copies the item and, optionally, primary attachments, alternate
attachments, and X400 recipients.
DEF copy-item-b40-uow.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED
VALUE 108.
02 item-id.
03 dummy PIC X(12).
02 reserved-values-1 PIC X(4).
02 options.
03 copy-data TYPE BOOLEAN.
03 copy-recips TYPE BOOLEAN.
03 copy-compnts TYPE BOOLEAN.
03 copy-pri-extobjs TYPE BOOLEAN.
03 copy-alt-extobjs TYPE BOOLEAN.
03 copy-x400-recips TYPE BOOLEAN.
03 reserved-5 REDEFINES copy-x400-recips
TYPE BOOLEAN.
03 reserved-6 TYPE BOOLEAN VALUE "N".
03 reserved-7 TYPE BOOLEAN VALUE "N".
03 reserved-8 TYPE BOOLEAN VALUE "N".
03 reserved-9 TYPE BOOLEAN VALUE "N".
03 reserved-10 TYPE BOOLEAN VALUE "N".
03 reserved-11 TYPE BOOLEAN VALUE "N".
03 reserved-12 TYPE BOOLEAN VALUE "N".
03 reserved-13 TYPE BOOLEAN VALUE "N".
03 reserved-14 TYPE BOOLEAN VALUE "N".
03 reserved-15 TYPE BOOLEAN VALUE "N".
02 reserved-values-2 PIC X(14).
END.
DEF copy-item-b40-rsp.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED
VALUE 108.
02 retn-code TYPE BINARY 16.
02 retn-code-detail TYPE BINARY 16.
02 new-item-id.
03 dummy PIC X(12).
02 reserved-values-1 PIC X(2).
END.