TRANSFER Reference Manual

DELETE-X400-RECIP
TISERV UOW Descriptions
069139, Update 1 to 40969 Tandem Computers Incorporated 2–213
DELETE-X400-RECIP
(UOW Code 173)
DELETE-X400-RECIP deletes an X400 recipient from an unsubmitted package.
DEF delete-x400-recip-uow.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED VALUE 173.
02 item-id.
03 dummy PIC X(12).
02 recip-type PIC 9(4) COMP.
02 recip-node-num TYPE BINARY 32 UNSIGNED.
02 recip-seq-num PIC S9(4) COMP.
02 options
03 p2-recip-only 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".
03 reserved-5 TYPE BOOLEAN VALUE "N".
03 reserved-6 TYPE BOOLEAN VALUE "N".
03 reserved-7 TYPE BOOLEAN VALUE "N".
END.
DEF delete-x400-recip-uow.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED VALUE 173.
02 retn-code TYPE BINARY 16.
02 retn-code-detail TYPE BINARY 16.
02 deleted-recip.
03 recip-type PIC 9(4) COMP.
03 recip-node-num TYPE BINARY 32 UNSIGNED.
03 recip-seq-num PIC S9(4) COMP.
03 x400-recip-name.
END.
HDR
is the UOW header. The UOW-CODE value is 173.
ITEM-ID
specifies the item ID of the package header from whose recipient list the X400
recipient is to be deleted. To refer to an item produced by a previous UOW within
the same IPC, replace ITEM-ID with ITEM-HANDLE, which is defined in the
“Commonly Used Fields” subsection of this manual.