Wage
during
SCL execution: MAIN: erroroff wage; if wage gt &max then erroron wage; return;
General form, SYMPUTN
routine:
CALL SYMPUTN('macro-variable',
value);
macro-variable
is the name of a global
macro variable enclosed in single quotation marks with no ampersand.
Alternatively, it is the name of an SCL variable (not enclosed
in quotation marks) whose value is the name of a global macro variable.
value
is the numeric value
that is assigned to macro-variable,
which can be a number of the name of a numeric SCL variable.
|
unitvar
has
a value of unit
and the SCL variable unitnum
has
a numeric value of 200. To create a macro variable whose name is the
value of unitvar
(in this case, unit
)
and assign a value equal to the value of the SCL variable unitnum
(in
this case, 200) you submit the following statement within a SUBMIT
block: call symputn(unitvar, unitnum);
unitvar
and assign
a numeric value of 500 to it, you submit the following statement within
a SUBMIT block. call symputn('unitvar', 500);
General form, SYMGETN
function:
SCL-variable = SYMGETN('macro-variable');
SCL-variable
is the name of a numeric
SCL variable to which the value of macro-variable is
assigned.
macro-variable
is the name of a global
macro variable enclosed in single quotation marks with no ampersand.
Alternatively, it is the name of an SCL variable (not enclosed
in quotation marks) whose value is the name of a global macro variable.
|
unitvar
has
a value of unit
, the macro variable unit
has
a value of 200, and the macro variable unitvar
has
a value of 500. The first statement below creates an SCL variable
named unitnum
and assigns to it a value of
200. The second statement creates an SCL variable named unit
and
assigns it a value of 500. unitnum=symgetn(unitvar); unit=symgetn('unitvar'),