Example 2

Use the TBSCAN service to position the CRP of table TELBOOK to the row containing the name JOHNSON in variable LNAME, and the zip code 08007 in variable ZIPCODE. Copy values of the variables in that row to function pool variables whose names match those of the table variables.

• Set function pool variable LNAME to JOHNSON.
• Set function pool variable ZIPCODE to 08007.
• Issue this request:

ISPEXEC TBSCAN TELBOOK ARGLIST(LNAME,ZIPCODE)

Set the program variable BUFFER to contain:

TBSCAN TELBOOK ARGLIST(LNAME,ZIPCODE)

Set program variable BUFLEN to the length of the variable BUFFER. Issue the command:

CALL ISPEXEC (BUFLEN, BUFFER);

CALL ISPLINK ('TBSCAN  ','TELBOOK ','(LNAME,ZIPCODE)');