Table of Contents

HCSUPCB

Table Of Contents

  • [00009] PRGM HCSUPCB

Source Code

HCSUPCB.txt 
  1. *DECK HCSUPCB 
  2. USETEXT NIPDEF
  3. USETEXT PARAMS
  4. USETEXT AHEADER 
  5. USETEXT AT
  6. USETEXT PT
  7. USETEXT ACB 
  8. USETEXT SUPMSG
  9. PRGM HCSUPCB; 
  10.  STARTIMS ; 
  11.  #
  12. *1DC  HCSUPCB 
  13. * 
  14. *      1. PROC NAME              AUTHOR           DATE
  15. *         HCSUPCB                L.T. NGUYEN      81-08-05
  16. * 
  17. *      2. FUNCTIONAL DESCRIPTION
  18. *         FORM AND SEND SUP-CB MSG TO PROPER CS.
  19. * 
  20. *      3. METHOD
  21. *         SET APPICATION BLOCK HEADER AND SUPERVISOR MESSAGE, THEN
  22. *         USE BLINK TO LINK IT INTO THAT CS'ACB 
  23. * 
  24. *      4. ENTRY PARAMETERS
  25. *         - PARAMS1       DESTINATION NODE
  26. *         - PARAMS2       SOURCE NODE 
  27. * 
  28. *      5. EXIT PARAMETERS 
  29. *         NONE
  30. * 
  31. *      6. SYMPL TEXTS USED
  32. *         NIPDEF
  33. *         SUPMSG
  34. *         AT
  35. *         AHEADER 
  36. *         ACB 
  37. *         PARAMS
  38. * 
  39. *      7. ROUTINES CALLED 
  40. *         BLINK - LINK MESSAGE ON DATA RING 
  41. *         MGETS - ALLOCATE BUFFER 
  42. *         OSCHAPP - SCHEDULE APPLICATION
  43. *         XTRACE - TRACE PROCEDURE CALL 
  44. * 
  45. *      8. DAYFILE MESSAGES AND OTHER IMPORTANT INFORMATION
  46. *         THIS PROCEDURE IS CALLED BY NPREGLL 
  47. *         W A R N I N G -THIS PROGRAM CANNOT EXCEED THE SECONDARY 
  48. *CALL OSSIZE
  49. * 
  50. * 
  51.  #
  52. STOPIMS ; 
  53.  
  54. # 
  55.       EXTERNAL REF
  56. # 
  57.       XREF PROC MGETS ;                     # GET BUFFER               #
  58.       XREF PROC BLINK ;                     # LINK MSG INTO ITS ACB    #
  59.       XREF PROC OSCHAPP ;                   # SCHEDULER                #
  60.       XREF PROC XTRACE ;                    # DEBUG PROC               #
  61.       XREF LABEL RJMAIN ; 
  62.  
  63. # 
  64. # 
  65.       ITEM BUFWA ;                          # BUFFER ADDRESS           #
  66.  
  67.       BEGIN                                 # HCSUPCB                  #
  68.         CONTROL IFEQ DEBUG,1; 
  69.         XTRACE("HCSUP") ; 
  70.         CONTROL FI ;
  71.  
  72.         MGETS(DBHSIZE+ABHSIZE+LSUPCB,BUFWA,TRUE);   # GET BUFFER       #
  73.         P<AHEADER> = BUFWA + BLKHSIZE ;    # APPLICATION BLOCK         #
  74.         P<SUPMSG> = BUFWA + BLKHSIZE + ABHSIZE ; # MSG ADDRESS         #
  75.  
  76.         ABHABT[0] = APPPN ;                 # BLOCK TYPE = 4           #
  77.         ABHACT[0] = CT8ASCII ;              # CHAR TYPE IS 2           #
  78.         ABHTLC[0] = 2 ; 
  79.         ABHCN[0] = 0 ;                      # SUPERVISORY MESSAGE      #
  80.         ABHDN[0]  = PARAMS1 ;               # DESTINATION = HOST NODE  #
  81.         ABHSN[0]  = PARAMS2;                # SOURCE = TERMINAL NODE   #
  82.  
  83.         PFCSFC[0] = SUPCB ;                 # SUP-CB                   #
  84.  
  85.         P<ACB> = ATACBA[PROCAN[CSORD]];  # ACB OF CS                   #
  86.  
  87.         BLINK(BUFWA,P<ACB>);         # LINK IT INTO BLOCK              #
  88.  
  89.         OSCHAPP(P<ACB>) ;            # CALL SCHEDULER                  #
  90.  
  91.         GOTO RJMAIN ; 
  92.       END                                   # HCSUPCB                  #
  93.       TERM