Migrate Legacy Code.
Automatically.

// Price calculation subroutine
DCL-S price    PACKED(9:2);
DCL-S qty      INT(10);
DCL-S discount PACKED(5:4);
DCL-S total    PACKED(11:2);

BEGSR CalcTotal;
  total = price * qty;
  IF qty > 100;
    discount = 0.15;
    total = total - (total * discount);
  ENDIF;
  DSPLY %CHAR(total);
ENDSR;

// Generated by Language Foundry
import foundry.rt.*;

public class CALCPRICE {
  static RpgDec price    = RpgDec.of("0", 9, 2);
  static long   qty      = 0L;
  static RpgDec discount = RpgDec.of("0", 5, 4);
  static RpgDec total    = RpgDec.of("0", 11, 2);

  static void CalcTotal() {
    total = RpgDec.of(price.big()
              .multiply(RpgDec.bigOf(qty)), 11, 2);
    if (qty > 100L) {
      discount = RpgDec.of("0.15", 5, 4);
      total = RpgDec.of(total.big().subtract(
        total.big().multiply(discount.big())), 11, 2);
    }
    RT.dsply(RT.charOf(total));
  }
}