added logging to obj_sap to record sftp output

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

LSL2/STPROC/SAP_SERVICES.txt

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