TRANSFER Reference Manual

READ-NXT-GROUP-MBR
TISERV UOW Descriptions
2–412 069139, Update 1 to 40969 Tandem Computers Incorporated
READ-NXT-GROUP-MBR
(UOW Code 249)
READ-NXT-GROUP-MBR retrieves the members of a local interest group.
DEF read-nxt-group-mbr-uow.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED VALUE 249.
02 filler TYPE BINARY 16.
02 filler TYPE BINARY 16.
02 group-name PIC X(80).
02 start member PIC X(80) VALUE SPACES.
02 start-type TYPE CHARACTER 1 VALUE "A".
02 filler TYPE BOOLEAN.
02 name-format TYPE BINARY 16 VALUE 1.
02 expansion-option TYPE BINARY 16 VALUE 0.
02 filter-option TYPE BINARY 16 VALUE 0.
02 num-wanted TYPE BINARY 16 UNSIGNED.
02 filler TYPE BINARY 16 UNSIGNED VALUE 0.
END.
DEF read-nxt-group-mbr-rsp.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED VALUE 249.
02 retn-code TYPE BINARY 16.
02 retn-code-detail TYPE BINARY 16.
02 group-name PIC X(80).
02 start-member PIC X(80) VALUE SPACES.
02 start-type TYPE CHARACTER 1 VALUE "A".
02 filler TYPE BOOLEAN.
02 name-format TYPE BINARY 16 VALUE 1.
02 expansion-option TYPE BINARY 16 VALUE 0.
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-members OCCURS 0 TO 14 TIMES
DEPENDING ON num-returned.
03 group-member-name PIC X(80).
03 member-is-admin TYPE BOOLEAN.
03 member-is-group TYPE BOOLEAN.
END.
HDR
is the UOW header. The UOW-CODE value is 249.