11.04.2013 Views

UniBasic Commands Reference - Rocket Software

UniBasic Commands Reference - Rocket Software

UniBasic Commands Reference - Rocket Software

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

Example<br />

In the following example, the program segment reads a record from the CLIENTS<br />

file with ID CLIENT.ID. If the record ID is found, UniData executes the subroutine<br />

PROCESS.CLIENT. Otherwise, UniData prints a message and the program performs<br />

the subroutine REPROMPT.<br />

1-598 <strong>UniBasic</strong> <strong>Commands</strong> <strong>Reference</strong><br />

READ CLIENT.REC FROM CLIENT, CLIENT.ID THEN<br />

GOSUB PROCESS.CLIENT<br />

END ELSE<br />

PRINT 'NO CLIENT REC FOR 'CLIENT.ID<br />

END<br />

Related <strong>Commands</strong><br />

<strong>UniBasic</strong><br />

CLOSE, DELETE, OPEN, READL, READU, READV, READVL, READVU,<br />

WRITE

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!