MAC SWP=SWP
	.IF <EXSTAT> <> <SUCCES> .EXIT <EXSTAT>

	.OPEN SWPBLD.CMD
	.DATA SWP=SWP
	.DATA /
	.DATA TASK=...SWP
	.DATA UNITS=3
	.DATA ASG=TI:1:2,SY:3
	.DATA //
	.CLOSE

	TKB @SWPBLD
	.IF <EXSTAT> = <SUCCES> PIP SWPBLD.CMD;*,SWP.OBJ;*/DE/NM