From 8e66fb16ee170fcac30b2cb6eef30a6286b98c6c Mon Sep 17 00:00:00 2001
From: "Infineon\\Ouellette" <jonathan.ouellette@infineon.com>
Date: Tue, 11 Feb 2025 11:20:12 -0700
Subject: [PATCH] Removed 25 wafer qty limitation to Spectrum label printing

---
 LSL2/STPROC/SAP_SERVICES.txt | 114 ++++++++++++++++-------------------
 1 file changed, 53 insertions(+), 61 deletions(-)

diff --git a/LSL2/STPROC/SAP_SERVICES.txt b/LSL2/STPROC/SAP_SERVICES.txt
index 516202e..0cc7d44 100644
--- a/LSL2/STPROC/SAP_SERVICES.txt
+++ b/LSL2/STPROC/SAP_SERVICES.txt
@@ -744,68 +744,59 @@ Service PrintSpectrumLabel(WONo,StepNo,CassNo)
             SpectrumDirectory  = XLATE('APP_INFO', 'SPECTRUM_FILE_PATH', 1, 'X')
             SpectrumExportPath = SpectrumDirectory : SpectrumFileName
             CurrWaferCnt        = XLATE('WO_MAT', WoMatKey, 'CURR_WFR_CNT', 'X')
-            If CurrWaferCnt EQ 25 then
-				SikData                       = ''
-				SikData<SIK_FIXED_DATA$>      = 'POKE EBSOFTLD.SYSTEM POOL'
-				SikData<SIK_P_BNR$>           = 'P_BNR' : Tab$ : ZPVMMatNum
-				SikData<SIK_GRVP$>            = 'GRVP' : Tab$ : 1; *Default
-				SikData<SIK_I_GRVP$>          = 'I_GRVP' : Tab$ : CurrWaferCnt
-				SikData<SIK_M_QUANTITY$>      = 'M_QUANTITY' : Tab$ : CurrWaferCnt
-				SikData<SIK_M_QUANTITY1$>     = 'M_QUANTITY1' : Tab$ : CurrWaferCnt
-				SikData<SIK_M_LOTNO$>         = 'M_LOTNO' : Tab$ : SAPBatchNo
-				SikData<SIK_DATECODE$>        = 'M_DATECODE' : Tab$ : ShipDtCd
-				SikData<SIK_LOTCOUNT$>        = 'LOTCOUNT' : Tab$ : 1; *Default
-				SikData<SIK_SERIALNO$>        = 'SERIALNO' : Tab$ : 00001; *Default
-				SikData<SIK_M_CODE$>          = 'M_COD' : Tab$ : 'US'; *Default
-				SikData<SIK_M_COA$>           = 'M_COA' : Tab$ : ''
-				SikData<SIK_P_TEXT2_3$>       = 'P_TEXT2_3' : Tab$ : ZPVMPartDesc;
-				SikData<SIK_P_SALES_PRODUCT$> = 'P_SALES_PRODUCT' : Tab$ : ZPVMPartDesc;
-				SikData<SIK_BLANK_LINE$>      = '';*Intentionally left blank. Example file has a blank line here.
-				SikData<SIK_FIXED_DATA_2$>    = 'EXECUTE EBSOFTLD.SYSTEM PRINT'
-				SikData<SIK_LABEL_ID$>        = 'LABEL_ID' : Tab$ : 'BPL_CYSC'; *Default
-				SikData<SIK_PRT_PORT$>        = 'PRT_PORT' : Tab$ : 'MESOPCNOVP604LBL003';
-				swap @FM with CRLF$ in SikData
-				Status() = 0
-				OSWrite SikData to SpectrumExportPath
-				StatusCode = Status()
-				If StatusCode EQ 0 then
-					SuccessMsg = 'Successfully sent sik file to the spectrum system.' 
-					LogData    = ''
-					LogData<1> = LoggingDTM
-					LogData<2> = WOMatKey
-					LogData<3> = SuccessMsg
-					Logging_Services('AppendLog', objLogPrintSpectrumLabel, LogData, @RM, @FM)
-				end else
-					ErrorMsg = ''
-					Begin Case
-						Case StatusCode EQ 1
-							ErrorMsg = 'Bad OS filename.'
-						Case StatusCode EQ 2
-							ErrorMsg = 'Access denied by operating system.'
-						Case StatusCode EQ 3
-							ErrorMsg = 'Disk or directory full.'
-						Case StatusCode EQ 4
-							ErrorMsg = 'File does not exist.'
-						Case StatusCode EQ 5
-							ErrorMsg = 'Unknown error.'
-						Case StatusCode EQ 6
-							ErrorMsg = 'Attempt to write to a read-only file.'
-					End Case
-					LogData    = ''
-					LogData<1> = LoggingDTM
-					LogData<2> = WOMatKey
-					LogData<3> = ErrorMsg
-					Logging_Services('AppendLog', objLogPrintSpectrumLabel, LogData, @RM, @FM)
-					Error_Services('Add', ErrorMsg)
-				end
+
+            SikData                       = ''
+            SikData<SIK_FIXED_DATA$>      = 'POKE EBSOFTLD.SYSTEM POOL'
+            SikData<SIK_P_BNR$>           = 'P_BNR' : Tab$ : ZPVMMatNum
+            SikData<SIK_GRVP$>            = 'GRVP' : Tab$ : 1; *Default
+            SikData<SIK_I_GRVP$>          = 'I_GRVP' : Tab$ : CurrWaferCnt
+            SikData<SIK_M_QUANTITY$>      = 'M_QUANTITY' : Tab$ : CurrWaferCnt
+            SikData<SIK_M_QUANTITY1$>     = 'M_QUANTITY1' : Tab$ : CurrWaferCnt
+            SikData<SIK_M_LOTNO$>         = 'M_LOTNO' : Tab$ : SAPBatchNo
+            SikData<SIK_DATECODE$>        = 'M_DATECODE' : Tab$ : ShipDtCd
+            SikData<SIK_LOTCOUNT$>        = 'LOTCOUNT' : Tab$ : 1; *Default
+            SikData<SIK_SERIALNO$>        = 'SERIALNO' : Tab$ : 00001; *Default
+            SikData<SIK_M_CODE$>          = 'M_COD' : Tab$ : 'US'; *Default
+            SikData<SIK_M_COA$>           = 'M_COA' : Tab$ : ''
+            SikData<SIK_P_TEXT2_3$>       = 'P_TEXT2_3' : Tab$ : ZPVMPartDesc;
+            SikData<SIK_P_SALES_PRODUCT$> = 'P_SALES_PRODUCT' : Tab$ : ZPVMPartDesc;
+            SikData<SIK_BLANK_LINE$>      = '';*Intentionally left blank. Example file has a blank line here.
+            SikData<SIK_FIXED_DATA_2$>    = 'EXECUTE EBSOFTLD.SYSTEM PRINT'
+            SikData<SIK_LABEL_ID$>        = 'LABEL_ID' : Tab$ : 'BPL_CYSC'; *Default
+            SikData<SIK_PRT_PORT$>        = 'PRT_PORT' : Tab$ : 'MESOPCNOVP604LBL003';
+            swap @FM with CRLF$ in SikData
+            Status() = 0
+            OSWrite SikData to SpectrumExportPath
+            StatusCode = Status()
+            If StatusCode EQ 0 then
+                SuccessMsg = 'Successfully sent sik file to the spectrum system.' 
+                LogData    = ''
+                LogData<1> = LoggingDTM
+                LogData<2> = WOMatKey
+                LogData<3> = SuccessMsg
+                Logging_Services('AppendLog', objLogPrintSpectrumLabel, LogData, @RM, @FM)
             end else
