Table of Contents

HCRTRMN

Table Of Contents

  • [00010] PRGM HCRTRMN
  • [00055] PROC BLINK
  • [00056] PROC OSCHAPP
  • [00057] PROC XTRACE

Source Code

HCRTRMN.txt 
  1. *DECK HCRTRMN 
  2. USETEXT NIPDEF
  3. USETEXT AHEADER 
  4. USETEXT AT
  5. USETEXT PARAMS
  6. USETEXT PT
  7. USETEXT SUPMSG
  8.  
  9.  
  10. PRGM HCRTRMN; 
  11. STARTIMS; 
  12.  #
  13. *1DC  HCRTRMN 
  14. * 
  15. *     1. PROC NAME           AUTHOR              DATE 
  16. *        HCRTRMN             C. BITTNER          82/02/01 
  17. * 
  18. *     2. FUNCTIONAL DESCRIPTION 
  19. *        SEND CR/TRM/N  TO NVF
  20. * 
  21. *     3. METHOD USED
  22. *        USING THE BUFFER FROM CR/TRM/R 
  23. *          FORMAT THE APPLICATION HEADER
  24. *          FORMAT THE CR/TRM/N MESSAGE
  25. *          QUEUE THE CR/TRM/N MESSAGE ON NVF-S ACB
  26. * 
  27. *     4. ENTRY PARAMETERS 
  28. *        PARAMS1 - ADDRESS OF SM BUFFER (CR/TRM/R)
  29. * 
  30. *     5. EXIT PARAMETERS
  31. *        NONE 
  32. * 
  33. *     6. COMDECKS CALLED AND SYMPL TEXTS USED 
  34. *        NIPDEF          AHEADER          AT
  35. *        PARAMS          PT               SUPMSG
  36. * 
  37. *     7. ROUTINES CALLED
  38. *        BLINK - QUEUE MESSAGE ON APPL-S ACB
  39. *        OSCHAPP - SCHEDULE APPLICATION 
  40. *        XTRACE - TRACE PROCEDURE CALL
  41. * 
  42. *     8. DAYFILE MESSAGES AND OTHER IMPORTANT INFORMATION 
  43. *        THIS IS A SECONDARY OVERLAY CALLED BY HCSTTP.
  44. *        W A R N I N G - THIS PROGRAM CANNOT EXCEED THE SECONDARY 
  45. *CALL OSSIZE
  46. * 
  47.  #
  48. STOPIMS;
  49.  
  50. # 
  51.       EXTERNAL VARIABLES
  52. # 
  53.  XREF 
  54.    BEGIN
  55.    PROC BLINK;               # QUEUE MSG ON APPL-S ACB                 #
  56.    PROC OSCHAPP;             # SCHEDULE APPLICATION                    #
  57.    PROC XTRACE;              # TRACE PROCEDURE CALL                    #
  58.    LABEL RJMAIN;             # RETURN ADDRESS IN OVLCALL               #
  59.    END
  60.  
  61. # 
  62.       INTERNAL VARIABLES
  63. # 
  64.       ITEM SMBUF;            # ADDRESS OF SM BUFFER                    #
  65.  
  66. #**********************************************************************#
  67.  
  68.       BEGIN 
  69.  
  70.       CONTROL IFEQ DEBUG,1; 
  71.         XTRACE("HCRTR");
  72.       CONTROL FI; 
  73.  
  74.       SMBUF = PARAMS1;
  75.  
  76. #  SET UP APPLICATION HEADER                                           #
  77.  
  78.       P<AHEADER> = SMBUF + AIPHSIZE;            # BASE APPL HEADER     #
  79.       ABHTLC[0] = LCRTRMN;  # LENGTH OF CR/TRM/N                       #
  80.       P<SUPMSG> = P<AHEADER> + ABHSIZE;  # FWA OF CR/TRM/R             #
  81.  
  82. #  FORMAT CR/TRM/N                                                     #
  83.  
  84.       RC[0] = 0;             # CLEAR REASON CODE FIELD                 #
  85.       RB[0] = TRUE;          # SET NORMAL RESPONSE BIT                 #
  86.  
  87. #  QUEUE CR/TRM/N ON NVF-S ACB                                         #
  88.  
  89.       BLINK(SMBUF,ATACBA[NVFAN]);  # LINK MSG ON NVF-S ACB             #
  90.       OSCHAPP(ATACBA[NVFAN]);  # SCHEDULE APPLICATION                  #
  91.       GOTO RJMAIN;           # RETURN TO CALLING PROGRAM               #
  92.       END 
  93. TERM