TRANSFER Reference Manual

WHERE-SAVED
TISERV UOW Descriptions
069139, Update 1 to 40969 Tandem Computers Incorporated 2–513
WHERE-SAVED
(UOW Code 121)
WHERE-SAVED retrieves the names of folders containing the specified item.
DEF where-saved-UOW.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED VALUE 121.
02 item-id.
03 dummy PIC X(12).
02 prev-folder PIC X(80).
02 num-requested TYPE BINARY 16 UNSIGNED VALUE 5.
END.
DEF where-saved-rsp.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED VALUE 121.
02 retn-code TYPE BINARY 16.
02 retn-code-detail TYPE BINARY 16.
02 num-returned TYPE BINARY 16 UNSIGNED.
02 folders-returned PIC X(80) OCCURS 0 TO 5 TIMES
DEPENDING ON num-returned.
END.
HDR
is the UOW header. The UOW-CODE value is 121.
ITEM-ID
identifies the item. To refer to an item produced by a previous UOW within the
same IPC, you can replace ITEM-ID with ITEM-HANDLE, which is defined in the
“Commonly Used Fields” subsection of this manual.
PREV-FOLDER
is the folder name following which retrieval is to start. You can begin with the
first folder by setting this field to binary zeros.
NUM-REQUESTED
is the number of folder names to be retrieved. This value directly determines the
length of the response returned by TISERV.