Table of Contents

CSSDOS

Table Of Contents

  • [00007] PROC CSSDOS
  • [00008] CSSDOS - DISPATCH OPERATOR SUPERVISION SMS.
  • [00013] DISPATCH OPERATOR SUPERVISION SMS.
  • [00040] PROC SSTRQE
  • [00041] PROC CSSCHB
  • [00042] PROC CSSCTR
  • [00043] PROC CSSIDC
  • [00044] PROC CSSCSR

Source Code

CSSDOS.txt 
  1. *DECK     CSSDOS
  2. USETEXT TEXTSS; 
  3. USETEXT TEXTCS; 
  4. USETEXT TXTSMCS;
  5. USETEXT TXTSUSS;
  6. USETEXT TXTAPSS;
  7. PROC CSSDOS;
  8. # TITLE CSSDOS - DISPATCH OPERATOR SUPERVISION SMS. # 
  9.  
  10.       BEGIN # CSSDOS #
  11.  
  12. # 
  13. **    CSSDOS - DISPATCH OPERATOR SUPERVISION SMS. 
  14. * 
  15. *     C. BRION          82/05/19. 
  16. * 
  17. *     PROC CSSDOS 
  18. * 
  19. *     ENTRY:  
  20. * 
  21. *       THERE EXISTS AT LEAST ONE OPERATOR SUPERVISION SM IN THE
  22. *       OPERATOR SUPERVISION QUEUE. 
  23. * 
  24. *     EXIT: 
  25. * 
  26. *       THE OPERATOR SUPERVISION QUEUE WILLBE EXHAUSTED OF ENTRIES. 
  27. * 
  28. *       THE APPROPRIATE SM PROCESS WILL HAVE BEEN CALLED IN ORDER 
  29. *       TO PROCESS THE SM.
  30. * 
  31. # 
  32.  
  33. # 
  34. ****  PROC CSSDOS XREF LIST.
  35. # 
  36.  
  37.       XREF
  38.  
  39.         BEGIN 
  40.         PROC SSTRQE;                     # SS-REMOVE QUEUE ENTRY #
  41.         PROC CSSCHB;                     # COMPLETE HOST BROADCAST #
  42.         PROC CSSCTR;                     # COMPLETE TEST REQUEST #
  43.         PROC CSSIDC;                     # ISSUE DEBUG COMMAND #
  44.         PROC CSSCSR;                     # COMPLETE STATUS REQ #
  45.         END 
  46.  
  47. # 
  48. ****
  49. # 
  50.  
  51.       ITEM I            U;               # LOOP INDUCTION VAR # 
  52.  
  53.  
  54.  
  55.  
  56.  
  57. # 
  58. *     MAIN PROCEDURE START
  59. # 
  60.  
  61. # 
  62. *     THE MAIN LOOP OF THIS PROCEDURE WILL REMOVE QUEUE ENTRIES FROM
  63. *     THE OPERATOR SUPERVISION SM QUEUE (OSQ) UNTIL ALL ENTRIES HAVE
  64. *     BEEN REMOVED. 
  65. *     THE PFC AND SFC OF THE INCOMING SM DICTATES WHICH OF FOUR PRO-
  66. *     CEDURES IS CALLED TO PROCESS THE SM.
  67. * 
  68. *     CURRENTLY, THE HOST BROADCAST RESPONSES (NORMAL AND ABNORMAL) 
  69. *     ARE PROCESSED BY CSSCHB. THE OVERLAY LOAD RESPONSES ARE PRO-
  70. *     CESSED BY CSSCTR. THE STATUS RESPONSES BY CSSCSR. THE HOP 
  71. *     DEBUG SMS BY CSSIDC.
  72. # 
  73.  
  74.       FOR I = 0 WHILE OSQL NQ 0 
  75.       DO
  76.  
  77.         BEGIN 
  78.         WCB$WORD[0] = 0;                 # CLEAR WORD COUNT WORD #
  79.         ABHWORD[0] = 0;                  # CLEAR ABH WORD # 
  80.  
  81.         SSTRQE(P<OSQ>,WCBUF[0],ABH[0],CSSM[0]); 
  82.  
  83.         IF PFC[0] EQ MSG                 # HOST BROADCAST SM #
  84.         THEN
  85.  
  86.           CSSCHB; 
  87.  
  88.         ELSE IF (PFC[0] EQ OLD           # OVERLAY REQ RESPONSE SM #
  89.               AND SFC[0] EQ IN) 
  90.         THEN
  91.  
  92.           CSSCTR; 
  93.  
  94.         ELSE IF (PFC[0] EQ HOP           # HOP DEBUG SM # 
  95.               AND (SFC[0] EQ DU 
  96.                OR SFC[0] EQ TRACE 
  97.                OR SFC[0] EQ NOTR
  98.                OR SFC[0] EQ REL 
  99.                OR SFC[0] EQ RS
  100.                OR SFC[0] EQ DB
  101.                OR SFC[0] EQ DE))
  102.         THEN
  103.  
  104.           CSSIDC; 
  105.  
  106.         ELSE                             # MUST BE STATUS COMPLETE #
  107.           CSSCSR; 
  108.  
  109.  
  110.         END # FOR I LOOP #
  111.  
  112.       END #CSSDOS#
  113.  
  114.  TERM