$JOB/PASS:NEW TJMTJMTJMB READUPF 1400
$PSC READUPF,READUPF/-U=READUPF
$LINK  READUPF,[1,1]PASLIB/LIB
$DEL/K READUPF.*
$DEL   READUPF.OBJ;*
$REN   READUPF.TSK [11,1]READUPF.TSK
$EOJ