User Tools

Site Tools


cdc:nos2.source:nam5871:hcraccu

HCRACCU

Table Of Contents

  • [00009] PROC HCRACCU
  • [00059] PROC BLINK
  • [00060] PROC MGETS
  • [00061] PROC OSCHAPP
  • [00062] PROC XTRACE

Source Code

HCRACCU.txt
  1. *DECK HCRACCU
  2. USETEXT ACNB
  3. USETEXT AHEADER
  4. USETEXT AT
  5. USETEXT NIPDEF
  6. USETEXT PARAMS
  7. USETEXT PT
  8. USETEXT SUPMSG
  9. PROC HCRACCU;
  10. STARTIMS;
  11. #
  12. *1DC HCRACCU
  13. * 1. PROC NAME AUTHOR DATE
  14. * HCRACCU C. BITTNER 81/12/01
  15. *
  16. * 2. FUNCTIONAL DESCRIPTION
  17. * FORMAT AND SEND CONNECTION ACCEPTED MESSAGE (CR/ACC/U)
  18. * TO NVF
  19. *
  20. * 3. METHOD
  21. * ALLOCATE A BUFFER FOR MESSAGE
  22. * SET UP APPLICATION BLOCK HEADER
  23. * FORMAT CR/ACC/U TEXT
  24. * QUEUE MESSAGE ON NVF-S ACB
  25. *
  26. * 4. ENTRY PARAMETERS
  27. * PARAMS1 - ACNB ADDR OF APPL WHICH ACCEPTED CONNECTION
  28. *
  29. * 5. EXIT PARAMETERS
  30. * NONE
  31. *
  32. * 6. COMDECKS CALLED AND SYMPL TEXTS USED
  33. * ACNB
  34. * AHEADER
  35. * AT
  36. * NIPDEF
  37. * PARAMS
  38. * PT
  39. * SUPMSG
  40. *
  41. * 7. ROUTINES AND OVERLAYS CALLED
  42. * BLINK - QUEUE MESSAGE ON APPL-S ACB
  43. * MGETS - ALLOCATE EMPTY BUFFER
  44. * OSHCAPP - SCHEDULE APPLICATION
  45. * XTRACE - RECORD PROCEDURE CALL
  46. *
  47. * 8. DAYFILE MESSAGES AND OTHER IMPORTANT INFORMATION
  48. * THIS PROCEDURE IS CALLED BY SECONDARY OVERLAY
  49. * SENDACC VIA HCSTTP.
  50. *
  51.  #
  52. STOPIMS;
  53.  
  54. #
  55.   EXTERNAL VARIABLES
  56. #
  57. XREF
  58. BEGIN
  59. PROC BLINK; # QUEUE SM ON APP-S ACB #
  60. PROC MGETS; # ALLOCATE EMPTY BUFFER #
  61. PROC OSCHAPP; # SCHEDULE APPLICATION #
  62. PROC XTRACE; # RECORD PROCEDURE CALL #
  63. END
  64.  
  65. #
  66.   INTERNAL VARIABLES
  67. #
  68. ITEM BUFADDR; # SM BUFFER ADDRESS #
  69.  
  70.  
  71. #**********************************************************************#
  72.  
  73. BEGIN
  74.  
  75. CONTROL IFEQ DEBUG,1;
  76. XTRACE("HCRAC") ;
  77. CONTROL FI;
  78.  
  79. # GET BUFFER TO HOLD CR/ACC/U MESSAGE #
  80.  
  81. MGETS(LCRACC + BLKHSIZE + ABHSIZE,BUFADDR,TRUE);
  82.  
  83. # SET UP APPLICATION BLOCK HEADER #
  84.  
  85. P<AHEADER> = BUFADDR + BLKHSIZE; # ADDR TO HOLD ABH #
  86. ABHABT[0] = APPCMD; # BLOCK TYPE #
  87. ABHACT[0] = CT60TRANS; # CHARACTER TYPE #
  88. ABHTLC[0] = LCRACC; # TEXT LENGTH #
  89.  
  90. # SET UP CR/ACC/U TEXT #
  91.  
  92. P<SUPMSG> = BUFADDR + BLKHSIZE + ABHSIZE; # BASE SM #
  93. P<SMNVF> = P<SUPMSG>; # BASE CR/ACC/U #
  94. PFCSFC[0] = CRACC; # SET FUNCTION CODE #
  95. P<ACNB> = PARAMS1; # BASE APPLICATION CONNECTION BLOCK #
  96. CRAACN[0] = ACNBACN[0]; # APPLICATION CONNECTION NUMBER #
  97. CRDT[0] = ACNBDT[0]; # DEVICE TYPE #
  98. CRVCB[0] = ACNBVCBO[0]; # VCB ORDINAL #
  99.  
  100. # QUEUE CR/ACC/U ON APPL-S ACB #
  101.  
  102. ACNBLIM[0] = FALSE; # CLEAR CONN IN LIMBO FLAG #
  103. BLINK(BUFADDR,ATACBA[NVFAN]); # QUEUE MSG ON APP-S ACB #
  104. OSCHAPP(ATACBA[NVFAN]); # SCHEDULE APPLICATION #
  105. RETURN ; # RETURN TO CALLING PROGRAM #
  106. END
  107. TERM
cdc/nos2.source/nam5871/hcraccu.txt ยท Last modified: 2023/08/05 17:22 by Site Administrator