PROCEDURE CGWASCNV()
SELECT 0
USE CGW0OM
SET FILTER TO !EMPTY(ALTSHPNAME)  .OR.    ;
              !EMPTY(ALTSHPADDR)  .OR.    ;
              !EMPTY(ALTSHPADD2)  .OR.    ;
              !EMPTY(ALTSHPADD3)  .OR.    ;
              !EMPTY(ALTSHPCITY)  .OR.    ;
              !EMPTY(ALTSHPSTATE) .OR.    ;
              !EMPTY(ALTSHPZIP)   .OR.    ;
              !EMPTY(ASNAMESCRN)   .OR.    ;
              !EMPTY(ASADDRSCRN)   .OR.    ;
              !EMPTY(ASADD2SCRN)   .OR.    ;
              !EMPTY(ASADD3SCRN)   .OR.    ;
              !EMPTY(ASCITYSCRN)   .OR.    ;
              !EMPTY(ASSTATSCRN)   .OR.    ;
              !EMPTY(ASZIPSCRN)    .OR.    ;
              !EMPTY(ASNAMESTRM)   .OR.    ;
              !EMPTY(ASADDRSTRM)   .OR.    ;
              !EMPTY(ASADD2STRM)   .OR.    ;
              !EMPTY(ASADD3STRM)   .OR.    ;
              !EMPTY(ASCITYSTRM)   .OR.    ;
              !EMPTY(ASSTATSTRM)   .OR.    ;
              !EMPTY(ASZIPSTRM)

GO TOP
COPY TO ALTSHIP
RETURN