COPY REPLACING not working with GixSQL

[Leroy-Guillaume]

Description:
The COPY REPLACING directive in COBOL does not seem to work when using the GixSQL precompiler to compile a COBOL program, whereas it works perfectly with GNUCOBOL (cobc).

Steps to Reproduce:

1. Create a COBOL program zreplacing.cbl with the following content:

   identification division.
   program-id. zreplacing.
   environment division.
   data division.
   working-storage section.
   copy "ztest.tag" replacing ==(tag)== by ==wss==.
   
   procedure division.
       display "Hello, world!".
       goback.
       stop run.

2. Create the copybook ztest.tag with the following content:

   1 (tag)-test.
       3 (tag)-firsttest pic 9(7).
       3 (tag)-secondtest pic 9(7).

3. Compile the program using GixSQL:

   gixsql zreplacing.cbl zreplacing.cob

Expected Behavior:
The program should be precompiled without errors, similar to how it compiles with GNUCOBOL (cobc).

Actual Behavior:
The compilation fails with the following error:

zreplacing.cbl(6): error: syntax error, unexpected WORD

Additional Information:
The program compiles and runs perfectly when using GNUCOBOL with the following command:

cobc -m zreplacing.cbl

4. Modify the COBOL program to remove the REPLACING clause:

   identification division.
   program-id. zreplacing.
   environment division.
   data division.
   working-storage section.
   copy "ztest.tag". *>replacing ==(tag)== by ==wss==.
   
   procedure division.
       display "Hello, world!".
       goback.
       stop run.

5. Compile the modified program using GixSQL:

   gixsql zreplacing.cbl zreplacing.cob

Expected Behavior:
The program should be precompiled without errors.

Actual Behavior:
The precompilation works without any errors.

Environment:

• GixSQL version: 1.0.20b
• Operating System: Ubuntu 24.04 LTS
• GNUCOBOL version: 3.2-rc2.0

The issue seems to be specific to the COPY REPLACING directive when using GixSQL.

Please provide guidance on how to resolve this issue or if a fix can be implemented in future versions.

Thank you for your assistance.