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

COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 1999.

ASZ3108 991108 61VASE PS OMCSIRM V201 INCORROUT  OMCSIRLO 991108 O___PJS
changes for compatibility with ECL V3

_PROBLEM DESCRIPTION:
Program does not function correctly under ECL V3.

_PROBLEM SUMMARY:
USERS AFFECTED: ECL V3 users

Program does not function correctly under ECL V3.

_PROBLEM CONCLUSION
RECOMMENDATION: Apply APAR fix ASZ3108

OMCSDSIR will be modified to function correctly under both ECL V2 and V3

_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(ASP0738).
++SRCUPD(OMCSIRLO).
./ CHANGE NAME=OMCSIRLO
APAR ASZ3108                                                            Z3108002
/*PRE ASP0738                                                           Z3108004
AUDIT ON                                                                Z3108006
F @AL                                                                   Z3108008
C @AL @AL=                                                              Z3108010
F TRIMD: 1                                                              Z3108012
:D1                                                                     Z3108014
:I4                                                                     Z3108016
TRIMD:   IF# &DFCBLKAC>&MINBLKS                                         Z3108018
            DBSKIP &@AL                                                 Z3108020
            DBDELR &@AL                                                 Z3108022
            GOTO TRIMD                                                  Z3108024
END                                                                     Z3108026