format a US zip code

converts a zip code of format (xxxxxxxxx) to (xxxxx-xxxx)

char* function_ZIP_FMT(char* sZipFMTtmp)
{
//char* sZipFMTtmp;
char* sZipFMTtmp1;
char* sZipFMTtmp2;
char sZipFMT[99];

sZipFMTtmp = lr_eval_string("{sZip1}");
strcat( sZipFMTtmp,     "aaaaaa" );
sZipFMTtmp1 = function_substr_index(sZipFMTtmp, 0, 5);
sZipFMTtmp2 = function_substr_index(sZipFMTtmp, 6, 10);
strcat(sZipFMTtmp1, "-");
strcat(sZipFMTtmp1,sZipFMTtmp2);
strcat(sZipFMT, sZipFMTtmp1);
lr_output_message("*****sZipFMT %s", sZipFMT);
return sZipFMT;

}