com.heirloomcomputing.epli.runtime

Annotation Type DECIMAL

@Retention(value=RUNTIME)
 @Target(value={TYPE,METHOD,PARAMETER,FIELD,LOCAL_VARIABLE})
public @interface DECIMAL

DECIMAL - Elastic PL/I type information supplementing base Java classes available for reflection at runtime. Attached to FIXED or FLOAT DECIMAL(p,q) variables (Java BigDecimal) defined within procedures (Java methods) or elements (Java String) within groups (sub-classes) to indicate the precision (p) and scale (q) of the defined variable. Used at runtime together with BigDecimal.precision() and BigDecimal.scale() and MathContext to set digit limits on the variable. Necessary because BigDecimal does not retain a "max" precision set during construction. A PL/I variable declared as FIXED DEC(10,3) translates into BigDecimal.valueOf(123.456, new MathContext(10)).setScale(3) where precision() of it returns 6, its current number of digits, not the maximum defined in the MathContext.

PL/I code

   DCL A FIXED DECIMAL(10,5) INIT(123.456);
   PUT LIST(A) SKIP;
 when compiled is generated as
 
   @DECIMAL(precision=10,scale=5) java.math.BigDecimal a = new java.math.BigDecimal(0.0, new java.math.MathContext(10)).setScale(3, java.math.RoundingMode.DOWN);
   System.out.println(String.format("%10.5f",a));
 note that @DECIMAL java.math.BigDecimal a; provides a default of 10,0.
 when run displays as the following (b indicates blanks; zero suppression as if PIC'Z(5)9.9(3)')
 
 bbbb123.456

Author:

Heirloom Computing, Inc.

Optional Element Summary

Optional Elements

Modifier and Type	Optional Element and Description
int	precision Maximum (not current) precision or number of digits defined for this variable as DECIMAL(p,q).
int	scale Maximum (not current) scale or number of digits defined to the right of the decimal point for this variable as DECIMAL(p,q).

Element Detail

precision

public abstract int precision

Maximum (not current) precision or number of digits defined for this variable as DECIMAL(p,q).

Returns:

the precision of a DECIMAL variable

Default:

10

scale

public abstract int scale

Maximum (not current) scale or number of digits defined to the right of the decimal point for this variable as DECIMAL(p,q).

Returns:

the scale of a DECIMAL variable

Default:

0