added LSL2 stored procedures

LSL2/STPROC/MAST_SCHED_TODAY_DATE.txt

@@ -0,0 +1,19 @@
+compile function mast_sched_today_date( DateToUse )
+
+
+* DATE TO USE SHOULD BE PASSED AS AN ICONV OR DATE(), ETC
+if assigned( DateToUse ) else
+   DateToUse = date()
+end
+if DateToUse = '' then
+   DateToUse = date()
+end
+DayPos = mod( DateToUse, 7 )+1
+Days = 'Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday'
+convert ',' to @fm in Days
+CurDay  = Days<DayPos>
+CurDate = oconv( DateToUse, 'D4,HL' )
+convert ',' to ' ' in CurDate
+CurDate = CurDay:' ':CurDate
+
+return CurDate