WEB READ FORMFIELD

1 WEB  READ  FORMFIELD(data-area)
2? NAMELENGTH(data-value)
3 VALUE(data-area)
3 SET(ptr-ref)
4 VALUELENGTH(data-area)
5? 
5 CLNTCODEPAGE(data-value)  HOSTCODEPAGE(data-value)