++PTF(ASP0817) REWORK(2001030) /*------------------------------------
ASP0817 990222 ASEB200 P684 GG support new dbvr msgs after asp0911

COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2002

_APARLIST:

ASZ3058 990222 61VTEL BN OMCSV2  P684 MSGOMCVR21 OMCSDBVS 990225
OMCVR210I OMCSDBVS UNSUPPORTED OMCSDBVR MESSAGE ABOVE after ASP0804

ASZ3246 011223 61vtel BN ASEB200 P911 CONDCODE8  OMCSDBVS ...... o__-GSG
OMCVR210I OMCSDBVS UNSUPPORTED OMCSDBVR MESSAGE ABOVE after ASP0911

_OPERATIONAL NOTES:

1.  After ASP0911, program OMCSDBVR can generate several new messages.
    This PTF enhances program OMCSDBVS to correctly identify and process
    these new messages.

       */.
++VER(Z038) FMID(ASEB200) SUP(ASP0684,ASZ3058,ASZ3246).
++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,OMCSDBVS)
 ORDER OMCSECLX
 ENTRY OMCSECLX
 NAME OMCSDBVS(R)
++SRC(OMCSDBVS) DISTLIB(AASEECPS) SYSLIB(ASEECPS) DISTMOD(AASELOAD).
++MOD(OMCSDBVS) DISTLIB(AASELOAD) LEPARM(RENT,REUS).
++SAMP(RUNDBVS) DISTLIB(AASESAMP) SYSLIB(ASESAMP).