RLOCK('0',myWorkArea) .... UNLOCK RECORD 0 IN (myWorkArea)
FLOCK(myWorkArea) .... UNLOCK RECORD 0 IN (myWorkArea)