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

COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 1999.

ASZ3118 991216 61VPTC FS ASED200 V201 INCORROUT  OMCSJNSG 991217 O___PJS
when using FROM and/or TO dates in schedule rules, jobs may be scheduled
(or not scheduled) unexpectedly.

_PROBLEM DESCRIPTION:
When using FROM and/or TO dates in schedule rules, jobs may be scheduled
(or not scheduled) unexpectedly.

_PROBLEM SUMMARY:
USERS AFFECTED: JSF users

Schedule rule "from" and "to" dates are in YYMMDD format.  Windowing was
not being used when comparing these dates with the current date.
Incorrect scheduling of jobs occurred when dates spanned the Y2K
boundary.

_PROBLEM CONCLUSION
RECOMMENDATION: Apply APAR fix ASZ3118

OMCSJNSG will be modified to apply a windowing technique when using the
schedule rule "from" and "to" dates.  Dates from 800101 to 991231 will
be interpreted as 19800101 to 19991231.  Dates from 000101 to 791231
will be interpreted as 20000101 to 20791231.

_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(ASED200) PRE(ASP0736,ASZ3020).
++SRCUPD(OMCSJNSG).
./ CHANGE NAME=OMCSJNSG
APAR ASZ3118                                                            Z3118002
/*PRE ASP0736,ASZ3020                                                   Z3118004
AUDIT ON                                                                Z3118006
F STG2B: 1                                                              Z3118008
F SGRJREC#                                                              Z3118010
:I6  /*--1----+----2----+----3----+----4----+---5                       Z3118012
         IF &TERM(&SRFRFRDT)<>              /* WHEN FROM DATE IS SET... Z3118014
            IF# &SS(&SRFRFRDT,1,2)<(80,100) /* ...ADD THE CENTURY       Z3118016
            SET SRFRFRDT=(20&SRFRFRDT,19&SRFRFRDT)                      Z3118018
         IF &TERM(&SRFRTODT)<>              /* WHEN TO DATE IS SET...   Z3118020
            IF# &SS(&SRFRTODT,1,2)<(80,100) /* ...ADD THE CENTURY       Z3118022
            SET SRFRTODT=(20&SRFRTODT,19&SRFRTODT)                      Z3118024
F 'CHECK TARGET'                                                        Z3118026
DO 1                                                                    Z3118028
:D6                                                                     Z3118030
:I6  /*--1----+----2----+----3----+----4----+---5                       Z3118032
         IF &TERM(&SRFRFRDT)<>              /* IF THERE'S A START...    Z3118034
            IF &SRFRFRDT>&NDAT              /* IF START > TARGET...     Z3118036
               GOTO STG2B                   /* ...IGNORE THIS REC->     Z3118038
         IF &TERM(&SRFRTODT)<>              /* IF THERE IS AN END...    Z3118040
            IF &SRFRTODT<&NDAT              /* IF END < TARGET...       Z3118042
               GOTO STG2B                   /* ...IGNORE THIS REC->     Z3118044
END                                                                     Z3118046