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