added LSL2 stored procedures

LSL2/STPROC/SQL_USER_DEBUG.txt

@@ -0,0 +1,125 @@
+Compile Subroutine Sql_User_Debug(MsgSent)
+
+/******************************************************************************************************** 
+
+    This program is proprietary and is not to be used by or disclosed to others, nor is it to
+    be copied without written permission from SRP Computer Solutions, Inc.
+
+    Name        :   Sql_User_Debug
+
+    Description :   Intercepts debugger for SQL Server engines
+
+    Parameters  :
+		MsgSent		[out] --
+
+    History (Date, Initials, Notes)
+    	04/01/06    dmb     Initial new logic																			
+		06/30/09    fjt     Updated for use in EPI
+		06/30/10    jch     Cloned from debugger_replace in SYSPROG acct	
+
+********************************************************************************************************/
+
+$insert RTI_Debug_Common
+$insert Logical
+$insert SRPMail_Inserts
+
+Declare function SRPSendMail, Datetime
+
+Process = 0
+Loop
+    Process += 1
+    On Process GoSub Init, Development, Check, Text, Message, Send, Done
+Until (Error or Done)
+Repeat
+
+Return
+
+
+!----- PROCESS ROUTINES ---------------------------------------------------------------------------------
+
+
+Init:
+    Done     = No$
+    Error    = No$
+    Program  = Curr_Program@
+    MsgSent  = ""
+    
+*    If Program EQ "" then Program = "SQL Debug Intercept Test"
+*    
+*    SentFrom = "oinotify@irf.com"
+* 	SentTo   = "kfournier@srpcs.com"
+* 	
+*    ConfigFile = ""
+*    ConfigFile<1> = SendUsing_Port$
+*    ConfigFile<2> = ""
+*    ConfigFile<3> = 25                      ;// Server port
+*    ConfigFile<4> = "10.95.1.11"			;// Mail server
+*    ConfigFile<5> = Yes$                    ;// Authenticate
+*    ConfigFile<6> = "oinotify@irf.com"		;// Username
+*    ConfigFile<7> = "oinotify1"		        ;// Password
+*    ConfigFile<8> =	No$						;// Use SSL
+return
+
+
+Development:
+* 	NoEmail = "SRP_FRANK"
+* 	Locate @USER4 in NoEmail using "," setting x then
+*		Done = Yes$
+* 	end
+return
+
+
+Check:
+return
+
+
+Text:
+    Text = ""
+    Text<-1> = "App:     "	: @APPID<1>
+    Text<-1> = "Window:  "  : @WINDOW
+    Text<-1> = "User:    "	: @USERNAME
+    Text<-1> = "Station: "	: @STATION
+    Text<-1> = " "
+    Text<-1> = "SP Status:    "  : SPStatus@
+    Text<-1> = "SP Stat Code: "  : SPStatCode@
+    Text<-1> = "Program:      "  : Program
+    Text<-1> = "Call Depth:   "  : CallDepth@
+    Text<-1> = "Line No:      "  : LineNo@
+    Text<-1> = " "
+    Text<-1> = "Stack:   "
+    Text<-1> = CallStack@
+    
+*    Convert \00\ to "," in Text
+*    Convert @VM to "-" in Text
+*    Swap @FM with Char(13):Char(10) in Text
+    
+*    OSWrite Text to Drive():"\logs\debug_log.txt"
+return
+
+  
+Message:  
+    Message = ""
+    Message<1> = "IR/EPI Debug Alert - ":Program	; // Subject
+    Message<2> = SentFrom		                    ; // From (email address)
+    Message<3> = SentTo			                    ; // Send to (email address)
+    Message<5> = ""							        ; // Blind Carbon Copy (email address)
+    Message<6> = ""							        ; // Reply To (email address)
+    Message<7> = "TEXT"						        ; // Content Type (TEXT or HTML)
+    Message<8> = Text						        ; // Content / Body
+    Message<9> = ""							        ; // Attachment(s) (path to file name(s))
+return
+    
+
+Send:
+*    MsgSent = SRPSendMail(Message, ConfigFile)
+
+    Open "SQL_ERROR" to hSQL_ERROR then
+        Write Text to hSQL_ERROR, Datetime() then null
+    End
+    
+return
+
+
+Done:
+    Done = Yes$
+return