TRANSFER Reference Manual

GET-RECIP-REC
TISERV UOW Descriptions
069139, Update 1 to 40969 Tandem Computers Incorporated 2–375
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 VALUE "N".
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 126.
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 deliv-err TYPE BINARY 16.
03 deliv-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 reserved-6 TYPE BOOLEAN VALUE "N".
04 reserved-7 TYPE BOOLEAN VALUE "N".