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

added logging to obj_sap to record sftp output

Browse Source
This commit is contained in:
Infineon\StieberD 2024-11-18 17:06:54 -07:00
parent 93d65b8bf5
commit 392f61e8bb
2 changed files with 48 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
LSL2/STPROC/OBJ_SAP.txt
View File

@ -23,7 +23,7 @@ DECLARE FUNCTION Get_Status, Msg, Utility, obj_Tables, Dialog_Box, obj_WO_Log
Declare function Error_Services, Environment_Services, Logging_Services, GetCurrentProcessID
DECLARE SUBROUTINE Set_Status, Msg, obj_Tables, ErrMsg, Set_Property, obj_Order, Yield, Clear_Table, RList, obj_Notes
DECLARE SUBROUTINE Send_Info, Send_Event, Post_Event, obj_Notes, SetInitDirOptions, Send_Info, obj_Shipment, obj_Post_Log
DECLARE SUBROUTINE SRP_RUN_COMMAND, Error_Services, Logging_Services, FTP_Services
DECLARE SUBROUTINE Srp_Run_Command, Error_Services, Logging_Services, FTP_Services
$INSERT MSG_EQUATES
$INSERT NOTIFICATION_EQU
@ -47,13 +47,24 @@ LogTime = Oconv(Time(), 'MTS')
LogFileName = LogDate[7, 4] : '-' : LogDate[1, 2] : '-' : LogDate[4, 2] : ' ScrapIn.csv'
Headers = 'Logging DTM' : @FM : 'User' :@FM: 'WoMatKey' :@FM: 'SAPBatchNo' :@FM: 'TransQty'
objLog = Logging_Services('NewLog', LogPath, LogFileName, CRLF$, Comma$, Headers, '', False$, False$)
LoggingDTM = LogDate : ' ' : LogTime ; // Logging DTM
LogPath = Environment_Services('GetApplicationRootPath') : '\LogFiles\WO_LOG'
LogFileName = LogDate[7, 4] : '-' : LogDate[1, 2] : '-' : LogDate[4, 2] : ' Work Order Create Performance Log.csv'
Headers = 'Logging DTM':@FM:'Filename':@FM:'Duration'
objSAPCreateLog = Logging_Services('NewLog', LogPath, LogFileName, CRLF$, COMMA$, Headers, '', False$, False$)
LogPath = Environment_Services('GetApplicationRootPath') : '\LogFiles\SAP'
LogFileName = LogDate[7, 4] : '-' : LogDate[1, 2] : '-' : LogDate[4, 2] : ' Outbound SFTP Log.csv'
Headers = 'Logging DTM' : @FM : 'Notes'
objSapOutboundSftpLog = Logging_Services('NewLog', LogPath, LogFileName, CRLF$, Comma$, Headers, '', False$, False$, True$)
LogPath = Environment_Services('GetApplicationRootPath') : '\LogFiles\SAP'
LogFileName = LogDate[7, 4] : '-' : LogDate[1, 2] : '-' : LogDate[4, 2] : ' Inbound SFTP Log.csv'
Headers = 'Logging DTM' : @FM : 'Notes'
objSapInboundSftpLog = Logging_Services('NewLog', LogPath, LogFileName, CRLF$, Comma$, Headers, '', False$, False$, True$)
LoggingDTM = LogDate : ' ' : LogTime ; // Logging DTM
Main:
RepoID = ''
@ -347,6 +358,11 @@ SendReconcile:
FTPCommand = "psftp ":FTPUser:"@":FTPServerIP:" -pw ":FTPPassword:" -b ":Environment_Services('GetFTPRootPath') : "\ToSAP.scr":" -batch"
SRP_Run_Command(FTPCommand, stat, '', '')
LogData = ''
LogData<1> = LoggingDtm
LogData<2> = stat
Logging_Services('AppendLog', objSapOutboundSftpLog, LogData, @RM, @FM)
StopTime = Time()
IF StopTime - StartTime > 30 THEN
@ -1055,6 +1071,11 @@ SendRecord:
FTPCommand = "psftp ":FTPUser:"@":FTPServerIP:" -pw ":FTPPassword:" -b ":ToSAPScriptName:" -batch"
SRP_Run_Command(FTPCommand, stat, '', '')
LogData = ''
LogData<1> = LoggingDtm
LogData<2> = stat
Logging_Services('AppendLog', objSapOutboundSftpLog, LogData, @RM, @FM)
StopTime = Time()
ClearFlag = 1
OSDelete DosTable ;* Removes table from C: drive
@ -1086,6 +1107,11 @@ ReadInbound:
FTPCommand = "psftp ":FTPUser:"@":FTPServerIP:" -pw ":FTPPassword:" -b ":FromSAPScriptName:" -batch"
SRP_Run_Command(FTPCommand, stat, '', '')
LogData = ''
LogData<1> = LoggingDtm
LogData<2> = stat
Logging_Services('AppendLog', objSapInboundSftpLog, LogData, @RM, @FM)
StopTime = Time()
IF StopTime - StartTime > 60 Then
@ -1112,6 +1138,11 @@ ReadInbound:
FTPCommand = "psftp ":FTPUser:"@":FTPServerIP:" -pw ":FTPPassword:" -b ":FromSAPScriptName:" -batch"
SRP_Run_Command(FTPCommand, stat, '', '')
LogData = ''
LogData<1> = LoggingDtm
LogData<2> = stat
Logging_Services('AppendLog', objSapInboundSftpLog, LogData, @RM, @FM)
StopTime = Time()
IF StopTime - StartTime > 60 Then
@ -1136,6 +1167,11 @@ ReadInbound:
FTPCommand = "psftp ":FTPUser:"@":FTPServerIP:" -pw ":FTPPassword:" -b ":FromSAPScriptName:" -batch"
SRP_Run_Command(FTPCommand, stat, '', '')
LogData = ''
LogData<1> = LoggingDtm
LogData<2> = stat
Logging_Services('AppendLog', objSapInboundSftpLog, LogData, @RM, @FM)
StopTime = Time()
IF StopTime - StartTime > 60 Then
@ -1167,6 +1203,11 @@ ClearInbound:
FTPCommand = "psftp ":FTPUser:"@":FTPServerIP:" -pw ":FTPPassword:" -b ":FromSAPScriptName:" -batch"
SRP_Run_Command(FTPCommand, stat, '', '')
LogData = ''
LogData<1> = LoggingDtm
LogData<2> = stat
Logging_Services('AppendLog', objSapInboundSftpLog, LogData, @RM, @FM)
StopTime = Time()
IF StopTime - StartTime > 180 THEN
@ -1199,6 +1240,11 @@ DirNextSeq:
FTPCommand = "psftp ":FTPUser:"@":FTPServerIP:" -pw ":FTPPassword:" -b ":ToSAPScriptName:" -batch"
SRP_Run_Command(FTPCommand, stat, '', '')
LogData = ''
LogData<1> = LoggingDtm
LogData<2> = stat
Logging_Services('AppendLog', objSapOutboundSftpLog, LogData, @RM, @FM)
StopTime = Time()
IF StopTime - StartTime > 30 THEN

1
LSL2/STPROC/SAP_SERVICES.txt
View File

@ -1099,4 +1099,3 @@ ClearCursors:
return