added LSL2 stored procedures

LSL2/STPROC/REPORT_TEST.txt

@@ -0,0 +1,16 @@
+compile function report_test
+declare function msg, set_property
+declare subroutine rlist, or_view
+$insert rlist_equates
+*Stmt =  "SELECT TSCHEDULE BY CUST_CITY WITH SHIP.DATE GE ":QUOTE(OCONV(BEG.DATE,"D2-")):" AND LE ":QUOTE(OCONV(END.DATE,"D2-"))
+Stmt =  "SELECT COMPANY"
+*Stmt = 'SELECT SCHEDULE'
+rlist( Stmt, target_activelist$, '', '', '' )
+if @reccount then
+   Cmd = 'LIST COMPANY CO_NAME CITY'
+   void = set_property( 'ORPRV', 'VISIBLE', 3 )
+   or_view( '', Cmd )
+end else
+  Void = MSG( '', "NO Records meeting your date criteria!!" )
+end
+