REP 9/17 ;14C1 MOVE S1,P1 ;GET OBJECT ADDRESS IN S1 PUSHJ P,A$OBST ;UPDATE THE OBJECT STATUS WIT ;**;[1244]Delete 2 lines at SETMSG:+1L JCR 5/12/86 SUM 93119