home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Spezial / SPEZIAL2_97.zip / SPEZIAL2_97.iso / ANWEND / ONLINE / SREFV12J / SREFAST1.CMD < prev    next >
OS/2 REXX Batch file  |  1997-05-16  |  2KB  |  60 lines
  1. /* ------------------------------------------------- */
  2. /* SREFAST routine */
  3. /* Routine to load main srefilter, and srefast postfilter, into macrospace */
  4. /* ------------------------------------------------- */
  5.  
  6. load_bigone:
  7.  
  8. /*--------------   Load REXX libraries ----- */
  9. /* Load up advanced REXX functions */
  10. foo=rxfuncquery('sysloadfuncs')
  11. if foo=1 then do
  12.   call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  13.  
  14.   call SysLoadFuncs
  15. end
  16. foo=rxfuncquery('rexxlibregister')
  17. if foo=1 then do
  18.  call rxfuncadd 'rexxlibregister','rexxlib', 'rexxlibregister'
  19.  call rexxlibregister
  20. end
  21.  
  22. parse arg aport
  23.  
  24. if aport="" then do
  25.     say " This SRE-Filter procedure is not meant to be run in stand alone mode "
  26.     exit
  27. end
  28.  
  29. aroutine='SREF_MAIN_'||aport
  30.  
  31. foo=macrodrop(aroutine)   /* makesure you refresh on first transaction */
  32. aff='SREFILTR.'||aport
  33. say " SREFAST: Loading main SRE-Filter code into macrospace: "aff
  34. foo2=macroadd(aroutine,aff)
  35. if foo2=0 then do
  36.         say " SREFAST error: problem loading sre-filter main program into macrospace "foo2
  37.         'string Server is busy, try again later '
  38.          exit ' '
  39. end
  40.  
  41. /* load up post filter thing */
  42. aroutine='SREF_FAST_POSTF'
  43. foo=macrodrop(aroutine)   /* makesure you refresh on first transaction */
  44. say " SREFAST: Loading SREFAST postfilter into macrospace "
  45. aff='SREFAST4.CMD'
  46. foo2=macroadd(aroutine,aff)
  47. if foo2=0 then do
  48.         say " SREFAST error: problem loading sre-filter postfilter routine into macrospace "foo2
  49.         exit ' '
  50. end
  51.  
  52. /* set an environment variable */
  53. call value 'SREF_'||aport||'_SREFAST',1,'os2environment'
  54.  
  55.  
  56. return 0
  57.  
  58.  
  59.  
  60.