INTEGER FUNCTION GETDATE( DEFAULT , PROMPT ) INTEGER DEFAULT ! Default return value CHARACTER*(*) PROMPT ! Prompt for user
YYYYDDD
or YYYYMMDD
, and get the
user's response and convert it into the corresponding value
according to EDSS/Models-3 date and
time conventions. Returns DEFAULT if the user hits <RET>.
Reprompts on error for up to 5 attempts; exits in case of more than
5 entry errors.
Logs the value returned, for tracking and validation purposes.
The default is displayed in square brackets at the end of the prompt [LIKE THIS].
See also GETNUM().
... INTEGER L, M INTEGER GETDATE ... L = GETDATE( 1993201, 'Enter the starting date for the run' ) ...
Up: Date and Time Manipulation Routines
To: Models-3/EDSS I/O API: The Help Pages