++PTF(ASP0741).  /* ------------------------------------------
ASP0741 971028 ASEX100 V100 PM YEAR 2000 SUPPORT FOR ISPZIP

COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 1997.

_APARLIST:
ASZ1856,ASZ1996,ASZ2140,ASZ2290,ASZ2348,ASZ2351

_NEW FUNCTIONALITY
Implement &TOD4() built-in function


    */
++VER(Z038) FMID(ASEX100).
++MOD(ASEXCHXR).
++MOD(ASEXECPI).