TRANSFER Reference Manual

READ-PROFILE-REC
TISERV UOW Descriptions
2–428 069139, Update 1 to 40969 Tandem Computers Incorporated
READ-PROFILE-REC
(UOW Code 212)
READ-PROFILE-REC reads a user-maintained depot profile record. This UOW is
provided to maintain compatibility for programs written prior to TRANSFER version
A02. READ-PROF-REC-A02 is the recommended UOW.
DEF read-profile-rec-uow.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED VALUE 212.
02 corr-name PIC X(80) VALUE SPACES.
02 group-name REDEFINES corr-name.
02 rec-type PIC 9(4) COMP.
02 rec-seq-num PIC 9(4) COMP.
02 depot-flag TYPE BOOLEAN VALUE "Y".
02 filler TYPE CHARACTER 1.
02 approximate-flag TYPE BINARY 16.
END.
DEF read-profile-rec-rsp.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED VALUE 212.
02 retn-code TYPE BINARY 16.
02 retn-code-detail TYPE BINARY 16.
02 corr-name PIC X(80).
02 group-name REDEFINES corr-name.
02 rec-type PIC 9(4) COMP.
02 rec-seq-num PIC 9(4) COMP.
02 update-control PIC S9(4) COMP.
02 num-data TYPE BINARY 16 UNSIGNED.
02 profile-data.
03 byte PIC X OCCURS 0 TO 1000 TIMES
DEPENDING ON num-data.
END.
HDR
is the UOW header. The UOW-CODE value is 212.
CORR-NAME
is the name of the correspondent whose depot profile record is to be read. 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.