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