home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxset211.zip / RXADDFH.CMD < prev    next >
OS/2 REXX Batch file  |  1995-11-05  |  1KB  |  34 lines
  1. /* */
  2. Say "Sample Rexx program for demonstrating RXADDFH function"
  3. Say "RxFnSet by Leshek Fiedorowicz"
  4. Say
  5.                                                                         
  6. Arg Number
  7.     Call RxFuncDrop 'RXADDFH'
  8.  
  9.     Call RxFuncAdd 'RXADDFH', 'RXFN32', 'RXADDFH'
  10.  
  11.     Call RXADDFH 0
  12.     OriginalNumber = result /* Query original number of FH */
  13.  
  14.     Call RXADDFH Number
  15.  
  16.     select;
  17.       when result = 0 then do
  18.             say 'ERROR - Invalid parameter ('Number').'
  19.             say '        Specified parameter was not valid number or is less'
  20.             say '        then zero.'
  21.          end
  22.       when result \= (OriginalNumber+Number) then do 
  23.          say 'WARNING - Unable to alocate requested number of File Handles.'
  24.          say '          Number of FH allocated is 'result'.'
  25.          say '          Posible reason - not enough memory available.'
  26.       end
  27.       Otherwise 
  28.          say '   'Number' of FH succesfully added.'  
  29.          say '   Total of 'result' is now available.'
  30.  
  31.     End;
  32.     Call RxFuncDrop 'RXADDFH'
  33. Exit
  34.