.ENABLE SUBSTITUTION
.IF P2 <> "" .GOTO 2
F77 'P1'='P1'
.IF <EXSTAT> NE 1 .GOTO 1
.2:
.OPEN #1 TMP.CMD;1
.DATA #1 'P1'/fp='P1',ACCSUB
.DATA #1 /
.DATA #1 LIBR=F77RES:RO
.DATA #1 //
.CLOSE #1
TKB @TMP
PIP TMP.CMD;*,'P1'.OBJ;*/DE
.1:
PIP 'P1'.*/PU
BEL
