$JOB/PASS:NEW TJMTJMTJMB ACCUPDATE 1400
$PSC ACCUPDATE,ACCUPDATE/-U=ACCUPDATE
$MCR TKB @ACCUPDATE
$DEL/K ACCUPDATE.*
$DEL   ACCUPDATE.OBJ;*
$MCR PIP [11,1]ACCUPDATE.TSK/PR/WO:RWE
$EOJ