[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[open-cobol-list] Segmentation fault
From: |
Alencar - Philler Informatica |
Subject: |
[open-cobol-list] Segmentation fault |
Date: |
Tue Feb 8 06:08:38 2005 |
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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [open-cobol-list] Segmentation fault,
Alencar - Philler Informatica <=