ISPEXEC TBSARG TELBOOK NEXT NAMECOND(LNAME,EQ,ZIPCODE,GT)
Set
the program variable BUFFER to contain: TBSARG TELBOOK NEXT NAMECOND(LNAME,EQ,ZIPCODE,GT)
Set
program variable BUFLEN to the length of the variable BUFFER. Issue
the command: CALL ISPEXEC (BUFLEN, BUFFER);
CALL ISPLINK ('TBSARG ','TELBOOK ',' ','NEXT ',
'(LNAME,EQ,ZIPCODE,GT)');
Establish a search argument to be used by a TBSCAN operation of the table DATETBL. Assume DATE1 to be a name variable in table DATETBL and that the dates are in a yy/mm/dd format. Specify a scan direction of forward and terminate the scan when the row value of DATE1 is greater than 99/01/31.
ISPEXEC TBSARG DATETBL NEXT NAMECOND(DATE1,GTY1)