Dave,
Brenda's approach is basically how I'd handle it.
I encourage you to stepp through the execution with the debugger, RAID.

That might make more clear what's happening, than any number of prose
responses on-list. 

cds

-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Dave R
Sent: Thursday, July 05, 2007 2:47 PM
To: u2-users@listserver.u2ug.org
Subject: [U2] OPEN FILENAME TO F.FILENAME ELSE STOP problem in a loop.

I am trying to open a group of files from a list of files in the table
file.
Does anyone know how to make the constant in the open file statement
work. I get the good old IMPROPER DATA TYPE error message when I try to
read the file I opened with the code. In the mean time I will open each
file separately .
Thanks Dave.

    OPEN 'TABLE'TO F.TABLE ELSE STOP 201,'TABLE'
    READV INV.FILES FROM F.TABLE ,"INVENTORY-FILES",1 ELSE
       CRT; CRT "CANT FIND TABLE 'INVENTORY-FILES'"; RETURN
    END
    CONVERT ',' TO @VM IN INV.FILES
    FDC = DCOUNT(INV.FILES,@VM)
    FOR F = 1 TO FDC
       FILENAME = INV.FILES<1,F>:"-INV"
       FILE.NAME = INV.FILES<1,F>
       F.NAME = 'F.':FILE.NAME
       OPEN FILENAME TO F.NAME ELSE STOP 201, FILENAME
    NEXT F
    *


Dave R

e Fax (815)4259364
P.O. Box 17811, Irvine CA 92623-7811
-------
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
-------
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/

Reply via email to