
Apresentar ou não delimitadores para os comando GET ou alterar o delimitador corrente.
SET DELIMITERS ON | off
SET DELIMITERS TO <exp.C>
|
<exp.C> |
representa os novos delimitadores do comado GET. |
Para que o usuário do programa tenha a noção do tamanho do campo de entrada de dados.
Este comando por DEFAULT apresenta sempre os delimitadores "::" para todo GET executado
(SET DELIMITERS TO "::").
<exp.C> deve ter no máximo dois caracteres, sendo o primeiro o 7 delimitador esquerdo e o segundo o delimitador direito do campo.
O comando SET DELIMITERS TO <exp.C> ativa a presença de delimitadores mesmo que antes tenha se definido SET DELIMITERS OFF.
O exemplo a seguir mostra-nos três formas de utilizar o comando SET DELIMITERS. Note que no terceiro GET aparecerão os delimitadores "{}" pois, SET DELIMITERS TO ativa a presença dos delimitadores.
PROG
var = ""
@ 10,10 SAY "Set Delimiters ON" GET var PIC "XXXXX"
READ
SET DELIMITERS OFF
@ 11,10 SAY "Set Delimiters OFF" GET var PIC "XXXXX"
READ
SET DELIMITERS TO "{}"
@ 12,10 SAY "Set Delimiters TO {}" GET var PIC "XXXXX"
READ
@ ... GET, SET CONFIRM e SET INTENSITY.
