ENQ

1 ENQ  RESOURCE(data-area)
2? LENGTH(data-value)
3! UOW
3?
3 MAXLIFETIME(cvda)
3 TASK
4? NOSUSPEND