PERFORM ENDAFFINITY

1 PERFORM ENDAFFINITY  NETNAME(data-value)
2? NETID(data-value)