TRANSFER Reference Manual

GET-ITEM-DES-C20
TISERV UOW Descriptions
069139, Update 1 to 40969 Tandem Computers Incorporated 2–277
02 creation-date.
03 year PIC 9(4).
03 month PIC 9(2).
03 day-of-month PIC 9(2).
03 hour PIC 9(2).
03 minute PIC 9(2).
03 second PIC 9(2).
02 creator-name PIC X(120).
02 submitted-date.
03 year PIC 9(4).
03 month PIC 9(2).
03 day-of-month PIC 9(2).
03 hour PIC 9(2).
03 minute PIC 9(2).
03 second PIC 9(2).
02 earliest-deliv-date.
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.
05 filler PIC X.
04 filler PIC X(10).
02 latest-deliv-date.
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.
05 filler PIC X.
04 filler PIC X(10).
02 expiration-date.
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).