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

COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 1999.

ASZ2581 950622 61VTEL PS OMCSIRM V201 INCORROUT  OMCSDSIU 991203 O__-PJS
The LIST primary command of the dataset identification rule editor is
not accessible under ISPF as it is an ISPF command.

_PROBLEM DESCRIPTION:
The LIST primary command of the dataset identification rule editor is
not accessible under ISPF as it is an ISPF command.

_PROBLEM SUMMARY:
USERS AFFECTED: IRM users

OMCSDSIU never sees a LIST primary command as it is intercepted by ISPF.

_PROBLEM CONCLUSION
RECOMMENDATION: Apply APAR fix ASZ2581

OMCSDSIU will be modified to accept the LST primary command as a synonym
for LIST.

_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,ASZ3068,ASZ3107,ASZ3114).
++SRCUPD(OMCSDSIU).
./ CHANGE NAME=OMCSDSIU
APAR ASZ2581                                                            Z2581002
/*PRE ASP0808,ASZ3068,ASZ3107,ASZ3114                                   Z2581004
AUDIT ON                                                                Z2581006
F EDITDD: 1                                                             Z2581008
F LIST                                                                  Z2581010
:D2                                                                     Z2581012
:I2                                                                     Z2581014
                        LIST,LST,+          /* SET LIST OPTION          Z2581016
                        NOLIST,NOLST,+      /* RESET ...                Z2581018
F EDITDFF: 1                                                            Z2581020
F LIST                                                                  Z2581022
:D2                                                                     Z2581024
:I2                                                                     Z2581026
                        LIST,LST,+        /* SET LIST OPTION            Z2581028
                        NOLIST,NOLST,+    /* RESET ...                  Z2581030
F EDITPL                                                                Z2581032
:D2                                                                     Z2581034
:I2                                                                     Z2581036
                  EDITPL,EDITPL,+         /* SET LIST OPTION            Z2581038
                  EDITPNL,EDITPNL,+       /* RESET ...                  Z2581040
END                                                                     Z2581042