Considere o trecho de programa abaixo:

0010 DEFINE DATA LOCAL
0020 1 CAMPO (A10) INIT <'ABCDEFGHIJ'>
0030 END-DEFINE
0040 MOVE ALL '123' TO CAMPO UNTIL 5
0050 DISPLAY CAMPO
0060 END

O valor da variável CAMPO, demonstrado ao executar o comando DISPLAY, é

Considere o trecho de programa abaixo:

0010 DEFINE DATA LOCAL
0020 1 CAMPO (A10)
0030 END-DEFINE
0040 *
0050 MOVE 'CASA VERDE' TO CAMPO
0060 *
0070 IF CAMPO = SCAN('V?R')
0080 WRITE 'ACHOU'
0090 ELSE
0100 WRITE 'NAO ACHOU'
0110 *
0120 IF CAMPO = SCAN('VER')
0130 WRITE 'ACHOU'
0140 ELSE
0150 WRITE 'NAO ACHOU'
0160 END

Ao executar o programa acima, os valores mostrados na tela são, respectivamente:

Considere o trecho de programa abaixo:

0010 DEFINE DATA LOCAL
0020 1 PLACA (A07)
0030 1 REDEFINE PLACA
0040 2 PLACA-A (A03)
0050 2 PLACA-N (N04)
0060 END-DEFINE
0070 INPUT PLACA
0080 *
0090 IF PLACA NE MASK( )
0100 WRITE 'PLACA COM ERRO'
0110 ELSE
0120 WRITE 'PLACA OK '
0130 END

A opção a ser utilizada na função MASK da linha 0090, para permitir que somente caracteres ALFABÉTICOS (letras) sejam informados nas três primeiras posições do campo PLACA e que somente NÚMEROS sejam informados nas 4 últimas posições do campo PLACA, é

Considere o trecho de programa abaixo:

0010 DEFINE DATA LOCAL
0020 1 X (N5)
0030 1 Y (N5)
0040 END-DEFINE
0050 X := 1
0060 Y := 13
0070 *
0080 REPEAT
0090 X := X +2
0100 IF X = Y
0110 DO ESCAPE BOTTOM
0120 DOEND
0130 WRITE X
0140 IF X = Y - 4
0150 DO X := X + 2
0160 DOEND
0170 LOOP(0080)
0180 END

Os valores assumidos e impressos de X são, respectivamente:

Considere abaixo o conteúdo de um arquivo sequencial e o trecho de programa que lê este arquivo:

ITEM QTDE

0010 DEFINE DATA LOCAL
0020 1 #REG001 (A08) /* WORK FILE 1
0030 1 REDEFINE #REG001
0040 2 #R1-ITEM(N03)
0050 2 #R1-QTDE(N05)
0060 END-DEFINE
0070 *
0080 READ WORK FILE 1 #REG001
0090 SORT #R1-ITEM USING #R1-QTDE
0100 AT BREAK #R1-ITEM
0110 WRITE OLD(#R1-ITEM) SUM(#R1-QTDE)
0120 LOOP(0090)
0130 END

A sequência de valores da função Natural SUM(#R1-QTDE), mostrados pelo comando WRITE da linha 0110, é, respectivamente:

Considere a seguinte definição do campo Múltiplo AA: 01,AA,20,A,MU que não possui a opção NU – NULL SUPPRESSION

Ocorrências: 1. 2. 3. 4. 5.

Campo AA:

O conteúdo desse campo Múltiplo está sendo mostrado em ordem crescente de ocorrência. Se a segunda ocorrência desse campo Múltiplo for atualizada com brancos ( “ “ ), as ocorrências desse campo Múltiplo passarão a ter os valores da alternativas

Considere o programa abaixo:

0010 DEFINE DATA LOCAL
0020 1 #VAR (A10)
0030 1 REDEFINE #VAR
0040 2 #V(A1/10)
0050 1 #I (N1)
0060 1 #AUX (A1)
0070 END-DEFINE
0080 #VAR := '7308192465'
0090 *
0100 REPEAT
0110 RESET #AUX
0120 FOR #I 1 10
0130 IF #V(#I) < #V(#I+1)
0140 DO MOVE #V(#I) TO #AUX
0150 MOVE #V(#I+1) TO #V(#I)
0160 MOVE #AUX TO #V(#I+1)
0170 DOEND
0180 IF #I = 9
0190 ESCAPE BOTTOM
0200 LOOP(0120)
0210 IF #AUX = ' '
0220 ESCAPE BOTTOM
0230 LOOP(0100)
0240 *
0250 DISPLAY #VAR
0260 END

O conteúdo da variável #VAR, quando executado o comando DISPLAY, é

Considere o trecho de programa abaixo:

0010 DEFINE DATA LOCAL
0020 1 CAMPO (A10) INIT <'ABCDEFGHIJ'>
0030 1 I (I2)
0040 1 L (I4)
0050 END-DEFINE
0060 FORMAT PS=60
0070 FOR I 1 10
0080 WRITE NOTITLE NOHDR CAMPO
0090 LOOP(0070)
0100 WRITE *LINE-COUNT
0110 END

O conteúdo da variável *LINE-COUNT, quando executado o comando WRITE, é

Considere o trecho de programa abaixo:

0050 FORMAT PS=60
0060 READ FTC-CARGO BY CARGO
0070 AT BREAK CARGO
0080 DO WRITE *COUNTER
0090 EJECT
0100 DOEND
0110 AT TOP OF PAGE
0120 WRITE 'CARGO:' CARGO
0130 LOOP(0060)
0140 END

Quantas vezes o comando WRITE da linha 0120 será executado?

Considere o trecho de programa abaixo:

0060 READ FTC-CARGO BY CARGO
0070 ADD 1 TO #CNT /* #CNT (N02)
0080 AT BREAK CARGO
0090 DO WRITE #CNT
0100 RESET #CNT
0110 DOEND
0120 LOOP(0060)
0130 END

Os valores da variável #CNT, quando executado o comando WRITE, são, respectivamente: