Retrieve Address and contact info of a vendor

static void Sa_contactInformation(Args _args)
{
   VendTable                      vendTable;
   AccountNum                   accountNum;
   LogisticsLocation            location,location1; // need 2 buffers to get address and  contact information
   DirPartyTable                dirPartyTable1;
   LogisticsElectronicAddress   ElectronicAddres;
   DirPartyLocation             dirPartyLocation;
   LogisticsPostalAddress       PostalAddress;

 select vendTable where vendTable.AccountNum == "US_TX_003"
                                join  dirPartyTable1     where vendTable.Party          == dirPartyTable1.RecId
                                join  dirPartyLocation   where dirPartyLocation.Party   == dirPartyTable1.RecId
                                join  location           where location.RecId           == dirPartyLocation.Location
                                join  ElectronicAddres   where ElectronicAddres.Location==location.RecId
                                join  location1          where  location1.RecId         == dirPartyTable1.PrimaryAddressLocation
                                join  PostalAddress      where  PostalAddress.Location  ==location1.RecId;
 

        info(strFmt("%1 ,%2 ,%3, %4, %5",ElectronicAddres.Locator,"  ",vendTable.AccountNum,"  ",PostalAddress.Address));
     

}