.proc,utility,ml=871d,list=0/output.
*---
unload(lgo)
*** console/plt ***
modify(z,lo=e)/*oplfile nos,ipl/*edit dd60
compass(a,i,l=list,s=nostext,#ml=ml)
begin(cabs)
*** platlib ***
modify(z,lo=e)/*oplfile nos,ipl/*edit platlib
compass(a,i,l=list,s=nostext,#ml=ml)
rewind(lgo)
attach(platlib/m=w,na)
if(.not.file(platlib,as))define(platlib/ct=pu,m=r)
libgen(p=platlib)
unload(lgo,compile)
unload(platlib)
attach(platlib)
*** dprint ***
modify(z,lo=e)/*oplfile nos,ipl/*edit dprt
ftn(a,i,opt=2,l=list,pl=70000)
library(platlib)
begin(lcp)
*** nprint ***
modify(z,lo=e)/*oplfile nos,ipl/*edit nprt
ftn(a,i,opt=2,l=list,pl=70000)
library(platlib)
begin(lcp)
*** modprt ***
modify(z,lo=e)/*oplfile nos,ipl/*edit modprt
ftn(a,i,opt=2,l=list,pl=70000)
library(platlib)
begin(lcp)
*** plmprt ***
modify(z,lo=e)/*oplfile nos,ipl/*edit plmprt
ftn(a,i,opt=2,l=list,pl=70000)
library(platlib)
begin(lcp)
*** docprt ***
modify(z,lo=e)/*oplfile nos,ipl/*edit docprt
ftn(a,i,opt=2,l=list,pl=70000)
library(platlib)
begin(lcp)
*** netprt ***
modify(z,lo=e)/*oplfile nos,ipl/*edit netprt
ftn(a,i,opt=2,l=list,pl=70000)
library(platlib)
rfl(100000)
.*file(incom,rt=s)
.*ldset(files=incom/tape1)
ldset(lib=srt5lib/bamlib)
ldset(err=all)
ldset(preset=zero)
load(lgo)
nogo(lgob)
rewind(lgob)
copybf(lgob,tbin)
bksp(tbin)
unload(lgo,lgob,compile)
*** tprint ***
modify(z,lo=e)/*oplfile nos,ipl/*edit tprta,tprtb,tprtc
compass(a,i,l=list,s=nostext,#ml=ml)
library(platlib)
begin(lcp)
*** pprint ***
modify(z,lo=e)/*oplfile nos,ipl/*edit pprint
compass(a,i,l=list,s=nostext,#ml=ml)
begin(cabs)
*** pdprt ***
modify(z,lo=e)/*oplfile nos,ipl/*edit pdprt
compass(a,i,l=list,s=nostext,#ml=ml)
library(platlib)
begin(lcp)
*** aprt ***
modify(z,lo=e)/*oplfile nos,ipl/*edit aprt
ftn(a,i,opt=2,l=list,pl=100000)
library(platlib)
begin(lcp)
*** efrdmp ***
modify(z,lo=e)/*oplfile nos,ipl/*edit efrdmp
compass(a,i,l=list,s=nostext,#ml=ml)
begin(cabs)
*** abs/esm,pp/esm ***
modify(z,lo=e)/*oplfile nos,ipl/*edit esmcp,esmpp
compass(a,i,l=list,s=nostext,#ml=ml)
begin(cabs)
*** pf / pcode / ppack ***
modify(z,lo=e)/*oplfile nos,ipl/*edit pf,pcode,ppack
.*
.*  following is *cstc* instead of *compass* to get around
.*  error which creates *errs* when there are no errors.
.*
cstc(a,i,l=list,s=nostext,c=0,#ml=ml)
begin(cabs)
*** submitm / masjob ***
modify(z,lo=e)/*oplfile nos,ipl/*edit submitm,masjob
compass(a,i,l=list,s=nostext,#ml=ml)
begin(cabs)
*** tform ***
modify(z,lo=e)/*oplfile nos,ipl/*edit tform
compass(a,i,l=list,s=nostext,#ml=ml)
begin(cabs)
*** emdmp/emprt/memprt ***
modify(z,lo=e)/*oplfile nos,ipl/*edit memprt,emdmp,cmdmp
compass(a,i,l=list,s=nostext,#ml=ml)
begin(cabs)
*** wait ***
modify(z,lo=e)/*oplfile nos,ipl/*edit waitx
compass(a,i,l=list,s=nostext,#ml=ml)
begin(cabs)
*** mfutil ***
modify(z,lo=e)/*oplfile nos,ipl/*edit mfutil
.*
.*  following is *cstc* instead of *compass* to get around
.*  error which creates *errs* when there are no errors.
.*
cstc(a,i,l=list,s=nostext,c=0,#ml=ml)
begin(cabs)
*** ecstst / ddpt ***
modify(z,lo=e)/*oplfile nos,ipl/*edit ecstst,ddpt
compass(a,i,l=list,s=nostext,#ml=ml)
begin(cabs)
*** backlib ***
modify(z,lo=e)/*oplfile nos,ipl/*edit backlib
compass(a,i,l=list,s=nostext,#ml=ml)
library(platlib)
begin(lc)
*** backlst ***
modify(z,lo=e)/*oplfile nos,ipl/*edit backlst
compass(a,i,l=list,s=nostext,#ml=ml)
library(platlib)
begin(lc)
*** copypf ***
modify(z,lo=e)/*oplfile nos,ipl/*edit copypf
compass(a,i,l=list,s=nostext,#ml=ml)
library(platlib)
begin(lc)
*** copymf ***
modify(z,lo=e)/*oplfile nos,ipl/*edit copymf
cstc(a,i,l=list,s=nostext,#ml=ml)
begin(cabs)
*** backone ***
modify(z,lo=e)/*oplfile nos,ipl/*edit backone
compass(a,i,l=list,s=nostext,#ml=ml)
library(platlib)
begin(lc)
*** backtwo ***
modify(z,lo=e)/*oplfile nos,ipl/*edit backtwo
compass(a,i,l=list,s=nostext,#ml=ml)
library(platlib)
begin(lc)
*** backcpy ***
modify(z,lo=e)/*oplfile nos,ipl/*edit backcpy
compass(a,i,l=list,s=nostext,#ml=ml)
library(platlib)
begin(lc)
*** backmod ***
modify(z,lo=e)/*oplfile nos,ipl/*edit backmod
compass(a,i,l=list,s=nostext,#ml=ml)
library(platlib)
begin(lc)
*** reqpack/spf ***
modify(z,lo=e)/*oplfile nos,ipl/*edit reqpack,spf
compass(a,i,l=list,s=nostext,#ml=ml)
begin(cabs)
*** rafpbc ***
modify(z,lo=e)/*oplfile nos,ipl/*edit rafpbc
ftn(a,i,opt=2,l=list,pl=777777)
begin(lc)
*** rafpdd ***
modify(z,lo=e)/*oplfile nos,ipl/*edit rafpdd
ftn(a,i,l=list,pl=777777)
begin(lc)
*** asm1 ***
modify(z,lo=e)/*oplfile nos,ipl/*edit asm1
ftn(a,i,opt=2,l=list,pl=777777)
begin(lc)
*** uurbc ***
modify(z,lo=e)/*oplfile nos,ipl/*edit uurbc
ftn(a,i,opt=2,l=list,pl=777777)
begin(lc)
*** lurbc ***
modify(z,lo=e)/*oplfile nos,ipl/*edit lurbc
ftn(a,i,opt=2,l=list,pl=777777)
begin(lc)
*** portx ***
modify(z,lo=e)/*oplfile nos,ipl/*edit portx
ftn(a,i,opt=2,l=list,pl=777777)
begin(lc)
*** datescn ***
modify(z,lo=e)/*oplfile nos,ipl/*edit datescn
ftn(a,i,opt=2,l=list,pl=777777)
begin(lc)
*** royalty ***
modify(z,lo=e)/*oplfile nos,ipl/*edit royalty
ftn(a,i,opt=2,l=list,pl=777777)
begin(lc)
.**** porafm ***
modify(z,lo=e)/*oplfile nos,ipl/*edit porafm
pascal(i,l=list,pl=0/u+)
begin(lc)
*** npudmp/npudpp/npd ***
modify(z,lo=e)/*oplfile nos,ipl/*edit npudmp,npudpp,npd
compass(a,i,l=list,s=nostext,#ml=ml)
begin(cabs)
*** abs/rmfconv ***
modify(z,lo=e)/*oplfile nos,ipl/*edit rmfconv
compass(a,i,l=list,s=nostext,#ml=ml)
begin(cabs)
*---
.*
.*        the following utilities are only used  by
.*        dev systems running corporate nos.
.*
ife((r1g.and.200000b).eq.200000b,devutil)
*---
*** refprt / comprt ***
modify(z,lo=e,c=prta)/*oplfile nos/*edit refprt
modify(z,lo=e,c=prtb)/*oplfile nos/*edit comprt
modify(z,lo=e,c=prtx)/*oplfile nos/*edit gprtx
library(platlib)
ftn(i=prtx,b=misc,l=list,pl=7777777)
*       
ftn(i=prta,l=list,pl=777777)
load(lgo,misc)
nogo(lgob)
rewind(lgob)
copybf(lgob,tbin)
bksp(tbin)
unload(lgo,lgob,prta)
*       
ftn(i=prtb,l=list,pl=777777)
load(lgo,misc)
nogo(lgob)
rewind(lgob)
copybf(lgob,tbin)
bksp(tbin)
unload(lgo,lgob,prtb)
unload(prtx,misc)
*---
*** pmod ***
modify(z,lo=e)/*oplfile nos,ipl/*edit pmod
compass(a,i,l=list,s=nostext,#ml=ml)
begin(cabs)
*---
*** scm ***
modify(z,lo=e)/*oplfile nos,ipl/*edit scm
ftn(a,i,opt=2,l=list)
begin(lcp)
*** modfrm ***
modify(z,lo=e)/*oplfile nos,ipl/*edit modfrm
compass(a,i,l=list,s=systext,#ml=ml)
library.
ldset(err=all)
ldset(lib=srt5lib/bamlib)
ldset(preset=zero)
load(lgo)
nogo(lgob)
rewind(lgob)
copybf(lgob,tbin)
bksp(tbin)
unload(lgo,lgob,compile)
*** pptldr ***
modify(z,lo=e)/*oplfile nos,ipl/*edit pptldr
compass(a,i,l=list,s=nostext,#ml=ml)
begin(cabs)
*** rafpp ***
modify(z,lo=e)/*oplfile nos,ipl/*edit rafpp
ftn(a,i,opt=2,l=list,pl=777777)
begin(lc)
*** prpt ***
modify(z,lo=e)/*oplfile nos,ipl/*edit prpt
ftn(a,i,opt=2,l=list,pl=777777)
begin(lc)
*** bcuse ***
modify(z,lo=e)/*oplfile nos,ipl/*edit bcuse
ftn(a,i,opt=2,l=list,pl=777777)
begin(lc)
*** hqdata ***
modify(z,lo=e)/*oplfile nos,ipl/*edit hqdata
ftn(a,i,opt=2,l=list,pl=777777)
begin(lc)
*** acpage ***
modify(z,lo=e)/*oplfile nos,ipl/*edit acpage
ftn(a,i,opt=2,l=list,pl=777777)
begin(lc)
*** rafrp ***
modify(z,lo=e)/*oplfile nos,ipl/*edit rafrp
ftn(a,i,opt=2,l=list,pl=777777)
begin(lc)
*---
*** itcopy ***
modify(z,lo=e)/*oplfile nos,ipl/*edit itcopy
compass(a,i,l=list,s=nostext,#ml=ml)
begin(cabs)
.*
endif(devutil)
*
*         save binaries on *ubin*
*
rewind(tbin)
purge(ubin/na)
define(ubin/ct=pu,m=r)
copy(tbin,ubin)
catalog(ubin,r,n)
unload(lgo,compile)
unload(ubin)
.*
revert. utility
~