<< To correlate statements using lrt_save_fld_val | Developing TUXEDO Vuser Scripts >>

Sample Correlated Query

Creating Vuser Scripts

Chapter 11, page 204

Tuxedo Vuser Scripts · Developing TUXEDO Vuser Scripts

Sample Correlated Query

/* Fill the data_0 buffer with new account information*/
data_0 = lrt_tpalloc("FML", "", 512);
lrt_Finitialize((FBFR*)data_0);
lrt_Fadd_fld((FBFR*)data_0, "name=BRANCH_ID", "value=1",
LRT_END_OF_PARMS);
lrt_Fadd_fld((FBFR*)data_0, "name=ACCT_TYPE", "value=S",
LRT_END_OF_PARMS);
lrt_Fadd_fld((FBFR*)data_0, "name=PHONE", "value=111-111-1111",
LRT_END_OF_PARMS);

lrt_Fadd_fld((FBFR*)data_0, "name=ADDRESS", "value=1 Broadway New
York, NY 11111", LRT_END_OF_PARMS);
lrt_Fadd_fld((FBFR*)data_0, "name=SSN", "value=111-11-1111",
LRT_END_OF_PARMS);
lrt_Fadd_fld((FBFR*)data_0, "name=LAST_NAME", "value=Doe",
LRT_END_OF_PARMS);
lrt_Fadd_fld((FBFR*)data_0, "name=FIRST_NAME", "value=John",
LRT_END_OF_PARMS);
lrt_Fadd_fld((FBFR*)data_0, "name=SAMOUNT", "value=234.12",
LRT_END_OF_PARMS);

/* Open a new account and save the new account number*/
tpresult_int = lrt_tpcall("OPEN_ACCT", data_0, 0,&data_0, &olen_2, 0);
lrt_abort_on_error();
lrt_save_fld_val((FBFR*)data_0, "name=ACCOUNT_ID", 0, "account_id");