From 392f61e8bb0e1c47e7e1397fbf36d5d9f81979d5 Mon Sep 17 00:00:00 2001 From: "Infineon\\StieberD" Date: Mon, 18 Nov 2024 17:06:54 -0700 Subject: [PATCH] added logging to obj_sap to record sftp output --- LSL2/STPROC/OBJ_SAP.txt | 50 ++++++++++++++++++++++++++++++++++-- LSL2/STPROC/SAP_SERVICES.txt | 1 - 2 files changed, 48 insertions(+), 3 deletions(-) diff --git a/LSL2/STPROC/OBJ_SAP.txt b/LSL2/STPROC/OBJ_SAP.txt index a5eb0be..ec96dd2 100644 --- a/LSL2/STPROC/OBJ_SAP.txt +++ b/LSL2/STPROC/OBJ_SAP.txt @@ -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 diff --git a/LSL2/STPROC/SAP_SERVICES.txt b/LSL2/STPROC/SAP_SERVICES.txt index 909f2f8..516202e 100644 --- a/LSL2/STPROC/SAP_SERVICES.txt +++ b/LSL2/STPROC/SAP_SERVICES.txt @@ -1099,4 +1099,3 @@ ClearCursors: return -