Example: Display decimal variable

This example uses the EVAL debug command to display the value of decimal variables.

CL declarations: 
   DCL    VAR(&DEC1) TYPE(*DEC) LEN(4 1) VALUE(73.1)
 
CL declarations: 
   DCL    VAR(&DEC2) TYPE(*DEC) LEN(3 1) VALUE(12.5)
 
Debug command:     EVAL &DEC1
 
Result:            &DEC1 = 073.1
 
Debug command:     EVAL &DEC2
 
Result:            &DEC2 = 12.5
Parent topic: Display variables