Cobol Foro - [PowerCOBOL v3] Um Cobol diferente

Olá,

eu estava vendo uma revista muito antiga que anunciava um produto para o Apple ][, um montador de listas. Uma espécie primitiva de banco de dados. Funcionava assim:

Cria-se uma nova lista
Adiciona-se colunas de tipos diversos (string, data, numero) nesta lista
Permite-se criar entrada de dados, consultas e relatórios

Pensei...dá para fazer em Cobol

Código COBOL:

fd fileList.
01 recordList.
     03 listID         pic 9(12).
     03 listName    pic x(256).
 
fd stringType.
01stringRecord.
    03 stringID        pic 9(12).
    03 stringValue    pic x(256).
    03 stringSize     pic 9(03).
 
fd dateType.
01 dateTimeRecord.
     03 dateID         pic 9(12).
     03 dateValue    pic 9(08).
     03 timeValue.
          05 hourValue pic 99.
          05 minuteValue pic 99.
          05 secondValue pic 99.
          05 milisecondValue pic 9(04).
 
fd listRow.
01 recordRow.
     03 rowID          pic 9(12).
     03 listID           pic 9(12).
 
fd rowColumns.
01 recordRowColumns.
    03 recordRowColumnKEY.
          05 rowID           pic 9(12).
          05 columnID      pic 9(12).
     03 columnName pic x(64).
     03 columnType   pic x.    *> (I)nteger, (S)tring, (D)ateTime, (C)urrency etc
     03 columnOrder pic 9(03).

Com a estrutura acima poderíamos criar quantas listas quiséssemos. Cada lista poderia ter quantas colunas quiséssemos e na ordem que quiséssemos.

Poderíamos criar índices para cada coluna:

Código COBOL:

fd indexes.
01 recordIndex.
     03 indexID          pic 9(12).
     03 indexName     pic x(64).
 
fd indexedColumn.
01 indexedColumnRecord.
     03 indexedColumnID pic 9(12). 
     03 rowID                  pic 9(12).
     03 columnID             pic 9(12).
     03 recordRowColumnKEY.
          05 rowID           pic 9(12).
          05 columnID      pic 9(12).
     03 indexValue         pic x(256). *> alternaste key muito ineficiente, mas funciona.

Para a parte do formulário dinâmico, o exemplo da progress bar em PowerCOBOL 3.0 pode ser adaptado para criar um formulário inteiro. Imaginem a possibilidade de se criar toda a entrada de dados num único dia, ao invés de gastar semanas.

Consultas e relatórios também seriam fáceis de serem criados.

Acho que vou gastar algum tempo nisto. Se funcionar a contento, publico aqui no foro.

Se näo conseguir tempo para criar este exemplo, pelo menos a idéia está lançada :)

Saludos, Emerson