Use the DATEPROC option to enable the millennium language extensions of the COBOL compiler.

DATEPROC option syntax

Default is: NODATEPROC, or DATEPROC(FLAG,NOTRIG) if only DATEPROC is specified

Abbreviations are: DP|NODP

DATEPROC(FLAG)

With DATEPROC(FLAG), the millennium language extensions are enabled, and the compiler produces a diagnostic message wherever a language element uses or is affected by the extensions.
The message is usually an information-level or warning-level message that identifies statements that involve date-sensitive processing.
Additional messages that identify errors or possible inconsistencies in the date constructs might be generated.

Production of diagnostic messages, and their appearance in or after the source listing, is subject to the setting of the FLAG compiler option.

DATEPROC(NOFLAG)

With DATEPROC(NOFLAG), the millennium language extensions are in effect, but the compiler does not produce any related messages unless there are errors or inconsistencies in the COBOL source.

DATEPROC(TRIG)

With DATEPROC(TRIG), the millennium language extensions are enabled, and the automatic windowing that the compiler applies to operations on windowed date fields is sensitive to specific trigger or limit values in the date fields and in other nondate fields that are stored into or compared with the windowed date fields.
These special values represent invalid dates that can be tested for or used as upper or lower limits.

Performance considerations: The DATEPROC(TRIG) option results in slower-performing code for windowed date comparisons.

DATEPROC(NOTRIG)

With DATEPROC(NOTRIG), the millennium language extensions are enabled, and the automatic windowing that the compiler applies to operations on windowed dates does not recognize any special trigger values in the operands.
Only the value of the year part of dates is relevant to automatic windowing.

Performance considerations: The DATEPROC(NOTRIG) option is a performance option that assumes valid date values in windowed date fields.

NODATEPROC

NODATEPROC indicates that the extensions are not enabled for this compilation unit.
This option affects date-related program constructs as follows:

• The DATE FORMAT clause is syntax-checked, but has no effect on the execution of the program.
• The DATEVAL and UNDATE intrinsic functions have no effect.
• That is, the value returned by the intrinsic function is exactly the same as the value of the argument.
• The YEARWINDOW intrinsic function returns a value of zero.

Usage note:
You can specify the FLAG|NOFLAG and TRIG|NOTRIG suboptions in any order.
If you omit either suboption, it defaults to the current setting.
If you code a left parenthesis after DATEPROC, however, you must code at least one suboption.