; LOOP THROUGH VENDOR AND SET BY NAME
; ---- ENTERS WITH WRITE SUBROUTINE CALL
; ACTIVE FLAG -- 1 OR 0
; ERROR FLAG -- 1 OR 0
; VAR STRING -- E(IN), D(UNS), Z(IP) + 1 FOR HAS, 0 FOR MISSING
V(ACT)
;EP - GATHER VENDORS AND SORTS BY NAME, DUNS, EIN, OR ZIP
; --------ENTERS WITH ACT STRING (ACTIVE, ERROR, SORT NAME)
ADEZ(ACT)
;EP - GATHER ACTIVE VENDORS WITH DUNS, EIN, OR ZIP