Nos meus testes com com escrita em ISAM files.
Código COBOL:
SELECT CUSTOMER-FILE ASSIGN TO "data/customers.idx"
ORGANIZATION IS INDEXED
ACCESS MODE IS INDEXED
RECORD KEY IS RECORD-KEY
STATUS WSTATUS
STORAGE MODE IS DISK.
...
FD CUSTOMER-FILE GLOBAL.
01 CUSTOMER-FILE-RECORD.
05 RECORD-KEY PIC X(08).
05 NOME PIC X(50).
05 MORADA PIC X(50).
...
WRITE CUSTOMER-FILE-RECORD INVALID KEY REWRITE CUSTOMER-FILE-RECORD.
Dá erro ao compilar usando a instrução "REWRITE". Não esta implementada esta instrução? Por exemplo se STATUS 22 , reescrever o registo.
Obrigado.