From 1bd10cffad999c8a395d833e4afd8603fcf8ec4d Mon Sep 17 00:00:00 2001
From: "Infineon\\StieberD" <Stieber.external@infineon.com>
Date: Wed, 18 Sep 2024 17:01:21 -0700
Subject: [PATCH] mitigated RList query issue

---
 LSL2/STPROC/PRINT_REACTOR_MAINT.txt  | 14 +++-----------
 LSL2/STPROC/PRINT_REACTOR_MAINT1.txt | 11 ++---------
 2 files changed, 5 insertions(+), 20 deletions(-)

diff --git a/LSL2/STPROC/PRINT_REACTOR_MAINT.txt b/LSL2/STPROC/PRINT_REACTOR_MAINT.txt
index c647bdb..5efa2ee 100644
--- a/LSL2/STPROC/PRINT_REACTOR_MAINT.txt
+++ b/LSL2/STPROC/PRINT_REACTOR_MAINT.txt
@@ -88,29 +88,21 @@ END
 
 DateRange = "Dates: ":StartDateFrom:" Through ": StartDateThru
 
-
 Utility( 'CURSOR', 'H' )
 
 WithStmt = 'SELECT REACTOR_LOG ':WithStmt
 
-
+WithStmt := ' AND WITH CATEGORY = "M" BY REACTOR BY START_DATE'
+    
 RLIST( WithStmt, TARGET_ACTIVELIST$, '', '', '' )
 
 IF Get_Status(errCode) THEN CALL ErrMsg(errCode)
 
-WithStmt ="SELECT REACTOR_LOG BY REACTOR BY START_DATE WITH CATEGORY = 'M'"
-
-
-RLIST(WithStmt,TARGET_ACTIVELIST$,'','','')
-
-IF Get_Status(errCode) THEN CALL ErrMsg(errCode)
-
 IF @Reccount = 0 THEN   
    ErrMsg('No records selected with that criteria...')
    RETURN
 END
 
-
 * Start of printing process
 
 FileName		= 'Print Reactor Maintenance Report'
@@ -127,7 +119,7 @@ PageInfo<7>		= LETTER		;* Pagesize
 PageSetup	= '1'	;* Landscape = 1
 PrintSetup	= '2'	;* Preview Normal
 PrintSetup<1, 2> = 0
-* PrintPath	= Printer_Select()
+
 PrintPath = ''
 stat = Set_Printer('INIT',FileName,Title,PageInfo,PageSetup,PrintSetup,PrintPath)
 IF stat < 0 THEN GOTO OIPrintErr
diff --git a/LSL2/STPROC/PRINT_REACTOR_MAINT1.txt b/LSL2/STPROC/PRINT_REACTOR_MAINT1.txt
index 4e9a87b..907416e 100644
--- a/LSL2/STPROC/PRINT_REACTOR_MAINT1.txt
+++ b/LSL2/STPROC/PRINT_REACTOR_MAINT1.txt
@@ -90,29 +90,21 @@ END
 
 DateRange = "Dates: ":StartDateFrom:" Through ": StartDateThru
 
-
 Utility( 'CURSOR', 'H' )
 
 WithStmt = 'SELECT REACTOR_LOG ':WithStmt
 
+WithStmt := ' AND WITH CATEGORY = "M" BY REACTOR BY START_DATE'
 
 RLIST( WithStmt, TARGET_ACTIVELIST$, '', '', '' )
 
 IF Get_Status(errCode) THEN CALL ErrMsg(errCode)
 
-WithStmt ="SELECT REACTOR_LOG BY REACTOR BY START_DATE WITH CATEGORY = 'M'"
-
-
-RLIST(WithStmt,TARGET_ACTIVELIST$,'','','')
-
-IF Get_Status(errCode) THEN CALL ErrMsg(errCode)
-
 IF @Reccount = 0 THEN   
    ErrMsg('No records selected with that criteria...')
    RETURN
 END
 
-
 * Start of printing process
 
 FileName		= 'Print Reactor Maintenance Report'
@@ -657,3 +649,4 @@ END
 
 */
 
+