Run-time diagnostics

/* execlog.p */
DEFINE VARIABLE ix AS INTEGER NO-UNDO.
FOR EACH customer FIELDS (name) NO-LOCK BY customer.name:
  DISPLAY customer.name.
  ix = ix + 1.
END.
RUN internalA (ix).
RUN execlog2.p (OUTPUT ix).
DISPLAY ix.
QUIT.
PROCEDURE internalA:
  DEFINE INPUT PARAMETER ii AS INTEGER NO-UNDO.
  DISPLAY "Number of Customers is " ii.
END.
/* execlog2.p */
DEFINE OUTPUT PARAMETER ix AS INTEGER NO-UNDO.
DO ix = 10 TO 20:
  DISPLAY ix.
END.