BEGIN { alias=""; }
/^ alias:/ { gsub("\t",""); split ($0,res,":"); alias=res[2]; }
/^ zone:/ { alias=""; next;}
/^[\t ]+[1256c][0-9a-f]/ { gsub("[ :\t]",""); if ("" != alias) { nwwn=split($0,wwn,";"); for (xxn in wwn) { if ("" != wwn[xxn]) printf "%s,\"%s\"\n", wwn[xxn], alias; }; } }