/*	File handling in VUGEN												*/
	FileVariable1 = fopen(FileLocation1, "w+");
	fprint(FileVariable1, "%s \n", lr_eval_string("{u_UserInformation}"));
	fclose(FileVariable1);
/*																		*/ 

---

Action()
{
/*
		web_convert_param("ConnectionToken", 
	                  "SourceString={ConnectionToken}", 
	                  "SourceEncoding=PLAIN", 
	                  "TargetEncoding=URL", LAST);
*/	
	
	
long file;
char *filename="c:\\tmp\\output\\test.txt";

/* Open the file with read access */

if ((file = fopen(filename, "a+")) == NULL ) {
lr_error_message("Cannot open %s", filename);

	return -1;
}

lr_save_string(JSON_Content, "JSON_Content");

lr_eval_json("Buffer={JSON_Content}",
             "JsonObject=json_obj", LAST);


   lr_json_get_values("JsonObject=json_obj",
                       "ValueParam=title",
                       "QueryString=$.store.book[*].title",
                       LAST);

fprintf(file,"Content: %s\n\n\n", lr_eval_string("{JSON_Content}"));


//web_convert_param("output", 
//	"SourceString={output}", 
//	"SourceEncoding=URL", 
//	"TargetEncoding=PLAIN", LAST);

//lr_json_insert("JsonObject=json_obj",
//               "Value={\"category\":\"ana\"}",
//               "QueryString=$.store.book[0].category",
//               LAST); 


//fprintf(file,"Content: %s\n\n\n", lr_eval_string("{JSON_Content}"));
/*Close the file*/


fprintf(file,"- - - - - - - - - - - - - - - - - - - - - - - - - -\n");

fprintf(file,"Title value is %s\n", lr_eval_string("{title}"));


lr_json_set_values("JsonObject=json_obj",
                   "Value=ana",
                   "QueryString=$.store.book[*].category",
                   "SelectAll=Yes",
                   LAST);

lr_json_stringify("JsonObject=json_obj",
                                  "OutputParam=result",
                                LAST);

fprintf(file,"The result of manipulation is\n");

fprintf(file, "%s\n", lr_eval_string("{result}"));


fprintf(file,"---------------------------------------------------\n");


fclose(file);
	
	//lr_log_message("body_variable is %s", body_variable_raw);
		return 0;
}

---

Action(){

char r_UUID[50];

sprintf(r_UUID, 
        "%s%s-%s-%s-%s-%s%s%s",
        lr_eval_string("{r_hex}"),lr_eval_string("{r_hex}"),
        lr_eval_string("{r_hex}"),
        lr_eval_string("{r_hex}"),
        lr_eval_string("{r_hex}"),
        lr_eval_string("{r_hex}"),lr_eval_string("{r_hex}"),lr_eval_string("{r_hex}"));

lr_save_string(r_UUID, "PAR_GUID");

lr_output_message("Random UUID : %s", lr_eval_string("{PAR_GUID}") );

return 0;}

---

	lr_save_param_regexp (
		lr_eval_string("{validation_summary}"),
		strlen(lr_eval_string("{validation_summary}")),
		"RegExp=li>(.+?)</li",
		"Ordinal=All",
		"ResultParam=reMatchesParam",
	LAST );

---

	
		char ch_arr[] = "abcdefghijklmnopqrstuvwxyz";
		int i;
		char buf[50];
		for(i=0; i < 26; i++){ sprintf(buf, "tstamp%c", ch_arr[i]); web_save_timestamp_param(buf, LAST);}
	

---

JSON build

	
	lr_save_string("{\"Assignments\":[{\"AgencyCode\":\"VAR\",\"JobNumber\":\"VAR\",\"ShiftCode\":\"DD8-7:3A\"," 
			   "\"ShiftDate\":\"20200630\",\"MobileReceived\":true},{\"AgencyCode\":\"VAR\",\"JobNumber\":\"VAR_NUM\"," 
			   "\"ShiftCode\":\"DD8-7:3A\",\"ShiftDate\":\"20200630\",\"MobileReceived\":true}]}",
			   "JSON_Content");

	
	lr_eval_json("Buffer={JSON_Content}",
                 "JsonObject=json_obj", LAST);
	
	
	
	
	lr_json_stringify("JsonObject=json_obj",
                  "OutputParam=result",
                      LAST);
	
	
	lr_message("json before %s", lr_eval_string("{result}"));
	
	
