TRANSFER Reference Manual

CREATE-FOLDER-B10
TISERV UOW Descriptions
069139, Update 1 to 40969 Tandem Computers Incorporated 2–169
CREATE-FOLDER-B10
(UOW Code 235)
CREATE-FOLDER-B10 creates a new folder and establishes both ordering criteria and
default retention time for items stored in the folder.
DEF create-folder-b10-uow.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED
VALUE 235.
02 corr-name PIC X(80) VALUE SPACES.
02 folder-name PIC X(80).
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.
DEF create-folder-b10-rsp.
02 hdr .
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED
VALUE 235.
02 retn-code TYPE BINARY 16.
02 retn-code-detail TYPE BINARY 16.
02 corr-name PIC X(80) 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".