++PTF(ASP0861).  /*---------------------------------------------------
ASP0861 000330 ASEC200 V201 PS new program to manipulate bundle history

COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2000

       */
++VER(Z038) FMID(ASEC200).
++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,OMCSIRBH)
 ORDER OMCSECLX
 ENTRY OMCSECLX
 NAME OMCSIRBH(R)
/*
++SRC(OMCSIRBH) DISTLIB(AASEECPS) SYSLIB(ASEECPS) DISTMOD(AASELOAD).
++MOD(OMCSIRBH) DISTLIB(AASELOAD) LEPARM(RENT,REUS).