Table of Contents

CSIBSW

Table Of Contents

  • [00003] PROC CSIBSW
  • [00004] CSIBSW - BUILD STATUS WORKLIST DEFINITIONS.
  • [00008] BUILD STATUS WORKLIST DEFINITIONS.
  • [00031] PROC SSACNI
  • [00032] PROC SSOCOL
  • [00033] PROC CSTSNR

Source Code

CSIBSW.txt 
  1. *DECK     CSIBSW
  2. USETEXT          TEXTSS 
  3. PROC CSIBSW;
  4. # TITLE CSIBSW - BUILD STATUS WORKLIST DEFINITIONS.                   # 
  5.  
  6.       BEGIN # CSIBSW #
  7. # 
  8. **    CSIBSW - BUILD STATUS WORKLIST DEFINITIONS. 
  9. * 
  10. *     A. LIM.    81/10/08 
  11. * 
  12. *     THIS ROUTINE IS PART OF THE INTIALIZATION PROCESS FOR CS. 
  13. *     ITS JOB IS TO BUILD THE STATUS WORKLIST DEFINITIONS TABLE.
  14. * 
  15. *     PROC CSIBSW 
  16. * 
  17. *     ENTRY NONE. 
  18. * 
  19. *     EXIT       SWT TABLE INITIALIZED. 
  20. * 
  21. # 
  22.  
  23.  
  24.  
  25.  
  26. # 
  27. ****  PROC CSIBSW XREF LIST.
  28. # 
  29.       XREF
  30.         BEGIN 
  31.         PROC SSACNI;
  32.         PROC SSOCOL;
  33.         PROC CSTSNR;
  34.         END 
  35. # 
  36. ****
  37. # 
  38.  
  39.  
  40.  
  41.  
  42.       SWTA = 3;                        # NUMBER OF ACTIVE ENTRIES      #
  43.  
  44.  
  45.       SWT$RTN[0] = LOC(SSACNI);        # SS CONTROL-NETWORK-INTERFACE  #
  46.       SWT$ADDR1[0] = LOC(SWTA); 
  47.       SWT$INIT1[0] = 0; 
  48.       SWT$ADDR2[0] = 0;                # DISABLE SECOND CHECK          #
  49.  
  50.  
  51.       SWT$RTN[1] = LOC(CSTSNR);        # CS START-NCF-READ-REQUEST     #
  52.       SWT$ADDR1[1] = LOC(SWTA); 
  53.       SWT$INIT1[1] = 0; 
  54.       SWT$ADDR2[1] = 0;                # DISABLE SECOND CHECK          #
  55.  
  56.  
  57.       SWT$RTN[2] = LOC(SSOCOL);        # SS CONTROL OVERLAY LOADING    #
  58.       SWT$ADDR1[2] = LOC(SWTA); 
  59.       SWT$INIT1[2] = 0; 
  60.       SWT$ADDR2[2] = 0;                # DISABLE SECOND CHECK          #
  61.  
  62.  
  63.  
  64.       END # CSIBSW #
  65.       TERM