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

COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 1999.

ASZ3116 991207 61VASE PS ASEC200 V201 INCORROUT  OMCSIRIB 991207 O__-PJS
when running bundle close after installing PTF ASP0835 it fails with an
ECL error (OMCEC046I) at line 1134.

_PROBLEM DESCRIPTION:
when running bundle close after installing PTF ASP0835 it fails with an
ECL error (OMCEC046I) at line 1134.

_PROBLEM SUMMARY:
USERS AFFECTED: IRM users

Changes introduced by PTF ASP0835 may sometimes incorrectly specify a
printer driver name and cause bundle close to fail with an ECL error.

_PROBLEM CONCLUSION
RECOMMENDATION: Apply APAR fix ASZ3116

OMCSIRIB will be modified to correctly select the printer driver name.

_SMP/E SITES PLEASE NOTE:

1. If you have PTF ASP0699 installed on your system, you may apply two
   or more source update APAR fixes to the same source module
   simultaneously.  If you do not have PTF ASP0699 installed, do NOT
   attempt to apply two or more source update APAR fixes to the same
   source module simultaneously - you will get incorrect results.

_NON-SMP/E SITES PLEASE NOTE:

1. Apply this fix using the ASMPMAIN program.  Refer to ASE Technical
   Bulletin TB90-0014 for sample JCL for running this program or see
   the .ASESAMP member called RUNASMP.

2. This fix contains ++SRCUPD statements.  After applying the fix you
   must recompile the ECL programs named in ++SRCUPD statements to
   create new load modules from them.  For sample JCL see the .ASESAMP
   member called RUNECLC which was distributed on PUT9112.

NEED FURTHER HELP?  CALL ASE FOR ASSISTANCE.

       */
++VER(Z038) FMID(ASEC200) PRE(ASP0835).
++SRCUPD(OMCSIRIB).
./ CHANGE NAME=OMCSIRIB
APAR ASZ3116                                                            Z3116002
/*PRE ASP0835                                                           Z3116004
AUDIT ON                                                                Z3116006
F FIEND: 1                                                              Z3116008
F 'SET PDPGM'                                                           Z3116010
:D1                                                                     Z3116012
:I1                                                                     Z3116014
         SET PDPGM=(OMCSPDAF,OMCSPDAF,OMCSPDXE,OMCSPDXE,OMCSPDLN,)      Z3116016
F SORTB: 1                                                              Z3116018
F 'SET PDPGM'                                                           Z3116020
C 279 284                                                               Z3116022
DO 1                                                                    Z3116024
C 168 173                                                               Z3116026
F SORTJ: 1                                                              Z3116028
F USRNM                                                                 Z3116030
C 188 193                                                               Z3116032
DO 1                                                                    Z3116034
C 188 193                                                               Z3116036
F SORTL: 1                                                              Z3116038
F SORTOFF                                                               Z3116040
C 207 212                                                               Z3116042
END                                                                     Z3116044