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

COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2001.

ASZ3229 010829 61VASE PS ASEB200 V210 INCORROUT  ASMPEDIT 010829 O__-PJS
when source has commented SET @SYSMOD=... statements and /* is not in
column one, the @SYSMOD update is performed incorrectly.

_PROBLEM DESCRIPTION:
When the source has commented SET @SYSMOD=... statements and the /* is
not in column one, ASMPEDIT does not recognise them as comments.
Consequently it updates the wrong SET @SYSMOD statement.

_PROBLEM SUMMARY:
USERS AFFECTED: installing some source update APAR fixes

ASMPEDIT looks for the last SET @SYSMOD statement and updates it with
the APAR fix name that is being applied.  While doing the search it is
intended that ASMPEDIT ignore commented statements.  However, it only
recognised comments when the /* was in column one.  It failed to
recognise a comment when the /* was in any other column.

_PROBLEM CONCLUSION
RECOMMENDATION: Apply APAR fix ASZ3229.

ASMPEDIT will be modified to recognise comments while searching for
SET @SYSMOD statements when the /* appears in columns other than one.

NEED FURTHER HELP?  CALL ASE FOR ASSISTANCE or email help@ase.com.au

       */
++VER(Z038) FMID(ASEB200) PRE(ASP0848).
++HOLD(ASZ3229) FMID(ASEB200) SYSTEM REASON(DOC)
      COMMENT(After ASZ3229 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 ASZ3229                                                            Z3229002
/*PRE ASP0848                                                           Z3229004
AUDIT ON                                                                Z3229006
F STG2PEND: 1                                                           Z3229008
F DBFIND                                                                Z3229010
:D 1                                                                    Z3229012
:I4  /*--1----+----2----+----3----+----4----+----5                      Z3229014
            DBTOP &@WF                                                  Z3229016
STG2PENB:   DBFIND &@WF (SET &SMD=) EOF(STG2PENF)                       Z3229018
            IF &TERM(&DBRTXT)=&STR(/)* /* IGNORE COMMENTS               Z3229020
               GOTO STG2PENB                                            Z3229022
END                                                                     Z3229024