Example

In the keyed table TELBOOK, test for the existence of a row having a specific key value.

ISPEXEC TBEXIST TELBOOK

If return code = 0, the row exists.

Set the program variable BUFFER to contain:

TBEXIST TELBOOK

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

CALL ISPEXEC (BUFLEN, BUFFER);

If return code = 0, the row exists.

or alternately

CALL ISPLINK ('TBEXIST ','TELBOOK ');

If return code = 0, the row exists.