added LSL2 stored procedures

LSL2/STPROC/EXPORT_OEE.txt

@@ -0,0 +1,123 @@
+COMPILE SUBROUTINE Export_OEE( Dummy )
+
+DECLARE FUNCTION Msg, Dialog_Box, Utility, Environment_Services
+DECLARE FUNCTION Set_Printer, Get_Printer, obj_Install, obj_OEE
+
+DECLARE SUBROUTINE Btree.Extract, RList, END_Dialog, Make.List, Msg, ErrMsg
+
+$INSERT LSL_USERS_EQU
+$INSERT MSG_EQUATES
+$INSERT RLIST_EQUATES
+$INSERT OIPRINT_EQUATES
+
+
+CRLF$ = \0D0A\
+
+Parms = Dialog_Box( 'REACTOR_UTIL_SRPT2', @WINDOW, '*CENTER' )
+
+IF Parms = 'CANCEL' OR Parms = '' THEN
+    RETURN
+END
+
+
+CONVERT '*' TO @FM IN Parms
+
+
+RepStartDt	= Parms<1>
+RepEndDt	= Parms<2>
+Reactors	= ''
+
+Results = obj_OEE('ReactorDetail',RepStartDt:@RM:RepEndDt:@RM:Reactors)	;* This uses STATUS_LINE control to report progress
+
+
+
+
+* FileName = "C:\OIReport\UtilRpt.csv"
+FileName = Environment_Services('GetReportsRootPath') : "\UtilRpt.csv"
+OsByte = 0
+
+OpenFile:
+
+OSDelete FileName
+OSOpen FileName TO OsFile ELSE
+   OSWrite "" TO FileName
+   IF Status() THEN
+      GoSub ReportStatus
+      Msg( '', StatusMsg )
+      RETURN
+   END
+   
+   OSOpen FileName TO OSFile ELSE 
+      GoSub ReportStatus
+      Msg( '', StatusMsg )
+      RETURN
+   END
+END
+
+
+TitleLine1 = ''
+TitleLine2 = ''
+TitleLine3 = ''
+
+RptDt = OCONV(Date(),"D4/")
+
+RptTitle = obj_Install('Get_Prop','CompTitle'):" Reactors Utilization Report"
+
+TitleLine1 = RptDt:'    ':RptTitle
+
+IF Reactors NE '' THEN
+	HeadReactors = 'Reactors ':Reactors
+	SWAP @VM WITH ', ' IN HeadReactors
+	
+	IF INDEX(HeadReactors,', ',1) THEN
+		HeadReactors[-4,2] = ' & '
+	END
+	TitleLine2 = HeadReactors
+END Else
+	TitleLine2 = 'All Reactors'
+END
+
+TitleLine3 = "Dates: ":RepStartDt:" Through ": RepEndDt
+
+RptTtl = TitleLine1:CRLF$:TitleLine2:CRLF$:TitleLine3:CRLF$
+
+OSBWrite RptTtl TO OSFile AT OSByte    
+OSByte += LEN(RptTtl)
+
+
+CONVERT @VM TO ',' IN Results
+SWAP @FM WITH CRLF$ IN Results
+
+OSBWrite Results TO OSFile AT OSByte    
+OSByte += Len(Results)
+	
+
+OSClose OSFile
+
+Void = utility( 'CURSOR', 'A' )
+
+Msg( '', 'Report Written > ':FileName )
+
+RETURN
+
+*========================
+ReportStatus:
+*========================
+   Begin Case
+      Case Status() = 1
+         StatusMsg = "Bad OS filename"
+      Case Status() = 2
+         StatusMsg = "Access Denied - File probably locked by another process."   
+      Case Status() = 3
+         StatusMsg =  "Disk or Directory Full"  
+      Case Status() = 4
+         StatusMsg =  "What ???"  
+      Case Status() = 5
+         StatusMsg =  "OS Error not defined elsewhere."    
+      Case Status() = 6
+         StatusMsg =  "OS File is Read Only."
+      Case 1
+         StatusMsg = "BAD STATUS"      
+   END Case
+   
+   Return