Pedr026

PROG002

May 27th, 2018
590
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.        IDENTIFICATION DIVISION.
  2.        PROGRAM-ID. PROG002.
  3.        AUTHOR.     PEDRO.
  4.       *
  5.        ENVIRONMENT DIVISION.
  6.        CONFIGURATION SECTION.
  7.        SPECIAL-NAMES.
  8.            DECIMAL-POINT IS COMMA.
  9.       *
  10.        DATA DIVISION.
  11.        WORKING-STORAGE SECTION.
  12.        77 NOME PIC X(40).
  13.        77 IDADE PIC 9(3).
  14.        77 SEXO PIC A(1).
  15.        77 SALARIO PIC 9(5)V99.
  16.        77 SALARIOATUAL PIC 9(4)V99.
  17.        77 SALTOTAL PIC 9.999,99.
  18.        77 CONTINUA PIC X(1).
  19.        SCREEN SECTION.
  20.        01 TELA.
  21.         05 BLANK SCREEN.
  22.         05 LINE 01 COLUMN 29 VALUE "Consistencia de Dados".
  23.         05 LINE 03 COLUMN 23 VALUE "Nome.........:".
  24.         05 LINE 05 COLUMN 23 VALUE "Idade........:".
  25.         05 LINE 07 COLUMN 23 VALUE "Sexo.........:".
  26.         05 LINE 09 COLUMN 23 VALUE "Salario......:".
  27.         05 LINE 11 COLUMN 23 VALUE "Salario Atual:".
  28.         05 LINE 14 COLUMN 27 VALUE "Continua(S/N):".
  29.         05 LINE 17 COLUMN 23 VALUE "Mensagem:".
  30.       *
  31.        PROCEDURE DIVISION.
  32.        010-EXEC-TELA.
  33.            DISPLAY TELA.
  34.        020-EXEC-NOME.
  35.            ACCEPT (03, 38) NOME WITH PROMPT.
  36.            IF NOME = SPACES
  37.               DISPLAY (17, 33) "Nome Invalido!"
  38.               GO TO 020-EXEC-NOME.
  39.            DISPLAY (17, 33) "                   ".
  40.        030-EXEC-IDADE.
  41.            ACCEPT (05, 38) IDADE WITH PROMPT.
  42.            IF IDADE < 14 OR > 30
  43.               DISPLAY (17, 33) "Idade Invalida!"
  44.               GO TO 030-EXEC-IDADE.
  45.            DISPLAY (17, 33) "                    ".
  46.        040-EXEC-SEXO.
  47.            ACCEPT (07, 38) SEXO WITH PROMPT.
  48.            IF SEXO NOT = 'M' AND 'm' AND 'F' AND 'f'
  49.               DISPLAY (17, 33) "Sexo Invalido!"
  50.               GO TO 040-EXEC-SEXO.
  51.            DISPLAY (17, 33) "                   ".
  52.        050-EXEC-SALARIO.
  53.            ACCEPT (09, 38) SALARIO WITH PROMPT.
  54.            IF SALARIO < 499 OR > 5000
  55.               DISPLAY (17, 33) "Salario Invalido!"
  56.               GO TO 050-EXEC-SALARIO.
  57.            DISPLAY (17, 33) "                       ".
  58.        060-EXEC-SALARIOATUAL.
  59.            COMPUTE SALARIOATUAL = (SALARIO * 0,25) + SALARIO.
  60.            MOVE SALARIOATUAL TO SALTOTAL.
  61.            DISPLAY (11, 38) SALTOTAL.
  62.            ACCEPT (14, 42) CONTINUA.
  63.            IF CONTINUA = 'S' OR 's'
  64.               GO TO 010-EXEC-TELA.
  65.        090-FIM.
  66.        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.

×