TRANSFER Reference Manual

READ-NEXT-MEMBER
TISERV UOW Descriptions
069139, Update 1 to 40969 Tandem Computers Incorporated 2–417
READ-NEXT-MEMBER
(UOW Code 219)
READ-NEXT-MEMBER retrieves members of a distribution list.
DEF read-next-member-uow.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED VALUE 219.
02 filler TYPE BINARY 16.
02 filler TYPE BINARY 16.
02 corr-name TYPE PIC X(80) VALUE SPACES.
02 dlist-name TYPE PIC X(80).
02 start-member PIC X(120) VALUE SPACES.
02 start-type TYPE CHARACTER 1 VALUE "A".
02 filler TYPE BOOLEAN.
02 name-format TYPE BINARY 16 VALUE 1.
02 num-wanted TYPE BINARY 16 UNSIGNED.
02 filler TYPE BINARY 16 UNSIGNED VALUE 0.
END.
DEF read-next-member-rsp.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED VALUE 219.
02 retn-code TYPE BINARY 16.
02 retn-code-detail TYPE BINARY 16.
02 corr-name TYPE PIC X(80) VALUE SPACES.
02 dlist-name TYPE PIC X(80).
02 start-member PIC X(120) VALUE SPACES.
02 start-type TYPE CHARACTER 1 VALUE "A".
02 update-flag TYPE BOOLEAN.
02 name-format TYPE BINARY 16 VALUE 1.
02 num-wanted TYPE BINARY 16 UNSIGNED VALUE 14.
02 num-returned TYPE BINARY 16 UNSIGNED VALUE 0.
02 member-name OCCURS 0 TO 14 TIMES DEPENDING ON
num-returned PIC X(120).
END.
HDR
is the UOW header. The UOW-CODE value is 219.