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