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

updated logging in SHIPMENT_SERVICES

Browse Source
This commit is contained in:
Infineon\StieberD 2025-03-20 17:03:26 -07:00
parent 7a633a6cb5
commit 2ee2112be2
1 changed files with 50 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

75
LSL2/STPROC/SHIPMENT_SERVICES.txt
View File

@ -34,24 +34,15 @@ Declare subroutine Shipment_Services, OBJ_Notes
Equ CRLF$ to \0D0A\ Equ CRLF$ to \0D0A\
LogPath = Environment_Services('GetApplicationRootPath') : '\LogFiles\COC_Availability'
LogDate = Oconv(Date(), 'D4/')
LogTime = Oconv(Time(), 'MTS')
LogFileName = LogDate[7, 4] : '-' : LogDate[1, 2] : '-' : LogDate[4, 2] : '_Error' '.log'
Headers = 'Logging DTM' : @FM : 'Shipment ID' : @FM : 'Expected Remote Directory' :@FM: 'Customer/COMPANY Number' :@FM: 'Error Output'
ColumnWidths = 30 : @FM : 20 : @FM : 50 :@FM: 50 :@FM: 300
objLog = Logging_Services('NewLog', LogPath, LogFileName, CRLF$, ' ', Headers, ColumnWidths, False$, False$)
LoggingDTM = LogDate : ' ' : LogTime ; // Logging DTM
GoToService GoToService
Return Response or "" Return Response or ""
Options MonaResources = 'FILE_GENERATION', 'FILE_TRANSMISSION', 'FILE_AVAILABILITY' Options MonaResources = 'FILE_GENERATION', 'FILE_TRANSMISSION', 'FILE_AVAILABILITY'
//----------------------------------------------------------------------------- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// SERVICES // SERVICES
//----------------------------------------------------------------------------- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------
// CycleRetentionDates // CycleRetentionDates
@ -112,6 +103,7 @@ Service CycleRetentionDates()
end service end service
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------
// CheckFileAvailability // CheckFileAvailability
// //
@ -120,7 +112,6 @@ end service
// FILE_AVAILABILITY. Intended to be run by the Service Manager. // FILE_AVAILABILITY. Intended to be run by the Service Manager.
// //
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------
Service CheckFileAvailability(StartDate, EndDate) Service CheckFileAvailability(StartDate, EndDate)
Error_Services('Clear') Error_Services('Clear')
@ -186,9 +177,9 @@ Service CheckFileAvailability(StartDate, EndDate)
Shipment_Services('ClearMONACritical', 'FILE_AVAILABILITY') Shipment_Services('ClearMONACritical', 'FILE_AVAILABILITY')
end end
end service end service
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------
// GetEarliestDate // GetEarliestDate
// //
@ -214,6 +205,7 @@ Service GetEarliestDate()
End Service End Service
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------
// SetMONACritical // SetMONACritical
// //
@ -227,24 +219,38 @@ Service SetMONACritical(MONAResource=MONAResources, ErrorMessage)
IF MONAResource = 'FILE_GENERATION' OR MONAResource = 'FILE_TRANSMISSION' OR MONAResource = 'FILE_AVAILABILITY' then IF MONAResource = 'FILE_GENERATION' OR MONAResource = 'FILE_TRANSMISSION' OR MONAResource = 'FILE_AVAILABILITY' then
Mona_Services('SendBufferedStatus', 'GRP_OPENINSIGHT_MES_OP_FE_COC', MONAResource, 'CRITICAL') Mona_Services('SendBufferedStatus', 'GRP_OPENINSIGHT_MES_OP_FE_COC', MONAResource, 'CRITICAL')
* If ErrorMessage NE '' then If ErrorMessage NE '' then
* // Send an internal OI message to FI Support // Log error
* Recipients = Xlate('NOTIFICATION', 'FI_SUPPORT', 'USER_ID', 'X') LogDate = Oconv(Date(), 'D4/')
* SentFrom = 'SYSTEM' LogTime = Oconv(Time(), 'MTS')
* Subject = 'COC ' : MONAResource : ' Error!' LogPath = Environment_Services('GetApplicationRootPath') : '\LogFiles\Shipment'
* Message = ErrorMessage LogFileName = LogDate[7, 4] : '-' : LogDate[1, 2] : '-' : LogDate[4, 2] : '_MonA_Critical.log'
* AttachWindow = '' Headers = 'Logging DTM' : @FM : 'Error'
* AttachKey = '' ColumnWidths = 30 : @FM : 300
* SendToGroup = '' objMonaLog = Logging_Services('NewLog', LogPath, LogFileName, CRLF$, ' ', Headers, ColumnWidths, False$, False$)
* Parms = Recipients:@RM:SentFrom:@RM:Subject:@RM:Message:@RM:AttachWindow:@RM:AttachKey:@RM:SendToGroup LoggingDTM = LogDate : ' ' : LogTime ; // Logging DTM
* obj_Notes('Create',Parms) LogData = ''
* End LogData<1> = LoggingDtm
LogData<2> = ErrorMessage
Logging_Services('AppendLog', objMonaLog, LogData, @RM, @FM)
// Send an internal OI message to FI Support
Recipients = Xlate('NOTIFICATION', 'FI_SUPPORT', 'USER_ID', 'X')
SentFrom = 'SYSTEM'
Subject = 'COC ' : MONAResource : ' Error!'
Message = ErrorMessage
AttachWindow = ''
AttachKey = ''
SendToGroup = ''
Parms = Recipients:@RM:SentFrom:@RM:Subject:@RM:Message:@RM:AttachWindow:@RM:AttachKey:@RM:SendToGroup
obj_Notes('Create',Parms)
End
end else end else
Error_Services('Add', 'Invalid COC MONA resource.') Error_Services('Add', 'Invalid COC MONA resource.')
end end
End Service End Service
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------
// ClearMONACritical // ClearMONACritical
// //
@ -264,7 +270,6 @@ Service ClearMONACritical(MONAResource=MONAResources)
End Service End Service
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------
// ResetAllCOCMonaStatus // ResetAllCOCMonaStatus
// //
@ -281,13 +286,29 @@ Service ResetAllCOCMonaStatus()
End Service End Service
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Internal GoSubs // Internal GoSubs
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
InitCocLog:
LogPath = Environment_Services('GetApplicationRootPath') : '\LogFiles\COC_Availability'
LogDate = Oconv(Date(), 'D4/')
LogTime = Oconv(Time(), 'MTS')
LogFileName = LogDate[7, 4] : '-' : LogDate[1, 2] : '-' : LogDate[4, 2] : '_Error.log'
Headers = 'Logging DTM' : @FM : 'Shipment ID' : @FM : 'Expected Remote Directory' :@FM: 'Customer/COMPANY Number' :@FM: 'Error Output'
ColumnWidths = 30 : @FM : 20 : @FM : 50 :@FM: 50 :@FM: 300
objLog = Logging_Services('NewLog', LogPath, LogFileName, CRLF$, ' ', Headers, ColumnWidths, False$, False$)
LoggingDTM = LogDate : ' ' : LogTime ; // Logging DTM
return
LogMissingFile: LogMissingFile:
GoSub InitCocLog
LogData = '' LogData = ''
LogData<1> = LoggingDTM LogData<1> = LoggingDTM
LogData<2> = COCNo LogData<2> = COCNo
@ -298,8 +319,10 @@ LogMissingFile:
return return
LogLoopReset: LogLoopReset:
GoSub InitCocLog
LogData = '' LogData = ''
LogData<1> = LoggingDTM LogData<1> = LoggingDTM
LogData<2> = '' LogData<2> = ''