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