TRANSFER Reference Manual

GET-ITEM-REC-B40
TISERV UOW Descriptions
2–306 069139, Update 1 to 40969 Tandem Computers Incorporated
GET-ITEM-REC-B40
(UOW Code 148)
GET-ITEM-REC-B40 retrieves one or more data records from an item, including the
data records of an external object.
DEF get-item-rec-b40-uow.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED
VALUE 148.
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 extobj-rec TYPE BOOLEAN.
03 parent-is-item TYPE BOOLEAN.
03 alternate-attachment TYPE BOOLEAN.
03 reserved-6 TYPE BOOLEAN VALUE "N".
03 reserved-7 TYPE BOOLEAN VALUE "N".
02 code-conversion TYPE BINARY 16 UNSIGNED.
02 filler PIC XX.
02 extobj-rel-position TYPE BINARY 16.
02 extobj-rec-num TYPE BINARY 32 UNSIGNED.
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-b40-rsp.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED
VALUE 148.
02 retn-code TYPE BINARY 16.
02 retn-code-detail TYPE BINARY 16.
02 num-returned TYPE BINARY 16 UNSIGNED.
02 recs-returned ! See discussion below.
END.