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

COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 1998.

ASZ3020 980529 61VPTC FS OMCSJSF V202 MSGERROR I OMCSJNSG 980601 S__-GSG
MSG ERROR IN SCHEDULE FILE, PRE-REQ JOB jjjjjjjj NOT SCHEDULED.

_PROBLEM DESCRIPTION:

WHEN THE USER CHANGED SCHEDULING RULES TO INCLUDE A PRE-REQ THAT HAD
NOT BEEN SCHEDULED DURING EARLIER SCHEDULE GENERATIONS, THE SCHEDULE
GENERATION FAILED WITH MESSAGE:
ERROR IN SCHEDULE FILE, PRE-REQ JOB ........ NOT SCHEDULED
THE USER HAD CHANGED THE RULES TO ALSO SCHEDULE THE EXECUTION OF THE
PRE-REQ JOB.

_PROBLEM SUMMARY
USERS AFFECTED: JSF USERS WHO CHANGE SCHEDULING RULES TO INCLUDE NEWLY
                SCHEDULED PRE-REQ JOBS.

_PROBLEM CONCLUSION
RECOMMENDATION: APPLY APAR FIX ASZ3020.

SCHEDULE GENERATION CHECKS THAT EACH PRE-REQ IN THE COMBINED OR "NEW"
SCHEDULE HAS BEEN ALSO BEEN SCHEDULED.  THE PROGRAM WAS ONLY CHECKING
IN THE "OLD" OR PRE-EXISTING SCHEDULE AND THUS NOT DETECTING A NEWLY
SCHEDULED PRE-REQ.

PROGRAM OMCSJNSG WILL BE MODIFIED TO CORRECTLY DETECT PREVIOUSLY AND
NEWLY SCHEDULED PRE-REQ JOBS.

_INSTALLATION NOTES:

_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).
++SRCUPD(OMCSJNSG).
./ CHANGE NAME=OMCSJNSG
APAR ASZ3020                                                            Z3020002
/*PRE ASP0736                                                           Z3020003
AUDIT ON                                                                Z3020004
F STG4HO: 1                                                             Z3020006
F DBFIND                                                                Z3020008
:D 8                                                                    Z3020010
:I 16 /*-1----+----2----+----3----+----4----+----5----+----6----+----7  Z3020012
                  /*---------- CHECK OLD SCHEDULE FOR PRE-REQ JOB       Z3020014
                  DBFIND &@AS (&ASPRPVER&ASPRPNAM) + /* FIND ORIGINAL   Z3020016
                              COLS(4,9) FIRST EOF(STG4HOL)              Z3020018
                                                                        Z3020020
STG4HOJ:          SET (&CH(&ASPRDEFS,ASPR,ORIG))=&DBRTXT /* GET FIELDS  Z3020022
                  SET ASPRPNUM=&ORIGPNUM  /* PROCESS NUMBER             Z3020024
                  SET ASPRSTAT=&ORIGSTAT  /* STATUS                     Z3020026
                  SET PREVASPR=&&STR(MAP)(&ASPRFMTL,&ASPRAMPL)          Z3020028
                  GOTO STG4HON                                          Z3020030
                                                                        Z3020032
                  /*---------- CHECK NEW SCHEDULE FOR PRE-REQ JOB       Z3020034
STG4HOL:          DBFIND &@SF (&ASPRPVER&ASPRPNAM) + /* FIND NEW        Z3020036
                              COLS(4,9) FIRST EOF(STG4HOR)              Z3020038
                  GOTO STG4HOJ                                          Z3020040
                                                                        Z3020042
STG4HON:    DBINSR &@CS &PREVASPR      /* WRITE ASPR RECORD OUT         Z3020044
END                                                                     Z3020046