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

COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2000.

ASZ3139 000301 61VASE PS OMCSV2  P828 MSG        ASESTDPR 000301 S__-PJS
OMCEC046I 00 ? LINE# 3158 &A4(...) NON-DECIMAL TERM IN ARGUMENT LIST
occurs after invoking the $UPDSPN procedure.

_PROBLEM DESCRIPTION:
The following error may occur after invoking the $UPDSPN procedure.
summary.
00.3158             SET REC=&A4(&X1,&LOW,&HIGH)    /* REBUILD RECORD
00.3158             SET REC=
OMCEC046I 00 ?        LINE# 3158 &A4(...) NON-DECIMAL TERM IN ARGUMENT L
01.0479          $UPDSPN &JSDAYS &AJN +   /* update .jobdetl datespan
                         RETURNS(RC LMSG)
01.0479          $UPDSPN 7128 3 RETURNS(RC LMSG)
OMCEC046I 01 $AVRSANL LINE# 0479 ERROR IN PROC

_PROBLEM SUMMARY:
USERS AFFECTED: users of $UPDSPN procedure

The variable &X1 was used in the offending statement instead of the
correct &DAY from the first parameter.  Existing programs invoking
$UPDSPN work because they set &X1 to the same value passed to $UPDSPN as
the first parameter.

_PROBLEM CONCLUSION
RECOMMENDATION: Apply APAR fix ASZ3139

ASESTDPR will be modified to use &DAY instead of &X1 in the $UPDSPN
procedure.

_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(ASP0849,ASZ3135).
++SRCUPD(ASESTDPR).
./ CHANGE NAME=ASESTDPR
APAR ASZ3139                                                            Z3139002
/*PRE ASP0849,ASZ3135                                                   Z3139004
AUDIT ON                                                                Z3139006
F $UPDSPN: 1                                                            Z3139008
F &X1                                                                   Z3139010
C &X1 &DAY                                                              Z3139012
END                                                                     Z3139014