Table of Contents

NS$LSN

Table Of Contents

  • [00005] PROC NS$LSN
  • [00007] NS$LSN - ASSIGN ACTIVITY SEQUENCE NUMBER.
  • [00011] ASSIGN ACTIVITY SEQUENCE NUMBER.

Source Code

NS$LSN.txt 
  1. *DECK NS$LSN
  2. USETEXT DEF$NS
  3. USETEXT NAT$NS
  4. USETEXT NPT$NS
  5. PROC NS$LSN; # ASSIGN ACTIVITY SEQUENCE NUMBER                         #
  6.  
  7. # TITLE NS$LSN - ASSIGN ACTIVITY SEQUENCE NUMBER.                      #
  8.  
  9.       BEGIN    # NS$LSN # 
  10. # 
  11. **    NS$LSN - ASSIGN ACTIVITY SEQUENCE NUMBER. 
  12. * 
  13. *     J.C. LEE    1981
  14. * 
  15. *     THIS ROUTINE ASSIGNS ACTIVITY SEQUENCE NUMBER.
  16. * 
  17. *     ENTRY:  
  18. *       NONE. 
  19. * 
  20. *     EXIT: 
  21. *       NONE. 
  22. * 
  23. *     METHOD: 
  24. *       INCREMENT LSN.
  25. *       IF LSN REACH LIMIT, RESET TO 1. 
  26. *       SET NPT$LSN TO LSN. 
  27. *       SET NAT$LSN TO LSN. 
  28. * 
  29. # 
  30.  
  31.       ITEM LSN        U; # LOAD SEQUENCE NUMBER FOR CURRENT ACTIVITY   #
  32.  
  33.       LSN = NPT$LSN[NTORD] + 1; # INCREMENT TO NEXT SEQUENCE NUMBER    #
  34.       IF LSN GR MAX$LSN 
  35.       THEN
  36.         LSN = 1;
  37.       NPT$LSN[NTORD] = LSN; 
  38.       NAT$LSN[0] = LSN; 
  39.  
  40.       RETURN; 
  41.       END # NS$LSN #
  42.       TERM