jbratu

$Insert MSG_EQUATES

Def = ""
Def<MTEXT$> = "What did you eat for breakfast?"
Def<MTYPE$> = "RC"
Def<MICON$> = "?"

Response = Msg(@window, Def)

if Response = char(27) or Response = "" then

jbratu

Subroutine CS_SNIP_ReadNext_ReadWrite(TABLE_NAME, SAVED_LIST_NAME)

declare function Set_FSError
Declare Subroutine Set_Status, Rlist
err = ''
$Insert Logical

open TABLE_NAME To TABLE else
	status = Set_FSError()
	return

jbratu

WantsFries = '' ;* Set to 'No' or 'Yes' after Msg.

Def = ""
Def<MTEXT$> = "Do you want fries with your order?"
Def<MTYPE$> = "BNo Fries,Fries" ;*B indicates beginning of comma separated list.
Def<MICON$> = "?"

Resp = Msg(@window, Def)

Begin Case

jbratu

common /csRnd/ WScript, init%
If Assigned(init%) Else init% = ''
If init% else
	  WScript = oleCreateInstance("ScriptControl")
	  OlePutProperty(wscript, "Language", "JScript") 	   
	  s = 'function getrandom() {return Math.random();}'	   
	  x = WScript->AddCode(s)
	  init% = 1
end
RetVal = WScript->Eval("getrandom();") * 1

jbratu

Function CS_BREAKON_BOUNDARY(Sentence, Boundary, BreakLength)
/*
Example:

Sentence = 'The Quick Brown Fox................ Jumped Over the Lazy Dog ....'
Lines = CS_BREAKON_BOUNDARY(Sentence, ' ', 10)

Lines contains an array of sentences And words that do Not exceed 10 characters In length. 

*/

jbratu

Function CS_RESOLVE_TABLE_HANDLE_TO_NAME(OpenTableHandle)

Declare Function List_volume_Sub
/*
Given the example:
	Open 'SYSLISTS' To OpenTableHandle Else Debug
	TableName = CS_RESOLVE_TABLE_HANDLE_TO_NAME(OpenTableHandle)
The Function will return the name of the table From the handle. 
*/

jbratu

Function CS_LIST_RDKVIEW_CHANGED(RDKView)

*Name of the RDK to list in the current repository.
If Unassigned(RDKView) Or RDKView EQ '' Then RDKView = 'TEST_RDK'

$Insert Logical
Declare Subroutine Rlist, Set_Status, Run_Report, Msg
Declare Function Get_Status, Run_Report

Err = ''

jbratu

Selecting Data

Executing a select statement will return the number of rows found and set the in memory active list of keys which can be accessed using a list statement.

Select records in table based on key name

@ID contains the name of the record key, use this field in you comparison criteria.

SELECT INVENTORY WITH @ID GT 100 AND @ID LT 200

Select records in table based on a search term in the beginning or ending of a field

@ID contains the name of the record key, use this field in you comparison criteria. For example find all window source code belonging to the EXAMPLES app. The right bracket operator means 'beginning with'.

jbratu

Function CS_LAUNCH_FILE_SNIPPET(void)

*Common to hold our control between runs so it isn't re-initialized on each call
common /wscript_launch_control/ wsLauncher, wsLauncherAssigned

If Assigned(wsLauncherAssigned) Else wsLauncherAssigned = ''
	
If wsLauncherAssigned Else
	*Control not initialized, do it now
	

jbratu

Function mailgun_check_bounce(params)
/************************************************************************************************
* Name       :  MAILGUN_CHECK_BOUNCE
*
* Description:  Simple example problem to query the MailGun email server to check for if the
*               specified email address bounced and get the reason why.
*               Program demonstrates the use of WinHTTP COM Object and JSON values.
*
*               Example use only. Requires configuration of static variables for example.
*               Set CheckAddressBounced, APIKey, APIDomain before use.