[open-cobol-list] Segmentation fault

[Alencar - Philler Informatica]

Please,

I need export a indexed file to a text file.
But, in Open input "indexed file", return this error:
Segmentation fault

Can you help me?

Thank you very much.

Alencar
=============================================================
Source code:

000100 IDENTIFICATION DIVISION.
000110 PROGRAM-ID.                     convcli.
000120*
000130 ENVIRONMENT DIVISION.
000140 CONFIGURATION SECTION.
000150 SPECIAL-NAMES.                  DECIMAL-POINT IS COMMA.
000160 INPUT-OUTPUT SECTION.
000170 FILE-CONTROL.
000280     SELECT  CADCLI ASSIGN "CADCLI"
000290             ORGANIZATION  INDEXED
000300             ACCESS        DYNAMIC
000310             RECORD    KEY CLI-CHAVE
000320             ALTERNATE RECORD KEY CLI-RAZAO-SOCIAL WITH DUPLICATES
000330             ALTERNATE RECORD KEY CLI-CGC          WITH DUPLICATES
000350             FILE STATUS   W-FS.
           SELECT  CLI ASSIGN "clientes.txt"
                ORGANIZATION LINE SEQUENTIAL.

000430 DATA DIVISION.
000440 FILE SECTION.
000460 COPY "cadcli.fd".
       FD   CLI.
       01   CLI-LINHA         PIC X(1000).

000490 WORKING-STORAGE SECTION.
       77  W-ARQ          PIC X(08).
000680 01  W-AREA-AUXILIAR.
       copy "fs.cop".
001200 PROCEDURE DIVISION.
001380     OPEN     INPUT   CADCLI.
               IF   ERRO-ZZ
                    MOVE "CADCLI" TO W-ARQ
                    GO ERRO.
       
       OPEN OUTPUT CLI.
001720 LE-CADCLI.
001730*     READ     CADCLI INVALID KEY
           READ     CADCLI NEXT AT END
001740               GO FIM.
           WRITE CLI-LINHA FROM CLI-REG.
       GO LE-CADCLI.
    
       COPY "erro.pro".
004460 FIM.
004480     CLOSE    CADCLI CLI.
004510     STOP     RUN.