Table of Contents

UPACNB4

Table Of Contents

  • [00006] PRGM UPACNB4
  • [00049] PROC XTRACE

Source Code

UPACNB4.txt 
  1. *DECK UPACNB4 
  2. USETEXT NIPDEF
  3. USETEXT ACNB
  4. USETEXT PARAMS
  5. USETEXT SUPMSG
  6. PRGM UPACNB4; 
  7.  STARTIMS;
  8.  #
  9. *1DC  UPACNB4 
  10. * 
  11. *     1. PROC NAME           AUTHOR              DATE 
  12. *        UPACNB4             C. BITTNER          82/09/01 
  13. * 
  14. *     2. FUNCTIONAL DESCRIPTION 
  15. *        UPDATE ACNB WITH INFORMATION FROM CR/RCN/N.
  16. * 
  17. *     3. METHOD USED
  18. *        BASE CR/RCN/N MESSAGE
  19. *        UPDATE ACNB WITH CR/RCN/N INFORMATION
  20. * 
  21. *     4. ENTRY PARAMETERS 
  22. *        PARAMS1 - ACNB ADDRESS 
  23. *        PARAMS2 - SM BUFFER (CR/RCN/N) 
  24. * 
  25. *     5. EXIT PARAMETERS
  26. *        NONE 
  27. * 
  28. *     6. COMDECKS CALLED AND SYMPL TEXTS USED 
  29. *          NIPDEF            CONSTANT DEFINITIONS 
  30. *          ACNB              APPLICATION CONNECTION BLOCK TEMPLATE
  31. *          PARAMS            BUFFER FOR PASSING PARAMS TO/FROM SEC OVL. 
  32. *          SUPMSG            SUPERVISORY MESSAGE TEMPLATE 
  33. * 
  34. *     7. ROUTINES AND OVERLAYS CALLED 
  35. *          XTRACE            TRACE PROCEDURE CALL 
  36. * 
  37. *     8. DAYFILE MESSAGES AND OTHER IMPORTANT INFORMATION 
  38. *        THIS IS A SECONDARY OVERLAY CALLED BY HCSTTP.
  39. *        W A R N I N G - THIS PROGRAM CANNOT EXCEED THE SECONDARY 
  40. *CALL OSSIZE
  41.  #
  42. STOPIMS;
  43.  
  44. # 
  45.       EXTERNAL VARIABLES
  46. # 
  47.  XREF 
  48.    BEGIN
  49.    PROC XTRACE;              # TRACE PROCEDURE CALL                    #
  50.    LABEL RJMAIN;             # RETURN ADDR IN OVLCALL                  #
  51.    END
  52.  
  53. # 
  54.       INTERNAL VARIABLES
  55. # 
  56.       ITEM BUFADDR;          # SM BUFFER ADDRESS                       #
  57.  
  58.       BEGIN 
  59.  
  60.       CONTROL IFEQ DEBUG,1; 
  61.         XTRACE("ACNB4");
  62.       CONTROL FI; 
  63.  
  64.       P<ACNB> = PARAMS1;     # BASE ACNB                               #
  65.  
  66.       BUFADDR = PARAMS2;     # ADDR OF SM BUFFER                       #
  67.       P<SUPMSG> = BUFADDR + AIPHSIZE + ABHSIZE;  # FWA OF CR/RCN/N     #
  68.       P<SMNVF> = P<SUPMSG>; 
  69.       ACNBICT[0] = CRICT[0];  # INPUT CHAR TYPE FOR CONN               #
  70.       ACNBNXP[0] = CRNXP[0];  # NO TRANSPARENT DATA FLAG               #
  71.       ACNBALN[0] = CRALN[0]; # CONNECTION LIST NUMBER                  #
  72.       GOTO RJMAIN;           # RETURN TO CALLING PROGRAM               #
  73.       END 
  74. TERM