added LSL2 stored procedures

2024-03-25 14:46:21 -07:00
parent 09f1a66046
commit c667dd56eb
1655 changed files with 527967 additions and 0 deletions
--- a/LSL2/STPROC/TEST4.txt
+++ b/LSL2/STPROC/TEST4.txt
@ -0,0 +1,67 @@
+Subroutine TEST4(Param1, Param2, Param3)
+#pragma precomp SRP_PreCompiler
+
+DECLARE SUBROUTINE  SEND_INFO, SEND_DYN, Utility, RList, Btree.Extract, msg, ErrMsg,Security_Err_Msg, Set_FSError, obj_Tables, Create_Table, Logging_Services, PrintSetup
+DECLARE SUBROUTINE  obj_React_Run,obj_React_Run_CI,obj_RDS_Test, obj_RDS_Layer, Set_Status, BTREE.READ, obj_Post_Log, REACT_RUN_RDS, Reactor_Services, SRP_TcpClient, FTP_Services, Print_Shipment_Dev
+DECLARE SUBROUTINE  Extract_SI_Keys, Btree.Extract, Set_List_Box_Data, Print_Shipment, Database_Services, Activate_Save_Select, GetTempPath, obj_Export, obj_WO_Mat, Messaging_Services, SRP_Stopwatch
+DECLARE FUNCTION    obj_Popup, Dialog_Box, obj_Install, FindWindow, Security_Check, obj_rds2, obj_Tables, Get_Status, obj_ICAR, obj_Recipe, obj_JCH_Log, Min, Max, obj_Export, obj_Prod_spec
+Declare function    Database_Services, Error_Services, RTI_Task_Submit, RTI_Task_Status, RTI_CreateGUID, Environment_Services, Logging_Services, MCP, PrintSetup, FTP_Services, SRP_Encode, RTI_Task_Status
+Declare function    SRP_Trim, SRPLogonAPI_ValidateUser, Obj_Calendar, RTI_LH_Info, SRP_TcpClient, Date_Services, obj_WM_In, SRP_Path, RTI_IsMember, RTI_LDAP_Groups_For_User, RTI_LDAP_Groups_For_User_RTI, RTI_Task_Submit
+Declare function    SQL_Services, Get_App_Info, HTTPClient_Services, NextKey
+Declare subroutine  SQL_Services, Add_Repos_App, HTTPClient_Services, obj_SAP,sap_services
+
+$INSERT LOGICAL
+$INSERT SEC_GROUPS_EQU
+$INSERT RDS_EQU
+$INSERT WO_LOG_EQU
+$INSERT WO_MAT_EQUATES
+$INSERT WO_STEP_EQUATES
+$INSERT WM_OUT_EQUATES
+$Insert COC_EQUATES
+$INSERT QUOTE_SPEC_EQU
+$INSERT PROD_SPEC_EQU
+$INSERT RDS_TEST_EQUATES
+$INSERT RDS_LAYER_EQUATES
+$INSERT REACT_RUN_EQUATES
+$INSERT REACT_MODE_EQUATES
+$INSERT POPUP_EQUATES
+$INSERT SECURITY_RIGHTS_EQU
+$INSERT CLEAN_INSP_EQUATES
+$insert RTI_LH_INFO_EQUATES
+$insert PRINTSETUP_EQUATES
+$insert REPOSITORY_EQUATES
+
+
+// Code to massage data in the PROD_SPEC.SPEC_SPI column.
+Open 'PROD_SPEC' to hProdSpec then
+    RList('SELECT PROD_SPEC', 5, '', '', '')
+*    call Make.List(0, 4962, '', '')
+*    call Make.List(0, 5011, '', '')
+    EOF     = False$
+    Loop
+        ReadNext KeyID else EOF = True$
+    Until EOF EQ True$
+        Locate KeyID in '4962,5011,5012' using ',' setting cPos else
+            Read Record from hProdSpec, KeyID then
+                SpecEPI     = Record<15>
+                NumLayers   = DCount(SpecEPI, Char(248))
+                For LayerCnt = 1 to NumLayers
+                    LayerData   = Field(SpecEPI, Char(248), LayerCnt, 1)
+                    ThickMin    = LayerData<0, 7>
+                    ThickMax    = LayerData<0, 8>
+                    ThickMin   := 0
+                    ThickMax   := 0
+                    LayerData<0, 7> = ThickMin
+                    LayerData<0, 8> = ThickMax
+                    SpecEPI         = FieldStore(SpecEPI, Char(248), LayerCnt, 1, LayerData)
+                Next LayerCnt
+                Record<15>  = SpecEPI
+                Write Record to hProdSpec, KeyID else
+                    
+                end
+            end else
+                
+            end
+        end
+    Repeat
+end