TRANSFER Reference Manual

ALTER-FOLDER-DESCR
TISERV UOW Descriptions
069139, Update 1 to 40969 Tandem Computers Incorporated 2–67
ALTER-FOLDER-DESCR
(UOW Code 236)
ALTER-FOLDER-DESCR modifies the ordering criteria and item retention time for an
existing folder.
DEF alter-folder-descr-uow.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED
VALUE 236.
02 corr-name PIC X(80) VALUE SPACES.
02 folder-name PIC X(80).
02 attributes-to-alter.
03 ordering-criteria.
05 ordering-discipline TYPE BOOLEAN.
05 applic-order-type TYPE BOOLEAN.
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 TYPE BOOLEAN.
03 reserved PIC X(16)
VALUE "NNNNNNNNNNNNNNNN".
03 filler PIC X.
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.