IDENTIFICATION DIVISION.
PROGRAM-ID. PROGCOBEX02.
* ******************************
* ÁREA DE COMENTÁRIOS - REMARKS
* AUTHOR = JULIANA
* OBJETIVO: CONTROLAR SALDO BANCARIO
* DATA = 02/09/2021
* ******************************
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
DECIMAL-POINT IS COMMA.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 WRK-SALDOBANCARIO PIC 9(06)V99 VALUE 100.
77 WRK-SALDOBANCARIO-ED PIC ZZZ.ZZ9,99 VALUE 100.
77 WRK-CODIGOOPERACAO PIC 9(02) VALUE ZEROS.
77 WRK-VALORTRANSACAO PIC 9(05) VALUE ZEROS.
77 WRK-SAQUE PIC 9(05) VALUE ZEROS.
77 WRK-DEPOSITO PIC 9(05) VALUE ZEROS.
77 WRK-PAGCHEQUE PIC 9(05) VALUE ZEROS.
PROCEDURE DIVISION.
DISPLAY ' SEU SALDO ATUAL E DE: '
MOVE WRK-SALDOBANCARIO TO WRK-SALDOBANCARIO-ED.
DISPLAY WRK-SALDOBANCARIO-ED.
DISPLAY 'ESCOLHA A OPERACAO QUE DESEJA REALIZAR: '
DISPLAY'10- SAQUE EM DINHEIRO, 33- DEPOSITO '
' 4-PAGAMENTO DE CHEQUE, 1 - SAIR'
ACCEPT WRK-CODIGOOPERACAO FROM CONSOLE.
IF WRK-CODIGOOPERACAO = 10
DISPLAY ' INSIRA UM VALOR PARA SAQUE '
ACCEPT WRK-VALORTRANSACAO FROM CONSOLE
IF WRK-VALORTRANSACAO > WRK-SALDOBANCARIO
DISPLAY 'SALDO INSUFICIENTE!'
ELSE
SUBTRACT WRK-SALDOBANCARIO FROM WRK-VALORTRANSACAO
GIVING WRK-SAQUE
DISPLAY 'OPERACAO REALIZADA! SALDO ATUAL: '
WRK-SAQUE
END-IF
END-IF.
IF WRK-CODIGOOPERACAO = 33
DISPLAY 'INSIRIRA O VALOR DO DEPOSITO'
ACCEPT WRK-VALORTRANSACAO FROM CONSOLE
ADD WRK-SALDOBANCARIO WRK-VALORTRANSACAO
TO WRK-DEPOSITO
DISPLAY 'OPERACAO REALIZADA! SALDO ATUAL: '
WRK-DEPOSITO
END-IF.
IF WRK-CODIGOOPERACAO = 4
DISPLAY 'INSIRIRA O VALOR DO CHEQUE PARA PAGAMENTO'
ACCEPT WRK-VALORTRANSACAO FROM CONSOLE
IF WRK-VALORTRANSACAO > WRK-SALDOBANCARIO
DISPLAY 'SALDO INSUFICIENTE!'
ELSE
SUBTRACT WRK-SALDOBANCARIO FROM WRK-VALORTRANSACAO
GIVING WRK-SAQUE
DISPLAY 'OPERACAO REALIZADA! SALDO ATUAL: '
WRK-PAGCHEQUE
END-IF
END-IF.
IF WRK-CODIGOOPERACAO = 1
DISPLAY 'ATE MAIS'
ELSE
DISPLAY 'CODIGO INVALIDO! POR FAVOR ESCOLHA UMA'
'OPCAO VALIDA!'
END-IF.
STOP RUN.