diff --git a/LSL2/STPROC/SHIPMENT_SERVICES.txt b/LSL2/STPROC/SHIPMENT_SERVICES.txt index b27b292..c09ff0c 100644 --- a/LSL2/STPROC/SHIPMENT_SERVICES.txt +++ b/LSL2/STPROC/SHIPMENT_SERVICES.txt @@ -159,7 +159,8 @@ Service CheckFileAvailability(StartDate, EndDate) Database_Services('WriteDataRow', 'COC', COCNo, NewCOC, True$, False$, False$) end end else - If Count(ErrTest, 'ssh_init') EQ 0 then + // Ignore ssh_init and network errors + If ( (IndexC(ErrTest, 'ssh_init', 1) EQ 0) and (IndexC(ErrTest, 'Network error', 1) EQ 0 ) ) then Error_Services('Add', 'Expected file for shipment ' : COCNo : ' missing.') NewCOC = False$ Database_Services('WriteDataRow', 'COC', COCNo, NewCOC, True$, False$, False$) @@ -341,6 +342,3 @@ CompanyExceptionCheck: return - - -