TRANSFER Reference Manual

GET-FOLDER-DES-C20
TISERV UOW Descriptions
2–256 069139, Update 1 to 40969 Tandem Computers Incorporated
GET-FOLDER-DES-C20
(UOW Code 253)
GET-FOLDER-DES-C20 retrieves the attributes of a shared or private folder, including
the ordering criteria, the item retention time, and an indication of whether the folder is
private or shared.
DEF get-folder-des-c20-uow.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED
VALUE 253.
02 corr-name PIC X(80) VALUE SPACES.
02 folder-name PIC X(80).
END.
DEF get-folder-des-c20-rsp.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED
VALUE 237.
02 retn-code TYPE BINARY 16.
02 retn-code-detail TYPE BINARY 16.
02 corr-name PIC X(80) VALUE SPACES.
02 folder-name PIC X(80).
02 filler PIC X(26) VALUE SPACES.
02 folder-attributes.
03 ordering-criteria.
05 ordering-discipline TYPE CHARACTER 1.
05 filler PIC X(1) VALUE SPACES.
05 applic-order-type PIC 9(4) COMP.
05 options.
10 ascending-sequence TYPE BOOLEAN.
10 allow-duplicates TYPE BOOLEAN.
10 reserved-2 TYPE BOOLEAN VALUE "N".
10 reserved-3 TYPE BOOLEAN VALUE "N".
10 reserved-4 TYPE BOOLEAN VALUE "N".
10 reserved-5 TYPE BOOLEAN VALUE "N".
10 reserved-6 TYPE BOOLEAN VALUE "N".
10 reserved-7 TYPE BOOLEAN VALUE "N".
03 item-retention-time
05 quantity PIC 9(4) COMP.
05 units PIC A.
05 filler PIC X.
03 reserved PIC X(16) VALUE SPACES.
02 sharing-attributes.
03 sharing-discipline PIC X.
03 reserved-1 PIC X(7) VALUE SPACES.
02 creator PIC X(80) VALUE SPACES.
END.