phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

changed FTP server IP for QA environment

Browse Source
This commit is contained in:
Infineon\StieberD
2025-11-11 09:13:53 -07:00
parent c1dea45db2
commit 39bdf5f9cb
2 changed files with 56 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
LSL2/STPROC/ENVIRONMENT_SERVICES.txt
View File

@ -601,6 +601,7 @@ Service GetScrapeServerPort()
end service end service
Service GetTextDataBackupRootDir() Service GetTextDataBackupRootDir()
Machine = Environment_Services('GetServer') Machine = Environment_Services('GetServer')
@ -621,8 +622,42 @@ Service GetTextDataBackupRootDir()
end service end service
Service GetSapFtpServerIP()
If Environment_Services('IsProd') then
Response = '172.23.28.185'
end else
Response = '172.28.127.107'
end
end service
Service GetSapFtpServerUser()
If Environment_Services('IsProd') then
Response = 'prdopeni'
end else
Response = 'qasopeni'
end
end service
Service GetSapFtpServerPassword()
If Environment_Services('IsProd') then
Response = 'sapprdopeni'
end else
Response = 'sapqasopeni'
end
end service
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Internal GoSubs // Internal GoSubs
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

45
LSL2/STPROC/OBJ_SAP.txt
View File

@ -76,32 +76,30 @@ end
Main: Main:
RepoID = '' RepoID = ''
SAPEnviron = Environment_Services('GetSAPPath') SAPEnviron = Environment_Services('GetSAPPath')
FTPServerIP = Environment_Services('GetSapFtpServerIP')
FTPUser = Environment_Services('GetSapFtpServerUser')
FTPPassWord = Environment_Services('GetSapFtpServerPassword')
FTPCapturePath = Environment_Services('GetApplicationRootPath') : '\SAP\FTPFiles\'
BEGIN CASE Begin case
CASE SAPEnviron = 'PRD'
TransFilePathIn = Environment_Services('GetFTPRootPath') : '\FTP_IN' Case SAPEnviron = 'PRD'
TransFilePathOut = Environment_Services('GetFTPRootPath') : '\FTP_OUT' TransFilePathIn = Environment_Services('GetFTPRootPath') : '\FTP_IN'
FTPScriptPath = Environment_Services('GetFTPRootPath') : '\FTPScript\' TransFilePathOut = Environment_Services('GetFTPRootPath') : '\FTP_OUT'
FTPServerIP = '172.23.28.185' ;* This is the new EU server (sappnfs.eu.infineon.com) FTPScriptPath = Environment_Services('GetFTPRootPath') : '\FTPScript\'
FTPUser = 'prdopeni'
FTPPassWord = 'sapprdopeni'
FTPCapturePath = Environment_Services('GetApplicationRootPath') : '\SAP\FTPFiles\'
CASE SAPEnviron = 'QA' Case SAPEnviron = 'QA'
TransFilePathIn = Environment_Services('GetFTPRootPath') : '\FTP_IN_TEST' TransFilePathIn = Environment_Services('GetFTPRootPath') : '\FTP_IN_TEST'
TransFilePathOut = Environment_Services('GetFTPRootPath') : '\FTP_OUT_TEST' TransFilePathOut = Environment_Services('GetFTPRootPath') : '\FTP_OUT_TEST'
FTPScriptPath = Environment_Services('GetFTPRootPath') : '\FTPScript_Test\' FTPScriptPath = Environment_Services('GetFTPRootPath') : '\FTPScript_Test\'
FTPServerIP = '172.28.150.80' ;* IFX EU FTP Server IP address or URL
FTPUser = 'qasopeni'
FTPPassWord = 'sapqasopeni'
FTPCapturePath = Environment_Services('GetApplicationRootPath') : '\SAP\FTPFiles\'
CASE 1 Case Otherwise$
ErrMsg('Invalid SAPEnviron variable in obj_SAP') ErrMsg('Invalid SAPEnviron variable in obj_SAP')
RETURN return
END CASE
End case
BaseFromSAPScript = 'lcd ':TransFilePathIn:CRLF$ ;* Change local directory to C:\FTP_IN BaseFromSAPScript = 'lcd ':TransFilePathIn:CRLF$ ;* Change local directory to C:\FTP_IN
@ -130,7 +128,7 @@ Main:
CASE Method = 'SendOutbound' ; GOSUB SendOutbound CASE Method = 'SendOutbound' ; GOSUB SendOutbound
CASE Method = 'SendReconcile' ; GOSUB SendReconcile CASE Method = 'SendReconcile' ; GOSUB SendReconcile
CASE 1 CASE Otherwise$
ErrorMsg = 'Unknown Method ':QUOTE(Method):' passed to routine.' ErrorMsg = 'Unknown Method ':QUOTE(Method):' passed to routine.'
END CASE END CASE
@ -1504,4 +1502,3 @@ CheckForErrors:
return return