TRANSFER Reference Manual

WHERE-SAVED-C20
TISERV UOW Descriptions
2–516 069139, Update 1 to 40969 Tandem Computers Incorporated
WHERE-SAVED-C20
(UOW Code 185)
WHERE-SAVED-C20 retrieves the names of private and shared folders containing a
specified item.
DEF where-saved-c20-uow.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED
VALUE 185.
02 item-id.
03 dummy PIC X(12).
02 prev-folder PIC X(80).
02 folder-set TYPE BINARY 16 UNSIGNED VALUE 0.
02 group-name PIC X(80).
02 num-requested TYPE BINARY 16 UNSIGNED VALUE 5.
END.
DEF where-saved-c20-rsp.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED
VALUE 185.
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 185.
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.