O trabalho de manutenção de uma tabela no Cobol geralmente é uma tarefa árdua. Conferir valores de cada registro em uma tabela com 100.000, chega a dar um embrulho no estômago com tantos números para olhar e analisar. Mas…. Existe uma ferramenta do NetExpress que dá uma mãozinha nessa hora, o Record Layout.

Abaixo descrevo o passo-a-passo para a geração de um Record Layout no NetExpress 3.1.

1º Passo: Vá em File > New > Record Layout

Passo 1

2º Passo: Encontre o arquivo .IDY do seu programa que contém o COPY com a FD do arquivo ( a FD precisa estar dentro de um COPY separado ).

Passo 2

3º Passo: Clique em Avançar e Concluir.

Passo 3

4º Passo: Salve o seu arquivo de Layout ( .STR ).

Passo 4

5º Passo: Abra o seu arquivo com os dados ( certifique-se de que a opção “Open as” está setada como Data, na parte de baixo dessa tela ).

Passo 5

6º Passo: Vá em File > Data Tools > Load Record Layout > Selecione o arquivo .STR que foi salvo no 4º passo.

Passo 6

E pronto, do lado esquerdo você terá os seus dados e ao lado direito vão estar as informações de cada registro separadas.

Passo 7

Abraços e até mais.

Esse é um problema que muitos programadores cobol, assim como eu, enfrentam ( ou enfrentavam ). Como ordenar uma lista de registros em ordem alfabética, em tempo de execução ? As soluções mais conhecidas são criar um arquivo sort, ou um auxiliar no disco ( e depois apagá-lo ).

Quando você trabalha com banco de dados fica fácil, basta colocar um ORDER BY no seu select, e as informações aparecem do jeitinho certo. Mas imagine que você tem um arquivo indexado, com a seguinte estrutura:

Clientes
- Código pic 9(008).  // Primary key
- Razão Social pic x(150). // Alternate key
- Nome Fantasia pic x(050).

E se você precisar listar os clientes, em ordem alfabética, pelo “Nome Fantasia” ?

Antes de mais nada, o que é essa tal de SortedCollection ?
SortedCollection é um tipo de coleção onde os registros adicionados são ordenados, bem diferente de uma coleção comum (OrderedCollection), em que os itens adicionados seguem a sequência em que foram criados.

Por exemplo, se você adicionar três itens: João; Pedro; Alexandre, em uma OrderedCollection, no momento da leitura, eles serão retornados exatamente nessa ordem, enquanto que, em uma SortedCollection seria retornado: Alexandre; João; Pedro.

Voltando assunto…

Vamos ordenar o nosso registro de clientes por “Nome Fantasia”. Para isso, declare a classe SortedCollection na sua class-control, também será necessária a classe CharacterArray, que será usada para armazenar o registro.

class-control.
  SortedCollection is class "srtdclln"
  CharacterArray is class "chararry"

Na working, algumas variáveis necessárias:

77 umaListaMat          object reference value null.
77 umaString            object reference value null.
77 umaColecao           object reference value null.
77 size                 pic 9(009)  comp-5 value zeros.
77 indice               pic 9(009)  comp-5 value zeros.

E ainda na working, um item que merece atenção, o grupo que receberá o nosso registro e que será adicionado a nossa coleção:

01 wlListaMat.
  05 wlFantasia            pic  x(050) value spaces.
  05 wlRazao               pic  x(150) value spaces.
  05 wlCodigo              pic  9(008) value zeros.

Agora sim, a nossa procedure que irá adicionar os itens na coleção:

adicionaItens section.
 
  // Pegamos o tamanho do registro, para informar a coleção
  move length of wlListaMat to s
 
  // Criamos uma instância da coleção, com o tamanho correto.
  invoke SortedCollection "ofReferences"
        using s returning umaListaMat
 
  initialize registro
  start do registro
  leitura sequencial do registro
  perform until fs-status > 03
    // Movimentando as variáveis do registro para a lista
    initialize wlListaMat
    move reg-codigo    to wlCodigo
    move reg-razao     to wlRazao
    move reg-fantasia  to wlFantasia
 
    // Criando um objeto string com os valores da lista para ser adicionado a coleção
    invoke CharacterArray "withByteLengthValue"
        using s wlListaMat
        returning umaString
 
    // Adicionando o objeto string na coleção
    invoke umaListaMat "add" using umaString
 
    leitura sequencial do registro
  end-perform
exit.

Agora vamos para a leitura da nossa coleção:

lerColecao section.
  // Pegamos o tamanho da coleção
  invoke umaListaMat "size" returning size
 
  move 0                  to indice
  perform until indice >= size
    add 1              to indice
 
    // Pega o item da coleção ( retorna um objeto string )
    invoke umaListaMat "at" using indice returning umaString
 
    // Recupera o texto desse objeto string, movendo para a lista
    invoke umaString "getValue" returning wlListaMat
 
    // Pronto, aqui as variáveis da lista já estão com os valores ordenados
  end-perform
 
  // Limpando os objetos da memória
  invoke umaListaMat "finalize" returning umaListaMat
  invoke umaString "finalize" returning umaString
exit.

Pronto, temos uma coleção carregada, e ordenada corretamente, sem precisar criar nenhum arquivo adicional.

Qualquer dúvida, é só postar nos comentários.