[Joseg]

Não resolveu.

FD CUSTOMER-FILE  GLOBAL.
  01 CUSTOMERFILERECORD.
           05 RECORDKEY   PIC X(08).
           05 NOME            PIC X(50).
           05 MORADA        PIC X(50).

E se comentar a linha com "*" na coluna 7, continua a dar erro. Só valida se digitar "*>".