added LSL2 stored procedures

LSL2/STPROC/FIX_NOTIFICATION.txt

@@ -0,0 +1,49 @@
+COMPILE ROUTINE FIX_NOTIFICATION(Dummy)
+ROWDEF(CHARSTR)
+
+
+$INSERT QUOTE_SIGS_EQU
+
+debug
+StartOfWeek	= XLATE( 'CONFIG', 'QUOTE_SIGS', MastSchedNotifyBeg$, 'X' )
+   
+EndOfWeek	= XLATE( 'CONFIG', 'QUOTE_SIGS', MastSchedNotifyEnd$, 'X' )
+
+
+OPEN 'NOTIFICATION' TO FileIn ELSE
+	debug
+	GOTO Bail
+END
+
+
+READ BegRec FROM FileIn,'MAST_SCHED_BEG' THEN
+	
+	BegRec<2> = StartOfWeek
+	WRITE BegRec ON FileIn,'MAST_SCHED_BEG' ELSE Null
+END
+
+
+
+READ EndRec FROM FileIn,'MAST_SCHED_END' THEN
+	
+	EndRec<2> = EndOfWeek
+	WRITE EndRec ON FileIn,'MAST_SCHED_END' ELSE Null
+END
+
+
+
+
+
+
+
+
+
+
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+
+
+END