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

COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 1999.

ASZ3087 990729 61VASE PS OMCSIRM V201 INCORROUT  OMCSIRB. 990729 S__-PJS
when using PCTL function of "advanced" PSP, parameters may be
incorrect. (ASEC250)

_PROBLEM DESCRIPTION:
When run in ECLV3 environment: the sixth parameter passed to an
"advanced" print service program does not contain the expected
function code.

_PROBLEM SUMMARY:
USERS AFFECTED: IRM users of ECLV3

When a printer driver is invoked for the PCTL function, some of the
parameters are specified as &n variables which may be assigned
unexpected values in the ECLV3 environment.

_PROBLEM CONCLUSION
RECOMMENDATION: Apply APAR fix ASZ3087

OMCSIRBM and OMCSIRBT will be modified to copy &n variables to other
variable names and use the new names when invoking the printer
driver PCTL function.

_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(ASP0562,ASP0744).
++SRCUPD(OMCSIRBM).
./ CHANGE NAME=OMCSIRBM
APAR ASZ3087                                                            Z3087002
/*PRE ASP0562                                                           Z3087004
AUDIT ON                                                                Z3087006
F PRTCTL: 1                                                             Z3087008
:I5  /*--1----+----2----+----3----+                                     Z3087010
         SET FUNC=&2              /* FUNCTION                           Z3087012
         SET DATA1=&3             /* FUNCTION DATA ITEM 1               Z3087014
         SET DATA2=&4             /* FUNCTION DATA ITEM 2               Z3087016
         SET DATA3=&5             /* FUNCTION DATA ITEM 3               Z3087018
         SET DATA4=&6             /* FUNCTION DATA ITEM 4               Z3087020
F &2                                                                    Z3087022
:D5                                                                     Z3087024
:I5  /*--1----+----2----+----3----+                                     Z3087026
                     &FUNC +   /* FUNCTION                              Z3087028
                     '&DATA1' +/* FUNCTION DATA ITEM 1                  Z3087030
                     '&DATA2' +/* FUNCTION DATA ITEM 2                  Z3087032
                     '&DATA3' +/* FUNCTION DATA ITEM 3                  Z3087034
                     '&DATA4'  /* FUNCTION DATA ITEM 4                  Z3087036
F PRTCTLB: 1                                                            Z3087038
F &2                                                                    Z3087040
:D5                                                                     Z3087042
:I5  /*--1----+----2----+----3----+                                     Z3087044
                     &FUNC +   /* FUNCTION                              Z3087046
                     '&DATA1' +/* FUNCTION DATA ITEM 1                  Z3087048
                     '&DATA2' +/* FUNCTION DATA ITEM 2                  Z3087050
                     '&DATA3' +/* FUNCTION DATA ITEM 3                  Z3087052
                     '&DATA4'  /* FUNCTION DATA ITEM 4                  Z3087054
END                                                                     Z3087056
++SRCUPD(OMCSIRBT).
./ CHANGE NAME=OMCSIRBT
APAR ASZ3087                                                            Z3087005
/*PRE ASP0744                                                           Z3087007
AUDIT ON                                                                Z3087009
F PRTCTL: 1                                                             Z3087011
:I5  /*--1----+----2----+----3----+                                     Z3087013
         SET FUNC=&2              /* FUNCTION                           Z3087015
         SET DATA1=&3             /* FUNCTION DATA ITEM 1               Z3087017
         SET DATA2=&4             /* FUNCTION DATA ITEM 2               Z3087019
         SET DATA3=&5             /* FUNCTION DATA ITEM 3               Z3087021
         SET DATA4=&6             /* FUNCTION DATA ITEM 4               Z3087023
F &2                                                                    Z3087025
:D5                                                                     Z3087027
:I5  /*--1----+----2----+----3----+                                     Z3087029
                     &FUNC +   /* FUNCTION                              Z3087031
                     '&DATA1' +/* FUNCTION DATA ITEM 1                  Z3087033
                     '&DATA2' +/* FUNCTION DATA ITEM 2                  Z3087035
                     '&DATA3' +/* FUNCTION DATA ITEM 3                  Z3087037
                     '&DATA4'  /* FUNCTION DATA ITEM 4                  Z3087039
F PRTCTLB: 1                                                            Z3087041
F &2                                                                    Z3087043
:D5                                                                     Z3087045
:I5  /*--1----+----2----+----3----+                                     Z3087047
                     &FUNC +   /* FUNCTION                              Z3087049
                     '&DATA1' +/* FUNCTION DATA ITEM 1                  Z3087051
                     '&DATA2' +/* FUNCTION DATA ITEM 2                  Z3087053
                     '&DATA3' +/* FUNCTION DATA ITEM 3                  Z3087055
                     '&DATA4'  /* FUNCTION DATA ITEM 4                  Z3087057
END                                                                     Z3087059