Merged PR 11569: added local error services and removed error services common

added local error services and removed error services common
This commit is contained in:
Stieber Daniel (CSC FI SPS MESLEO)
2025-02-25 18:59:14 +01:00
parent 7a389414c5
commit c238f339ba
3 changed files with 406 additions and 6 deletions

View File

@ -22,10 +22,10 @@ $insert LOGICAL
$insert RTI_DEBUG_COMMON
$insert ENVIRON_CONSTANTS
Equ CRLF$ to \0D0A\
Common /ErrorServices/ ErrorMessages@, ErrorSources@, ErrorCodes@, RetStacks@, EsSpStatCode@, EsSpStatMessage@, Unused7@, Unused8@
Equ CRLF$ to \0D0A\
Declare function Environment_Services, Logging_Services, GetSessionCallStack, Error_Services, RetStack
Declare subroutine Logging_Services, Get_Status, Set_Env