TRANSFER Reference Manual

GET-X400-RECIP
TISERV UOW Descriptions
2–404 069139, Update 1 to 40969 Tandem Computers Incorporated
GET-X400-RECIP
(UOW Code 172)
GET-X400-RECIP retrieves a list of X400 recipients of a package.
DEF get-x400-recip-uow.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED VALUE 172.
02 recip-type PIC 9(4) COMP.
02 recip-node-num TYPE BINARY 32 UNSIGNED.
02 recip-seq-num PIC S9(4) COMP.
02 options.
03 skip-exact TYPE BOOLEAN.
03 any-recip-type TYPE BOOLEAN.
03 any-seq-num TYPE BOOLEAN.
03 reserved-3 TYPE BOOLEAN VALUE "N".
03 reserved-4 TYPE BOOLEAN VALUE "N".
03 reserved-5 TYPE BOOLEAN VALUE "N".
03 reserved-6 TYPE BOOLEAN VALUE "N".
03 reserved-7 TYPE BOOLEAN VALUE "N".
03 filter-by-status-flag
05 exported TYPE BOOLEAN.
05 canceled TYPE BOOLEAN VALUE "N".
05 reserved-3 TYPE BOOLEAN VALUE "N".
05 reserved-4 TYPE BOOLEAN VALUE "N".
05 reserved-5 TYPE BOOLEAN VALUE "N".
05 reserved-6 TYPE BOOLEAN VALUE "N".
05 reserved-7 TYPE BOOLEAN VALUE "N".
05 is-original-recip
TYPE BOOLEAN VALUE "N".
05 reserved-9 TYPE BOOLEAN VALUE "N".
05 reserved-10 TYPE BOOLEAN VALUE "N".
05 reserved-11 TYPE BOOLEAN VALUE "N".
05 reserved-12 TYPE BOOLEAN VALUE "N".
05 reserved-13 TYPE BOOLEAN VALUE "N".
05 reserved-14 TYPE BOOLEAN VALUE "N".
05 reserved-15 TYPE BOOLEAN VALUE "N".
02 filter values.
03 status-flags
05 exported TYPE BOOLEAN.
05 canceled TYPE BOOLEAN VALUE "N".
05 reserved-3 TYPE BOOLEAN VALUE "N".
05 reserved-4 TYPE BOOLEAN VALUE "N".
05 reserved-5 TYPE BOOLEAN VALUE "N".
05 reserved-6 TYPE BOOLEAN VALUE "N".
05 reserved-7 TYPE BOOLEAN VALUE "N".