Pedr026

PROG004

May 27th, 2018
523
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.        IDENTIFICATION DIVISION.
  2.        PROGRAM-ID. PROG004.
  3.        AUTHOR.    PEDRO.
  4.       *
  5.        ENVIRONMENT DIVISION.
  6.        CONFIGURATION SECTION.
  7.        SPECIAL-NAMES.
  8.            DECIMAL-POINT IS COMMA.
  9.        INPUT-OUTPUT SECTION.
  10.        FILE-CONTROL.
  11.            SELECT CADCLI ASSIGN TO DISK.
  12.       *
  13.        DATA DIVISION.
  14.        FILE SECTION.
  15.        FD CADCLI
  16.           LABEL RECORD IS STANDARD
  17.           RECORD CONTAINS 92 CHARACTERS
  18.           DATA RECORD IS WS-REG-CADCLI
  19.           VALUE OF FILE-ID "C:\IDECobol\cadcli.txt".
  20.        01 WS-REG-CADCLI.
  21.         05 WS-CADCLI-AGENCIA PIC 9(05).
  22.         05 WS-CADCLI-NUMERO-CONTA PIC 9(10).
  23.         05 WS-CADCLI-NOME-CLIENTE PIC X(40).
  24.         05 WS-CADCLI-TELEFONE PIC 9(08).
  25.         05 WS-CADCLI-SALDO-ATUAL PIC S9(11)V99.
  26.         05 WS-DATA-GRAVACAO.
  27.          10 WS-CADCLI-ANO-GRAVACAO PIC 9(04).
  28.          10 WS-CADCLI-MES-GRAVACAO PIC 9(02).
  29.          10 WS-CADCLI-DIA-GRAVACAO PIC 9(02).
  30.         05 WS-CADCLI-HORA-GRAVACAO PIC 9(08).
  31.        WORKING-STORAGE SECTION.
  32.        77 CONTINUA PIC X(01).
  33.        SCREEN SECTION.
  34.        01 TELA.
  35.         05 LINE 01 COLUMN 29 VALUE "Unimonte - Santos".
  36.         05 LINE 02 COLUMN 27 VALUE "Cadastro de clientes".
  37.         05 LINE 06 COLUMN 18 VALUE "Codigo da agencia..:".
  38.         05 LINE 08 COLUMN 18 VALUE "Numero da conta....:".
  39.         05 LINE 10 COLUMN 18 VALUE "Nome do cliente....:".
  40.         05 LINE 12 COLUMN 18 VALUE "Telefone...........:".
  41.         05 LINE 14 COLUMN 18 VALUE "Saldo Atual........:".
  42.         05 LINE 17 COLUMN 18 VALUE "Continua...........:".
  43.         05 LINE 17 COLUMN 43 VALUE "S/N".
  44.         05 LINE 21 COLUMN 18 VALUE "Mensagem...........:".
  45.        02 LIMPATELA.
  46.         05 LINE 06 COLUMN 39 VALUE "                    ".
  47.         05 LINE 08 COLUMN 39 VALUE "                    ".
  48.         05 LINE 10 COLUMN 39 VALUE "                               ".
  49.         05 LINE 12 COLUMN 39 VALUE "                    ".
  50.         05 LINE 14 COLUMN 39 VALUE "                    ".
  51.         05 LINE 17 COLUMN 39 VALUE "   ".
  52.         05 LINE 21 COLUMN 39 VALUE "                    ".
  53.       *
  54.        PROCEDURE DIVISION.
  55.        010-INICIO.
  56.            OPEN INPUT CADCLI.
  57.        020-MOSTRA.
  58.            READ CADCLI AT END GO TO 040-ACABA.
  59.            DISPLAY TELA.
  60.            DISPLAY (06, 39) WS-CADCLI-AGENCIA.
  61.            DISPLAY (08, 39) WS-CADCLI-NUMERO-CONTA.
  62.            DISPLAY (10, 39) WS-CADCLI-NOME-CLIENTE.
  63.            DISPLAY (12, 39) WS-CADCLI-TELEFONE.
  64.            DISPLAY (14, 39) WS-CADCLI-SALDO-ATUAL.
  65.        030-CONTINUA.
  66.            ACCEPT (17, 39) CONTINUA.
  67.            IF CONTINUA = 'S' OR 's'
  68.               GO TO 020-MOSTRA.
  69.            GO TO 090-FIM.
  70.        040-ACABA.
  71.            DISPLAY LIMPATELA.
  72.            DISPLAY (21, 39) "FIM DO ARQUIVO!!".
  73.            ACCEPT (17, 39) CONTINUA.
  74.            IF CONTINUA = 'S' OR 's'
  75.               GO TO 020-MOSTRA.
  76.        090-FIM.
  77.            CLOSE CADCLI.
  78.        STOPRUN.
RAW Paste Data

Adblocker detected! Please consider disabling it...

We've detected AdBlock Plus or some other adblocking software preventing Pastebin.com from fully loading.

We don't have any obnoxious sound, or popup ads, we actively block these annoying types of ads!

Please add Pastebin.com to your ad blocker whitelist or disable your adblocking software.

×