[Bug-GnuCOBOL] Support for

[Michael Potter]

I have the following code that originated on an IBM mainframe:

       CBL DATEPROC(FLAG),YEARWINDOW(-90)

       ID DIVISION.

       PROGRAM-ID.   SOMEPROG.

...

       01  X-CURRENT-DATE-68.

           05  X-MONTH                 PIC X(2).

           05  FILLER                  PIC X VALUE '/'.

           05  X-DAY1                  PIC X(2).

           05  FILLER                  PIC X VALUE '/'.

           05  X-YEAR                  PIC X(2)  DATE FORMAT YY.

GnuCOBOL gives this compile message on the X-YEAR line:

SOMEPROG.cbl: 31: error: syntax error, unexpected DATE, expecting EXTERNAL or EXTERNAL-FORM or GLOBAL or IDENTIFIED

SOMEPROG.cbl: 31: error: 'FORMAT' is a reserved word, but isn't supported

What are my options to get this to compile cleanly and run with the same effect as what it ran on the mainframe?

I have 3,574 occurrences of this error in the code.

I can write a script to make automated changes to the code.

I would consider sponsoring an update to GnuCOBOL to handle this syntax.

IBM has some documentation here:

https://www.ibm.com/support/knowledgecenter/en/SS6SG3_4.2.0/com.ibm.entcobol.doc_4.2/PGandLR/ref/rlddemle.htm