added LSL2 stored procedures
This commit is contained in:
12
LSL2/STPROC/TEST_REVCAPI_SUB.txt
Normal file
12
LSL2/STPROC/TEST_REVCAPI_SUB.txt
Normal file
@ -0,0 +1,12 @@
|
||||
Function TEST_REVCAPI_SUB(text)
|
||||
/*
|
||||
** Stub for recapi test.
|
||||
*/
|
||||
If Assigned(text) Else text = ''
|
||||
|
||||
* This will come back in the reply ( DATA_AVAILABLE$)
|
||||
ans = 'you sent ' : quote(text)
|
||||
|
||||
* This will come back in the statustext ( INFO_AVAILABLE$)
|
||||
*Call Set_Status(1, 'Happy')
|
||||
Return ans
|
Reference in New Issue
Block a user