Shell Programming and Scripting

awk '{gsub(/></,">\n<")}1' 2site.xml|awk -F ">|<" '           # the first awk split each record, you can run it directly to understand it:  awk '{gsub(/></,">\n<")}1' 2site.xml
/<TCRMService>/{printf "\n"}               # each record by each line.
/requestID/||/ResultCode/||/SitePartyId/||/AddressUsageType/||/TransportZoneType/ {printf $3","}                     # take the value that you ask for, if you need more, you can add by yourself.
END{printf "\n"}'|cut -d, -f2-               # remove the first value "SUCCESS"

$
$
$ wc 2site.xml
    2    95 19038 2site.xml
$
$
$ perl -lne 'while (/<(requestID|ResultCode|SitePartyId|AddressUsageType|TransportZoneType)>(.*?)<\//g){$x .= "$2,"}
             $x=~s/^.*?,(.*),/$1/; print $x; $x=""' 2site.xml
1532890,SUCCESS,S0000009Y5,1001400,1000278,1001100,1000278
1532909,SUCCESS,S000010U81,1001100,1000278,1001400,1000278
$
$
$