//    lr_json_get_values("JsonObject=json_obj",
//                   	"ValueParam=RowKey",
//                   	"QueryString=$.PostUrl",
//                     "SelectAll=Yes",
//                     LAST);
//	
//	lr_message("count of finds %s", lr_eval_string("{RowKey_1}"));
	
	lr_save_string("deviceId=0183bd32-8e08-49e6-3f5b-e91ce18dbc50", "prm_DeviceId");
	
	lr_json_insert("JsonObject=json_obj",
               "Value={\"PostUrl\":\"../OfflineDataSynchronization/AcknowledgeAssign\","
	               "\"TransactionType\":21,\"TransactionId\":\"21|VAR|1593523553579|" 
	               "b67cc949-438d-13c1-3067-eae9d94a3a7f\","
	               "\"TransactionDependenceKey\":[\"VAR\",\"VAR_A\"]," 
	               "\"TransactionFailure\":[],\"IsSynchronous\":false,"
	               "\"Rollback\":\"AcknowledgeAssignBusinessRules.RollbackAcknowledgeAssign\"," 
	               "\"Success\":\"AcknowledgeAssignBusinessRules.SuccessAcknowledgeAssign\","
	               "\"SuccessResult\":\"\",\"TransactionDateTimeStamp\":\"ZULUDATE\"," 
	               "\"NotifyUser\":true,\"HideErrorMessage\":false,\"PostAsync\":true,"
	               "\"ShowLoading\":false,\"LoadingMessage\":\"\",\"IsLogonSynch\":false," 
	               "\"IsCrewTransaction\":false,\"UserInformation\":{\"UserName\":\"DOTEST2\","
	               "\"AgencyCode\":\"PHI-DO\",\"CrewCode\":\"PH-DOTEST2\",\"ShiftCode\":\"DD8-7:3A\"," 
	               "\"ShiftDate\":\"20200630\",\"Workstation\":\"PWEB112\","
	               "\"Session\":\"72BB055EAA5F49F9A1C85544AD9AA958_PWEB112\",\"PersonnelId\":116255," 
	               "\"DeviceId\":\"{prm_DeviceId}; path=/; expires=GMTDATE\"," 
	               "\"FirstName\":\"DO\",\"LastName\":\"TEST2\",\"EmployeeNumber\":\"DOTEST2\"}," 
	               "\"Sequence\":0,\"Type\":\"Regular\",\"TickCount\":1593523553582}",
               "QueryString=$",
               LAST); 	

	lr_json_stringify("JsonObject=json_obj",
                 "OutputParam=result",
                  LAST);
	
	lr_message("json after %s", lr_eval_string("{result}"));
	

---

	If async is implemented enable download HTML resources.
	hidden function lr_force_think_time();

---

XML Hard example
Production44a1a2ea-da25-11e0-8785-984025353193Production2020-08-25T21:55:48-04:0038B3FBA8-B0F1-4D3E-ABCD-5884814BCF72000000000PHIDO-20200825-00014



	lr_xml_get_values("XML={response}",          
	                  "ValueParam=jobNumber",          
	                  "Query=/soap:Envelope/soap:Body//*[2]//*[2]/*[2]/text()",          
	                  LAST );    

		lr_message("%s", lr_eval_string("{jobNumber}"));

---

JSON Insert Value with Query

	lr_json_set_values("JsonObject=json_obj",
                "Value=\"MC1\"",
                "QueryString=$.UdfContainer.Nodes[*].Templates[*].Udfs[*].Items[?(@.FieldName == \"ACTION1\")].Value",
                "NotFound=Continue",
                LAST);