Jason Soltys
29 lines
998 B
Plaintext
29 lines
998 B
Plaintext
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
|
|
|