/*--- MKUFILE - Returns Unique Based on Date/Time - 2005 Mark McDonald*/
   XMKUFILE: PROCEDURE
     XR = SUBSTR(DATE('J'),3,3," ")''TIME('S')
   RETURN (XR)