Declarar variáveis privadas
PRIVATE <var>[[(<tipo>|<número>)]][,<var>...]
ou
PRIVATE <var> := <exp>
<var> representa a variável a ser declarada.
<tipo> representa o tipo da variável .
<número> representa o tamanho da variável privada do tipo cadeia.
<exp> expressão que definirá o tipo, tamanho e valor inicial da variável.
Na declaração de variáveis privadas que serão utilizadas somente no procedimento em que foram declaradas.
Para se declarar mais de uma variável basta separá-las por "," (vírgula).
Para se declarar o tipo da variável, deve-se usar uma letra maiúscula que corresponde ao tipo desejado. Os tipos válidos são:
Se omitido <tipo>|<número> a linguagem criará a variável como sendo do tipo caractere de tamanho default 127 ou o definido pelo comando $LEN.
Uma variável privada dinâmica também pode ser declarada comp PRIVATE DYNAMIC.
Uma variável para conter uma estrutura pode ser definida, especificando-se seu tipo declarado anteriormente.
Uma variável para conter um pointer pode ser declarada como POINTER.
PRIVATE a && caractere tamanho 127 valor ""
PRIVATE b(C) && caractere tamanho 127 valor ""
PRIVATE c(200) && caractere tamanho 200 valor ""
PRIVATE d := "d" && caractere tamanho 1 valor "d"
PRIVATE e(D) && data valor " / / "
PRIVATE f := ctod("12/12/2012") && data valor "12/12/2012"
PRIVATE g(F) && double valor 0
PRIVATE h := ntof(100) && double valor 100
PRIVATE i(N) && numerico valor 0
PRIVATE j := 1 && numerico valor 1
PRIVATE k(L) && logico valor .F.
PRIVATE l := .T. && logico valor .T.
PRIVATE m(P) && pointer mesmo que POINTER m valor NULL
PRIVATE n := NULL && pointer valor NULL
PRIVATE o(Y) && dinamica ou PRIVATE DYNAMIC o valor ""
{a(Y)} s0 && declara estrutura tipo S0
PRIVATE s{s0} && estrutura s
Consulte
DECLARE, PARAMETERS, PUBLIC, STATIC, POINTER e STORE.