SET 0DX .XML PURGE =
PASS <key> FIELD SHARE? N
SUBR 0DX .XML PURGE DETACHED END? N FAIL 0
* Check for errors
IF 0DX .XML PURGE NE
Copyright © by the contributing authors. All material on this collaboration platform is the property of the contributing authors.