added LSL2 stored procedures

LSL2/STPROC/TEST_OBJ_PRS_PROP.txt

@@ -0,0 +1,29 @@
+COMPILE ROUTINE TEST_OBJ_PRS_PROP(Dummy)
+ROWDEF(CHARSTR)
+
+DECLARE SUBROUTINE obj_Notes, Set_Status, Send_Info, obj_PRS_Prop, Send_Dyn
+DECLARE FUNCTION Get_Status, obj_PRS_Prop
+
+$INSERT PROD_SPEC_EQUATES
+
+
+PSNo = '4454'
+PropCd = 'CRES'
+CassNo = 49
+DEBUG
+FOR CassNo = 1 TO 50
+	Flag = obj_PRS_Prop('GetIntervalFlag',PSNo:@RM:PropCd:@RM:CassNo)
+
+	Send_Dyn(CassNo:' ':Flag)
+
+NEXT CassNo
+
+
+
+GOTO Bail
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+END