COBOL Manual for TNS and TNS/R Programs

Procedure Division Verbs
HP COBOL Manual for TNS and TNS/R Programs—522555-006
9-6
ACCEPT With DATE, DAY, DAY-OF-WEEK, or TIME
Phrase
ACCEPT With DATE, DAY, DAY-OF-WEEK, or TIME Phrase
ACCEPT with a DATE, DAY, DAY-OF-WEEK, or TIME phrase retrieves the numeric
representation of the date, day, day of the week, or time from the operating system.
Figure 9-2. ACCEPT Statement Collecting Numeric Data
Note. A simpler alternative is the CURRENT-DATE Function.
ENTER RUN CODE
?123
CODE RECEIVED: 123.00
ENTER RUN CODE
?12345
CODE RECEIVED: 345.00
ENTER RUN CODE
?1.2345
** Improper numeric value. Resupply input **
?
CODE RECEIVED: 001.23
ENTER RUN CODE
?1.23
CODE RECEIVED: 001.23
Low-order zeros assumed
High digits lost, by MOVE rules
Low digits lost, by MOVE rules
Null value entered
VST527.vsd
FROMACCEPT
accept-name
DATE
DAY
DAY-OF-WEEK
TIME
YYYYMMDD
YYYYDDD
VST127.vsd