TRANSFER Reference Manual

SAVE-ITEM-B00
TISERV UOW Descriptions
069139, Update 1 to 40969 Tandem Computers Incorporated 2–445
SAVE-ITEM-B00
(UOW Code 141)
SAVE-ITEM-B00 saves an item in a folder that has any ordering discipline except
APPLIC-DEFINED; the SAVE-ITEM-BY-KEY UOW must be used to save items in
folders with APPLIC-DEFINED ordering. SAVE-ITEM-B00 includes an unsave option
to have items automatically removed from the folder at a specified time.
DEF save-item-b00-uow.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED VALUE 141.
02 item-id.
03 dummy PIC X(12).
02 folder-name PIC X(80).
02 flags.
03 date-is-rel TYPE BOOLEAN.
03 reserved-1 TYPE BOOLEAN VALUE "N".
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".
02 unsave-time.
03 date-time.
04 year PIC 9(4).
04 month PIC 9(2).
04 day-of-month PIC 9(2).
04 hour PIC 9(2).
04 minute PIC 9(2).
04 second PIC 9(2).
03 delta-time REDEFINES date-time.
04 quantity PIC 9(4) COMP.
04 units PIC A.
04 filler PIC X.
END.
DEF save-item-b00-rsp.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED VALUE 141.
02 retn-code TYPE BINARY 16.
02 retn-code-detail TYPE BINARY 16.
END.
HDR
is the UOW header. The UOW-CODE value is 141.