Exercicios - Aula 2

Prévia do material em texto

Exercícios págs. 30 e 31 
 
 
4) Marque com um X os comandos COBOL com erro de sintaxe ou de lógica, 
sublinhando a parte errada. 
 
a. (x) ACCEPT WS-HORASTRAB FROM SYSOUT 
 
b. ( ) DISPLAY “PROCESSADO COM SUCESSO” 
 
c. ( ) DISPLAY “LIDOS = ” WS-CTLIDO 
 
d. (x) DISPLAY ((2 * WS-LADO ** 2) ** 0,5) 
 
e. ( ) COMPUTE WS-DIAGONAL = ((2 * WS-LADO ** 2) ** 0,5) 
 
f. (x) COMPUTE WS-SALARIO=WS-HORASTRAB*WS-SALARIOHORA 
 
g. ( ) MOVE 25 TO WS-SALARIO-A WS-SALARIO-B WS-SALARIO-C 
 
h. (x) MOVE WS-SALARIO TO 25 
 
i. (x) MOVE WS-LADO1 WS-LADO2 WS-LADO3 TO WS-TRIANGULO 
 
j. ( ) IF WS-QTDEST NOT < 1000 
 
k. (x) IF WS-SALDO IS NUMERIC AND ALPHABETIC 
 
l. (x) IF WS-SALDO IS POSITIVE OR NEGATIVE 
 
m. ( ) IF WS-TIPOCONTA = “CC” OR “CP” OR “CI” 
 
n. (x) PERFORM 010-INICIALIZAR 020-PROCESSAR 030-TERMINO 
 
o. ( ) PERFORM 055-CALCULO UNTIL WS-SENTINELA = 0 
 
p. (x) PERFORM WITHOUT TEST 040-EXIBE-RESULTADO 
 
 
 
 
 
 
 
 
 
a) O programa PGMFOPAG processa a folha de pagamento de uma empresa. 
Ele lerá o arquivo HORARIO (sequencial em disco) e a tabela TABFUNC (tabela 
de um banco de dados) e gravará o arquivo FOLHAPAG (sequencial em fita 
magnética) e imprimirá o relatório CHEQUES. 
 
 
 
 
 
 
 
 
 
 
 
 
 
b) O programa ATUESTOK atualiza o estoque de uma empresa com base na 
movimentação. Lerá o arquivo CADANT (sequencial em disco) e o arquivo 
MOVESTOK (sequencial em fita magnética) e gravará o arquivo CADATU 
(sequencial em disco) e imprimirá o relatório RELOCORR.