TRANSFER Reference Manual

WHERE-MEMBER-OF
TISERV UOW Descriptions
069139, Update 1 to 40969 Tandem Computers Incorporated 2–509
WHERE-MEMBER-OF
(UOW Code 250)
WHERE-MEMBER-OF retrieves a list of one or more interest groups of which the
correspondent (or group) is a local member, and indicates in which of the groups
retrieved the correspondent (or group) has administrative privileges.
DEF where-member-of-uow.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED VALUE 250.
02 filler TYPE BINARY 16.
02 filler TYPE BINARY 16.
02 group-member-name PIC X(80).
02 start-group PIC X(80) VALUE SPACES.
02 start-type PIC X VALUE "A".
02 filler TYPE BOOLEAN.
02 name-format TYPE BINARY 16 VALUE 1.
02 filter-option TYPE BINARY 16 VALUE 0.
02 num-wanted TYPE BINARY UNSIGNED.
02 filler TYPE BINARY UNSIGNED VALUE 0.
END.
DEF where-member-of-rsp.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED VALUE 250.
02 retn-code TYPE BINARY 16.
02 retn-code-detail TYPE BINARY 16.
02 group-member-name PIC X(80).
02 start-group PIC X(80) VALUE SPACES.
02 start-type PIC X VALUE "A"
02 filler TYPE BOOLEAN.
02 name-format TYPE BINARY 16 VALUE 1.
02 filter-option TYPE BINARY 16 VALUE 0.
02 num-wanted TYPE BINARY 16 UNSIGNED VALUE 14.
02 num-returned TYPE BINARY 16 UNSIGNED VALUE 0.
02 group-names OCCURS 0 TO 14 TIMES
DEPENDING ON num-returned.
03 group name PIC X(80).
03 member-is-admin TYPE BOOLEAN.
03 member-is-direct TYPE BOOLEAN.
END.
HDR
is the UOW header. The UOW-CODE value is 250.