Table of Contents

NTCNTAR

Table Of Contents

  • [00009] PRGM NTCNTAR
  • [00058] PROC LOCLLCB
  • [00059] PROC MGETS
  • [00060] PROC NFOB
  • [00061] PROC XTRACE

Source Code

NTCNTAR.txt 
  1. *DECK NTCNTAR 
  2. USETEXT NIPDEF
  3. USETEXT AHEADER 
  4. USETEXT LLCB
  5. USETEXT NCNB
  6. USETEXT PARAMS
  7. USETEXT SUPMSG
  8.  
  9. PRGM NTCNTAR; 
  10. STARTIMS; 
  11.  #
  12. *1DC  NTCNTAR 
  13. * 
  14. *     1. PROC NAME           AUTHOR              DATE 
  15. *        NTCNTAR             C. BITTNER          82/02/01 
  16. * 
  17. *     2. FUNCTIONAL DESCRIPTION 
  18. *        SEND TCN/TA/R TO CCP 
  19. * 
  20. *     3. METHOD USED
  21. *        ALLOCATE BUFFER FOR TCN/TA/R MESSAGE 
  22. *        FORMAT APPLICATION BLOCK HEADER
  23. *        SET UP TCN/TA/R MESSAGE
  24. *        LINK MESSAGE ON PIP OUTBOUND CHAIN 
  25. * 
  26. *     4. ENTRY PARAMETERS 
  27. *        PARAMS1 - NCNB ADDRESS 
  28. *        PARAMS2 - REASON CODE FOR TCNRC
  29. * 
  30. *     5. EXIT PARAMETERS
  31. *        NONE 
  32. * 
  33. *     6. COMDECKS CALLED AND SYMPL TEXTS USED 
  34. *        NIPDEF          AHEADER          LLCB
  35. *        NCNB            PARAMS           SUPMSG
  36. *        OSSIZE 
  37. * 
  38. *     7. ROUTINES CALLED
  39. *        LOCLLCB - LOCATE LLCB
  40. *        MGETS - ALLOCATE EMPTY BUFFER
  41. *        NFOB - LINK MESSAGE ON PIP OUTBOUND CHAIN
  42. *        XTRACE - TRACE PROCEDURE CALL
  43. * 
  44. *     8. DAYFILE MESSAGES AND OTHER IMPORTANT INFORMATION 
  45. *        THIS IS A SECONDARY OVERLAY CALLED BY NCSTTP.
  46. *        W A R N I N G - THIS PROGRAM CANNOT EXCEED THE SECONDARY 
  47. *CALL OSSIZE
  48. * 
  49.  #
  50. STOPIMS;
  51.  
  52. # 
  53.       EXTERNAL VARIABLES
  54. # 
  55.  
  56.  XREF 
  57.    BEGIN
  58.    PROC LOCLLCB;             # LOCATE LLCB                             #
  59.    PROC MGETS;               # ALLOCATE EMPTY BUFFER                   #
  60.    PROC NFOB;                # LINK MSG ON PIP OUTBOUND CHAIN          #
  61.    PROC XTRACE;              # TRACE PROCEDURE CALL                    #
  62.    LABEL RJMAIN;             # RETURN ADDRESS IN OVLCALL               #
  63.    END
  64.  
  65. # 
  66.       INTERNAL VARIABLES
  67. # 
  68.       ITEM BUFADDR;          # SM BUFFER ADDRESS                       #
  69.  
  70. #**********************************************************************#
  71.  
  72.       BEGIN 
  73.  
  74.       CONTROL IFEQ DEBUG,1; 
  75.         XTRACE("CNTAR");
  76.       CONTROL FI; 
  77.  
  78. #  GET BUFFER TO HOLD TCN/TA/R                                         #
  79.  
  80.       MGETS(NTCN + BLKHSIZE + ABHSIZE,BUFADDR,TRUE);
  81.  
  82. #  SET UP APPLICATION BLOCK HEADER                                     #
  83.  
  84.       P<AHEADER> = BUFADDR + BLKHSIZE;  # ADDR TO HOLD ABH             #
  85.       ABHABT[0] = APPCMD;    # BLOCK TYPE                              #
  86.       ABHACT[0] = CT8ASCII;  # CHARACTER TYPE                          #
  87.       ABHTLC[0] = LTCN;      # LENGTH OF TCN/TA/R                      #
  88.  
  89. #  SET UP TCN/TA/R                                                     #
  90.  
  91.       P<SUPMSG> = BUFADDR + BLKHSIZE + ABHSIZE;  # FWA OF TEXT         #
  92.       P<SMNIP> = P<SUPMSG>; 
  93.       PFCSFC[0] = TCNTA;
  94.       TCNRC[0] = PARAMS2;    # REASON CODE FOR THE TCNTA TO CCP        #
  95.       P<NCNB> = PARAMS1;
  96.       TCNCN[0] = NCNBCN[0];  # CONNECTION NUMBER                       #
  97.       LOCLLCB(NCNBHN[0],NCNBTN[0],P<LLCB>); 
  98.  
  99. #  LINK MESSAGE TO PIP OUTBOUND CHAIN                                  #
  100.  
  101.       NFOB(BUFADDR,P<LLCB>);
  102.       GOTO RJMAIN;           # RETURN TO CALLING PROGRAM               #
  103.       END 
  104. TERM