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

COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD.2007

ASZ3440 070517 61VASE GG ASEB200 0962 SUGG OK    OMCSAMUT 070529 S__1047
new functions: DELETE=NOTCATLG, DELDSN and ADJUSTDISCARD
       */
++VER(Z038) FMID(ASEB200). /* getapar 07/05/31 17:21