.enable substitution
.enable global
.sets cli <cli>
.if cli ne "DCL" set /dcl=ti:
.sets uic <uic>
.parse uic "," group prog
.ask $yn Do you want to link in the debugger
ass sy: in:
ass sy: ou:
ass sy: li:
ass sy: mp:
.sets file p1
.test p1
.if <strlen> ne 0 .goto 100$
.asks file What is the file name
.if <strlen> eq 0 .goto exit
.100$:
.open macr.cmd
.data ou:'group',24]'file',li:'group',34]'file'/sp= -
.data	lb:[1,1]EXEMC/ML,[11,10]RSXMC/PA:1,IN:'group',14]F11PRE/PA:1,'file'
.close
del ou:'group',24]'file'.obj;*,li:'group',34]'file'.lst;*
macro @macr
.if <exstat> ne 1 .goto exit
libr/replace ou:'group',24]ods ou:'group',24]'file'
delete macr.cmd;*
.test p2
.if <strlen> ne 0 .goto exit
mcr dmo du:/dev
mcr rem odsacp
del lb:[1,54]odsacp.tsk;*,mp:'group',34]*.map;*
@buildit
mcr ins $odsacp
.exit:
