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
Service GetTextDataBackupRootDir()
Machine = Environment_Services('GetServer')
@ -621,8 +622,42 @@ Service GetTextDataBackupRootDir()
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
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

45
LSL2/STPROC/OBJ_SAP.txt
View File

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