.; Command to do privileged assemblies.
.ENABLE SUBSTITUTION
.ENABLE SILENT
.IFNDF $P1 ECO Module name missing. 
.IFNDF $P1 .GOTO 99
.SETS LIST ""
.SETS SOURCE "SY:'<UIC>''$P1'"
.IFNDF $P2 .GOTO 20
.IF $P2 = "NOLIST" .GOTO 10
.IF $P2 = "LIST" .SETS LIST ",'$P1'"
.IF $P2 = "LIST" .GOTO 10
.SETS LIST ",'$P2'"
.10: .IFDF $P3 .SETS SOURCE $P3
.20:
MAC '$P1''LIST'=LB:[1,1]EXEMC/ML,[200,200]RSXMC/PA:1,'SOURCE'
.WAIT MAC
.99:
