Programando em Cobol

Publicado em 16/09/2009 por Bruno Russo

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…

Esta entrada foi publicada em Crônicas, Diário, Programas com as palavras-chave cobol, faculdade, identification division. Adicione o link permanente aos seus favoritos.