home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 076-100 / scopedisk95 / calpal / cal-pal-help / setuprexxlibs < prev    next >
Encoding:
Text File  |  1995-03-19  |  1.1 KB  |  86 lines
  1. (@title Calendar Pal - Example ARexx Library Setup Routine@)(@indent 3@)
  2.  
  3.  
  4.  
  5. Below is an example ARexx program to set up the Rexx Support, ARP and Math
  6. libraries.
  7.  
  8.  
  9.  
  10. (@color 3@)**************************************************************************(@color 1@)(@indent 0@)
  11.  
  12.  
  13.  
  14. /* Add REXX libraries */
  15.  
  16.  
  17. /*     REXX Support Library     */
  18.  
  19.  
  20. if ~show('L',"rexxsupport.library") then
  21.  
  22.    do
  23.  
  24.      if addlib("rexxsupport.library",0,-30,0) then
  25.  
  26.         say 'Added library "rexxsupport.library"'
  27.  
  28.      else do
  29.  
  30.         say 'REXX Support library not present'
  31.  
  32.         exit
  33.  
  34.      end
  35.  
  36.    end
  37.  
  38.  
  39. /*     REXX ARP Interface Library     */
  40.  
  41.  
  42. if ~show('L',"rexxarplib.library") then
  43.  
  44.    do
  45.  
  46.      if addlib("rexxarplib.library",0,-30,0) then
  47.  
  48.         say 'Added library "rexxarplib.library"'
  49.  
  50.      else do
  51.  
  52.         say 'REXX ARP library not present'
  53.  
  54.         exit
  55.  
  56.      end
  57.  
  58.    end
  59.  
  60.  
  61.  
  62. /*     REXX Math Library     */
  63.  
  64.  
  65.  
  66. if ~show('L',"rexxmathlib.library") then
  67.  
  68.    do
  69.  
  70.      if addlib("rexxmathlib.library",0,-30,0) then
  71.  
  72.         say 'Added library "rexxmathlib.library"'
  73.  
  74.      else do
  75.  
  76.         say 'REXX Math library not present'
  77.  
  78.         exit
  79.  
  80.      end
  81.  
  82.    end
  83.  
  84. exit
  85.  
  86.