++PTF(ASP0828) /* ---------------------------------------------
ASP0828 990907 OMCSV2  V201 PM MOVE ABSOLUTE JOB NUMBER TO
                               .JOBDETL MASTER FILE

COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 1999

 APAR Fixes:

ASZ3093 990902 61VNMC AP OMCS/V2 P__  INCORROUT  OMCSXW__
JOB detail sequence errors when two writers serve same database

ASZ3095 990928 61VNAB PM OMCSV2  P780 INCORROUT  OMCSJDSR
When OMCSDBSR is invoked with the JDETDIS operand, Job Detail records
with an index discard date after Y2K are incorrectly deleted.

INSTALLATION NOTES:

    Each job captured by the OMCS writer is assigned an absolute
    job number. This number is used to order the .JOBDETL MASTER file.

    Prior to installing this PTF, the next absolute job number is
    held in the file .JOBSEQ MASTER in the database. After this PTF
    is applied, the next absolute job number is held in the
    .JOBDETL MASTER file.

    Inorder to prevent duplication of absolute job numbers and
    corruption of the .JOBDETL MASTER file, it is essential that
    this code be applied to all systems that share databases at the
    same time.

    Also, as the absolute job number is moved from the .JOBSEQ MASTER
    to the .JOBDETL MASTER file, testing of this PTF should not be
    carried out on production databases. Once a database is updated
    by this PTF, the database will be corrupted if a previous level
    of OMCS is used.  Testing should be done using a test database or
    a copy of a production database.

    If it is necessary to backout this PTF from a production environment
    then the OMCS databases in that environment will have to be
    restored.

    Please contact ASE if you have any questions about this PTF.

       */.
++VER(Z038) FMID(ASEB200) SUP(ASZ3093,ASZ3095)
                          PRE(ASP0757,ASP0748,ASP0780,ASP0776,
                              ASP0735,ASP0754,ASP0781,ASP0784).
++HOLD(ASP0828) FMID(ASEB200) SYSTEM REASON(ACTION)
                COMMENT(REFER TO COVERLETTER FOR INSTALLATION NOTES).
++JCLIN.
//STEP1    EXEC PGM=IEWL,
//            PARM='LIST,MAP,NCAL,REUS'
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSLMOD  DD DSN=ASE.ASELIB,DISP=SHR
//AASELOAD DD DSN=ASE.AASELOAD,DISP=SHR
//SYSLIN   DD *
 INCLUDE AASELOAD(OMCSECLX,OMCSIDEN,OMCSJDFY)
 ORDER OMCSECLX
 ENTRY OMCSECLX
 NAME OMCSJDFY(R)
++MOD(OMCSXWNJ).
++MOD(OMCSXWCJ).
++MOD(OMCSJDET).
++MOD(OMCSJDSR).
++MOD(OMCSJDFY) DISTLIB(AASELOAD) LEPARM(RENT,REUS).
++MOD(OMCSAMFP).
++MOD(OMCSJDMR).
++MOD(OMCSJDFX).
++MOD(OMCSJDF2).
++MOD(OMCSTSDB).
++MOD(OMCSTSSJ).
++MOD(ASESTDPR).
++MOD(OMCSJSQR).
++MOD(OMCSJDSC).
++SRC(OMCSJDFY) DISTLIB(AASEECPS) SYSLIB(ASEECPS) DISTMOD(AASELOAD).
++SRC(OMCSAMFP).
++SRC(OMCSJDMR).
++SRC(OMCSJDFX).
++SRC(OMCSJDF2).
++SRC(OMCSTSDB).
++SRC(OMCSTSSJ).
++SRC(ASESTDPR).
++SRC(OMCSJSQR).
++SRC(OMCSJDSC).
++SAMP(RUNJDFY) DISTLIB(AASESAMP) SYSLIB(ASESAMP).