DEFINE VAR xYears     AS INTEGER NO-UNDO.
DEFINE VAR xMonths    AS INTEGER NO-UNDO.


PROCEDURE YrsMons:
DEFINE INPUT  PARAMETER vStartDate AS DATE    NO-UNDO.
DEFINE INPUT  PARAMETER vEndDate   AS DATE    NO-UNDO.
DEFINE OUTPUT PARAMETER vYears     AS INTEGER NO-UNDO.
DEFINE OUTPUT PARAMETER vMonths    AS INTEGER NO-UNDO.

ASSIGN vMonths = ((YEAR(vEndDate) - YEAR(vStartDate)) * 12) +
                 MONTH(vEndDate) - MONTH(vStartDate)
       vYears  = TRUNCATE(vMonths / 12,0)
       vMonths = vMonths MODULO 12.
END PROCEDURE. /* YrsMons */


RUN YrsMons(01/01/01,02/01/02,OUTPUT xYears,OUTPUT xMonths).
DISPLAY xYears xMonths.