.;  Invoke with two character device name as an arguement.
.ENABLE SUBSTITUTION
.ENABLE SILENT
.IFNDF $P1 ECO Device name missing.
.IFNDF $P1 .GOTO 99
.OPEN '$P1'TMPBLD.CMD
.DATA LB:[1,54]'$P1'DRV/-MM/-HD,,'$P1'DRV=SY:'<UIC>''$P1'DRV
.DATA LB:[1,54]RSX11M.STB/SS
.DATA LB:[1,1]EXELIB/LB
.DATA /
.DATA STACK=0
.DATA PAR=GEN:120000:14000
.DATA /
.CLOSE
.IFDF $P2 .GOTO 99
TKB @'$P1'TMPBLD
.WAIT TKB
DEL '$P1'TMPBLD.CMD
.99: