TRANSFER Reference Manual

WRITE-PROFILE-REC
TISERV UOW Descriptions
2–520 069139, Update 1 to 40969 Tandem Computers Incorporated
WRITE-PROFILE-REC
(UOW Code 213)
WRITE-PROFILE-REC writes or updates a user-maintained depot profile record.
DEF write-profile-rec-uow.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED
VALUE 213.
02 corr-name PIC X(80) VALUE SPACES.
02 group-name REDEFINES corr-name.
02 rec-type PIC 9(4) COMP.
02 rec-seq PIC 9(4) COMP.
02 depot-flag TYPE BOOLEAN VALUE "Y".
02 filler TYPE CHARACTER 1.
02 update-control PIC S9(4) COMP.
02 num-data TYPE BINARY 16 UNSIGNED.
02 profile-data.
03 byte OCCURS 0 TO 1000 TIMES DEPENDING
ON num-data PIC X.
END.
DEF write-profile-rec-rsp.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED
VALUE 213.
02 retn-code TYPE BINARY 16.
02 retn-code-detail TYPE BINARY 16.
02 corr-name PIC X(80).
END.
HDR
is the UOW header. The UOW-CODE value is 213.
CORR-NAME
is the name of the correspondent for whose depot the profile record is to be
written. This is also the name of the correspondent represented by the calling
process. You can specify a partially qualified name, including wild-card
characters. Only system administrators can enter correspondent names other than
their own in this field; correspondents without system administrator privileges
must enter their own names or leave the field blank. In the response, the fully
qualified name is returned.