TRANSFER Reference Manual

GET-ITEM-REC
TISERV UOW Descriptions
2–300 069139, Update 1 to 40969 Tandem Computers Incorporated
GET-ITEM-REC
(UOW Code 125)
GET-ITEM-REC retrieves one or more data records from an item.
DEF get-item-rec-uow.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED
VALUE 125.
02 starting-key.
03 item-id.
04 dummy PIC X(12).
03 rec-type PIC S9(4) COMP.
03 rec-seq-num PIC S9(4) COMP.
02 options.
03 skip-exact TYPE BOOLEAN.
03 any-rec-type TYPE BOOLEAN.
03 any-seq-num TYPE BOOLEAN.
03 reserved-3 TYPE BOOLEAN VALUE "N".
02 num-requested TYPE BINARY 16 UNSIGNED
VALUE 20.
02 max-datasize TYPE BINARY 16 UNSIGNED.
02 pad-char PIC X.
02 filler PIC X.
END.
DEF get-item-rec-rsp.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED
VALUE 125.
02 retn-code TYPE BINARY 16.
02 retn-code-detail TYPE BINARY 16.
02 num-returned TYPE BINARY 16 UNSIGNED.
02 recs-returned OCCURS 0 TO 20 TIMES
DEPENDING ON num-returned.
03 rec-type PIC 9(4) COMP.
03 rec-seq-num PIC 9(4) COMP.
03 data-len TYPE BINARY 16 UNSIGNED.
03 data-string PIC X(80).
END.
HDR
is the UOW header. The UOW-CODE value is 125.
STARTING-KEY
identifies the first possible item data record that can be retrieved. The record is
determined by the specified ITEM-ID, REC-TYPE, and REC-SEQ-NUM.