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

COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 1999.

ASZ3114 991202 61VTEL BN ASEB200 V201 INCORROUT  OMCSDSIU 991203 O__-PJS
when a DI rule description contains an apostrophe all attempts to edit
or delete the rule fail with message RULE STRUCTURE ERROR.

_PROBLEM DESCRIPTION:
When a DI rule description contains an apostrophe all attempts to edit
or delete the rule fail with message RULE STRUCTURE ERROR.

_PROBLEM SUMMARY:
USERS AFFECTED: IRM users

When a DI rule is created/updated so that the description text contains
an apostrophe ('), the record saved in .DSIRULE MASTER is corrupted.

_PROBLEM CONCLUSION
RECOMMENDATION: Apply APAR fix ASZ3114

OMCSDSIU will be modified to correctly handle apostrophes in the
description.

_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(ASEB200) PRE(ASP0808,ASZ3107).
++SRCUPD(OMCSDSIU).
./ CHANGE NAME=OMCSDSIU
APAR ASZ3114                                                            Z3114002
/*PRE ASP0808,ASZ3107                                                   Z3114004
AUDIT ON                                                                Z3114006
F STG1UPRD: 1                                                           Z3114008
F &DESC                                                                 Z3114010
:D1                                                                     Z3114012
:I1                                                                     Z3114014
              (DESC)       + /* RULE DESCRIPTION VARIABLE               Z3114016
F PUTRULE                                                               Z3114018
F DESCRIPTION                                                           Z3114020
:D1                                                                     Z3114022
:I1                                                                     Z3114024
                    ()          +  /* THE RULE DESCRIPTION VARIABLE     Z3114026
F PUTRULE                                                               Z3114028
F &DESC                                                                 Z3114030
:D1                                                                     Z3114032
:I1                                                                     Z3114034
                    (DESC)      +  /* THE RULE DESCRIPTION VARIABLE     Z3114036
F EDIT: 1                                                               Z3114038
F DESCRIPTION                                                           Z3114040
:D1                                                                     Z3114042
:I4                                                                     Z3114044
                              DESCVAR)      /* RULE DESCRIPTION VARIABLEZ3114046
                                                                        Z3114048
         /*---------- RESOLVE THE RULE DESCRIPTION VARIABLE             Z3114050
         SET DESC=&&DESCVAR                                             Z3114052
F EDITPRU: 1                                                            Z3114054
F PUTRULE                                                               Z3114056
F &DESC                                                                 Z3114058
:D1                                                                     Z3114060
:I1                                                                     Z3114062
                 (DESC)      +  /* THE RULE DESCRIPTION VARIABLE        Z3114064
F PUTRULE: 1                                                            Z3114066
F DESCRIPTION                                                           Z3114068
:D1                                                                     Z3114070
:I1                                                                     Z3114072
                              DESCVAR + /* RULE DESCRIPTION VARIABLE    Z3114074
DO 1                                                                    Z3114076
:I3                                                                     Z3114078
                                                                        Z3114080
         /*---------- RESOLVE THE RULE DESCRIPTION VARIABLE             Z3114082
         SET DESC=&&DESCVAR                                             Z3114084
END                                                                     Z3114086