.proc,mastor,ml=871,list=0/full.
*---
unload(mast,mastn,ppus)
modify(z,lo=e)/*oplfile nos,ipl/*read edit1
unload(edit1)
compass(a,i,#ml=ml,l=list,s=nostext,b=mast)
modify(z,lo=e)/*oplfile nos,ipl/*read edit2
unload(edit2)
compass(a,i,l=list,#ml=ml,s=nostext,b=mastn)
modify(z,lo=e)/*oplfile nos,ipl/*read edit3
unload(edit3)
compass(a,i,#ml=ml_d,l=list,s=nostext,b=ppus)
*---
rfl,60000.
begin(ulib,,mast,ulibm,mastor)
begin(ulib,,mastn,ulibmn,mastorn)
purge(mbin/na)
define(mbin/ct=pu,m=r)
rewind,mast,mastn,ppus.
copybf(mast,mbin)
bksp(mbin)
copybf(mastn,mbin)
bksp(mbin)
copybf(ppus,mbin)
catalog(mbin,r,n,u)
.*
unload(mbin,mast,mastn,ppus)
.*
revert. mastor
*---
.data,edit1.
*edit     mastor
*edit     mastor1
*edit     mastor2
*edit     mastor3
*edit     mastr3b
*edit     mastor4
.data,edit2.
*edit     mastorn
.data,edit3.
*edit     pms
*edit     proute
*edit     mrq,mrq1
*edit     mas
*edit     mxx
*edit     epe
~
.proc,ppus,ml=871d,list=0/output.
*---
unload(lgo)
rfl(60000)
modify(z,lo=e)/*oplfile nos,ipl/*read edit1
compass(a,i,l=list,s=nostext,#ml=ml)
.*
.*        only dev system gets some utilities
.*
.*ife((r1g.and.200000b)=200000b,dev)
modify(z,lo=e)/*oplfile nos,ipl/*read edit2
compass(a,i,l=list,s=nostext,#ml=ml)
.*endif(dev)
.*
modify(z,lo=e)/*oplfile nos,ipl/*read edit3
compass(a,i,l=list,s=nostext,#ml=ml)
*---
rewind(lgo)
purge(ppubin/na)
define(ppubin/ct=pu,m=r)
copybf(lgo,ppubin)
catalog(ppubin,r,n)
revert. ppus
*---
.data,edit1.
*edit     pio
*edit     net
*edit     pna
.data,edit2.
*edit     spy
.data,edit3.
*edit     dsn,dsn1
~