TRANSFER Reference Manual

START-SESSION
TISERV UOW Descriptions
069139, Update 1 to 40969 Tandem Computers Incorporated 2–495
In COBOL or SCREEN COBOL, you can use the following code sequence to set the
local time field of this UOW:
01 COBOL-TIME.
05 TRANSFER-TIME PIC 9(6).
05 FILLER PIC 9(2).
...
PROCEDURE DIVISION.
MOVE 19 TO UOW SS-CENTURY.
ACCEPT ACCEPT-DATE FROM DATE.
ACCEPT COBOL-TIME FROM TIME.
MOVE ACCEPT-TIME TO TRANSFER-TIME.