scalos/Plugins/OOP/wb39_plugin/wbrexx/rxtest4.rexx

   1 /* rxtest4.rexx */
   2
   3 OPTIONS RESULTS
   4
   5    IF ~SHOW(LIBRARIES,'rexxtricks.library') THEN
   6       IF ~ADDLIB('rexxtricks.library',9,-30,38) THEN
   7          quit('Cannot open rexxtricks.library!',10)
   8
   9    IF ~SHOW('LIBRARIES','rexxreqtools.library') THEN
  10       IF ~ADDLIB('rexxreqtools.library',9,-30,0) THEN
  11          quit('Cannot open rexxreqtools.library!',10)
  12
  13    IF ~SHOW('LIBRARIES','rexxdossupport.library') THEN
  14       IF ~ADDLIB('rexxdossupport.library',9,-30,0) THEN
  15          quit('Cannot open rexxdossupport.library!',10)
  16
  17 erg = rtezrequest("Test Request?","_Yes|_No","RxTest4.rexx",)
  18 say "Result was " || erg