home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / FileMover / MAXT21.LHA / rexx / QUEUE.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-10-01  |  1.3 KB  |  96 lines
  1. /* ------------------------------------------------------------------
  2.  *
  3.  * MaxonTOOLS ARexx-Script
  4.  *
  5.  * name: QUEUE.rexx
  6.  * date: 01.10.1994
  7.  * auth: Klaus-D. Sommer
  8.  *
  9.  * © 1994 MAXON Computer GmbH
  10.  *
  11.  * ------------------------------------------------------------------
  12.  */
  13.  
  14. OPTIONS RESULTS
  15. ADDRESS MT_REXX
  16.  
  17. /* Informationen über das Verzeichnis holen */
  18. 'QUEUE TYPE'
  19. vt = RESULT
  20.  
  21. if vt > 0 then
  22. do
  23.   /* Verzeichnis ist da ! */
  24.   if vt = 1 then SAY 'Verzeichnistyp: normal'
  25.   else
  26.     if vt = 2 then SAY 'Verzeichnistyp: Archiv'
  27.     else
  28.       if vt = 3 then SAY 'Verzeichnistyp: Geräteliste'
  29.       else
  30.         if vt = 4 then SAY 'Verzeichnistyp: Altverzeichnisliste'
  31.         else
  32.           SAY 'Unbekannter Verzeichnistyp!!!'
  33.  
  34.   /* Anzahl der Einträge holen */
  35.   'QUEUE NUMENTRIES'
  36.   ne = RESULT
  37.  
  38.   SAY 'Einträge:' ne
  39.  
  40.   /* Name */
  41.   'QUEUE NAME'
  42.   name = RESULT
  43.  
  44.   SAY 'Name:' name
  45.  
  46.   /* Verzeichnis komplett auslesen */
  47.   do i = 1 to ne
  48.  
  49.     parms = i ' NAME'
  50.     QUEUEENTRY parms
  51.     ename = RESULT
  52.  
  53.     parms = i ' DATE'
  54.     QUEUEENTRY parms
  55.     ename = ename '    ' RESULT
  56.  
  57.     parms = i ' TIME'
  58.     QUEUEENTRY parms
  59.     ename = ename RESULT
  60.  
  61.     parms = i ' FLAGS'
  62.     QUEUEENTRY parms
  63.     ename = ename RESULT
  64.  
  65.     SAY ename
  66.   end i
  67. end
  68.    
  69.  
  70.  
  71.  
  72.    
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  
  92.  
  93.  
  94.  
  95.  
  96.