++PTF(ASP1011). /*-----------------------------------------------------
ASP1011 050822 ASEC200 V220 when user renamed, rename matching redirects

COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2005

_APARLIST:

ASZ3389 050809 61VODP TI ASEC200 V220 INCORROUT  OMCSIRUM 050822 S__1011
when an IRM user definition is renamed, all redirect references to that
user should be renamed as well.

ASZ3391 050823 61VASE PS ASEC200 V220 INCORROUT  OMCSIRVR 050823 S__1011
when there are errors, program ends with cond code 0000

       */
++VER(Z038) FMID(ASEC200)
            PRE(ASP0814,ASP0990)
            SUP(ASZ3389,ASZ3391).
++SRC(OMCSIRUM).
++SRC(OMCSIRVR).
++MOD(OMCSIRUM).
++MOD(OMCSIRVR).