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