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.