ocesql does not process periods correctly in include files

[yutaro-sakamoto]

prog.cbl

       IDENTIFICATION              DIVISION.
       PROGRAM-ID.                 prog.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       EXEC SQL INCLUDE SQLCA END-EXEC.
       PROCEDURE                   DIVISION.
       MAIN.
           IF 1 < 0
             EXEC SQL INCLUDE exec-disconnect END-EXEC
           END-IF.
           EXEC SQL INCLUDE exec-disconnect END-EXEC.

exec-disconnect

        EXEC SQL
          DISCONNECT ALL
        END-EXEC.

The following command fails.

ocesql prog.cbl prog.cob
cobj prog.cob

The cause is that ocesql inserts a call statement with a period inside an if statement.

       IDENTIFICATION              DIVISION.
       PROGRAM-ID.                 prog.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
OCESQL*EXEC SQL INCLUDE SQLCA END-EXEC.
OCESQL     copy "sqlca.cbl".
       PROCEDURE                   DIVISION.
       MAIN.
           IF 1 < 0
OCESQL*      EXEC SQL INCLUDE exec-disconnect END-EXEC
OCESQL* EXEC SQL
OCESQL*   DISCONNECT ALL
OCESQL* END-EXEC.
OCESQL     CALL "OCESQLDisconnect" USING
OCESQL          BY REFERENCE SQLCA
OCESQL     END-CALL.
           END-IF.
OCESQL*    EXEC SQL INCLUDE exec-disconnect END-EXEC.
OCESQL* EXEC SQL
OCESQL*   DISCONNECT ALL
OCESQL* END-EXEC.
OCESQL     CALL "OCESQLDisconnect" USING
OCESQL          BY REFERENCE SQLCA
OCESQL     END-CALL.
OCESQL*    EXEC SQL INCLUDE exec-disconnect END-EXEC.
OCESQL*    EXEC SQL INCLUDE exec-disconnect END-EXEC.