Cheguei a programa bastante em database, quando tinha uns 16 anos, era a esse que te referias?
Humm... não, nada a haver [

]
Um exemplo de código de COBOL, bastante simples:
IDENTIFICATION DIVISION.
PROGRAM-ID. MODULOS10.
AUTHOR. LUÖS SANTOS
INSTALLATION. *********.
DATE-WRITTEN. 29-SET-2003.
*----------------------------------------------------------------
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
CRT STATUS IS TECLADO.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT modulos ASSIGN TO DATABASE-MODL01
ORGANIZATION IS INDEXED
ACCESS MODE IS RANDOM
RECORD KEY IS CODMODC.
*----------------------------------------------------------------
DATA DIVISION.
FILE SECTION.
FD modulos.
01 REGMOD.
05 CODMODC PIC X(3).
05 DESCC PIC X(35).
05 PROFC PIC X(35).
WORKING-STORAGE SECTION.
01 FIM PIC X.
01 CODIGO PIC X(3).
01 DESC PIC X(35).
01 PROF PIC X(35).
01 ESTADO PIC X(16).
01 TECLADO.
05 SAIR PIC X(4).
05 FILLER PIC X(2).
*----------------------------------------------------------------
PROCEDURE DIVISION.
PROGRAMA.
MOVE SPACES TO SAIR
MOVE SPACES TO FIM
OPEN I-O MODULOS
PERFORM UNTIL FIM = "S" OR SAIR = "0103"
DISPLAY "Ficha dos M¢dulos" AT 0512
WITH BLANK SCREEN
DISPLAY "C¢digo do M¢dulo: " AT 0812
DISPLAY "Designa‡Æo do M¢dulo: " AT 1012
DISPLAY "Nome do Formador: " AT 1212
MOVE SPACES TO CODIGO
MOVE SPACES TO DESC
MOVE SPACES TO PROF
MOVE SPACES TO ESTADO
ACCEPT CODIGO AT 0835 WITH UNDERLINE AUTO
* Verifica se F3 ‚ pressionado para sair
IF SAIR = "0103" THEN
MOVE "S" TO FIM
* Se nÆo pressionar F3, continua execu‡Æo
ELSE
MOVE CODIGO TO CODMODC
READ MODULOS
* Se nÆo existir, criar novo registo e escrever
INVALID KEY
DISPLAY "Inserir dados de novo M¢dulo" AT 0212
ACCEPT DESC AT 1035 WITH UNDERLINE AUTO
ACCEPT PROF AT 1235 WITH UNDERLINE AUTO
MOVE DESC TO DESCC
MOVE PROF TO PROFC
WRITE REGMOD
END-WRITE
* Se existir, fazer update/delete, etc...
NOT INVALID KEY
DISPLAY "M¢dulo Existente" AT 0512 WITH BLANK SCREEN
* Mostra menu com op‡äes
DISPLAY "1. Para sair" AT 0812
"2. Para alterar" AT 1012
"3. Para apagar" AT 1212
"Digite op‡Æo: " AT 1512
ACCEPT FIM AT 1526 WITH UNDERLINE AUTO
EVALUATE FIM
WHEN 1 MOVE "0103" TO SAIR
WHEN 2 DISPLAY "OLA" AT 0918
* Inserir c¢digo para a edi‡Æo do registo (UPDATE)
END-EVALUATE
MOVE SPACES TO FIM
* MOVE "C¢digo inv lido!" TO ESTADO
* ACCEPT ESTADO AT 1214
* WITH UNDERLINE HIGHLIGHT
END-READ
END-IF
END-PERFORM
CLOSE MODULOS
EXIT PROGRAM
STOP RUN.