TRANSFER Reference Manual

GET-X400-ORIG
TISERV UOW Descriptions
2–402 069139, Update 1 to 40969 Tandem Computers Incorporated
GET-X400-ORIG
(UOW Code 180)
GET-X400-ORIG retrieves the X400 O/R name of the originator of a package that was
created by a foreign X400 user and imported through the gateway.
DEF get-x400-orig-uow.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED VALUE 180.
02 item-id.
03 dummy PIC X(12).
02 orig-type TYPE BINARY 16 UNSIGNED VALUE 100.
END.
DEF get-x400-orig-rsp.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED VALUE 180.
02 retn-code TYPE BINARY 16.
02 retn-code-detail TYPE BINARY 16.
02 x400-name.
END.
HDR
is the UOW header. The UOW-CODE value is 180.
ITEM-ID
identifies the item whose foreign originator name is to be retrieved. 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.
ORIG-TYPE
specifies which foreign originator type is to be retrieved. This field can contain the
following values:
100 X.400 P1 message
101 X.400 P2 (mail) message
If the value is not 100 or 101, the error E-INVALID-ORIG-TYPE is returned.