++APAR(ASZ3123). /*--------------------------------------------------

COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD.2000

ASZ3123 000103 61VASE GG OMCSV2  V201 INCORROUT  OMCSTSDB 000106 __S0845
when using DIR function's M line command on a database file which has
structural problems, OMCSTSDB may fail with abend or ECL error.
       */
++VER(Z038) FMID(ASEB200). /* getapar 00/02/29 14:55