Specifications

303
Syntax:
Syntax 1:
PRIVATE varname [,varname...]
Syntax 2:
PRIVATE DEFREG registerdefinition [,registerdefini-
tion...]
Parameter:
varname
numericvar [(subscript)]
stringvar [(subscript)[[stringlength]]]
registerdefinition
non-arraynumericvar [=numericconstant]
arraynumericvar(subscript)
[=numericinitialvaluedefinition]
non-arraystringvar[[stringlength]]
[=stringconstant]
arraystringvar(subscript)[[stringlength]]
[=stringinitialvaluedefinition]
numericinitialvaluedefinition
For one-dimensional:
{numericconstant[,numericconstant...]}
For two-dimensional:
{{numericconstant[,numericconstant...]},
{numericconstant[,numericconstant...]} ...}
stringinitialvaluedefinition
For one-dimensional:
{stringconstant[,stringconstant...]}
For two-dimensional:
{{stringconstant[,stringconstant...]},
{stringconstant[,stringconstant...]} ...}
Declarative statement
PRIVATE
Declares one or more work variables or register variables defined in a file, to be private (as
local variables).