A new release of Unisys Cobol74 will return the century when you do an accept statement.<br>
Documented syntax: ACCEPT <my ws date> FROM TODAYS-DATE MMDDYYYY.<br>
<br>
where <my ws date> is an 8-digit working storage item.<br>
<br>
Undocumented syntax - they have also changed the DATE syntax, but did not document it. The syntax is:<br>
ACCEPT <my ws date> FROM DATE YYYYMMDD.<br>
<br>
The Unisys interiem correction level is 17, a LFILES of *SYSTEM/COBOL74 should show level 45.189.8096 or greater.<br>
<br>
Documented syntax: ACCEPT <my ws date> FROM TODAYS-DATE MMDDYYYY.<br>
<br>
where <my ws date> is an 8-digit working storage item.<br>
<br>
Undocumented syntax - they have also changed the DATE syntax, but did not document it. The syntax is:<br>
ACCEPT <my ws date> FROM DATE YYYYMMDD.<br>
<br>
The Unisys interiem correction level is 17, a LFILES of *SYSTEM/COBOL74 should show level 45.189.8096 or greater.<br>
<br>