Subj : freq
To : Carlos Navarro
From : Tommi Koivula
Date : Sat Oct 07 2023 08:05 pm
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 */
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 */
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
