TRANSFER Reference Manual

SCAN-FOLDER-BY-KEY
TISERV UOW Descriptions
069139, Update 1 to 40969 Tandem Computers Incorporated 2–469
SCAN-FOLDER-BY-KEY
(UOW Code 140)
SCAN-FOLDER-BY-KEY retrieves the item ID, item type, unsave time, and the
corresponding ordering key and key length of items saved in folders with APPLIC-
DEFINED ordering. Items are returned in application ordering key sequence. SCAN-
FOLDER-BY-KEY does not return the names of retrieved items. These names can be
obtained with the GET-ITEM-NAME UOW.
DEF scan-folder-by-key-uow.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED
VALUE 140.
02 filler TYPE BINARY 16
02 filler TYPE BINARY 16
02 folder-name PIC X(80).
02 options.
03 filter-by-item-type TYPE BOOLEAN.
03 skip-exact TYPE BOOLEAN.
03 duplicate-restart 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 item-type PIC 9(4) COMP.
02 num-requested TYPE BINARY 16 UNSIGNED
VALUE 10.
02 starting-key-len TYPE BINARY 16 UNSIGNED.
02 generic-key-len TYPE BINARY 16 UNSIGNED.
02 max-key-len TYPE BINARY 16.
02 pad-char PIC X VALUE SPACES.
02 starting-duplicate PIC X(10) VALUE LOW-VALUES.
02 starting-key PIC X(200).
02 filler TYPE BINARY 16 UNSIGNED
VALUE 0.
END.
DEF scan-folder-by-key-rsp.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED
VALUE 140.
02 retn-code TYPE BINARY 16.
02 retn-code-detail TYPE BINARY 16.
02 folder-name PIC X(80).
02 options.
03 filter-by-item-type TYPE BOOLEAN.
03 skip-exact TYPE BOOLEAN.
03 duplicate-restart TYPE BOOLEAN.