++PTF(ASP0829).  /* --------------------------------------------------
ASP0829 990930 ASEC200 V201 PS Implement batch selective bundle reprint.

COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 1999

_APARLIST:

ASZ3087 990729 61VASE PS OMCSIRM V201 INCORROUT  OMCSIRB. 990729 S__-PJS
when using PCTL function of "advanced" PSP, parameters may be
incorrect. (ASEC250)

       */
++VER(Z038) FMID(ASEC200) PRE(ASP0562,ASP0744) SUP(ASZ3087).
++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,OMCSIRSR)
 ORDER OMCSECLX
 ENTRY OMCSECLX
 NAME OMCSIRSR(R)
/*
++SRC(OMCSIRBM).
++SRC(OMCSIRBT).
++SRC(OMCSIRSR) DISTLIB(AASEECPS) SYSLIB(ASEECPS) DISTMOD(AASELOAD).
++MOD(OMCSIRBM).
++MOD(OMCSIRBT).
++MOD(OMCSIRSR) DISTLIB(AASELOAD) LEPARM(RENT,REUS).
++SAMP(RUNIRSR) DISTLIB(AASESAMP) SYSLIB(ASESAMP).