TRANSFER Reference Manual

CREATE-FOLDER-B00
TISERV UOW Descriptions
2–164 069139, Update 1 to 40969 Tandem Computers Incorporated
CREATE-FOLDER-B00
(UOW Code 232)
CREATE-FOLDER-B00 creates a new folder and establishes the ordering criteria by
which items are stored in the folder.
DEF create-folder-b00-uow.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED
VALUE 232.
02 corr-name PIC X(80) VALUE SPACES.
02 folder-name PIC X(80).
02 ordering-discipline TYPE CHARACTER 1.
02 filler PIC X(1) VALUE SPACES.
02 applic-order-type PIC 9(4) COMP.
02 options.
03 ascending-sequence TYPE BOOLEAN.
03 allow-duplicates TYPE BOOLEAN.
03 reserved-2 TYPE BOOLEAN VALUE "N".
03 reserved-3 TYPE BOOLEAN VALUE "N".
03 reserved-4 TYPE BOOLEAN VALUE "N".
03 reserved-5 TYPE BOOLEAN VALUE "N".
03 reserved-6 TYPE BOOLEAN VALUE "N".
03 reserved-7 TYPE BOOLEAN VALUE "N".
END.
DEF create-folder-b00-rsp.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED
VALUE 232.
02 retn-code TYPE BINARY 16.
02 retn-code-detail TYPE BINARY 16.
02 corr-name PIC X(80).
END.
HDR
is the UOW header. The UOW-CODE value is 232.