Page Comparison

<Missing Example>  PROCEDURE dateExample;
    LOCAL
      seconds,minutes,hours,day,month,year : INTEGER;
      stringDate : STRING;
    END_LOCAL;
    ON_ERROR_DO;
      xpxPrintf('\nError.');
      xpxThrow;
    END_ON_ERROR_DO;
    
    xpxGetDate(seconds,minutes,hours,day,month,year);
    stringDate := xpfDateToString(seconds,minutes,hours,day,month,year);
    xpxPrintf('\nCurrent date : %s',stringDate);

    RETURN;  
  END_PROCEDURE;