f77 BLDPUR,BLDPUR/-SP=BLDPUR
.IF <EXSTAT> NE 1	.EXIT
PIP BLDPUR.TSK;*,.MAP;*/DE/NM
.IF <EXSTAT> NE 1	.EXIT
TKB @BLDPURBLD