Highlighted
Absent Member.
Absent Member.
491 views

screen section date

In an older version of MF COBOL I used "current-date" as the Source for a field in the screen section.  That triggers a compiler error now.  What replaced "current-date"?

Tags (2)
0 Likes
3 Replies
Highlighted
Micro Focus Expert
Micro Focus Expert

RE: screen section date

sweetster,

According to the language reference documentation the CURRENT-DATE special register is specific to the OSVS dialect and can only be used as the source in a MOVE statement. This worked for me using Visual COBOL :

$set osvs
working-storage section.
01 datevar pic x(8).
screen section.
01 screen1.
03 blank screen.
03 line 1 column 1 pic x(8) using datevar
procedure division.
move current-date to datevar
display screen1.

Gael
0 Likes
Highlighted
Micro Focus Expert
Micro Focus Expert

RE: screen section date

Actually, CURRENT-DATE is also an intrinsic function and it can still be used as the source of a screen section item.
01 my-screen blank screen.
05 my-date pic x(8) from function current-date.
05 my-key pic x using any-key.
0 Likes
Highlighted
Absent Member.
Absent Member.

RE: screen section date

We employ venture help specialists that are capable in helping you with various points you may require.

On the off chance that you are searching for online Assignment Writing Help

0 Likes
The opinions expressed above are the personal opinions of the authors, not of Micro Focus. By using this site, you accept the Terms of Use and Rules of Participation. Certain versions of content ("Material") accessible here may contain branding from Hewlett-Packard Company (now HP Inc.) and Hewlett Packard Enterprise Company. As of September 1, 2017, the Material is now offered by Micro Focus, a separately owned and operated company. Any reference to the HP and Hewlett Packard Enterprise/HPE marks is historical in nature, and the HP and Hewlett Packard Enterprise/HPE marks are the property of their respective owners.