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.