Magna Concursos
2386154 Ano: 2009
Disciplina: TI - Desenvolvimento de Sistemas
Banca: PUC-PR
Orgão: COPEL
Considere o programa NATURAL abaixo. Em quais linhas o comando CHECK apontaria problemas?
0110 DEFINE DATA
0120 LOCAL
0130 01 #NAME-START (A20)
0140 01 #NAME-END (A20)
0150 01 #MARK (A1)
0160 01 EMPLOYEES-VIEW VIEW OF EMPLOYEES
0170 02 PERSONNEL-ID (A8)
0180 02 NAME (A20)
0190 02 DEPT (A6)
0200 02 LEAVE-DUE (N2)
0210 END-DEFINE
0220 *
0230 *
0240 REPEAT
0250 *
0260 INPUT USING MAP ’MAP01’
0270 IF #NAME-START = ’.’
0280 ESCAPE BOTTOM
0290 END-IF
0300 MOVE #NAME-START TO #NAME-END
0310
0320 RD1. READ EMPLOYEES-VIEW BY NAME
0330 STARTING FROM #NAME-START
0340 THRU #NAME-END
0350 IF LEAVE-DUE >= 20
0360 PERFORM MARK-SPECIAL-EMPLOYEES
0370 ELSE
0380 RESET #MARK
0390 END-IF
0400 DISPLAY NAME 3X DEPT 3X LEAVE-DUE 3X ’>=20
#MARK
0450 END-READ
0460 *
0470 IF *COUNTER (RD1.) = ' '
0480 REINPUT ’PLEASE TRY ANOTHER NAME’
0490 END-IF
0500 *
0600 END-REPEAT
0610 *
0620 DEFINE SUBROUTINE MARK-SPECIAL EMPLOYEES
0630 MOVE ’*’ TO #MARK
0640 END-SUBROUTINE
0650 END
 

Provas

Questão presente nas seguintes provas