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

COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 1999.

ASZ3068 990324 61VASE PS OMCSV2  V201 SUGG OK    OMCSDSIU 991203 O__-PJS
support S line command when selecting from DI rule list.

_PROBLEM DESCRIPTION:
support S line command when selecting from DI rule list.

_PROBLEM SUMMARY:
USERS AFFECTED: IRM users

On a DI rule selection list only a U line command is currently supported
for selecting a rule for update.

_PROBLEM CONCLUSION
RECOMMENDATION: Apply APAR fix ASZ3068

OMCSDSIU will be modified to support the S line command as a synonym for
the U line command.

_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,ASZ3114).
++SRCUPD(OMCSDSIU).
./ CHANGE NAME=OMCSDSIU
APAR ASZ3068                                                            Z3068002
/*PRE ASP0808,ASZ3107,ASZ3114                                           Z3068004
AUDIT ON                                                                Z3068006
F STG1DD: 1                                                             Z3068008
F 'U,D,R'                                                               Z3068010
:D1                                                                     Z3068012
:I1                                                                     Z3068014
                     LC(S,U,D,R) +     /* SELECT/UPDATE/DELETE/RUN RULE Z3068016
F STG1DF: 1                                                             Z3068018
F 'U,D,R'                                                               Z3068020
:D2                                                                     Z3068022
:I2                                                                     Z3068024
            IF &STG1LCV=(S,U,D,R)         /* DEPENDING UPON THE VERB... Z3068026
            GOTO (STG1LS,STG1LU,STG1LD,STG1LR) /* ...GOTO CORRECT CODE->Z3068028
F STG1LU: 1                                                             Z3068030
:I1                                                                     Z3068032
STG1LS:                                                                 Z3068034
END                                                                     Z3068036