-            	ErrorMsg = 'Error in ':Service:' service. Lot has less than 25 wafers. Cannot ship less than 25 wafers.'
-				LogData    = ''
-				LogData<1> = LoggingDTM
-				LogData<2> = WOMatKey
-				LogData<3> = ErrorMsg
-				Logging_Services('AppendLog', objLogPrintSpectrumLabel, LogData, @RM, @FM)
-				Error_Services('Add', ErrorMsg)
+                ErrorMsg = ''
+                Begin Case
+                    Case StatusCode EQ 1
+                        ErrorMsg = 'Bad OS filename.'
+                    Case StatusCode EQ 2
+                        ErrorMsg = 'Access denied by operating system.'
+                    Case StatusCode EQ 3
+                        ErrorMsg = 'Disk or directory full.'
+                    Case StatusCode EQ 4
+                        ErrorMsg = 'File does not exist.'
+                    Case StatusCode EQ 5
+                        ErrorMsg = 'Unknown error.'
+                    Case StatusCode EQ 6
+                        ErrorMsg = 'Attempt to write to a read-only file.'
+                End Case
+                LogData    = ''
+                LogData<1> = LoggingDTM
+                LogData<2> = WOMatKey
+                LogData<3> = ErrorMsg
+                Logging_Services('AppendLog', objLogPrintSpectrumLabel, LogData, @RM, @FM)
+                Error_Services('Add', ErrorMsg)
             end
         end else
             ErrorMsg = 'Error in ':Service:' service. SAP Batch number for WOMat Record ' : WoMatKey : ' does not exist.'
@@ -1099,3 +1090,4 @@ ClearCursors:
     
 return
 
+