TRANSFER Reference Manual

GET-RECIP-REC
TISERV UOW Descriptions
2–374 069139, Update 1 to 40969 Tandem Computers Incorporated
GET-RECIP-REC
(UOW Code 126)
GET-RECIP-REC retrieves recipient records for a package.
DEF get-recip-rec-uow.
02 hdr TYPE UOW-HDR.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED
VALUE 126.
02 recip-key.
03 item-id.
04 dummy PIC X(12).
03 recip-name PIC X(120).
02 options.
03 get-exact TYPE BOOLEAN.
03 generic-suffix TYPE BOOLEAN.
03 skip-exact TYPE BOOLEAN.
03 strip-local-node-name TYPE BOOLEAN.
03 reserved-4 TYPE BOOLEAN VALUE "N".
03 reserved-5 TYPE BOOLEAN VALUE "N".
03 reserved-6 TYPE BOOLEAN VALUE "N".
03 filter-by-recip-type TYPE BOOLEAN.
03 filter-by-status-flag.
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 filter-values.
03 recip-type PIC 9(4) COMP.
03 status-flags.