Table of Contents

HCRRAPR

Table Of Contents

  • [00010] PROC HCRRAPR
  • [00053] PROC XTRACE
  • [00054] PROC BLINK
  • [00055] PROC OSCHAPP

Source Code

HCRRAPR.txt 
  1. *DECK HCRRAPR 
  2. USETEXT NIPDEF
  3. USETEXT SUPMSG
  4. USETEXT AHEADER 
  5. USETEXT PARAMS
  6. USETEXT PT
  7. USETEXT AT
  8. USETEXT NHEADER 
  9. USETEXT ACNB
  10. PROC HCRRAPR ;        # SEND CR/RAP/R TO NVF                           #
  11. STARTIMS; 
  12.  #
  13. *1DC  HCRRAPR 
  14. * 
  15. *     1. PROC NAME           AUTHOR              DATE 
  16. *        HCRRAPR             A. BEN-ARTZI        82/05/06 
  17. * 
  18. *     2. FUNCTIONAL DESCRIPTION 
  19. *        SEND CR/RAP/R TO NVF BASED ON ICN/AP/R FROM CCP
  20. * 
  21. *     3. METHOD USED
  22. *        RE-FORMAT THE ICN/AP/R TO BE A CR/RAP/R BUFFER 
  23. *        SET APPLICATION HEADER 
  24. *        QUEUE TO NVF-S ACB 
  25. * 
  26. *     4. ENTRY PARAMETERS 
  27. *        PARAMS1 - ADDRESS OF ICN/AP/R BUFFER 
  28. *        PARAMS2 - APPLICATION CONNECTION NUMBER
  29. * 
  30. *     5. EXIT PARAMETERS
  31. *        NONE 
  32. * 
  33. *     6. COMDECKS CALLED AND SYMPL TEXTS USED 
  34. *        NIPDEF     SUPMSG     AHEADER     PARAMS 
  35. *        PT     AT
  36. * 
  37. *     7. ROUTINES AND OVERLAYS CALLED 
  38. *        XTRACE - TRACE PROCEDURE CALL
  39. *        BLINK - LINK DATA BLOCK TO DATA RING 
  40. *        OSCHAPP - SCHEDULE APPLICATION 
  41. * 
  42. *     8. DAYFILE MESSAGES AND OTHER IMPORTANT INFORMATION 
  43. *        THIS PROCEDURE IS CALLED BY PRIMARY OVERLAY STRTCON
  44. *        VIA HCSTTP.
  45. * 
  46.  #
  47. STOPIMS;
  48. # 
  49.       EXTERNAL VARIABLE 
  50. # 
  51.  XREF 
  52.    BEGIN
  53.    PROC XTRACE ;           # DEBUG TRACE CALLS                         #
  54.    PROC BLINK  ;           # LINK MESSAGE TO APPLICATION               #
  55.    PROC OSCHAPP;           # SCHEDULE APPLICATION                      #
  56.    END
  57. # 
  58.       INTERNAL VARIABLES
  59. # 
  60. #**********************************************************************#
  61.       BEGIN 
  62.       CONTROL IFEQ DEBUG,1  ; 
  63.         XTRACE("CRRAP") ; 
  64.       CONTROL FI            ; 
  65. # 
  66.       CHANGE HEADER TO APPLICATION HEADER 
  67. # 
  68.       P<AHEADER> = PARAMS1 + BLKHSIZE ; 
  69.       ABHABT[0]  =  APPCMD ;
  70.       ABHACT[0]  =  CT60TRANS ; 
  71.       P<NHEADER> = P<AHEADER>;
  72.       ABHTLC[0] = (2 * CC[0] + 14)/15;
  73.       ABHABN[0]  = 0 ;
  74.       ABHADR[0]  = 0 ;
  75.       ABHDBC[0]  = 0 ;
  76. # 
  77.       SET UP NEW FIELDS IN MESSAGE
  78. # 
  79.       P<SUPMSG> = P<AHEADER> + ABHSIZE ;
  80.       P<SMNIP > = P<SUPMSG> ; 
  81.       P<SMNVF > = P<SUPMSG> ; 
  82.       PFCSFC[0]  = CRRAP ;
  83.       ICNCN [0]  =  0    ;      # ZERO NETWORK CONNECTION FIELD        #
  84.       CRACN [0]  =  PARAMS2 ;   # AND SET APPLICATION CONNECTION NUMBER#
  85. # 
  86.       AND SEND IT TO NVF
  87. # 
  88.       BLINK (PARAMS1,ATACBA[NVFAN]) ;  # QUEUE TO NVF"S ACB            #
  89.       OSCHAPP (ATACBA[NVFAN])       ; 
  90.       RETURN ;
  91.       END 
  92. TERM