home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / netz / netapi / nwqueue.pa1 < prev    next >
Encoding:
Text File  |  1994-01-14  |  8.3 KB  |  165 lines
  1. {#Z+}
  2. (*(10U&l12D(s4099T&k2S*)
  3. {***************************************************************************}
  4. {** Program : NWQUEUE                                                     **}
  5. {***************************************************************************}
  6. {** Version : 1.4             ** Started : 11/11/91  ** Ended :   /  /    **}
  7. {***************************************************************************}
  8. {******************************** Description ******************************}
  9. {***************************************************************************}
  10. {** OOP library for Netware API                                           **}
  11. {**                                                                       **}
  12. {** This unit forms the second level object : NWQUEUE                     **}
  13. {** This object is a descandent of          : NETWARE                     **}
  14. {**                                                                       **}
  15. {**                                                                       **}
  16. {**                                                                       **}
  17. {**                                                                       **}
  18. {***************************************************************************}
  19. {******************************** Information ******************************}
  20. {***************************************************************************}
  21. {** Provides Netware Queue Management Services                            **}
  22. {**                                                                       **}
  23. {**                                                                       **}
  24. {**                                                                       **}
  25. {** This code is (c) 1991 - 1994 Antonio Covelli. ALL RIGHTS RESERVED.    **}
  26. {** Portions (c) Novell Inc,                                              **}
  27. {**                                                                       **}
  28. {**                                                                       **}
  29. {***************************************************************************}
  30.  
  31. {$I NETWARE.INC}
  32. {#Z-}
  33.  
  34. UNIT NWQUEUE;
  35.  
  36. INTERFACE
  37.  
  38. USES
  39.  
  40.   nwvar,
  41.   netware;
  42.  
  43. TYPE
  44.  
  45.   PQueueOBJ = ^QueueOBJ;
  46.   QueueOBJ  = OBJECT (NetwareOBJ)
  47.  
  48.     FUNCTION    AbortServicingQueueJobAndFileText (QueueID : OT_BinderyID; JobNumber : WORD;
  49.                                                    VAR FileName : FileOfText) : WORD;
  50.  
  51.     FUNCTION    AbortServicingQueueJobAndFileBinary (QueueID : OT_BinderyID; JobNumber : WORD;
  52.                                                      VAR FileName : FileOfByte) : WORD;
  53.  
  54.     FUNCTION    AttachQueueServerToQueue      (QueueID : OT_BinderyID) : WORD;
  55.  
  56.     function    ChangeJobPriority             (QueueID : OT_BinderyID; JobNumber : longint;
  57.                                                Priority : longint) : word;
  58.  
  59.     FUNCTION ChangeQueueJobEntry (QueueID : OT_BinderyID;
  60.                                   Job : JobStruct286) : WORD;
  61.  
  62.     FUNCTION ChangeQueueJobEntry2 (QueueID : OT_BinderyID;
  63.                                    Job : JobStructure) : WORD;
  64.  
  65.  
  66.     FUNCTION    ChangeQueueJobPosition        (QueueID : OT_BinderyID; JobNumber : WORD;
  67.                                                NewPosition : BYTE) : WORD;
  68.  
  69.     FUNCTION ChangeToClientRights (QueueID : OT_BinderyID;
  70.                                    JobNumber : WORD) : WORD;
  71.  
  72.     FUNCTION ChangeToClientRights2 (QueueID : OT_BinderyID;
  73.                                     JobNumber : LONGINT) : WORD;
  74.  
  75.     FUNCTION    CloseFileAndAbortQueueJobText (QueueID : OT_BinderyID; JobNumber : WORD;
  76.                                                VAR FileName : FileOfText) : WORD;
  77.  
  78.     FUNCTION    CloseFileAndAbortQueueJobBinary (QueueID : OT_BinderyID; JobNumber : WORD;
  79.                                                  VAR FileName : FileOfByte) : WORD;
  80.  
  81.     FUNCTION    CloseFileAndStartQueueJobText (QueueID : OT_BinderyID; JobNumber : WORD;
  82.                                                VAR FileName : FileOfText) : WORD;
  83.  
  84.     FUNCTION    CloseFileAndStartQueueJobBinary (QueueID : OT_BinderyID; JobNumber : WORD;
  85.                                                  VAR FileName : FileOfByte) : WORD;
  86.  
  87.     FUNCTION    CreateQueue                   (QueueName : TObjectName; QueueType : OT_BinderyType;
  88.                                                DirectoryHandle : BYTE; PathName : TQueuePathName;
  89.                                                VAR QueueID : OT_BinderyID) : WORD;
  90.  
  91.     FUNCTION    CreateQueueJobAndFileText     (QueueID : OT_BinderyID; VAR Job : JobStruct286;
  92.                                                VAR FileName : FileOfText) : WORD;
  93.  
  94.     FUNCTION    CreateQueueJobAndFileBinary   (QueueID : OT_BinderyID; VAR Job : JobStruct286;
  95.                                                VAR FileName : FileOfByte) : WORD;
  96.  
  97.     FUNCTION    DestroyQueue                  (QueueID : OT_BInderyID) : WORD;
  98.  
  99.     FUNCTION    DetachQueueServerFromQueue    (QueueID : OT_BinderyID) : WORD;
  100.  
  101.     FUNCTION    FinishServicingQueueJobAndFileText (QueueID : OT_BinderyID; JobNumber : WORD;
  102.                                                     Charge : LONGINT; VAR FileName : FileOfText) : WORD;
  103.  
  104.     FUNCTION    FinishServicingQueueJobAndFileBinary (QueueID : OT_BinderyID; JobNumber : WORD;
  105.                                                       Charge : LONGINT; VAR FileName : FileOfByte) : WORD;
  106.  
  107.     FUNCTION GetQueueJobList (QueueID : OT_BinderyID; VAR JobCount : WORD;
  108.                               VAR JobNumberList : TWord250Array;
  109.                               MaxJobNumbers : WORD) : WORD;
  110.  
  111.     FUNCTION GetQueueJobList2 (QueueID : OT_BinderyID;
  112.                                QueueStartPosition : LONGINT;
  113.                                VAR TotalQueueJobs : LONGINT;
  114.                                VAR JobsInList : LONGINT;
  115.                                VAR JobNumberList : TLongint125Array) : WORD;
  116.  
  117.     FUNCTION GetQueueJobFileSize (QueueID : OT_BinderyID; JobNumber : WORD;
  118.                                   VAR SizeOfFile : LONGINT) : WORD;
  119.  
  120.     FUNCTION GetQueueJobFileSize2 (QueueID : OT_BinderyID;
  121.                                    JobNumber : LONGINT;
  122.                                    VAR SizeOfFile : LONGINT) : WORD;
  123.  
  124.     FUNCTION    ReadQueueCurrentStatus        (QueueID : OT_BinderyID; VAR QueueStatus : WORD;
  125.                                                VAR NumberOfJobs, NumberOfServers : WORD;
  126.                                                VAR ServerIDList : TLongint25Array;
  127.                                                VAR ServerStationList : TWord25Array;
  128.                                                MaxNumberOfServers : WORD) : WORD;
  129.  
  130.     FUNCTION    ReadQueueJobEntry             (QueueID : OT_BinderyID; JobNumber : WORD;
  131.                                                VAR Job : JobStruct286) : WORD;
  132.  
  133.     FUNCTION ReadQueueJobEntry2 (QueueID : OT_BinderyID; JobNumber : LONGINT;
  134.                                  VAR Job : JobStructure) : WORD;
  135.  
  136.     FUNCTION    ReadQueueServerCurrentStatus  (QueueID, ServerID : OT_BinderyID;
  137.                                                ServerStation : BYTE; VAR ServerStatusRecord : TByte64Array) : WORD;
  138.  
  139.     FUNCTION ReadQueueServerCurrentStatus2 (QueueID, ServerID,
  140.                                             ServerStation : OT_BinderyID;
  141.                                             VAR ServerStatusRecord : TByte64Array) : WORD;
  142.  
  143.     FUNCTION    RemoveJobFromQueue            (QueueID : OT_BinderyID; JobNumber : WORD) : WORD;
  144.  
  145.     FUNCTION RemoveJobFromQueue2 (QueueID : OT_BinderyID;
  146.                                   JobNumber : LONGINT) : WORD;
  147.  
  148.     FUNCTION    RestoreQueueServerRights : WORD;
  149.  
  150.     FUNCTION    ServiceQueueJobAndOpenFile    (QueueID : OT_BinderyID; TargetJobType : WORD;
  151.                                                VAR Job : JobStruct286; VAR FileName : FileOfText) : WORD;
  152.  
  153.     FUNCTION SetQueueCurrentStatus (QueueID : OT_BinderyID;
  154.                                     QueueStatus : BYTE) : WORD;
  155.  
  156.     FUNCTION SetQueueCurrentStatus2 (QueueID : OT_BinderyID;
  157.                                      QueueStatus : LONGINT) : WORD;
  158.  
  159.     FUNCTION    SetQueueServerCurrentStatus   (QueueID : WORD; ServerStatusRecord : TByte64Array) : WORD;
  160.  
  161.     DESTRUCTOR  Done; VIRTUAL;
  162.  
  163.   END;
  164.  
  165.