^ARGPRECISION

Return the precision of an implied-decimal argument

WSupported on Windows

USupported on Unix

VSupported on OpenVMS

NSupported in Synergy .NET

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