home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / amiga / comms / misc / wlmt4714.lha / rexx / freq.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1992-01-03  |  443 b   |  22 lines
  1. /*   Simple File Request Generation Program  */
  2.  
  3. options results
  4.  
  5. Outbound = 'Welmat:outbound/'
  6.  
  7. parse upper arg net'/'node wantfile
  8.  
  9. reqname = upper(outbound||right(d2x(net),4,"0") ,
  10.            ||right(d2x(NODE),4,"0")||".REQ")
  11.  
  12. x=Open('reqfile',reqname,'A')
  13. if x=0 then do
  14.   x=Open('reqfile',reqname,'W')
  15.   if x=0 then do
  16.       say "Error opening" reqname
  17.       Exit 1  
  18.   end
  19. end
  20. call WriteLN('reqfile', strip(wantfile))
  21. x=Close('reqfile')
  22.