home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga MA Magazine 1998 #3
/
amigamamagazinepolishissue1998.iso
/
bazy
/
dbstart
/
dbstart.rexx
next >
Wrap
OS/2 REXX Batch file
|
1997-03-25
|
755b
|
40 lines
/* dbStart.rexx */
parse arg filename
if filename='?' then
do
call explain()
exit
end
if filename="" then filename='ram:dbstart'
open('file',filename,'w')
Options prompt '>field>'
in="dummy"
line=""
tab=x2c(09)
do forever
Parse pull post
in=post
if in="" then leave
if line="" then line=in
else line=line||tab||in
end
writeln('file',line)
close('file')
exit
explain: procedure
say
say "The purpose of the program is to write the first line in"
say "the program, especially if the editor can't handle tabs "
say "properly."
say "Call the program with the filename of the new base f. ex."
say "dbStart.rexx Work:db3.4:/myfile"
say "At the prompt '>field>' the fieldnames are given one by one."
say "After last field: 'Return' only."
say
return