TRANSFER Reference Manual

GET-X400-NAME
TISERV UOW Descriptions
2–400 069139, Update 1 to 40969 Tandem Computers Incorporated
GET-X400-NAME
(UOW Code 265)
GET-X400-NAME retrieves the X400 O/R name generated for a specified TRANSFER
correspondent name.
DEF get-x400-name-uow.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED VALUE 265.
02 corr-name PIC X(120).
02 filler PIC X(100).
END.
DEF get-x400-name-rsp.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED VALUE 265.
02 retn-code TYPE BINARY 16.
02 retn-code-detail TYPE BINARY 16.
02 corr-name PIC X(120).
02 node-name PIC X(32).
02 x400-name.
END.
HDR
is the UOW header. The UOW-CODE value is 265.
CORR-NAME
is the name of the correspondent whose X400 is to be retrieved. If this field
contains blanks, the current correspondent's X400 name is returned. If this field
does not contain blanks and is different from the correspondent, the current
correspondent must have system administrator read privileges; if not, the error E-
SECURITY-VIOLATION is returned.
RETN-CODE
is the return code. TISERV returns a code in this field to indicate one of the
following entries.
0 OK
4093 E-SECURITY-VIOLATION
4175 E-X400-NOT-CONFIG
RETN-CODE-DETAIL
is an error number returned by a subsystem other than the TRANSFER delivery
system or is a further qualification of an error detected by the TRANSFER delivery
system.