To retrieve the system date in a CICS program, use a format-2 ACCEPT statement or the CURRENT-DATE intrinsic function.
You can use any of these format-2 ACCEPT statements in the CICS environment to get the system date:
You can use this format-2 ACCEPT statement in the CICS environment to get the system time:
Alternatively, you can use the CURRENT-DATE intrinsic function, which can also provide the time.
These methods work in both CICS and non-CICS environments.
Do not use a format-1 ACCEPT statement in a CICS program.
related tasks
Assigning input from a screen or file (ACCEPT)
related references
CURRENT-DATE (Enterprise COBOL Language Reference)