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

COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2002.

ASZ3259 020423 61VASE PS ASEB200 V201 INCORROUT  OMCSPARM 020423 O__-PJS
bad parameter processing causes ECL error when OMCSPARM called from
within OMCSXWRP after ASZ3257.

_PROBLEM DESCRIPTION:
After ASZ3257, report discovery job fails with an ECL error in OMCSPARM.

_PROBLEM SUMMARY:
USERS AFFECTED: IRM users

ASZ3257 introduced to OMCSXWRP a call to OMCSIRXM which in turn invoked
OMCSPARM.  OMCSPARM expected an optional parameter - FILE= - to
determine if the default parameter file should be overridden.  Under
OMCSXWRP, OMCSPARM incorrectly used the &FILE variable from the caller's
variable pool and didn't check to see if the FILE parameter wasn't
specified.

_PROBLEM CONCLUSION
RECOMMENDATION: Apply APAR fix ASZ3259

OMCSPARM will be modified to verify that a FILE= parameter was specified
before using the value of &FILE.

NEED FURTHER HELP?  CALL ASE FOR ASSISTANCE or email help@ase.com.au
       */
++VER(Z038) FMID(ASEB200) PRE(ASP0241,ASZ3258).
++SRCUPD(OMCSPARM).
./ CHANGE NAME=OMCSPARM
APAR ASZ3259                                                            Z3259002
/*PRE ASP0241,ASZ3258                                                   Z3259004
AUDIT ON                                                                Z3259006
F FT=SYSFILE                                                            Z3259008
:I7                                                                     Z3259010
         IF FILE=(&TERM(&3,1,=),+    /* IF &3 WAS FILE=...              Z3259012
                  &TERM(&4,1,=),+    /* IF &4 WAS ...                   Z3259014
                  &TERM(&5,1,=),+    /* IF &5 WAS ...                   Z3259016
                  &TERM(&6,1,=),+    /* IF &6 WAS ...                   Z3259018
                  *)                 /* IF NONE WERE...                 Z3259020
         SET FILE=(&FILE,&FILE,&FILE,&FILE,+ /* USE IT                  Z3259022
                   )                         /* USE DEFAULT BLANK       Z3259024
END                                                                     Z3259026