home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / CLIPPER / NFSRC.ZIP / NWTTS2.ASM < prev    next >
Encoding:
Assembly Source File  |  1991-08-16  |  2.7 KB  |  102 lines
  1. ; File......: NWTTS2.ASM
  2. ; Author....: James R. Zack
  3. ; CIS ID....: 75410,1567
  4. ; Date......: $Date:   15 Aug 1991 23:07:52  $
  5. ; Revision..: $Revision:   1.2  $
  6. ; Log file..: $Logfile:   E:/nanfor/src/nwtts2.asv  $
  7. ; 
  8. ; This is an original work by James Zack and is placed in the
  9. ; public domain.
  10. ;
  11. ; Modification history:
  12. ; ---------------------
  13. ;
  14. ; $Log:   E:/nanfor/src/nwtts2.asv  $
  15. ;  
  16. ;     Rev 1.2   15 Aug 1991 23:07:52   GLENN
  17. ;  Forest Belt proofread/edited/cleaned up doc
  18. ;  
  19. ;     Rev 1.1   11 Apr 1991 23:57:18   GLENN
  20. ;  Librarian error!  The ft_ extension was added to the function name 
  21. ;  after testing, by mistake, and I didn't realize that .ASM functions
  22. ;  _had_ to obey the 10-char limit, thus linkers couldn't find the 
  23. ;  proper symbol.  Changed this to ft_ttsabor().  Apologies to Mr. Zack.
  24. ;  
  25. ;     Rev 1.0   01 Apr 1991 01:03:40   GLENN
  26. ;  Nanforum Toolkit
  27. ;  
  28.  
  29. ; $DOC$
  30. ; $FUNCNAME$
  31. ;     FT_TTSABORT()
  32. ; $CATEGORY$
  33. ;     NetWare
  34. ; $ONELINER$
  35. ;     Abort explicit and implicit NetWare TTS transactions
  36. ; $SYNTAX$
  37. ;     FT_TTSABORT() -> nResult
  38. ; $ARGUMENTS$
  39. ;     None
  40. ; $RETURNS$
  41. ;       0 - Abort Successful (backout completed)
  42. ;     253 - Transaction Tracking disabled (no backout performed)
  43. ;     254 - Transaction ended, records locked (No backout performed)
  44. ;     255 - No explicit transactions active
  45. ; $DESCRIPTION$
  46. ;    Consult your NetWare documentation for details on the NetWare 
  47. ;    Transaction Tracking System.
  48. ; $EXAMPLES$
  49. ;    nResult := FT_TTSABORT()
  50. ;    DO CASE
  51. ;       CASE nResult == 0
  52. ;          ? "TTS aborted"
  53. ;       CASE nResult == 253
  54. ;          ? "Transction tracking, no backout performed"
  55. ;       CASE nResult == 254
  56. ;          ? "Transaction ended, records locked, no backout performed"
  57. ;       CASE nResult == 255
  58. ;          ? "No transactions active"
  59. ;       OTHERWISE
  60. ;          ? "Unknown result"
  61. ;    ENDCASE
  62. ; $SEEALSO$
  63. ;    FT_TTSAVAIL() FT_TTSBEGIN() FT_TTSEND() FT_TTSSTAT()
  64. ; $END$
  65. ;
  66. ;
  67.  
  68.  
  69. PUBLIC    FT_TTSABOR
  70. EXTRN     __RETNI:FAR
  71. extrn     __RET:FAR
  72. _NanFor  SEGMENT 'CODE'
  73.           ASSUME cs:_NanFor
  74. FT_TTSABOR PROC    FAR
  75.           push    bp
  76.           mov     bp,sp
  77.           push    ds
  78.           push    es
  79.           push    si
  80.           push    di
  81.           mov     ah,0c7h          ; Novell API function c7
  82.           mov     al,03h           ; Subfunction 02
  83.           int     21h              ; TTS Abort Transaction
  84.           mov     ah,00h
  85.           push    ax
  86.           call    __RETNI
  87.           add     sp,2
  88.           pop     di
  89.           pop     si
  90.           pop     es
  91.           pop     ds
  92.           pop     bp
  93.           call    __RET
  94.           ret
  95.  
  96. FT_TTSABOR endp
  97.  
  98. _NanFor   ends
  99.  
  100.           end
  101. 
  102.