/IF NOT DEFINED(FDXCP)

      /DEFINE FDXCP

     D FDX_verifyAddress...

     D                 PR                  Extproc('FDX_verifyAddress')

     D   Input                             Const Likeds(FDXAV_Input)

     D   Output                                  Likeds(FDXAV_Output)

     D   Error                                   Likeds(RXS_Error)

     D FDXAV_Input     DS                  Qualified Based(dummy@)

     D   AccountNbr                  12A

     D   MeterNbr                    10A

     D   CarrierCode                  4A

     D   MaxMatch                    10I 0

     D   Address

     D     Company                   35A   Overlay(Address)

     D     Line1                     35A   Overlay(Address:*Next)

     D     Line2                     35A   Overlay(Address:*Next)

     D     City                      35A   Overlay(Address:*Next)

     D     State                      2A   Overlay(Address:*Next)

     D     ZipCode                    9A   Overlay(Address:*Next)

     D     UrbName                   35A   Overlay(Address:*Next)

     D FDXAV_Output    DS                  Qualified Based(dummy@)

     D   NbrEntRtn                   10I 0

     D   HErrCode                     8A

     D   HErrMsg                    120A

     D   AddressArray                      Dim(10) Like(Address_t)

     D Address_t       DS                  Qualified Based(dummy@)

     D   Score                       10I 0

     D   Rank                         5A

     D   House                       10A

     D   Company                     35A

     D   Line1                       35A

     D   Line2                       35A

     D   City                        35A

     D   State                        2A

     D   ZipCode                     10A

     D   UrbName                     35A

     D   Residence                   10I 0

     D   SErrType                    16A

     D   SErrCode                     8A

     D   SErrMsg                    255A

      /ENDIF