^ARGPRECISION

Return the precision of an implied-decimal argument

WTSupported in traditional Synergy on Windows
WNSupported in Synergy .NET on Windows
USupported on UNIX
VSupported on OpenVMS
precision = ^ARGPRECISION(argument)

Return value

precision

The precision of the specified argument. (d)

Arguments

argument

The ordinal position of the argument whose precision will be returned.

Discussion

If there is no precision, 0 is returned.

Examples

record
    implied     ,d10.2
proc
    xcall getprec(implied)
end
subroutine getprec
    arg         ,n
proc
    open(15,o,'tt:')
    writes(15,"precision ="+%string(^argprecision(1)))
    xreturn
end