<ANCESTOR-CODE> <M-11 run Calculate01 (output viFcReturnSuper (oiReturnStatus)) in BPaymentSelection> if viFcReturnSuper < 0 then do: assign oiReturnStatus = viFcReturnSuper. return. end.