$JOB/PASS:NEW TJMTJMTJMB READDIR 1400
$MCR MAC GETSIZ=GETSIZ
$MCR MAC GETSZ2=GETSZ2
$PSC READDIR,READDIR/-U=READDIR
$MCR TKB @READDIR
$DEL/K READDIR.*,GETSIZ.*,GETSZ2.*
$DEL   READDIR.OBJ;*,GETSIZ.OBJ;*,GETSZ2.OBJ;*
$EOJ