TRANSFER Reference Manual

GET-DEPOT-STATS
TISERV UOW Descriptions
2–238 069139, Update 1 to 40969 Tandem Computers Incorporated
GET-DEPOT-STATS
(UOW Code 282)
GET-DEPOT-STATS retrieves the depot storage statistics for a depot.
DEF get-depot-stats-uow.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED
VALUE 282.
02 filler PIC S9(4) COMP.
02 filler PIC S9(4) COMP..
02 corr-name PIC X(80) VALUE SPACES.
03 group-name PIC X(80) REDEFINES
corr-name.
02 num-wanted TYPE BINARY 16 UNSIGNED
VALUE 1.
02 stats-offset TYPE BINARY 16 UNSIGNED
VALUE 0.
02 options.
03 select-by-date TYPE BINARY 16 UNSIGNED
VALUE 0.
03 select-date TYPE DATE-TIME.
03 use-prev-file TYPE BOOLEAN VALUE "N".
03 old-stats-first TYPE BOOLEAN VALUE "N".
03 use-avg-stats TYPE BOOLEAN VALUE "N".
03 reserved-1 TYPE BOOLEAN VALUE "N".
03 reserved-2 TYPE BOOLEAN VALUE "N".
03 reserved-3 TYPE BOOLEAN VALUE "N".
03 reserved-4 TYPE BOOLEAN VALUE "N".
03 reserved-5 TYPE BOOLEAN VALUE "N".
02 reserved TYPE CHARACTER 10
VALUE SPACES.
END.
DEF get-depot-stats-rsp.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED
VALUE 282.
02 retn-code TYPE BINARY 16.
02 retn-code-detail TYPE BINARY 16.
02 corr-name PIC X(80) VALUE SPACES.
03 group-name type * redefines corr-name.
02 num-wanted TYPE BINARY 16 UNSIGNED.
02 stats-offset TYPE BINARY 16 UNSIGNED
VALUE 0.