This syntax worked on G13, play around it to suit your needs.
OPENSEQ '/globus/filename.cvs' TO INFILE ELSE PRINT 'CANNOT OPEN FILE'
LOOP
READSEQ DATA.REC FROM INFILE ELSE PRINT 'CANNOT READ FILE'
WHILE DATA.REC NE ''
MSG.CODE = TRIM(FIELD(DATA.REC,',',1)) ; * Get the first value in the line
IF MSG.CODE NE 'HDR' THEN
GOSUB PROCESS
END
REPEAT
And if openseq is giving you trouble try READ below. It reads a
file delimited by pipe (|) and loops through it line by line...
READ FILE.REC FROM FOLDER.NAME,FILE.NAME ELSE FILE.REC = ''
NO.LINES = DCOUNT(FILE1.REC, FM) ; * Get the no. of lines in the file
FOR NN = 1 TO NO.LINES
LINE = FILE1.REC<NN> ; * Read 1 line at a time.
MSG.CODE = TRIM(FIELD(LINE,'|',1)) ; * Get the first value in the line
IF MSG.CODE NE 'HDR' THEN
GOSUB PROCESS
END
NEXT NN
REPEAT
Regards
Concern
On Tue, Jun 16, 2009 at 4:14 PM, Anureka Rajesh <[email protected]>wrote:
> Hi,
>
> Be more specific on what dint work and if possible send the part of code
> you tried.
> For whatever Daniel suggested should work fine. May be you are missing out
> some syntax.
>
> Cheers,
> Anu :-)
>
> On Tue, Jun 16, 2009 at 11:02 PM, ufuktu <[email protected]> wrote:
>
>>
>> hi, thanks for your reply. that did not work for some reason, if
>> possible can you provide more details...
>>
>>
>
> >
>
--~--~---------~--~----~------------~-------~--~----~
Please read the posting guidelines at:
http://groups.google.com/group/jBASE/web/Posting%20Guidelines
IMPORTANT: Type T24: at the start of the subject line for questions specific to
Globus/T24
To post, send email to [email protected]
To unsubscribe, send email to [email protected]
For more options, visit this group at http://groups.google.com/group/jBASE?hl=en
-~----------~----~----~----~------~----~------~--~---
