Table of Contents

CSIBWD

Table Of Contents

  • [00004] PROC CSIBWD
  • [00006] BUILD WORKLIST DEFINITIONS.
  • [00031] PROC SSCRTR
  • [00032] PROC SSOEOP
  • [00033] PROC CSSDNS
  • [00034] PROC CSTDNQ

Source Code

CSIBWD.txt 
  1. *DECK     CSIBWD
  2. USETEXT          TEXTCS 
  3. USETEXT          TEXTSS 
  4.       PROC CSIBWD;
  5. # 
  6. **    CSIBWD - BUILD WORKLIST DEFINITIONS.
  7. * 
  8. *     A. LIM.    81/10/08 
  9. *     C. BRION   82/04/01 
  10. * 
  11. *     THIS ROUTINE IS PART OF THE INITIALIZATION PROCESS FOR CS.
  12. *     ITS JOB IS TO BUILD THE WORKLIST DEFINITION TABLE AND THE 
  13. *     QUEUE TO WORKLIST DEFINITION TABLE. 
  14. * 
  15. *     PROC CSIBWD 
  16. * 
  17. *     ENTRY      NONE.
  18. * 
  19. *     EXIT       WDF AND QWD TABLES INITIALIZED.
  20. * 
  21. # 
  22.       BEGIN 
  23.  
  24.       DEF TABLENUM(TABLE) #(LOC(P<TABLE>)-LOC(MEMLOC))/2-1# ; 
  25.  
  26. # 
  27. ****  PROC CSIBWD XREF LIST.
  28. # 
  29.       XREF
  30.         BEGIN 
  31.         PROC SSCRTR;
  32.         PROC SSOEOP;
  33.         PROC CSSDNS;
  34.         PROC CSTDNQ ; 
  35.         END 
  36. # 
  37. ****
  38. # 
  39.  
  40.  
  41.  
  42.  
  43.       WRQ = 0;                         # DISABLE WORKLIST-REQUEST-Q    #
  44.  
  45.  
  46. # 
  47. *     BUILD THE WORKLIST DEFINITION TABLE 
  48. # 
  49.  
  50.       WDF$TYPE[CSWDF"SCRTR"] = 0;      # SS RETURN-TIMER-REQUEST       #
  51.       WDF$CADD[CSWDF"SCRTR"] = LOC(SSCRTR);   # NOT NEEDED IN CS       #
  52.  
  53.       WDF$TYPE[CSWDF"DUMMY"] = 1;      # DUMMY TYPE 1 WLE              #
  54.       WDF$CADD[CSWDF"DUMMY"] = LOC(DISABLE);
  55.  
  56.       WDF$TYPE[CSWDF"SACNI"] = 1;      # SS CONTROL-NETWORK-INTERFACE  #
  57.       WDF$CADD[CSWDF"SACNI"] = LOC(ISSACNI);
  58.  
  59.       WDF$TYPE[CSWDF"SOEOP"] = 0;      # SS EXECUTE OVERLAY PROGRAM    #
  60.       WDF$RADD[CSWDF"SOEOP"] = LOC(SSOEOP); 
  61.  
  62.       WDF$TYPE[CSWDF"CTDNQ"] = 0 ;       # CS DISPATCH NCF DATA QUEUE  #
  63.       WDF$RADD[CSWDF"CTDNQ"] = LOC(CSTDNQ) ;
  64.  
  65.       WDF$TYPE[CSWDF"CTSNR"] = 1;      # CS START-NCF-READ-REQUEST     #
  66.       WDF$CADD[CSWDF"CTSNR"] = LOC(ICSTSNR);
  67.  
  68.       WDF$TYPE[CSWDF"CSDNS"] = 0;      # CS DISPATCH NPU SUPERVISION #
  69.       WDF$RADD[CSWDF"CSDNS"] = LOC(CSSDNS); 
  70.  
  71.       WDF$TYPE[CSWDF"CSRSS"] = 2; 
  72.       WDF$OVN[CSWDF"CSRSS"] = CSODF"CLEVT";  # EVENT PROCESSING OVL    #
  73.       WDF$OEN[CSWDF"CSRSS"] = EPEVT"CSRSS";  # ENTRY POINT = CSSRSS    #
  74.  
  75.       WDF$TYPE[CSWDF"CEDEQ"] = 2; 
  76.       WDF$OVN[CSWDF"CEDEQ"] = CSODF"CLEVT";  # EVENT PROCESSING OVL    #
  77.       WDF$OEN[CSWDF"CEDEQ"] = EPEVT"CEDEQ";  # ENTRY POINT = CSSDEQ    #
  78.  
  79.       WDF$TYPE[CSWDF"CCDQE"] = 2; 
  80.       WDF$OVN[CSWDF"CCDQE"] = CSODF"CLOIO";  # OPR I/O PROCESSING OVL  #
  81.       WDF$OEN[CSWDF"CCDQE"] = EPOIO"CCDQE";  # ENTRY POINT = CSSDQE    #
  82.  
  83.       WDF$TYPE[CSWDF"COBOE"] = 2; 
  84.       WDF$OVN[CSWDF"COBOE"] = CSODF"CLOIO";  # OPR I/O PROCESSING OVL  #
  85.       WDF$OEN[CSWDF"COBOE"] = EPOIO"COBOE";  # ENTRY POINT = CSSDOO    #
  86.  
  87.       WDF$TYPE[CSWDF"COGHL"] = 2; 
  88.       WDF$OVN[CSWDF"COGHL"] = CSODF"CLOIO";  # OPR I/O PROCESSING OVL  #
  89.       WDF$OEN[CSWDF"COGHL"] = EPOIO"COGHL";  # ENTRY POINT = CSSRHR    #
  90.  
  91.       WDF$TYPE[CSWDF"COROO"] = 2; 
  92.       WDF$OVN[CSWDF"COROO"] = CSODF"CLOIO";  # OPR I/O PROCESSING OVL  #
  93.       WDF$OEN[CSWDF"COROO"] = EPOIO"COROO";  # ENTRY POINT = CSSROO    #
  94.  
  95.       WDF$TYPE[CSWDF"CSROC"] = 2; 
  96.       WDF$OVN[CSWDF"CSROC"] = CSODF"CLCMR";  # COMMAND RECOGNITION OVL #
  97.       WDF$OEN[CSWDF"CSROC"] = EPCMR"CSROC";  # ENTRY POINT = CSSROC    #
  98.  
  99.       WDF$TYPE[CSWDF"CSDNR"] = 2; 
  100.       WDF$OVN[CSWDF"CSDNR"] = CSODF"CLCMP";  # CMD PRE-PROCESSOR OVL   #
  101.       WDF$OEN[CSWDF"CSDNR"] = EPCMP"CSDNR";  # ENTRY POINT = CSSDNR    #
  102.  
  103.       WDF$TYPE[CSWDF"CSDRC"] = 2; 
  104.       WDF$OVN[CSWDF"CSDRC"] = CSODF"CLCMP";  # CMD PRE-PROCESSOR OVL   #
  105.       WDF$OEN[CSWDF"CSDRC"] = EPCMP"CSDRC";  # ENTRY POINT = CSSDRC    #
  106.  
  107.       WDF$TYPE[CSWDF"CSDPE"] = 2; 
  108.       WDF$OVN[CSWDF"CSDPE"] = CSODF"CLOSS";  # OPR SUPERVISION SM OVL  #
  109.       WDF$OEN[CSWDF"CSDPE"] = EPOSS"CSDPE";  # ENTRY POINT = CSSDPE    #
  110.  
  111.       WDF$TYPE[CSWDF"CSDOS"] = 2; 
  112.       WDF$OVN[CSWDF"CSDOS"] = CSODF"CLOSS";  # OPR SUPERVISION SM OVL  #
  113.       WDF$OEN[CSWDF"CSDOS"] = EPOSS"CSDOS";  # ENTRY POINT = CSSDOS    #
  114.  
  115. # 
  116. *     BUILD THE QUEUE TO WORKLIST DEFINITION TABLE
  117. # 
  118.  
  119.       QWD$WLN[TABLENUM(OTQ)] = CSWDF"SACNI";   # OUTGOING-TRAFFIC-Q    #
  120.  
  121.       QWD$WLN[TABLENUM(CTQ)] = CSWDF"CTSNR";   # CONFIGURE-TERMAL-REQ-Q#
  122.  
  123.       QWD$WLN[TABLENUM(NPUQ)] = CSWDF"CSDNS";  # NPU-SUPERVISION-SM-Q  #
  124.  
  125.       QWD$WLN[TABLENUM(CNQ)] = CSWDF"CCDQE";   # CONN TRAFFIC QUEUE # 
  126.  
  127.       QWD$WLN[TABLENUM(PEQ)] = CSWDF"CSDPE";   # PROTOCOL EVENT QUEUE # 
  128.  
  129.       QWD$WLN[TABLENUM(OSQ)] = CSWDF"CSDOS";   # OPERATOR SUPER SM Q #
  130.  
  131.       QWD$WLN[TABLENUM(OPTQ)] = CSWDF"CSROC";  # OPERATOR TYPEIN QUEUE #
  132.  
  133.       QWD$WLN[TABLENUM(VCQ)] = CSWDF"CSDNR";   # VALID COMMAND QUEUE #
  134.  
  135.       QWD$WLN[TABLENUM(RCQ)] = CSWDF"CSDRC";   # ROUTED COMMAND QUEUE # 
  136.  
  137.       QWD$WLN[TABLENUM(EVQ)] = CSWDF"CEDEQ";   # EVENT QUEUE #
  138.  
  139.       QWD$WLN[TABLENUM(HRQ)] = CSWDF"COGHL";   # HISTORY REQUEST QUEUE #
  140.  
  141.       QWD$WLN[TABLENUM(ORQ)] = CSWDF"COBOE";   # OPERATOR RESPONSE Q   #
  142.  
  143.       QWD$WLN[TABLENUM(SSQ)] = CSWDF"CSRSS";   # SOLICITED STATUS QUEUE#
  144.  
  145.       QWD$WLN[TABLENUM(ODEQ)] = CSWDF"COROO";  # OPR DIRECTED EVENT Q  #
  146.  
  147.       QWD$WLN[TABLENUM(WBQ)] = CSWDF"DUMMY";   # DUMMY WLE FOR WBQ     #
  148.  
  149.  
  150.       END  #CSIBWD #
  151.       TERM