home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / CLIPPER / NFSRC.ZIP / NWTTS5.ASM < prev    next >
Encoding:
Assembly Source File  |  1991-08-16  |  2.5 KB  |  97 lines
  1. ; File......: NWTTS5.ASM
  2. ; Author....: James R. Zack
  3. ; CIS ID....: 75410,1567
  4. ; Date......: $Date:   15 Aug 1991 23:07:06  $
  5. ; Revision..: $Revision:   1.2  $
  6. ; Log file..: $Logfile:   E:/nanfor/src/nwtts5.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/nwtts5.asv  $
  15. ;  
  16. ;     Rev 1.2   15 Aug 1991 23:07:06   GLENN
  17. ;  Forest Belt proofread/edited/cleaned up doc
  18. ;  
  19. ;     Rev 1.1   14 Jun 1991 19:54:50   GLENN
  20. ;  Minor edit to file header
  21. ;  
  22. ;     Rev 1.0   01 Apr 1991 01:03:44   GLENN
  23. ;  Nanforum Toolkit
  24. ;  
  25.  
  26. ; $DOC$
  27. ; $FUNCNAME$
  28. ;     FT_TTSSTAT()
  29. ; $CATEGORY$
  30. ;     NetWare
  31. ; $ONELINER$
  32. ;     Verify if TTS transaction has been written to disk
  33. ; $SYNTAX$
  34. ;    FT_TTSSTAT( <nTransNumber> ) -> nResult
  35. ; $ARGUMENTS$
  36. ;    <nTransNumber> is the transaction number, returned from FT_TTSEND().
  37. ; $RETURNS$
  38. ;      0 - Success, transaction written to disk
  39. ;    255 - Transaction not yet written to disk
  40. ; $DESCRIPTION$
  41. ;    For further information on NetWare's Transaction Tracking System (TTS),
  42. ;    consult Novell's documentation.
  43. ; $EXAMPLES$
  44. ;    nResult := FT_TTSSTAT()
  45. ;    DO CASE
  46. ;       CASE nResult == 0
  47. ;          ? "Transaction wrttten to disk"
  48. ;       CASE nResult == 255
  49. ;          ? "Transaction not yet written to disk"
  50. ;       OTHERWISE
  51. ;          ? "Unknown result code"
  52. ;    ENDCASE
  53. ; $SEEALSO$
  54. ;    FT_TTSABORT() FT_TTSAVAIL() FT_TTSBEGIN() FT_TTSEND()
  55. ; $END$
  56.  
  57. PUBLIC    FT_TTSSTAT
  58. EXTRN     __PARNL:FAR
  59. EXTRN     __RETNI:FAR
  60. EXTRN     __RET:FAR
  61. _NanFor   SEGMENT 'CODE'
  62.           ASSUME cs:_NanFor
  63. FT_TTSSTAT  PROC    FAR
  64.           push    bp
  65.           mov     bp,sp
  66.           push    ds
  67.           push    es
  68.           push    si
  69.           push    di
  70.           mov     ax,1
  71.           push    ax
  72.           call    __PARNL
  73.           add     sp,2
  74.           mov     cx,dx
  75.           mov     dx,ax
  76.           mov     ah,0c7h          ; Novell API function c7
  77.           mov     al,04h           ; Subfunction 02
  78.           int     21h              ; TTS Transaction Status
  79.           mov     ah,00h
  80.           push    ax
  81.           call    __RETNI
  82.           add     sp,2
  83.           pop     di
  84.           pop     si
  85.           pop     es
  86.           pop     ds
  87.           pop     bp
  88.           call    __RET
  89.           ret
  90.  
  91. FT_TTSSTAT  endp
  92.  
  93. _NanFor   ends
  94.  
  95.           end
  96. 
  97.