EXTRACT LOGONMSG

1 EXTRACT LOGONMSG
2 INTO(data-area)
2 SET(ptr-ref)
3 LENGTH(data-area)