REPLY: 2:341/234.1 652108f3   
   MSGID: 2:221/1 65218fe2   
   CHRS: UTF-8 2   
   TZUTC: 0300   
   TID: hpt/lnx 1.9 2023-02-24   
   Hi Carlos.   
      
   07 Oct 23 09:29, you wrote to All:   
      
    CN> I'm creating .req files manually to do file requests.   
      
   GoldED can do freq's. Write netmail and press Alt-f.   
      
    CN> Area there other ways to do it? Any tool or script?   
      
   In my OS/2 system I have a REXX script called flowfile.cmd. I think it is   
   originally from binkleyterm.   
      
   === Cut ===   
   /* Generate/Modify FlowFile (or REQ files) - written by Th. Waldmann     */   
   /* 4D address support added by Michael Reinsch                           */   
   /* NO domain support!                                                    */   
   /* ----------------------------------------------------------------------*/   
   /* FlowFile 2:2474/400 F   -> create/update 09aa0190.flo                 */   
   /* FlowFile 2:2474/400 C   -> create/update 09aa0190.clo                 */   
   /* FlowFile 2:2474/400.2 H -> create/update 09aa0190.pnt\00000002.hlo    */   
   /* FlowFile 1:1/2 C        -> create/update 00010002.clo (in Z1 outbound)*/   
   /* FlowFile 2:2/1 H file.txt -> add entry "file.txt" to 00020001.hlo     */   
   /* FlowFile 2:2/1 R file.txt -> add entry "file.txt" to 00020001.req     */   
   /*                                                                       */   
   /* If you invoke FlowFile.Cmd from another CMD file, you have to use:    */   
   /* Call FlowFile ...                                                     */   
      
   /* changes the values of the variables below according to your needs !!! */   
      
   defaultzone     = 2               /* your default outbound's zone number */   
   defaultoutbound = "d:\xenia\outbound"                  /* your default   
   outbound */   
   rescanflag      = "d:\semapho\btrescan.flg"       /* global rescan flag */   
      
   /* end of values to change */   
      
   /* begin of program */   
      
   arg addr flavour line   
      
   call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'   
   call SysLoadFuncs   
      
   addr    = strip(addr)   
   flavour = strip(flavour)   
   line    = strip(line)   
      
   call addflow addr, flavour, line   
   call touchflag rescanflag   
      
   exit   
      
   /* calculate binkley style outbound file name */   
      
   binkoutname: Procedure Expose defaultzone defaultoutbound   
     parse arg addr, extension   
     parse value addr with zone":"net"/"node"."point   
     outbound = defaultoutbound   
     if zone <> defaultzone then   
      do   
       outbound = outbound"."d2x(zone,3)   
       rc=SysMkDir(outbound)   
      end   
     if point <> ' ' & point > 0 then   
      do   
       outbound = outbound"\"d2x(net,4)||d2x(node,4)".pnt"   
       rc=SysMkDir(outbound)   
       filename = outbound"\"d2x(point,8)"."extension   
      end   
     else   
       filename = outbound"\"d2x(net,4)||d2x(node,4)"."extension   
     return filename   
      
   /* test (and set if not already set) binkley outbound BSY flag */   
      
   testsetbusy: Procedure Expose defaultzone defaultoutbound   
     parse arg addr   
     tmpfile  = SysTempFileName(binkoutname(addr, "???"))   
     call touchflag tmpfile   
     '@ren' tmpfile '*.BSY >NUL 2>NUL'   
     renrc = rc   
     if renrc<>0 then   
       call SysFileDelete tmpfile   
     return renrc   
      
   /* remove binkley outbound BSY flag */   
      
   delbusy: Procedure Expose defaultzone defaultoutbound   
     parse arg addr   
     busyfile = binkoutname(addr, "BSY")   
     call SysFileDelete busyfile   
     return   
      
   /* create / update a flowfile */   
      
   addflow: Procedure Expose defaultzone defaultoutbound   
     parse arg addr, flavour, line   
      
     flavour=translate(flavour)   
      
     if testsetbusy(addr)=0 then   
       do   
         if flavour='R' then   
           flowfile = binkoutname(addr, "REQ")   
         else   
           flowfile = binkoutname(addr, flavour"LO")   
      
         /* create flowfile if it does not exist already */   
         /* if it does exist, change nothing             */   
         call stream  flowfile, 'c', 'open write'   
         if line <> "" then   
           call lineout flowfile, line   
         call stream  flowfile, 'c', 'close'   
         call delbusy addr   
       end   
     else   
       say 'System' addr 'is busy.'   
     return   
      
   /* "touch" a file (create if not existing, update time stamp if existing) */   
      
   /* Attention - this is not a real "touch" yet! */   
   /* It writes a single byte to the beginning of the file !!   
                                             */   
      
   touchflag: Procedure   
     parse arg flag   
     call stream  flag, 'c', 'open write'   
     call charout flag, " ", 1    /* is there a better method to "touch" ? */   
     call stream  flag, 'c', 'close'   
     return   
      
   /* EOF */   
   === Cut ===   
      
   'Tommi   
      
   --- GoldED+/LNX 1.1.5-b20231004   
    * Origin: rbb.fidonet.fi (2:221/1)   
   SEEN-BY: 1/123 10/0 1 15/0 90/1 102/401 103/1 705 105/81 106/201 123/131   
   SEEN-BY: 124/5016 129/305 153/757 7715 154/10 203/0 214/22 218/0 1   
   SEEN-BY: 218/215 700 720 820 840 860 870 880 930 221/1 6 242 360 226/30   
   SEEN-BY: 227/114 229/110 112 113 200 206 275 307 317 426 428 470 550   
   SEEN-BY: 229/664 700 230/0 240/1120 5832 266/512 280/464 5003 5555   
   SEEN-BY: 282/1038 291/111 292/854 8125 301/1 305/3 310/31 317/3 320/219   
   SEEN-BY: 322/757 341/66 234 342/200 396/45 423/81 120 460/58 633/280   
   SEEN-BY: 712/848 770/1 5020/400   
   PATH: 221/1 280/464 103/705 218/700 229/426