Recuperando documentos antigos....da époda ca faculdade, olha só o que encontrei!
Programas em cobol.
IDENTIFICATION DIVISION.
PROGRAM-ID. PROG02.
AUTHOR. BRUNO.
*DEFINICAO DO PATH ARQUIVO DE ENTRADA
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES. DECIMAL-POINT IS COMMA.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT ARQ-S ASSIGN TO "CLIENTES.DAT".
*DEFINICAO DO ARQUIVO DE ENTRADA
DATA DIVISION.
FILE SECTION.
FD ARQ-S
LABEL RECORD IS STANDARD.
01 REG-S
03 COD-CLI-E PIC 9(05).
03 VALOR-E PIC 9(07)V99.
*DEFINICAO DAS VARIAVEIS UTILIZADAS NO PROGRAMA
WORKING-STORAGE SECTION.
77 W-GRAVA PIC X.
77 W-OUTRO PIC X.
01 W-COD-CLI-E PIC 9(05).
01 W-VALOR-E PIC 9(07)V99.
*INICIO DA CODIFICACAO DO PROGRAMA
PROCEDURE DIVISION.
INICIO.
OPEN OUTPUT ARQ-S.
PERFORM TELA01.
CLOSE ARQ-S
STOP RUN.
*INICIO DA CONSTRUCAO DA TELA
TELA01
DISPLAY (03 21) "C A D A S T R O D E C L I E N T E S".
DISPLAY (06 09) "CLIENTE..:".
DISPLAY (08 09) "VALOR....:".
ACCEPT (06 20) W-COD-CLI-E.
ACCEPT (08 20) W-VALOR-E.
PERFORM TELA02.
TELA02
DISPLAY (16 33) " ".
DISPLAY (14 01) "----------------------------------------"
DISPLAY (14 40) "----------------------------------------"
DISPLAY (16 34) "GRAVAR...:".
ACCEPT (16 44) W-GRAVA.
IF W-GRAVA = "S"
PERFORM GRAVAR.
*PROCEDURE QUE GRAVA O REGISTRO
GRAVAR.
MOVE W-COD-CLI-E TO COD-CLI-E.
MOVE W-VALOR-E TO VALOR-E.
WRITE REG-S.
DISPLAY (16 34) " ".
DISPLAY (16 33) "CONTINUAR...:".
ACCEPT (16 48) W-OUTRO.
IF W-OUTRO = "S"
PERFORM TELA01.
Segue um TAR.GZ com todos os Programas em cobol...