TRANSFER Reference Manual

SAVE-ITEM-BY-KEY
TISERV UOW Descriptions
2–450 069139, Update 1 to 40969 Tandem Computers Incorporated
SAVE-ITEM-BY-KEY
(UOW Code 139)
SAVE-ITEM-BY-KEY saves an item in a folder that has an ordering discipline of
APPLIC-DEFINED. The ordering key used to save the item is supplied by the
application.
DEF save-item-by-key-uow.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED VALUE 139.
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.
02 applic-key-len TYPE BINARY 16 UNSIGNED.
02 applic-key.
03 element PIC X OCCURS 0 TO 200 TIMES
DEPENDING ON applic-key-len.
END.
DEF save-item-by-key-rsp.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED VALUE 139.
02 retn-code TYPE BINARY 16.
02 retn-code-detail TYPE BINARY 16.
END.
HDR
is the UOW header. The UOW-CODE value is 139.