TRANSFER Reference Manual

ADD-X400-RECIP
TISERV UOW Descriptions
069139, Update 1 to 40969 Tandem Computers Incorporated 2–57
ADD-X400-RECIP
(UOW Code 171)
ADD-X400-RECIP adds an X400 recipient to a package.
DEF add-x400-recip-uow.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED
VALUE 171.
02 item-id.
03 dummy PIC X(12).
02 recip-type PIC 9(4) COMP.
02 recip-seq-num PIC S9(4) COMP.
02 options.
03 reply-requested TYPE BOOLEAN.
03 deliv-notify TYPE BOOLEAN.
03 receipt-notify TYPE BOOLEAN.
03 non-receipt-notify TYPE BOOLEAN.
03 p2-recip-only TYPE BOOLEAN.
03 reserved-5 TYPE BOOLEAN VALUE "N".
03 reserved-6 TYPE BOOLEAN VALUE "N".
03 reserved-7 TYPE BOOLEAN VALUE "N".
02 p2-recip-only TYPE BOOLEAN.
02 x400-recip-name.
END.
DEF add-x400-recip-rsp.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED
VALUE 171.
02 retn-code TYPE BINARY 16.
02 retn-code-detail TYPE BINARY 16.
02 recip-node-num TYPE BINARY 32 UNSIGNED.
02 recip-seq-num PIC S9(4) COMP.
END.
HDR
is the UOW header. The UOW-CODE value is 171.
ITEM-ID
identifies the package to which an X400 recipient is to be added. To refer to an
item produced by a previous UOW within the same IPC, you can replace ITEM-ID
with ITEM-HANDLE, which is defined in the “Commonly Used Fields”
subsection of this manual.