added LSL2 stored procedures

LSL2/STPROC/SRP_EDITOR_TEMP_RTI_BRW_SAMPLEDATASOURCE_SYSPROG.txt

@@ -0,0 +1,48 @@
+Function SRP_EDITOR_TEMP_RTI_BRW_SAMPLEDATASOURCE_SYSPROG(ACTION, PARAM1, PARAM2, PARAM3)
+
+If Assigned(ACTION) Else ACTION = ""
+If Assigned(PARAM1) Else PARAM1 = ""
+If Assigned(PARAM2) Else PARAM2 = ""
+If Assigned(PARAM3) Else PARAM3 = ""
+
+RSLT = ""
+Begin Case
+	Case ACTION _EQC "FIELDS"
+		* return:
+		* <1> Field Name]
+		* <2> Field #]
+		* <3> conv code]
+		* <4> MVFlag (0/1)]
+		* <6> Association]
+		RSLT<1> = "ID":@vm:"F1":@VM:"F2":@VM:"F3"
+		RSLT<2> = "0":@VM:"1":@VM:"2":@VM:"3"
+		RSLT<3,4> = "D4/"
+
+	Case action _eqc "DATATYPE"
+		whichField = param1
+		If WHICHFIELD = "F3" Then
+			RSLT = "DATE"
+		End Else
+			RSLT = "VARCHAR"
+		END
+
+	Case ACTION _EQC "KEYS"
+		* return:
+		* <1-n> key
+		selstmt = param1
+		RSLT = "A":@FM:"B":@FM:"C":@FM:"D":@FM:"E"
+		
+	Case ACTION _EQC "READ"
+		id = param1
+		RSLT = "THIS IS RECORD ":ID:@FM:"HELLO F2":@FM:DATE()
+		
+	Case ACTION _EQC "WRITE"
+		id = param2
+		rec = param3
+	
+	Case ACTION _EQC "DELETE"
+		id = param1
+		
+End Case
+
+Return RSLT