%IMPLIED

Convert an expression to zoned numeric implied-decimal

WSupported on Windows

USupported on Unix

VSupported on OpenVMS

NSupported in Synergy .NET

imp_dec_value = %IMPLIED(expression)

Return value

imp_dec_value

An implied-decimal value for the specified expression in zoned numeric representation. (d)

Arguments

expression

The expression to convert. (a or n)

Discussion

%IMPLIED converts an expression to an implied-decimal value in zoned numeric representation.

Expression is converted following the rules for moving data to an implied-decimal destination. (See Assignment statements for a description of these rules.) If expression is integer or decimal data type, the result won’t have any fractional precision. If expression is alpha, the fractional precision equals the number of digits to the right of the decimal point in expression.

Rounding and truncation come into effect if you have an alpha variable containing an implied-decimal value that has more than 28 places to the right of the decimal point.

The use of %IMPLIED assumes that the called routine argument is IN only. If you use %IMPLIED to convert an n parameter to a d argument, you should explicitly modify the declared argument of the called routine to say “IN” if the direction is unspecified to allow the compiler to warn you if you write to the argument by mistake.

Examples

The following example uses alpha input as data for an implied-decimal arithmetic computation. Note that if the alpha variable contains any invalid hexadecimal characters, a “Bad digit encountered” error ($ERR_DIGIT) is generated.

subroutine math 
    a_avar              ,a 
record 
    val1                ,d5.2 
    val2                ,d5.2 
    result              ,d10.2 
proc 
    result = (val1*val2)/%implied(a_avar) 
    .
    .
    .
    xreturn 
endsubroutine