getquote

001 SUBROUTINE GETQUOTE

002 INCLUDE WBP W3INCLUDE

003

004 *

005 * Sending back a non-numeric for error cases causes

006 * an exception in applications looking explicitly for

007 * numerics. That exception should be handled there.

008 *

009 OPEN "TESTDATA" TO FV_TESTDATA THEN

010 CALL W3GETVAL(SYMBOL,'symbol')

011 READ ITEM FROM FV_TESTDATA,SYMBOL ELSE

012 ITEM = "That symbol does not exist in the TESTDATA file."

013 END

014 END ELSE ITEM = "Can't open TESTDATA file!"

015 CALL W3PRINT(ITEM<1>)

016 CLOSE FV_TESTDATA

017 RETURN

:ct testdata *

IBM

001 92.30

CSCO

001 21.75

XXX

001 99.95