23
Proc code
n
<DETAIL>
n
activate "PUBLICATIONS".TITLEINFO("PUB.MODEL", TITLE.PUB,
PUBCOUNT.STATUS)
n
PUBSTATUS.STATUS = $status
n
if ( $procerror < 0 )
n
putmess $procerrorcontext
n
endif
n