Re: [Bug-GnuCOBOL] [Bugs] Support for

[J Leslie Turriff]

On 2018-07-02 14:04:21 Michael Potter wrote:
> 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?

        What form of the ACCEPT statement is associated with this structure?  
Need to 
know that in order to determine if DATE FORMAT YY is significant or can be 
removed.

Leslie