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

COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 1999.

ASZ2609 950920 61VASE FS OMCSV2  V201 INCORROUT  ASMPEDIT 990803 S__-PJS
when the END statement is missing from a source update, the changes are
applied but the APAR number is not added to @SYSMOD.

_PROBLEM DESCRIPTION:
when the END statement is missing from a source update, the changes are
applied but the APAR number is not added to @SYSMOD.

_PROBLEM SUMMARY:
USERS AFFECTED: OMCS Users applying SRCUPD APARFIXES.

Updating the @SYSMOD lines in a source unit is triggerred by the
presence of an END statement in the source update.

_PROBLEM CONCLUSION
RECOMMENDATION: Apply APAR fix ASZ2609

ASMPEDIT will be modified to simulate the presence of an END statement
when end-of-file is reached on the source update control file.

_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(ASP0760).
++HOLD(ASZ2609) FMID(ASEB200) SYSTEM REASON(DOC)
      COMMENT(After ASZ2609 is applied you must copy program ASMPEDIT
      from the target load library to the load library specified on the
      STEPLIB used in your SMP/E JCL, or to the OMCS LOAD LIBRARY in
      your MVS LINK LIST and do a link list refresh. This is necessary
      to ensure that the updated copy of ASMPEDIT is available to
      SMP/E).
++SRCUPD(ASMPEDIT).
./ CHANGE NAME=ASMPEDIT
APAR ASZ2609                                                            Z2609002
/*PRE ASP0760                                                           Z2609004
AUDIT ON                                                                Z2609006
F STG2D: 1                                                              Z2609008
DO 1                                                                    Z2609010
:I2  /*--1----+----2----+----3----+                                     Z2609012
            IF &APAR<>            /* IF APAR NUM IS STILL SET...        Z2609014
               GOTO STG2PEND      /* ...SIMULATE END STMT->             Z2609016
END                                                                     Z2609018