Retro1.org codex

User Tools

Site Tools

Trace: • NS$FEC
cdc:nos2.source:nam5871:ns_fec

Table of Contents

NS$FEC

Table Of Contents

  • [00004] FUNC NS$FEC(ERC,DEC)U
  • [00006] NS$FEC - FORMAT ERROR CODE.
  • [00010] FORMAT ERROR CODE.
  • [00037] PROC NS$DBG

Source Code

NS$FEC.txt 
  1. *DECK NS$FEC
  2. USETEXT ERR$NS
  3.  
  4. FUNC NS$FEC(ERC,DEC)U;       # FORMAT ERROR CODE                       #
  5.  
  6. # TITLE NS$FEC - FORMAT ERROR CODE.    #
  7.  
  8.       BEGIN    # NS$FEC # 
  9. # 
  10. **    NS$FEC - FORMAT ERROR CODE. 
  11. * 
  12. *     J.C. LEE    1981
  13. * 
  14. *     THIS ROUTINE FORMATS THE ERROR CODE.
  15. * 
  16. *     FUNC NS$FEC(ERC,DEC)
  17. * 
  18. *     ENTRY:  
  19. *       ERC = ERROR CODE. 
  20. *       DEC = DETAIL ERROR CODE.
  21. * 
  22. *     EXIT: 
  23. *       NONE. 
  24. * 
  25. *     METHOD: 
  26. *       FORMATS THE ERROR WORD BY SETTING THE ERROR CODE AND
  27. *       DETAIL ERROR CODE.
  28. * 
  29. # 
  30.  
  31.       ITEM ERC        U;     # ERROR CODE                              #
  32.       ITEM DEC        U;     # DETAIL ERROR CODE                       #
  33.  
  34.       $BEGIN
  35.       XREF
  36.         BEGIN 
  37.         PROC NS$DBG;         # TRACE PROCEDURE CALL                    #
  38.         END 
  39.       $END
  40.  
  41.       ITEM ERRWORD   U = 0;  # ERROR WORD                              #
  42.  
  43.  
  44. CONTROL EJECT;
  45.  
  46.       $BEGIN
  47.       NS$DBG("FEC");         # TRACE CALL                              #
  48.       $END
  49.  
  50.       P<ERRORWORD> = LOC(ERRWORD);
  51.       ERRW$EC[0] = ERC;      # SET ERROR CODE                          #
  52.       ERRW$DEC[0] = DEC;     # SET DETAIL ERROR CODE                   #
  53.       NS$FEC = ERRW$WORD[0];
  54.  
  55.       RETURN; 
  56.       END   # NS$FEC #
  57.       TERM
  58.  
cdc/nos2.source/nam5871/ns_fec.txt · Last modified: 2023/08/05 17:22 by Site Administrator