Plc trace bugfix for array element database name

wb/lib/wb/src/wb_gcg.cpp

@@ -1733,7 +1733,7 @@ int gcg_get_debug (
 	if ( EVEN(sts)) return sts;
 
 	pos = strcspn ( output_par , "[") ;
-	output_par[pos] = '\0';
+	//output_par[pos] = '\0';
 	  
 	/* Get the name of the node */
 	sts = ldh_AttrRefToName( 
@@ -2018,8 +2018,8 @@ static int	gcg_pgmname_to_parname(
 
 	free((char *) bodydef);
 
-	/* Copy the index string ????? */
-/*	strcpy( parname, indexstr);	*/
+	/* Copy the index string */
+	strcat( parname, indexstr);
 
 	return GSX__SUCCESS;
 }
@@ -17690,4 +17690,4 @@ int gcg_comp_plcembed( ldh_tSession ldhses, pwr_tOid oid)
   if ( !found)
     return GSX__CLASSERR;
   return GSX__SUCCESS;
-}
\ No newline at end of file
+}