/* 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. |