TRANSFER Reference Manual

GET-RECIP-REC-C20
TISERV UOW Descriptions
069139, Update 1 to 40969 Tandem Computers Incorporated 2–383
02 filter-values.
03 recip-type PIC 9(4) COMP.
03 status-flags.
04 delivered TYPE BOOLEAN.
04 examined TYPE BOOLEAN.
04 certification-acked TYPE BOOLEAN.
04 canceled TYPE BOOLEAN.
04 expired TYPE BOOLEAN.
04 async-resolved TYPE BOOLEAN.
04 discarded-unexamined TYPE BOOLEAN.
04 reserved-6 REDEFINES
discarded-unexamined
TYPE BOOLEAN.
04 nrn-sent TYPE BOOLEAN.
04 reserved-7 REDEFINES nrn-sent
TYPE BOOLEAN.
04 is-original-recip TYPE BOOLEAN.
04 is-local-dlist TYPE BOOLEAN.
04 is-local-corr TYPE BOOLEAN.
04 is-remote-recip TYPE BOOLEAN.
04 reserved-12 TYPE BOOLEAN VALUE "N".
04 reserved-13 TYPE BOOLEAN VALUE "N".
04 reserved-14 TYPE BOOLEAN VALUE "N".
04 reserved-15 TYPE BOOLEAN VALUE "N".
02 num-requested TYPE BINARY 16 UNSIGNED
VALUE 10.
END.
DEF get-recip-rec-rsp.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED
VALUE 181.
02 retn-code TYPE BINARY 16.
02 retn-code-detail TYPE BINARY 16.
02 num-returned TYPE BINARY 16 UNSIGNED
02 recips-returned OCCURS 0 TO 10 TIMES
DEPENDING ON num-returned.
03 recip-name PIC X(120).
03 recip-type PIC 9(4) COMP.
03 recip-request-flags.
04 reply-requested TYPE BOOLEAN.
04 deliv-notify TYPE BOOLEAN.
04 receipt-notify TYPE BOOLEAN.
04 non-receipt-notify TYPE BOOLEAN.
04 return-ipmessage TYPE BOOLEAN.
04 reserved-5 TYPE BOOLEAN.
04 reserved-6 TYPE BOOLEAN.