testing SRP Git for OI 10
This commit is contained in:
Infineon\StieberD
parent
b3f7ea1da8
commit
ebaaaf3c27
141
LSL2/STPROC/ACTIVE_DIRECTORY_SERVICES.txt
Normal file
141
LSL2/STPROC/ACTIVE_DIRECTORY_SERVICES.txt
Normal file
@ -0,0 +1,141 @@
|
||||
Compile function Active_Directory_Services(@Service, @Params)
|
||||
/***********************************************************************************************************************
|
||||
|
||||
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 : Active_Directory_Services
|
||||
|
||||
Description : Handler program for all module related services.
|
||||
|
||||
Notes : The generic parameters should contain all the necessary information to process the services. Often
|
||||
this will be information like the data Record and Key ID.
|
||||
|
||||
Parameters :
|
||||
Service [in] -- Name of the service being requested
|
||||
Param1-10 [in/out] -- Additional request parameter holders
|
||||
Response [out] -- Response to be sent back to the Controller (MCP) or requesting procedure
|
||||
|
||||
History : (Date, Initials, Notes)
|
||||
02/17/23 djs Original programmer.
|
||||
|
||||
***********************************************************************************************************************/
|
||||
|
||||
#pragma precomp SRP_PreCompiler
|
||||
|
||||
$Insert SERVICE_SETUP
|
||||
$Insert APP_INSERTS
|
||||
$Insert REVDOTNETEQUATES
|
||||
|
||||
Declare subroutine Set_Property.Net
|
||||
|
||||
GoToService
|
||||
|
||||
Return Response or ""
|
||||
|
||||
//-----------------------------------------------------------------------------
|
||||
// SERVICES
|
||||
//-----------------------------------------------------------------------------
|
||||
|
||||
|
||||
Service AuthenticateUser(Username, Password, Domain)
|
||||
|
||||
Authenticated = False$
|
||||
DotNetHandle = StartDotNet("","4.0")
|
||||
DotNetDir = CheckDotNet('4.0'):'\'
|
||||
AccountMgmtDllPath = DotNetDir:'System.DirectoryServices.AccountManagement.dll'
|
||||
Set_Property.Net(DotNetHandle, "AssemblyName", AccountMgmtDllPath)
|
||||
If Not(Get_Status(errCode)) then
|
||||
Params = 'Domain':@FM:Domain
|
||||
ParamTypes = 'System.DirectoryServices.AccountManagement.ContextType':@FM:'System.String'
|
||||
objPC = Create_Class.Net(DotNetHandle, "System.DirectoryServices.AccountManagement.PrincipalContext", 0, Params, ParamTypes)
|
||||
If Not(Get_Status(errCode)) then
|
||||
Params = Username:@FM:Password
|
||||
ParamTypes = 'System.String':@FM:'System.String'
|
||||
Authenticated = Send_Message.Net(objPC, 'ValidateCredentials', Params, ParamTypes, 0)
|
||||
Swap 'True' with True$ in Authenticated
|
||||
Swap 'False' with False$ in Authenticated
|
||||
Free_Class.Net(objPC)
|
||||
end
|
||||
end
|
||||
Response = Authenticated
|
||||
|
||||
end service
|
||||
|
||||
|
||||
Service GetADGroups(Username, Domain)
|
||||
|
||||
ADGroups = ''
|
||||
DotNetHandle = StartDotNet("","4.0")
|
||||
DotNetDir = CheckDotNet('4.0'):'\'
|
||||
AccountMgmtDllPath = DotNetDir:'System.DirectoryServices.AccountManagement.dll'
|
||||
Set_Property.Net(DotNetHandle, "AssemblyName", AccountMgmtDllPath)
|
||||
If Not(Get_Status(errCode)) then
|
||||
Params = 'Domain':@FM:'Infineon'
|
||||
ParamTypes = 'System.DirectoryServices.AccountManagement.ContextType':@FM:'System.String'
|
||||
objPC = Create_Class.Net(DotNetHandle, "System.DirectoryServices.AccountManagement.PrincipalContext", 0, Params, ParamTypes)
|
||||
If Not(Get_Status(errCode)) then
|
||||
objUserPrincipal = Create_Class.Net(DotNetHandle, "System.DirectoryServices.AccountManagement.UserPrincipal", 0, objPC, 'RevDotNet')
|
||||
If Not(Get_Status(errCode)) then
|
||||
Set_Property.Net(objUserPrincipal, 'Name', Username)
|
||||
objPrinSearcher = Create_Class.Net(DotNetHandle, "System.DirectoryServices.AccountManagement.PrincipalSearcher", 0, objUserPrincipal, 'RevDotNet')
|
||||
If Not(Get_Status(errCode)) then
|
||||
objPrin = Send_Message.Net(objPrinSearcher, 'FindOne', '', '', 1)
|
||||
If Not(Get_Status(errCode)) then
|
||||
Name = Get_Property.Net(objPrin, 'Name', 0)
|
||||
objPrinSearchResult = Send_Message.Net(objPrin, 'GetGroups', '', '', 1)
|
||||
If Not(Get_Status(errCode)) then
|
||||
objEnum = Send_Message.Net(objPrinSearchResult, 'GetEnumerator', '', '', 1)
|
||||
If Not(Get_Status(errCode)) then
|
||||
Loop
|
||||
Done = Send_Message.Net(objEnum, 'MoveNext', '', '', 0)
|
||||
Until Done EQ 'False'
|
||||
If Not(Get_Status(errCode)) then
|
||||
objCurrPrin = Get_Property.Net(objEnum, 'Current', 1)
|
||||
If Not(Get_Status(errCode)) then
|
||||
CurrPrinName = Get_Property.Net(objCurrPrin, 'Name', 0)
|
||||
If CurrPrinName NE 'Domain Users' then ADGroups<-1> = CurrPrinName
|
||||
Free_Class.Net(objCurrPrin)
|
||||
end
|
||||
end
|
||||
Repeat
|
||||
Free_Class.Net(objEnum)
|
||||
end
|
||||
Free_Class.Net(objPrinSearchResult)
|
||||
end
|
||||
Free_Class.Net(objPrin)
|
||||
end
|
||||
Free_class.Net(objPrinSearcher)
|
||||
end
|
||||
Free_Class.Net(objUserPrincipal)
|
||||
end
|
||||
Free_Class.Net(objPC)
|
||||
end
|
||||
end
|
||||
Response = ADGroups
|
||||
|
||||
End Service
|
||||
|
||||
|
||||
Service GetComputerDomain()
|
||||
|
||||
Domain = ''
|
||||
DotNetHandle = StartDotNet("","4.0")
|
||||
DotNetDir = CheckDotNet('4.0'):'\'
|
||||
DirDllPath = DotNetDir:'System.DirectoryServices.dll'
|
||||
Set_Property.Net(DotNetHandle, "AssemblyName", DirDllPath)
|
||||
If Not(Get_Status(errCode)) then
|
||||
objDomain = Create_Class.Net(DotNetHandle, "System.DirectoryServices.ActiveDirectory.Domain", 0, '', '')
|
||||
If Not(Get_status(errCode)) then
|
||||
ObjCompDomain = Send_Message.Net(objDomain, 'GetComputerDomain', '', '', True$)
|
||||
If Not(Get_Status(errCode)) then
|
||||
Domain = Get_Property.Net(objCompDomAin, 'Name', False$)
|
||||
Free_class.Net(objCompDomain)
|
||||
end
|
||||
Free_Class.Net(objDomain)
|
||||
end
|
||||
end
|
||||
Response = Domain
|
||||
|
||||
end service
|
||||
|
||||
154
LSL2/STPROC/CHASE_SERVICES.txt
Normal file
154
LSL2/STPROC/CHASE_SERVICES.txt
Normal file
@ -0,0 +1,154 @@
|
||||
Compile function Chase_Services(@Service, @Params)
|
||||
#pragma precomp SRP_PreCompiler
|
||||
$insert LOGICAL
|
||||
|
||||
$Insert RDS_EQUATES
|
||||
$Insert REACTOR_EQUATES
|
||||
$Insert PRS_STAGE_EQUATES
|
||||
$Insert PROD_SPEC_EQUATES
|
||||
|
||||
equ WOCust$ to 2
|
||||
|
||||
Declare function Rds_Services, Database_Services, Extract_SI_Keys, SRP_Clean_Array
|
||||
Declare subroutine Database_Services, Clean_Insp_Services, Extract_SI_Keys
|
||||
|
||||
GoToService
|
||||
|
||||
Return Response or ""
|
||||
|
||||
//-----------------------------------------------------------------------------
|
||||
// SERVICES
|
||||
//-----------------------------------------------------------------------------
|
||||
|
||||
Service UpdateLoadedPsnWithPostStage()
|
||||
|
||||
activeWOs = ''
|
||||
|
||||
// Get all the WOs from the CONFIG table
|
||||
reactorStart = 20
|
||||
reactorEnd = 79
|
||||
For reactorNum = reactorStart to reactorEnd
|
||||
ReactType = Xlate('REACTOR', reactorNum, REACTOR_REACT_TYPE$, 'X')
|
||||
If ReactType NE 'EPP' then
|
||||
ReactorConfigKey = 'WO_DAILY_SCHED':reactorNum
|
||||
WoNo = Field(Xlate('CONFIG', ReactorConfigKey, WOCust$, 'X'), ' ', 1)
|
||||
If WoNo NE '' then
|
||||
activeWos := WoNo
|
||||
If reactorNum < reactorEnd then activeWos := @FM
|
||||
end
|
||||
end
|
||||
Next reactorNum
|
||||
|
||||
For WoIdx = 1 to Len(activeWOs)
|
||||
// Get the RDSs for current WO
|
||||
currentWO = activeWOs<WoIdx, 1>
|
||||
RDSColumns = ''
|
||||
RDSColumns<0, 1> = 'SEQ'
|
||||
RdsList = RDS_Services('GetRDSData', currentWO, RDSColumns, False$, '')
|
||||
// Loop through the RDSs
|
||||
For rdsIdx = 1 to Len(RdsList)
|
||||
// If RDS is not FQA, and is in LOAD or UNLOAD run stage, then update the PSN
|
||||
rdsNum = RdsList<rdsIdx, 1>
|
||||
FqaSigned = Rds_Services("GetFinalQAStatus", rdsNum)
|
||||
RunStatus = Xlate('REACT_RUN', rdsNum, 'RUN_STATUS', 'X')
|
||||
If (Not(FqaSigned)) and ((RunStatus _EQC 'load') or (RunStatus _EQC 'unload')) then
|
||||
PsnNo = Xlate('RDS', rdsNum, RDS_PROD_SPEC_ID$, 'X')
|
||||
specRec = Database_Services('ReadDataRow', 'PROD_SPEC', PsnNo)
|
||||
currentStages = specRec<PROD_SPEC_PRS_STAGE_KEY$>
|
||||
Swap @VM with @FM in currentStages
|
||||
// Determine if a post stage already exists
|
||||
postIdx = 0
|
||||
For stageIdx = 1 to Len(currentStages)
|
||||
currentStage = currentStages<stageIdx, 1>[-4, 4]
|
||||
If currentStage _EQC 'post' then
|
||||
postIdx = stageIdx
|
||||
end
|
||||
Until postIdx GT 0
|
||||
Next stageIdx
|
||||
postStageRec = ''
|
||||
stageRecKey = PsnNo:'*':'POST'
|
||||
// If post stage already exists, get it
|
||||
If postIdx GT 0 then
|
||||
postStageRec = Database_Services("ReadDataRow", "PRS_STAGE", stageRecKey)
|
||||
end else
|
||||
// otherwise, add the post stage key to the spec
|
||||
currentStageKeys = specRec<PROD_SPEC_PRS_STAGE_KEY$>
|
||||
updatedStageKeys = currentStageKeys:@VM:stageRecKey
|
||||
specRec<PROD_SPEC_PRS_STAGE_KEY$> = updatedStageKeys
|
||||
Database_Services('WriteDataRow', 'PROD_SPEC', PsnNo, specRec)
|
||||
end
|
||||
// Do not override existing specs if post stage already exists
|
||||
currentSurfSigReq = postStageRec<PRS_STAGE_SURFSCAN_SIG_REQ$, 1>
|
||||
If currentSurfSigReq EQ '' then postStageRec<PRS_STAGE_SURFSCAN_SIG_REQ$, 1> = False$
|
||||
currentSurfRecipe = postStageRec<PRS_STAGE_SURFSCAN_RECIPE$, 1>
|
||||
If currentSurfRecipe EQ '' then
|
||||
// construct and apply the correct recipe
|
||||
reactorNum = Xlate('RDS', rdsNum, RDS_REACTOR$, 'X')
|
||||
waferSize = Xlate('CONFIG', 'WO_DAILY_SCHED':reactorNum, 4, 'X')[1, 1]
|
||||
surfScanRecipe = waferSize : 'INCLEAN'
|
||||
postStageRec<PRS_STAGE_SURFSCAN_RECIPE$, 1> = surfScanRecipe
|
||||
end
|
||||
// copy other surf scan specs from LWI stage
|
||||
lwiStageRecKey = PsnNo:'*':'LWI'
|
||||
lwiSurfHaze = Xlate('PRS_STAGE', lwiStageRecKey, PRS_STAGE_SURF_HAZE$, 'X')<1, 1>
|
||||
currentSurfHaze = postStageRec<PRS_STAGE_SURF_HAZE$>
|
||||
If currentSurfHaze EQ '' then postStageRec<PRS_STAGE_SURF_HAZE$> = lwiSurfHaze
|
||||
lwiSurfDefects = Xlate('PRS_STAGE', lwiStageRecKey, PRS_STAGE_SURF_DEFECTS$, 'X')<1, 1>
|
||||
currentSurfDefects = postStageRec<PRS_STAGE_SURF_DEFECTS$>
|
||||
If currentSurfDefects EQ '' then postStageRec<PRS_STAGE_SURF_DEFECTS$> = lwiSurfDefects
|
||||
lwiSampleQty = Xlate('PRS_STAGE', lwiStageRecKey, PRS_STAGE_SS_SAMP_QTY$, 'X')<1, 1>
|
||||
currentSampleQty = postStageRec<PRS_STAGE_SS_SAMP_QTY$>
|
||||
If currentSampleQty EQ '' then postStageRec<PRS_STAGE_SS_SAMP_QTY$> = lwiSampleQty
|
||||
Database_Services('WriteDataRow', 'PRS_STAGE', stageRecKey, postStageRec)
|
||||
|
||||
// push out the spec changes
|
||||
runOrderNum = Xlate('RDS', rdsNum, 'RUN_ORDER_NUM', 'X')
|
||||
woMatKey = currentWO : '*' : runOrderNum
|
||||
Clean_Insp_Services('UpdateAllCleanInsp', woMatKey)
|
||||
end
|
||||
Next rdsIdx
|
||||
Next idx
|
||||
|
||||
End Service
|
||||
|
||||
|
||||
Service AddAdHocPostCleanToPsnsByCustomerId(custId, cleansRecipe, TencorRecipe, sd, sh)
|
||||
ProdVerKeys = ''
|
||||
Extract_SI_Keys('PROD_VER', 'CUST_NO', custId, ProdVerKeys)
|
||||
If ProdVerKeys NE '' then
|
||||
PSNs = Xlate('PROD_VER', ProdVerKeys, 'PSN_ID', 'X')
|
||||
UniquePsns = SRP_Clean_Array(PSNs, @VM, 'UNIQUE')
|
||||
For each PsnNo in UniquePsns using @VM setting Idx
|
||||
PsnStatus = Xlate('PROD_SPEC', PsnNo, PROD_SPEC_STATUS$, 'X')
|
||||
If PsnStatus EQ 'A' then
|
||||
postStageRecKey = PsnNo:'*':'POST'
|
||||
postStageRec = Database_Services("ReadDataRow", "PRS_STAGE", postStageRecKey)
|
||||
debug
|
||||
* postCleanTool = 'AKRION1'
|
||||
* currentPostCleanTool = postStageRec<PRS_STAGE_CLEAN_TOOL$>
|
||||
* If currentPostCleanTool EQ '' then postStageRec<PRS_STAGE_CLEAN_TOOL$> = postCleanTool
|
||||
|
||||
postCleansRecipe = cleansRecipe
|
||||
currentPostCleanRecipe = postStageRec<PRS_STAGE_CLEAN_RECIPE$>
|
||||
If currentPostCleanRecipe EQ '' then postStageRec<PRS_STAGE_CLEAN_RECIPE$> = postCleansRecipe
|
||||
|
||||
postSurfScanRecipe = TencorRecipe
|
||||
currentPostSurfScanRecipe = postStageRec<PRS_STAGE_SURFSCAN_RECIPE$>
|
||||
If currentPostSurfScanRecipe EQ '' then postStageRec<PRS_STAGE_SURFSCAN_RECIPE$> = postSurfScanRecipe
|
||||
|
||||
surfHaze = sh
|
||||
currentPostSurfHaze = postStageRec<PRS_STAGE_SURF_HAZE$>
|
||||
If currentPostSurfHaze EQ '' then postStageRec<PRS_STAGE_SURF_HAZE$> = surfHaze
|
||||
|
||||
surfDefects = sd
|
||||
currentPostSurfDefects = postStageRec<PRS_STAGE_SURF_DEFECTS$><1, 1>
|
||||
If currentPostSurfDefects EQ '' then postStageRec<PRS_STAGE_SURF_DEFECTS$> = surfDefects
|
||||
|
||||
Database_Services('WriteDataRow', 'PRS_STAGE', postStageRecKey, postStageRec)
|
||||
end
|
||||
Next PsnNo
|
||||
end
|
||||
end service
|
||||
|
||||
|
||||
|
||||
769
LSL2/STPROC/JONATHAN_SERVICES.txt
Normal file
769
LSL2/STPROC/JONATHAN_SERVICES.txt
Normal file
@ -0,0 +1,769 @@
|
||||
Compile function JONATHAN_Services(@Service, @Params)
|
||||
#pragma precomp SRP_PreCompiler
|
||||
|
||||
Declare function Gan_Services, Obj_Notes_Sent, msg, Check_Notes, Jonathan_Services, Database_Services, SRP_Datetime
|
||||
Declare function Lsl_Users_Services, SRP_Time, RList, Error_Services, Obj_Wo_Mat, Pm_Services, Date_Services, Test_Run_Services
|
||||
Declare function Reactor_Services, Reactor_Log_Services
|
||||
Declare subroutine Start_Window, RList, Set_Status, Database_Services, Obj_Sap, Sap_Services, Btree.Extract
|
||||
Declare subroutine Reactor_Services
|
||||
|
||||
$insert LOGICAL
|
||||
$insert NOTE_PTRS_EQU
|
||||
$insert MSG_EQUATES
|
||||
$Insert APP_INSERTS
|
||||
$Insert RLIST_EQUATES
|
||||
$Insert WO_LOG_EQUATES
|
||||
$Insert RDS_EQUATES
|
||||
$Insert WO_STEP_EQUATES
|
||||
$Insert WO_MAT_QA_EQUATES
|
||||
$Insert REACT_RUN_EQUATES
|
||||
$Insert RDS_LAYER_EQUATES
|
||||
$Insert RDS_TEST_EQUATES
|
||||
$Insert PM_EQUATES
|
||||
$Insert PM_SPEC_EQUATES
|
||||
$Insert WO_MAT_EQUATES
|
||||
$Insert WM_OUT_EQUATES
|
||||
/*$Insert TEST_RUN_EQUATES
|
||||
$Insert TEST_RUN_WAFER_EQUATES
|
||||
$Insert TEST_WAFER_PROD_EQUATES
|
||||
$Insert TEST_RUN_TYPE_EQUATES
|
||||
*/
|
||||
$Insert REACTOR_EQUATES
|
||||
|
||||
|
||||
GoToService
|
||||
|
||||
Return Response or ""
|
||||
|
||||
//-----------------------------------------------------------------------------
|
||||
// SERVICES
|
||||
//-----------------------------------------------------------------------------
|
||||
|
||||
Service GetReactorNumbersByType()
|
||||
Debug
|
||||
test = Reactor_Services('GetReactorNumbers', 'ASM')
|
||||
test := @FM : Reactor_Services('GetReactorNumbers', 'ASM+')
|
||||
end service
|
||||
|
||||
Service SetReactorMetrics()
|
||||
Reactors = Reactor_Services('GetReactorNumbers')
|
||||
table = 'REACTOR_LOG'
|
||||
for each ReactorNo in Reactors using @FM setting rPos
|
||||
LatestTubeChangeRLIDASM = ''
|
||||
LatestTubeChangeASMDTM = ''
|
||||
LatestSuscChangRLIDASM = ''
|
||||
LatestArmChangeIDASM = ''
|
||||
LatestSuscChangRLIDHTR = ''
|
||||
LatestArmChangeIDHTR = ''
|
||||
ReactorType = XLATE('REACTOR', ReactorNo, REACTOR_REACT_TYPE$, 'X')
|
||||
|
||||
//Reset all metrics to 0
|
||||
ReactorRec = Database_Services('ReadDataRow', 'REACTOR', ReactorNo)
|
||||
ReactorRec<REACTOR_SUSC_THK$> = 0;
|
||||
ReactorRec<REACTOR_SUSC_WFR_CNT$> = 0;
|
||||
ReactorRec<REACTOR_TUBE_BELL_JAR_THK$> = 0;
|
||||
ReactorRec<REACTOR_TUBE_BELL_JAR_WFR_CNT$> = 0;
|
||||
ReactorRec<REACTOR_LOWER_QUARTZ_THK$> = 0;
|
||||
ReactorRec<REACTOR_LOWER_QUARTZ_WFR$> = 0;
|
||||
ReactorRec<REACTOR_ARMS_WFR_CNT$> = 0;
|
||||
Database_Services('WriteDataRow', 'REACTOR', ReactorNo, ReactorRec)
|
||||
|
||||
|
||||
Begin Case
|
||||
Case ReactorType EQ 'ASM' OR ReactorType EQ 'ASM+'
|
||||
//Susceptor 699
|
||||
LatestSusceptorChangeRLID = Reactor_Log_Services('GetLogsByReactorAndServID', ReactorNo, '699')<1,4>
|
||||
RLDTM = XLATE('REACTOR_LOG', LatestSusceptorChangeRLID, 'END_DTM', 'X')
|
||||
RDSList = Reactor_Services('GetReactorCassLoadHistoryRange', ReactorNo, RLDTM, SRP_Datetime('Now'))
|
||||
for each RDSRow in RDSList using @FM
|
||||
OldReactorRec = Database_Services('ReadDataRow', 'REACTOR', ReactorNo)
|
||||
|
||||
CurrTubeBellJarThk = OldReactorRec<REACTOR_TUBE_BELL_JAR_THK$>
|
||||
CurrTubeBellJarCnt = OldReactorRec<REACTOR_TUBE_BELL_JAR_WFR_CNT$>
|
||||
CurrSuscThk = OldReactorRec<REACTOR_SUSC_THK$>
|
||||
CurrSuscWfrCnt = OldReactorRec<REACTOR_SUSC_WFR_CNT$>
|
||||
CurrLowerQuartzThk = OldReactorRec<REACTOR_LOWER_QUARTZ_THK$>
|
||||
CurrLowerQuartzWfr = OldReactorRec<REACTOR_LOWER_QUARTZ_WFR$>
|
||||
|
||||
// Set values to 0 if blank
|
||||
If CurrTubeBellJarThk = '' then CurrTubeBellJarThk = 0
|
||||
If CurrTubeBellJarCnt = '' then CurrTubeBellJarCnt = 0
|
||||
If CurrSuscThk = '' then CurrSuscThk = 0
|
||||
If CurrSuscWfrCnt = '' then CurrSuscWfrCnt = 0
|
||||
If CurrLowerQuartzThk = '' then CurrLowerQuartzThk = 0
|
||||
If CurrLowerQuartzWfr = '' then CurrLowerQuartzWfr = 0
|
||||
|
||||
RDSNo = RDSRow<1,1>
|
||||
TargetThickness = Xlate('RDS', RDSNo, 'THICK_TARGET_TOT', 'X', '')
|
||||
TargetThickness = OConv(TargetThickness, 'MD3')
|
||||
WaferCount = XLATE('RDS', RDSNo, RDS_WAFERS_IN$, 'X')
|
||||
ThkAddition = WaferCount * TargetThickness
|
||||
NewReactorRec = OldReactorRec
|
||||
NewReactorRec<REACTOR_SUSC_THK$> = CurrSuscThk + ThkAddition
|
||||
NewReactorRec<REACTOR_SUSC_WFR_CNT$> = CurrSuscWfrCnt + WaferCount
|
||||
Database_Services('WriteDataRow', 'REACTOR', ReactorNo, NewReactorRec)
|
||||
Next RDSRow
|
||||
|
||||
//TubeChange 240
|
||||
LatestSusceptorChangeRLID = Reactor_Log_Services('GetLogsByReactorAndServID', ReactorNo, '240')<1,4>
|
||||
RLDTM = XLATE('REACTOR_LOG', LatestSusceptorChangeRLID, 'END_DTM', 'X')
|
||||
RDSList = Reactor_Services('GetReactorCassLoadHistoryRange', ReactorNo, RLDTM, SRP_Datetime('Now'))
|
||||
for each RDSRow in RDSList using @FM
|
||||
OldReactorRec = Database_Services('ReadDataRow', 'REACTOR', ReactorNo)
|
||||
|
||||
CurrTubeBellJarThk = OldReactorRec<REACTOR_TUBE_BELL_JAR_THK$>
|
||||
CurrTubeBellJarCnt = OldReactorRec<REACTOR_TUBE_BELL_JAR_WFR_CNT$>
|
||||
|
||||
// Set values to 0 if blank
|
||||
If CurrTubeBellJarThk = '' then CurrTubeBellJarThk = 0
|
||||
If CurrTubeBellJarCnt = '' then CurrTubeBellJarCnt = 0
|
||||
|
||||
RDSNo = RDSRow<1,1>
|
||||
TargetThickness = Xlate('RDS', RDSNo, 'THICK_TARGET_TOT', 'X', '')
|
||||
TargetThickness = OConv(TargetThickness, 'MD3')
|
||||
WaferCount = XLATE('RDS', RDSNo, RDS_WAFERS_IN$, 'X')
|
||||
ThkAddition = WaferCount * TargetThickness
|
||||
NewReactorRec = OldReactorRec
|
||||
NewReactorRec<REACTOR_TUBE_BELL_JAR_THK$> = CurrTubeBellJarThk + ThkAddition
|
||||
NewReactorRec<REACTOR_TUBE_BELL_JAR_WFR_CNT$> = CurrTubeBellJarCnt + WaferCount
|
||||
Database_Services('WriteDataRow', 'REACTOR', ReactorNo, NewReactorRec)
|
||||
Next RDSRow
|
||||
//Arms 21
|
||||
LatestSusceptorChangeRLID = Reactor_Log_Services('GetLogsByReactorAndServID', ReactorNo, '21')<1,4>
|
||||
RLDTM = XLATE('REACTOR_LOG', LatestSusceptorChangeRLID, 'END_DTM', 'X')
|
||||
RDSList = Reactor_Services('GetReactorCassLoadHistoryRange', ReactorNo, RLDTM, SRP_Datetime('Now'))
|
||||
for each RDSRow in RDSList using @FM
|
||||
OldReactorRec = Database_Services('ReadDataRow', 'REACTOR', ReactorNo)
|
||||
CurrArmsWfrCnt = OldReactorRec<REACTOR_ARMS_WFR_CNT$>
|
||||
If CurrArmsWfrCnt = '' then CurrArmsWfrCnt = 0
|
||||
RDSNo = RDSRow<1,1>
|
||||
WaferCount = XLATE('RDS', RDSNo, RDS_WAFERS_IN$, 'X')
|
||||
NewReactorRec = OldReactorRec
|
||||
NewReactorRec<REACTOR_ARMS_WFR_CNT$> = CurrArmsWfrCnt + WaferCount
|
||||
Database_Services('WriteDataRow', 'REACTOR', ReactorNo, NewReactorRec)
|
||||
Next RDSRow
|
||||
Case ReactorType EQ 'HTR'
|
||||
//Susceptor 699
|
||||
LatestSusceptorChangeRLID = Reactor_Log_Services('GetLogsByReactorAndServID', ReactorNo, '699')<1,4>
|
||||
RLDTM = XLATE('REACTOR_LOG', LatestSusceptorChangeRLID, 'END_DTM', 'X')
|
||||
RDSList = Reactor_Services('GetReactorCassLoadHistoryRange', ReactorNo, RLDTM, SRP_Datetime('Now'))
|
||||
for each RDSRow in RDSList using @FM
|
||||
OldReactorRec = Database_Services('ReadDataRow', 'REACTOR', ReactorNo)
|
||||
|
||||
CurrSuscThk = OldReactorRec<REACTOR_SUSC_THK$>
|
||||
CurrSuscWfrCnt = OldReactorRec<REACTOR_SUSC_WFR_CNT$>
|
||||
|
||||
// Set values to 0 if blank
|
||||
If CurrSuscThk = '' then CurrSuscThk = 0
|
||||
If CurrSuscWfrCnt = '' then CurrSuscWfrCnt = 0
|
||||
|
||||
RDSNo = RDSRow<1,1>
|
||||
TargetThickness = Xlate('RDS', RDSNo, 'THICK_TARGET_TOT', 'X', '')
|
||||
TargetThickness = OConv(TargetThickness, 'MD3')
|
||||
WaferCount = XLATE('RDS', RDSNo, RDS_WAFERS_IN$, 'X')
|
||||
CntAddition = (WaferCount / 5)
|
||||
ThkAddition = (WaferCount / 5) * TargetThickness
|
||||
NewReactorRec = OldReactorRec
|
||||
NewReactorRec<REACTOR_SUSC_THK$> = CurrSuscThk + ThkAddition
|
||||
NewReactorRec<REACTOR_SUSC_WFR_CNT$> = CurrSuscWfrCnt + CntAddition
|
||||
Database_Services('WriteDataRow', 'REACTOR', ReactorNo, NewReactorRec)
|
||||
Next RDSRow
|
||||
|
||||
//TubeChange 1280
|
||||
LatestSusceptorChangeRLID = Reactor_Log_Services('GetLogsByReactorAndServID', ReactorNo, '1280')<1,4>
|
||||
RLDTM = XLATE('REACTOR_LOG', LatestSusceptorChangeRLID, 'END_DTM', 'X')
|
||||
RDSList = Reactor_Services('GetReactorCassLoadHistoryRange', ReactorNo, RLDTM, SRP_Datetime('Now'))
|
||||
for each RDSRow in RDSList using @FM
|
||||
OldReactorRec = Database_Services('ReadDataRow', 'REACTOR', ReactorNo)
|
||||
|
||||
CurrTubeBellJarThk = OldReactorRec<REACTOR_TUBE_BELL_JAR_THK$>
|
||||
CurrTubeBellJarCnt = OldReactorRec<REACTOR_TUBE_BELL_JAR_WFR_CNT$>
|
||||
|
||||
// Set values to 0 if blank
|
||||
If CurrTubeBellJarThk = '' then CurrTubeBellJarThk = 0
|
||||
If CurrTubeBellJarCnt = '' then CurrTubeBellJarCnt = 0
|
||||
|
||||
RDSNo = RDSRow<1,1>
|
||||
TargetThickness = Xlate('RDS', RDSNo, 'THICK_TARGET_TOT', 'X', '')
|
||||
TargetThickness = OConv(TargetThickness, 'MD3')
|
||||
WaferCount = XLATE('RDS', RDSNo, RDS_WAFERS_IN$, 'X')
|
||||
CntAddition = (WaferCount / 5)
|
||||
ThkAddition = (WaferCount / 5) * TargetThickness
|
||||
NewReactorRec = OldReactorRec
|
||||
NewReactorRec<REACTOR_TUBE_BELL_JAR_THK$> = CurrTubeBellJarThk + ThkAddition
|
||||
NewReactorRec<REACTOR_TUBE_BELL_JAR_WFR_CNT$> = CurrTubeBellJarCnt + CntAddition
|
||||
Database_Services('WriteDataRow', 'REACTOR', ReactorNo, NewReactorRec)
|
||||
Next RDSRow
|
||||
|
||||
//Arms 21
|
||||
LatestSusceptorChangeRLID = Reactor_Log_Services('GetLogsByReactorAndServID', ReactorNo, '21')<1,4>
|
||||
RLDTM = XLATE('REACTOR_LOG', LatestSusceptorChangeRLID, 'END_DTM', 'X')
|
||||
RDSList = Reactor_Services('GetReactorCassLoadHistoryRange', ReactorNo, RLDTM, SRP_Datetime('Now'))
|
||||
for each RDSRow in RDSList using @FM
|
||||
OldReactorRec = Database_Services('ReadDataRow', 'REACTOR', ReactorNo)
|
||||
CurrArmsWfrCnt = OldReactorRec<REACTOR_ARMS_WFR_CNT$>
|
||||
If CurrArmsWfrCnt = '' then CurrArmsWfrCnt = 0
|
||||
RDSNo = RDSRow<1,1>
|
||||
WaferCount = XLATE('RDS', RDSNo, RDS_WAFERS_IN$, 'X')
|
||||
NewReactorRec = OldReactorRec
|
||||
NewReactorRec<REACTOR_ARMS_WFR_CNT$> = CurrArmsWfrCnt + WaferCount
|
||||
Database_Services('WriteDataRow', 'REACTOR', ReactorNo, NewReactorRec)
|
||||
Next RDSRow
|
||||
|
||||
Case ReactorType EQ 'EPP'
|
||||
|
||||
//BellJar 1092
|
||||
LatestSusceptorChangeRLID = Reactor_Log_Services('GetLogsByReactorAndServID', ReactorNo, '1092')<1,4>
|
||||
RLDTM = XLATE('REACTOR_LOG', LatestSusceptorChangeRLID, 'END_DTM', 'X')
|
||||
RDSList = Reactor_Services('GetReactorCassLoadHistoryRange', ReactorNo, RLDTM, SRP_Datetime('Now'))
|
||||
|
||||
for each RDSRow in RDSList using @FM
|
||||
OldReactorRec = Database_Services('ReadDataRow', 'REACTOR', ReactorNo)
|
||||
RDSNo = RDSRow<1,1>
|
||||
TargetThickness = Xlate('RDS', RDSNo, 'THICK_TARGET_TOT', 'X', '')
|
||||
TargetThickness = OConv(TargetThickness, 'MD3')
|
||||
NewReactorRec = OldReactorRec
|
||||
CurrTubeBellJarThk = OldReactorRec<REACTOR_TUBE_BELL_JAR_THK$>
|
||||
CurrTubeBellJarCnt = OldReactorRec<REACTOR_TUBE_BELL_JAR_WFR_CNT$>
|
||||
|
||||
// Set values to 0 if blank
|
||||
If CurrTubeBellJarThk = '' then CurrTubeBellJarThk = 0
|
||||
If CurrTubeBellJarCnt = '' then CurrTubeBellJarCnt = 0
|
||||
NewReactorRec<REACTOR_TUBE_BELL_JAR_THK$> = CurrTubeBellJarThk + TargetThickness
|
||||
NewReactorRec<REACTOR_TUBE_BELL_JAR_WFR_CNT$> = CurrTubeBellJarCnt + 1
|
||||
Database_Services('WriteDataRow', 'REACTOR', ReactorNo, NewReactorRec)
|
||||
Next RDSRow
|
||||
|
||||
|
||||
//1067 Lower Quartz
|
||||
LatestSusceptorChangeRLID = Reactor_Log_Services('GetLogsByReactorAndServID', ReactorNo, '1067')<1,4>
|
||||
RLDTM = XLATE('REACTOR_LOG', LatestSusceptorChangeRLID, 'END_DTM', 'X')
|
||||
RDSList = Reactor_Services('GetReactorCassLoadHistoryRange', ReactorNo, RLDTM, SRP_Datetime('Now'))
|
||||
|
||||
for each RDSRow in RDSList using @FM
|
||||
OldReactorRec = Database_Services('ReadDataRow', 'REACTOR', ReactorNo)
|
||||
RDSNo = RDSRow<1,1>
|
||||
TargetThickness = Xlate('RDS', RDSNo, 'THICK_TARGET_TOT', 'X', '')
|
||||
TargetThickness = OConv(TargetThickness, 'MD3')
|
||||
NewReactorRec = OldReactorRec
|
||||
CurrLowerQuartzThk = OldReactorRec<REACTOR_LOWER_QUARTZ_THK$>
|
||||
CurrLowerQuartzCnt = OldReactorRec<REACTOR_LOWER_QUARTZ_WFR$>
|
||||
|
||||
// Set values to 0 if blank
|
||||
If CurrLowerQuartzThk = '' then CurrLowerQuartzThk = 0
|
||||
If CurrLowerQuartzCnt = '' then CurrLowerQuartzCnt = 0
|
||||
NewReactorRec<REACTOR_LOWER_QUARTZ_THK$> = CurrLowerQuartzThk + TargetThickness
|
||||
NewReactorRec<REACTOR_LOWER_QUARTZ_WFR$> = CurrLowerQuartzCnt + 1
|
||||
Database_Services('WriteDataRow', 'REACTOR', ReactorNo, NewReactorRec)
|
||||
Next RDSRow
|
||||
|
||||
//699 Susceptor
|
||||
LatestSusceptorChangeRLID = Reactor_Log_Services('GetLogsByReactorAndServID', ReactorNo, '699')<1,4>
|
||||
RLDTM = XLATE('REACTOR_LOG', LatestSusceptorChangeRLID, 'END_DTM', 'X')
|
||||
RDSList = Reactor_Services('GetReactorCassLoadHistoryRange', ReactorNo, RLDTM, SRP_Datetime('Now'))
|
||||
|
||||
for each RDSRow in RDSList using @FM
|
||||
OldReactorRec = Database_Services('ReadDataRow', 'REACTOR', ReactorNo)
|
||||
RDSNo = RDSRow<1,1>
|
||||
TargetThickness = Xlate('RDS', RDSNo, 'THICK_TARGET_TOT', 'X', '')
|
||||
TargetThickness = OConv(TargetThickness, 'MD3')
|
||||
NewReactorRec = OldReactorRec
|
||||
CurrSuscThk = OldReactorRec<REACTOR_SUSC_THK$>
|
||||
CurrSuscCnt = OldReactorRec<REACTOR_SUSC_WFR_CNT$>
|
||||
|
||||
// Set values to 0 if blank
|
||||
If CurrSuscThk = '' then CurrSuscThk = 0
|
||||
If CurrSuscCnt = '' then CurrSuscCnt = 0
|
||||
NewReactorRec<REACTOR_SUSC_THK$> = CurrSuscThk + TargetThickness
|
||||
NewReactorRec<REACTOR_SUSC_WFR_CNT$> = CurrSuscCnt + 1
|
||||
Database_Services('WriteDataRow', 'REACTOR', ReactorNo, NewReactorRec)
|
||||
Next RDSRow
|
||||
LatestSusceptorChangeRLID = Reactor_Log_Services('GetLogsByReactorAndServID', ReactorNo, '699')<1,4>
|
||||
RLDTM = XLATE('REACTOR_LOG', LatestSusceptorChangeRLID, 'END_DTM', 'X')
|
||||
RDSList = Reactor_Services('GetReactorCassLoadHistoryRange', ReactorNo, RLDTM, SRP_Datetime('Now'))
|
||||
NewReactorRec<REACTOR_SUSC_THK$> = CurrSuscThk + TargetThickness
|
||||
NewReactorRec<REACTOR_SUSC_WFR_CNT$> = CurrSuscWfrCnt + 1
|
||||
Database_Services('WriteDataRow', 'REACTOR', ReactorNo, NewReactorRec)
|
||||
End Case
|
||||
Next ReactorNo
|
||||
end service
|
||||
|
||||
Service LaunchWindow()
|
||||
Start_Window('NDW_VIEW_TEST_RUN','', '10000001')
|
||||
end service
|
||||
|
||||
Service GetTestRunObj(TestRunID)
|
||||
debug
|
||||
TestRunObj = ''
|
||||
TestRunRec = Test_Run_Services('GetTestRunById', TestRunID)
|
||||
//Start getting translated values for object
|
||||
RunDTM = OConv(TestRunRec<TEST_RUN_RUN_DTM$>, 'DT')
|
||||
ReasonForTest = Xlate('TEST_RUN_TYPE', TestRunRec<TEST_RUN_RUN_TYPE_ID$>, TEST_RUN_TYPE_RUN_TYPE$, 'X')
|
||||
RelatedRDS = TestRunRec<TEST_RUN_RDS_ID$>
|
||||
RelatedPSN = TestRunRec<TEST_RUN_PROD_SPEC_ID$>
|
||||
EqpType = TestRunRec<TEST_RUN_EQUIPMENT_TYPE$>
|
||||
EqpID = TestRunRec<TEST_RUN_EQUIPMENT_ID$>
|
||||
TWKeys = TestRunRec<TEST_RUN_TEST_RUN_WAFER_IDS$>
|
||||
TWUsageProds = ''
|
||||
TWUsageQtys = ''
|
||||
for each TWKey in TWKeys using @VM setting tPos
|
||||
TRWRec = Test_Run_Services('GetTestRunWaferByID', TWKey)
|
||||
TestWaferProdName = XLATE('TEST_WAFER_PROD', TRWRec<TEST_RUN_WAFER_TEST_WAFER_PROD_ID$>, TEST_WAFER_PROD_PART_NAME$, 'X')
|
||||
Locate TestWaferProdName in TWUsageProds setting iPos then
|
||||
TWUsageProds<1,iPos> = TestWaferProdName
|
||||
TWUsageQtys<1,iPos> = TWUsageQtys<1,iPos> + 1
|
||||
end else
|
||||
TWUsageProds<1,-1> = TestWaferProdName
|
||||
TWUsageQtys<1,-1> = 1
|
||||
end
|
||||
Next TWKey
|
||||
end service
|
||||
|
||||
Service WFR_STATUS(WMOKey)
|
||||
|
||||
Result = ''
|
||||
WfrStatus = ''
|
||||
WMOSlots = Xlate('WM_OUT', WMOKey, 'RDS', 'X')
|
||||
WMOZoneProfile = Xlate('WM_OUT', WMOKey, WM_OUT_ZONE$, 'X')
|
||||
WMORDSTestKeys = XLATE('WM_OUT', WMOKey, 'CASS_RDS_MET_KEYS', 'X')
|
||||
for each RDSNo in WMOSlots using @VM setting sPos
|
||||
|
||||
ReactRunRec = Database_Services('ReadDataRow', 'REACT_RUN', RDSNo)
|
||||
SlotZone = Xlate('WM_OUT', WMOKey, WM_OUT_ZONE$, 'X')<1, sPos>
|
||||
//Get the RDS_Test for this slot.
|
||||
//Find the right RDS Test Key
|
||||
ThisSlotRDSTestKeys = ''
|
||||
for each RDSTestKey in WMORDSTestKeys using @VM
|
||||
RDSTestRec = Database_Services('ReadDataRow', 'RDS_TEST', RDSTestKey)
|
||||
If RDSTestRec<RDS_TEST_ZONE$> EQ SlotZone AND RDSTestRec<RDS_TEST_RDS_NO$> EQ RDSNo then
|
||||
ThisSlotRDSTestKeys<1, -1> = RDSTestKey
|
||||
|
||||
end
|
||||
|
||||
Next RDSTestKey
|
||||
RDSTestDataEntered = XLATE('RDS_TEST', ThisSlotRDSTestKeys, 'MET_ENTERED', 'X')
|
||||
If RDSTestDataEntered NE '' then
|
||||
Locate False$ in RDSTestDataEntered using @VM setting iPos then Result = 'ULMET' else
|
||||
MetOutOfSpec = Sum(Xlate('RDS_TEST', ThisSlotRDSTestKeys, 'OUT_OF_SPEC', 'X'))
|
||||
If MetOutOfSpec then
|
||||
//Check for an NCR
|
||||
SlotNcr = Xlate('WM_OUT', WMOKey, 'WM_OUT_SLOT_NCR', 'X')<1, sPos>
|
||||
If SlotNcr NE '' then
|
||||
MetOutOfSpec = False$
|
||||
end
|
||||
end
|
||||
If MetOutOfSpec then
|
||||
Result = 'SPEC'
|
||||
end else
|
||||
Result = 'ULOAD'
|
||||
end
|
||||
end
|
||||
end else
|
||||
Result = 'ULMET'
|
||||
end
|
||||
|
||||
WfrStatus<sPos> = Result
|
||||
Next RDSNo
|
||||
debug
|
||||
end service
|
||||
|
||||
Service Test()
|
||||
Debug
|
||||
RDSTestKeys = XLATE('WM_OUT', '172172*1*10', 'CASS_RDS_MET_KEYS', 'X')
|
||||
TestDataEntered = XLATE('RDS_TEST', RDSTestKeys, 'MET_ENTERED', 'X')
|
||||
//WMOWafers = XLATE('WM_OUT', '172172*1*10', 'WFR_STATUS', 'X')
|
||||
end service
|
||||
|
||||
Service TestEquates()
|
||||
debug
|
||||
test = WO_MAT_MAKEUP_BOX$
|
||||
end service
|
||||
|
||||
Service GetWWInfo()
|
||||
debug
|
||||
WWInfo = Date_Services('GetWeekNum', '20345.12345')
|
||||
end service
|
||||
|
||||
Service PMINformation()
|
||||
|
||||
end service
|
||||
|
||||
Service RGBToInt()
|
||||
debug
|
||||
R = 242
|
||||
G = 156
|
||||
B = 63
|
||||
IntegerVal = (B * 65536) + (G * 256) + R
|
||||
end service
|
||||
|
||||
Service TestPMMFS()
|
||||
Debug
|
||||
|
||||
PMRec = Database_Services('ReadDataRow', 'PM', '10115')
|
||||
Late = XLATE('PM', '10115', 'LATE', 'X')
|
||||
SchedQty = XLATE('PM_SPEC', PMRec<PM_PMS_ID$>, 'LATE_START_QTY', 'X')
|
||||
CompQty = PMRec<PM_COMP_QTY$>
|
||||
|
||||
end service
|
||||
|
||||
Service AddComments()
|
||||
debug
|
||||
Response = Dialog_Box('NDW_ADD_COMMENT', @WINDOW)
|
||||
end service
|
||||
|
||||
Service Get5SPMs()
|
||||
test = Pm_Services('Get5SPMs', True$)
|
||||
end service
|
||||
|
||||
|
||||
Service GetOnShiftSupervisor()
|
||||
debug
|
||||
Response = Lsl_Users_Services('GetShiftByDate', '8/23/2023 06:00')
|
||||
end service
|
||||
|
||||
Service TriggerCassComp(WOMatKey)
|
||||
debug
|
||||
SAP_Services('AddCassCompTransaction', WOMatKey)
|
||||
end service
|
||||
|
||||
Service TestGRProps(WOMatKey)
|
||||
*172174
|
||||
*1
|
||||
debug
|
||||
WOMatRec = Database_Services('ReadDataRow', 'WO_MAT', WOMatKey)
|
||||
GRProps = obj_WO_Mat('GetGRProps',WOMatKey:@RM:WOMatRec)
|
||||
|
||||
end service
|
||||
|
||||
Service TriggerScrap(WorkOrderNo, CassNo, TransQty)
|
||||
//172172
|
||||
//1
|
||||
//2
|
||||
obj_SAP('AddTransaction','SCRAP_IN':@RM:WorkOrderNo:@RM:CassNo:@RM:TransQty)
|
||||
end service
|
||||
|
||||
Service TriggerBatchMove
|
||||
|
||||
end service
|
||||
|
||||
Service TestOEE
|
||||
keyId = '20259*35*5117*U442'
|
||||
stopDTM = XLATE('DAILY_PERFORMANCE_REPORT', keyId, 'STOP_DTM', 'X')
|
||||
OEE = XLATE('DAILY_PERFORMANCE_REPORT', keyId, 'OEE_CALCULATION', 'X')
|
||||
Response = OEE
|
||||
end service
|
||||
|
||||
Service TestZero()
|
||||
debug
|
||||
ShouldBeZero = 1 - 1
|
||||
end service
|
||||
|
||||
Service IsRDSMetOutOfSpec(RDSNo)
|
||||
debug
|
||||
*RDSNo = '586181'
|
||||
RDSRec = Database_Services('ReadDataRow', 'RDS', RDSNo)
|
||||
RDSWaferZones = RDSRec<RDS_ZONE$>
|
||||
ReactorType = Xlate('RDS', RDSNo, 'REACTOR_TYPE', 'X')
|
||||
IsEpiPro = Xlate('RDS', RDSNo, 'REACTOR_TYPE', 'X') EQ 'EPP'
|
||||
LSKeys = XLATE('REACT_RUN',RDSNo, REACT_RUN_RDS_LAYER_KEYS$, 'X')
|
||||
for each LayerSpecKey in LSKeys using @VM setting lPos
|
||||
LSRec = Database_Services('ReadDataRow', 'RDS_LAYER', LayerSpecKey)
|
||||
IsMetOOS = XLATE('RDS_LAYER',LayerSpecKey,'TEST_OUT_OF_SPEC','X')<1, lPos>
|
||||
IF IsMetOOS then
|
||||
If IsEpiPro then
|
||||
RDSTestKey = LSRec<RDS_LAYER_RDS_TEST_KEYS$, lPos>
|
||||
RDSTestZone = XLate('RDS_TEST', RDSTestKey, RDS_TEST_ZONE$, 'X')
|
||||
RDSTestLayer = XLate('RDS_TEST', RDSTestKey, RDS_TEST_LS_ID$, 'X')
|
||||
WafersInZone = ''
|
||||
|
||||
for each WaferZone in RDSWaferZones using @VM setting wPos
|
||||
If WaferZone EQ RDSTestZone then
|
||||
WafersInZone<-1> = wPos
|
||||
end
|
||||
Next WaferZone
|
||||
Response = RDSTestLayer : ' Zone ' : RDSTestZone : ' Out of Spec'
|
||||
end else
|
||||
Response = 'Out of Spec'
|
||||
end
|
||||
end
|
||||
|
||||
Next LayerSpec
|
||||
* TestOutOfSpec = XLATE('RDS_LAYER',LSKeys,'TEST_OUT_OF_SPEC','X')
|
||||
* MetOutOfSpec = SUM(XLATE('RDS_LAYER',LSKeys,'TEST_OUT_OF_SPEC','X'))
|
||||
|
||||
|
||||
|
||||
end service
|
||||
|
||||
|
||||
Service TestCOMB_Status()
|
||||
debug
|
||||
|
||||
|
||||
RDSNo = '586181'
|
||||
RDSWOMatKey = XLATE('RDS', RDSNo, 'WO_MAT_KEY', 'X')
|
||||
WOMatRepStatus = XLATE('WO_MAT',RDSWOMatKey,'REP_STATUS','X')
|
||||
RunStatus = XLATE('REACT_RUN',RDSNo,'RUN_STATUS','X')
|
||||
RunStatus = OCONV(RunStatus,'[RUN_STATUS_CONV]')
|
||||
Ans = ''
|
||||
BEGIN CASE
|
||||
CASE WOMatRepStatus NE '' AND RunStatus NE ''
|
||||
Ans = WOMatRepStatus
|
||||
|
||||
CASE WOMatRepStatus = '' AND RunStatus NE ''
|
||||
Ans = RunStatus
|
||||
|
||||
CASE WOMatRepStatus NE '' AND RunStatus = ''
|
||||
Ans = WOMatRepStatus
|
||||
|
||||
CASE 1
|
||||
Ans = ''
|
||||
END CASE
|
||||
CombStatus = Xlate('RDS', RDSNo, 'COMB_STATUS', 'X')
|
||||
Response = CombStatus
|
||||
end service
|
||||
|
||||
Service TestChatGPT()
|
||||
Stop
|
||||
end service
|
||||
|
||||
Service getWOMat()
|
||||
debug
|
||||
effectedCassettes = ''
|
||||
for WONo = 171809 to 172010
|
||||
for CassNo = 1 to 99
|
||||
WOMatKey = WONo : '*' : CassNo
|
||||
WOMatQaRec = Database_Services('ReadDataRow', 'WO_MAT_QA', WOMatKey)
|
||||
Profiles = WOMatQaRec<WO_MAT_QA_PROFILE$>
|
||||
DataPoints = WOMatQARec<WO_MAT_QA_DATA_POINTS$>
|
||||
For each Profile in Profiles using @VM setting ProfIndex
|
||||
If Profile EQ '1THICK_ONLY' then
|
||||
|
||||
List = DataPoints<1, ProfIndex>
|
||||
IF DCOUNT(List, @SVM) LT 5 AND DCOUNT(List, @SVM) GT 0 then
|
||||
debug
|
||||
EffectedCassettes<-1> = WOMatKey : ',' : XLATE('WO_MAT', WOMatKey, 'RDS_NO', 'X') : CRLF$
|
||||
end
|
||||
end
|
||||
|
||||
Next Profile
|
||||
|
||||
|
||||
Next CassNo
|
||||
Next WONo
|
||||
OSWrite effectedCassettes To 'C:\users\ecouellette\desktop\effectedCassettes.csv'
|
||||
end service
|
||||
|
||||
Service ChangeCustNoByWO(WONo, NewCustNo, NewProdVerNo, NewPSNo)
|
||||
// Update WO_LOG record
|
||||
WOLogRec = Database_Services('ReadDataRow', 'WO_LOG', WONo)
|
||||
If Error_Services('NoError') then
|
||||
WOLogRec<WO_LOG_CUST_NO$> = NewCustNo
|
||||
WOLogRec<WO_LOG_PROD_VER_NO$> = NewProdVerNo
|
||||
Database_Services('WriteDataRow', 'WO_LOG', WONo, WOLogRec, True$, False$, True$)
|
||||
If Error_Services('NoError') then
|
||||
WOStepKey = WONo:'*1'
|
||||
// Update WO_STEP record
|
||||
WOStepRec = Database_Services('ReadDataRow', 'WO_STEP', WOStepKey)
|
||||
If Error_Services('NoError') then
|
||||
WOStepRec<WO_STEP_PROD_SPEC_ID$> = NewPSNo
|
||||
Database_Services('WriteDataRow', 'WO_STEP', WOStepKey, WOStepRec, True$, False$, True$)
|
||||
If Error_Services('NoError') then
|
||||
// Update RDS Keys
|
||||
RDSKeys = Xlate('WO_STEP', WOStepKey, 'RDS_KEY', 'X')
|
||||
If RDSKeys NE '' then
|
||||
For each RDSKey in RDSKeys using @VM setting vPos
|
||||
RDSRec = Database_Services('ReadDataRow', 'RDS', RDSKey)
|
||||
If Error_Services('NoError') then
|
||||
RDSRec<RDS_CUST_NO$> = NewCustNo
|
||||
RDSRec<RDS_PROD_SPEC_ID$> = NewPSNo
|
||||
Database_Services('WriteDataRow', 'RDS', RDSKey, RDSRec, True$, False$, True$)
|
||||
end
|
||||
Until Error_Services('HasError')
|
||||
Next RDSKey
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
If Error_Services('HasError') then
|
||||
Error_Services('DisplayError')
|
||||
end
|
||||
|
||||
return
|
||||
end service
|
||||
|
||||
Service GetRDSMovesByDays(Day, FilePath)
|
||||
|
||||
SelectSent = 'SELECT RDS WITH DATE_OUT EQ ':QUOTE(Day)
|
||||
Set_Status(0)
|
||||
RList(SelectSent, TARGET_ACTIVELIST$, "", "", "")
|
||||
|
||||
|
||||
rdsArray = ''
|
||||
IF @RecCount then
|
||||
EoF = 0
|
||||
NumKeys = @RecCount
|
||||
Cnt = 0
|
||||
|
||||
Loop
|
||||
ReadNext rds Else EoF = 1
|
||||
until EoF
|
||||
rdsMoves = XLATE('RDS', rds, 'WAFERS_IN', 'X')
|
||||
rdsArray := rds : ',' : rdsMoves : CRLF$
|
||||
Repeat
|
||||
|
||||
end
|
||||
OSWrite rdsArray to FilePath
|
||||
ClearSelect TARGET_ACTIVELIST$
|
||||
end service
|
||||
|
||||
Service DetermineNearShiftChange
|
||||
debug
|
||||
|
||||
CurrTime = 64320
|
||||
CurrHour = SRP_TIME('Hour', CurrTime)
|
||||
end service
|
||||
|
||||
Service OutPutSchedule(StartDate, EndDate)
|
||||
debug
|
||||
OutputData = ''
|
||||
StartDateConv = IConv(StartDate, 'D')
|
||||
EndDateConv = IConv(EndDate, 'D')
|
||||
|
||||
for i = StartDateConv to EndDateConv
|
||||
//DayStartDTM = i : '.' : 21600
|
||||
//NightStartDTM = i : '.' : 64800
|
||||
DayStartDTM = SRP_Datetime('AddHours', i, 7)
|
||||
NightStartDTM = SRP_Datetime('AddHours', i, 18)
|
||||
|
||||
DayShift = Lsl_Users_Services('GetShiftByDate', OCONV(DayStartDTM, 'DT'))<1,1>
|
||||
NightShift = Lsl_Users_Services('GetShiftByDate', OCONV(NightStartDTM, 'DT'))<1,1>
|
||||
OutputData := OConv(i, 'D4/H') : ',' : DayShift : ' and ' : NightShift : CRLF$
|
||||
Next i
|
||||
OSWrite OutputData to 'C:\Users\MESOuellette\Desktop\ShiftCalendar.csv'
|
||||
end service
|
||||
|
||||
Service TestMassDates()
|
||||
OutputData = ''
|
||||
ExpectedCalRec = Database_Services('ReadDataRow', 'SYSLISTS', 'CAL_EXPECTED')
|
||||
for i = 1 to DCOUNT(ExpectedCalRec<1>, @VM)
|
||||
Dtm = ExpectedCalRec<1, i>
|
||||
ExpectedShift = ExpectedCalRec<2, i>
|
||||
ReturnedShift = Lsl_Users_Services('GetShiftByDate', Dtm)<1,1>
|
||||
Pass = (ExpectedShift EQ ReturnedShift)
|
||||
|
||||
ExpectedCalRec<3,i> = ReturnedShift
|
||||
ExpectedCalRec<4,i> = Pass
|
||||
OutputData := Dtm : ',' : ExpectedShift : ',' : ReturnedShift : ',' : Pass : CRLF$
|
||||
Next i
|
||||
OSWrite OutputData to 'C:\Users\MESOuellette\Desktop\CalDataTestResults.csv'
|
||||
end service
|
||||
|
||||
Service TestShiftCalendar
|
||||
debug
|
||||
shiftCalData = ''
|
||||
for date = 20090 to 20454
|
||||
|
||||
DayShift = SRP_Datetime('AddHours', date, 12)
|
||||
NightShift = SRP_Datetime('AddHours', DayShift, 11)
|
||||
|
||||
OnShiftDay = Lsl_Users_Services('GetShiftByDate', OCONV(DayShift, 'DT'), 1)
|
||||
OnShiftNight = Lsl_Users_Services('GetShiftByDate', OCONV(NightShift, 'DT'), 1)
|
||||
ShiftCalData := OCONV(DayShift, 'DT') : ',' : OnShiftDay<1,1> : ',' : OnShiftNight : CRLF$
|
||||
Next date
|
||||
|
||||
OSWrite shiftCalData to 'C:\Users\MESOuellette\Desktop\CalData.csv'
|
||||
end service
|
||||
|
||||
Service GetInboundPending
|
||||
debug
|
||||
rv = Set_Status(0)
|
||||
LookBack = 15 /* Days */
|
||||
StartDate = OCONV(Date()-LookBack, 'D4/')
|
||||
* SelectStatement = "SELECT WO_MAT WITH SAP_TX_DT >= ": Quote(StartDate) :" AND WITHOUT SAP_BATCH_NO"
|
||||
RowCount = 0
|
||||
SelectStatement = "SELECT WO_MAT WITH SAP_BATCH_NO EQ ''"
|
||||
RList(SelectStatement, 5)
|
||||
If @List_Active EQ 3 then
|
||||
SelectStatement = "SELECT WO_MAT WITH SAP_TX_DT >= ": Quote(StartDate)
|
||||
RList(SelectStatement, 5)
|
||||
If @List_Active EQ 3 then
|
||||
EOF = False$
|
||||
Loop
|
||||
ReadNext KeyID else EOF = True$
|
||||
Until EOF
|
||||
WOMatRow = Database_Services('ReadDataRow', 'WO_MAT', KeyID)
|
||||
If WOMatRow<87> EQ '' then RowCount += 1
|
||||
Repeat
|
||||
end
|
||||
end
|
||||
end service
|
||||
|
||||
Service CheckForNew()
|
||||
|
||||
Response = True$
|
||||
if xlate( 'NOTE_PTRS', @user4, 'NEW_MESSAGES', 'X' ) then
|
||||
NotePtrRec = xlate( 'NOTE_PTRS', @user4, '', 'X' )
|
||||
LOCATE 'Yes' in NotePtrRec<note_ptrs_new$> using @VM setting mPos then
|
||||
* the top one is new meaning they got a new one
|
||||
Response = True$
|
||||
end else
|
||||
Response = False$
|
||||
end
|
||||
end
|
||||
end service
|
||||
|
||||
Service GetNewNotes()
|
||||
debug
|
||||
void = Jonathan_Services('CheckForNew')
|
||||
end service
|
||||
|
||||
Service TestGit()
|
||||
debug
|
||||
end service
|
||||
|
||||
Service TestMessages()
|
||||
debug
|
||||
if xlate( 'NOTE_PTRS', @user4, 'NEW_MESSAGES', 'X' ) then
|
||||
NotePtrRec = xlate( 'NOTE_PTRS', @user4, '', 'X' )
|
||||
if NotePtrRec<note_ptrs_new$,1> = 'Yes' then
|
||||
* the top one is new meaning they got a new one
|
||||
MsgInfo = ''
|
||||
MsgInfo<micon$> = '!'
|
||||
Mtext = 'You have a new message from ':NotePtrRec<note_ptrs_from$,1>:'.'
|
||||
MsgInfo<mtext$> = MText
|
||||
MsgInfo<mcol$> = -2
|
||||
MsgInfo<mrow$> = -2
|
||||
Void = msg( '', MsgInfo )
|
||||
end
|
||||
end
|
||||
|
||||
NotesSent = obj_Notes_Sent('GetUserKeys','LEHRICH')
|
||||
NewMessages = XLATE('NOTE_PTRS','LEHRICH','NEW_MESSAGES','X')
|
||||
//NotesSent = obj_Notes_Sent('GetUserKeys','JONATHAN_O')
|
||||
IF NotesSent NE '' OR NewMessages > 0 THEN
|
||||
Start_Window( 'NOTE_PTRS', @WINDOW, '*CENTER', '', '' )
|
||||
END
|
||||
end service
|
||||
|
||||
Service GetSAPYield
|
||||
debug
|
||||
counts = Gan_Services('GetYieldInfo', 223271 , '')
|
||||
end service
|
||||
|
||||
Service DoSomething()
|
||||
|
||||
Response = "Hello, World!"
|
||||
|
||||
End Service
|
||||
|
||||
Service DoSomethingWithParameters(Input, Ref Output)
|
||||
|
||||
Output = Input:", World!"
|
||||
|
||||
End Service
|
||||
|
||||
|
||||
|
||||
|
||||
171
LSL2/STPROC/TEST_DAKOTA.txt
Normal file
171
LSL2/STPROC/TEST_DAKOTA.txt
Normal file
@ -0,0 +1,171 @@
|
||||
Function Test_Dakota(Param1)
|
||||
#pragma precomp SRP_PreCompiler
|
||||
|
||||
Declare subroutine Set_Property, Set_Status, ErrMsg, Set_Property, obj_AppWindow, Send_Message, Logging_Services
|
||||
Declare subroutine Btree.Extract, Send_Event, Security_Err_Msg, Forward_Event, End_Window, Start_Window, FTP_Services
|
||||
Declare subroutine EditCell, obj_NCR, obj_Notes, Post_Event, obj_WO_Mat, obj_WO_Mat_Log, obj_WO_Wfr, obj_Tables, obj_RDS
|
||||
Declare subroutine Error_Services, RDS_Services, Dialog_Box, Insert, Unlock, QA_Services, Validate, Development_Services
|
||||
Declare subroutine Update_Index, Database_Services, Obj_WO_Mat_QA, Fmt, Yield, WinYield, Sleepery, Qa_Services,
|
||||
Declare subroutine Obj_Post_Log, GaN_Services, Excel_Services, obj_WO_React, Activate_Save_Select, Reduce, FSMsg
|
||||
Declare subroutine SRP_Stopwatch, Copy_Record_To_SQL, SQL_Services, Material_Services, Messaging_Services
|
||||
Declare subroutine Reactor_Services, Reactor_Services_Dev, SRP_Stopwatch, Btree.Extract, Set_Env, RDS_React_Run
|
||||
Declare subroutine obj_Prod_Spec, Security_Services, Make.List, Write_OI_To_SQL, Send_Info, PSN_Services, Free_Class.Net
|
||||
Declare subroutine Work_Order_Services, Test_Daniel2, obj_RDS_Layer, Report_Services, Pass_To_Sql, SRP_JSON, SRP_Run_Command
|
||||
Declare subroutine Httpclient_Services, SRP_TcpClient, RTI_Set_Debugger, Sleepery, Set_Env, Extract_SI_Keys, Repository
|
||||
Declare function Get_Property, Get_Status, Popup, Send_Message, Msg, Security_Check, Dialog_Box, RowExists, Utility
|
||||
Declare function Dialog_Box, obj_WO_Log, obj_NCR, Check_Notes, obj_MUWafers, obj_WO_Mat, Error_Services, RDS_Services
|
||||
Declare function MemberOf, obj_Tables, obj_RDS, Environment_Services, Logging_Services, Material_Services, ErrMsg
|
||||
Declare function Work_Order_Services, RetStack, Min, Max, Obj_Prod_Spec, Insert, SRP_Trim, Xlate, Obj_Wo_Mat
|
||||
Declare function Security_Services, QA_Services, Database_Services, RowExists, Rti_Lh_Info, UNICODE_ANSI, UNICODE_UTF8
|
||||
Declare function index, Httpclient_Services, SRP_Encode, SRP_Decode, DirList, Obj_Rds_Test, Tool_Parms_Services
|
||||
Declare function SQL_Services, RDS_Services, Obj_WM_out, Schedule_Services, Obj_Tool, SRP_Sort_Array, ICONV
|
||||
Declare function Development_Services, Obj_WO_Mat_QA, SRP_Join_Arrays, NextKey, Obj_Prod_Spec, FTP_Services, SQL_Format
|
||||
Declare function DateTime, GaN_Services, SRP_Array, Excel_Services, EpiPro_Services, Repository, RTI_Task_Submit
|
||||
Declare function RTI_Task_Status, Rds_Services, StartDotNet, Reactor_Services, SRP_Get_FileVersion, Direct_Print
|
||||
Declare function obj_React_Run, RTI_Lock_Owner, obj_WM_In, Get_Repos_Entities, Get_Printer, Schedule_Services
|
||||
Declare function Location_Services, Replication_Services, SRP_Logon, List_User_Locks, Start_Window, SRP_JSON
|
||||
Declare function Httpclient_Services, SRP_TcpClient, GetTickCount, Repository, Select_Into, SQL_services_New, Database_Services
|
||||
|
||||
$INSERT LOGICAL
|
||||
* $Insert RLIST_EQUATES
|
||||
* $INSERT ENVIRON_CONSTANTS
|
||||
* $Insert REVCAPI_EQUATES
|
||||
* $INSERT MSG_EQUATES
|
||||
* $INSERT APPCOLORS
|
||||
* $INSERT WM_IN_EQUATES
|
||||
* $Insert WM_OUT_EQUATES
|
||||
* $INSERT WO_LOG_EQU
|
||||
* $INSERT WO_STEP_EQU
|
||||
$INSERT WO_MAT_EQUATES
|
||||
* $INSERT ORDER_EQU
|
||||
* $INSERT RDS_EQUATES
|
||||
* $INSERT PROD_SPEC_EQU
|
||||
* $INSERT NOTIFICATION_EQU
|
||||
* $INSERT LSL_USERS_EQU
|
||||
* $INSERT SECURITY_RIGHTS_EQU
|
||||
* $INSERT POPUP_EQUATES
|
||||
* $INSERT RTI_LH_INFO_EQUATES
|
||||
* $INSERT WO_MAT_QA_EQUATES
|
||||
* $INSERT CUST_EPI_PART_EQUATES
|
||||
* $INSERT PRS_STAGE_EQUATES
|
||||
* $Insert RLIST_EQUATES
|
||||
* $Insert CLEAN_INSP_EQUATES
|
||||
* $Insert TOOL_PARMS_EQUATES
|
||||
* $Insert SCHEDULE_EQU
|
||||
* $Insert SCHED_DET_EQUATES
|
||||
* $Insert SCHEDULER_EQUATES
|
||||
* $Insert NCR_EQUATES
|
||||
* $Insert REACT_RUN_EQUATES
|
||||
* $Insert TOOL_EQUATES
|
||||
* $Insert TOOL_LOG_EQUATES
|
||||
* $Insert PM_EQUATES
|
||||
* $Insert WO_WFR_EQUATES
|
||||
* $Insert REVDOTNETEQUATES
|
||||
* $Insert REACTOR_EQUATES
|
||||
* $Insert RDS_TEST_EQUATES
|
||||
* $Insert RUN_STAGE_WFR_EQUATES
|
||||
* $Insert RTI_DEBUG_COMMON
|
||||
* $Insert DICT_EQUATES
|
||||
* $Insert SRPMAIL_INSERTS
|
||||
* $Insert SCHED_DET_NG_EQUATES
|
||||
* $Insert RDS_LAYER_EQUATES
|
||||
* $Insert PROD_VER_EQUATES
|
||||
* $Insert PM_SPEC_EQUATES
|
||||
* // 02/22/2023 48312 50112 ; // 5 hours = 14400 seconds
|
||||
* // Reduce modes (for Select statement)
|
||||
* Equ NEW_EXIST$ To 0
|
||||
* Equ NEXT_CUR$ To 1
|
||||
* Equ ADD_EXIST$ To 2
|
||||
*
|
||||
* EQU COL$QA_MET_PHASE_MIN TO 17
|
||||
*
|
||||
Equ Tab$ to \09\
|
||||
Equ CRLF$ to \0D0A\
|
||||
Equ LF$ to \0A\
|
||||
Equ Comma$ to ','
|
||||
*
|
||||
* $INSERT PRINTSETUP_EQUATES
|
||||
* equ REV_CREATE_ENGINE_NO_UI$ to 0x040
|
||||
|
||||
Main:
|
||||
Debug
|
||||
Locks = Database_Services('GetUserLocks')
|
||||
Result = Database_Services('UnlockKeyID', 'RDS', '456789')
|
||||
Debug
|
||||
return
|
||||
|
||||
* LockList = Database_Services('GetUserLocks')
|
||||
* debug
|
||||
* If Error_Services('NoError') then
|
||||
* ResponseJSON = ''
|
||||
* If SRP_JSON(objJSON, 'New', 'Object') then
|
||||
* If SRP_JSON(objReactArray, 'New', 'Array') then
|
||||
* For each Row in LockList using @FM setting fPos
|
||||
* If SRP_JSON(objRow, 'New', 'Object') then
|
||||
* SRP_JSON(objRow, 'SetValue', 'ComputerName', Row<0, 1>)
|
||||
* SRP_JSON(objRow, 'SetValue', 'Volume', Row<0, 2>)
|
||||
* SRP_JSON(objRow, 'SetValue', 'Table', Row<0, 3>)
|
||||
* SRP_JSON(objRow, 'SetValue', 'RecordKey', Row<0, 4>)
|
||||
* SRP_JSON(objRow, 'SetValue', 'Exclusive', Row<0, 5>)
|
||||
* SRP_JSON(objRow, 'SetValue', 'OSTableFile', Row<0, 6>)
|
||||
* SRP_JSON(objReactArray, 'Add', objRow)
|
||||
* SRP_JSON(objRow, 'Release')
|
||||
* end
|
||||
* Next Row
|
||||
* SRP_JSON(objJSON, 'Set', 'Report', objReactArray)
|
||||
* SRP_JSON(objReactArray, 'Release')
|
||||
* end
|
||||
* LockJSON = SRP_JSON(objJSON, 'Stringify', 'Styled')
|
||||
* SRP_JSON(objJSON, 'Release')
|
||||
* end
|
||||
*
|
||||
* end
|
||||
*
|
||||
* J = 5000
|
||||
* NamePrefix = 'DJM'
|
||||
* Table = 'RDS'
|
||||
*
|
||||
*
|
||||
* For I = 0 to 6000
|
||||
* //If I = J then debug
|
||||
* //debug
|
||||
* RecName = NamePrefix : I
|
||||
* NewRec = @FM: 20 :@FM
|
||||
* Result = Database_Services("WriteDataRow", Table, RecName, NewRec, 1, 0, 1)
|
||||
* Test = Xlate(Table, RecName, '','X', '')
|
||||
* If Test = '' then debug
|
||||
* Next I
|
||||
|
||||
return
|
||||
|
||||
|
||||
////////////For Testing memory leak////////////////////////////
|
||||
* Free_Class.Net()
|
||||
*
|
||||
* J = 2500
|
||||
* *J = 500
|
||||
*
|
||||
* For I = 0 to 10000
|
||||
* Result = SQL_Services('PostSQLRequest', 'SPC', 'SELECT * FROM RDS')
|
||||
* If I = J then debug
|
||||
* Result = ''
|
||||
* //debug
|
||||
*
|
||||
* Result = SQL_Services('GetDataRows', 'SPC', 'SELECT TOP (10) * FROM [LSL2SQL].[dbo].[RDS]', 1)
|
||||
* ConnString = Environment_Services("GetSQLScrapeConnectionString")
|
||||
* //Set_Property('CLIPBOARD', 'TEXT', ConnString)
|
||||
* QueryString = 'SELECT [key],[col1],[col2] FROM [LSL2SQL].[dbo].[OI_TESTING] '
|
||||
* QueryString := 'USE [LSL2SQL] GO INSERT INTO [dbo].[OI_TESTING]([key],[col1],[col2])VALUES(<key, int,>,<col1, varchar(max),>,<col2, varchar(max),>) GO'
|
||||
*
|
||||
* Obj = Sql_Services("GetConnectionObject", "Scrape DB Test", 1, ConnString)
|
||||
* //SQL_Services('PostSQLStatement', 'Scrape DB Test', QueryString)
|
||||
* //Res = Sql_Services("PostSQLRequest", "Scrape DB Test", QueryString)
|
||||
* //Result = SQL_Services("ProcessSQLRequests")
|
||||
* If Result = '' then debug
|
||||
* //Free_Class.Net()
|
||||
* SQL_Services('ExecuteQuery',
|
||||
* Groups = SRP_Logon('GetADGroups', 'StieberD', 'Infineon')
|
||||
*
|
||||
* Next I
|
||||
* debug
|
||||
/////////////////////////////////////////////////////////////////
|
||||
3962
LSL2/STPROC/TEST_DANIEL3.txt
Normal file
3962
LSL2/STPROC/TEST_DANIEL3.txt
Normal file
File diff suppressed because it is too large
Load Diff
Loading…
x
Reference in New Issue
Block a user