TRANSFER Reference Manual

GET-FOLDER-DESCR
TISERV UOW Descriptions
069139, Update 1 to 40969 Tandem Computers Incorporated 2–261
GET-FOLDER-DESCR
(UOW Code 237)
GET-FOLDER-DESCR retrieves both the ordering criteria and the default item
retention time for a folder. TRANSFER interest group members can retrieve the
attributes of folders for groups of which they are members.
DEF get-folder-descr-uow.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED
VALUE 237.
02 corr-name PIC X(80) VALUE SPACES.
02 folder-name PIC X(80).
END.
DEF get-folder-descr-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.
END.
HDR
is the UOW header. The UOW-CODE value is 237.