[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Bug-GnuCOBOL] [Bugs] Support for
From: |
J Leslie Turriff |
Subject: |
Re: [Bug-GnuCOBOL] [Bugs] Support for |
Date: |
Tue, 3 Jul 2018 13:55:35 -0500 |
User-agent: |
KMail/1.9.10 |
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