From: SourceForge.net <no...@so...> - 2009-04-22 13:25:15
|
Bugs item #2778601, was opened at 2009-04-22 15:23 Message generated for change (Settings changed) made by walterpachl You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=684730&aid=2778601&group_id=119701 Please note that this message will contain a full copy of the comment thread, including the initial issue submission, for this request, not just the latest update. Category: None Group: None Status: Open Resolution: None >Priority: 7 Private: No Submitted By: Walter Pachl (walterpachl) Assigned to: Nobody/Anonymous (nobody) Summary: Problem with linein Initial Comment: bug4.rex shows wrong data in the second loop ---------------------------------------------------------------------- Comment By: Walter Pachl (walterpachl) Date: 2009-04-22 15:24 Message: Here's bug4.rex: /* REXX */ oid='c:\bug4.txt'; 'erase' oid Parse Version v Call o 'Version' v dir='c:\dir.txt' 'dir *.* >' dir Do i=1 By 1 While lines(dir)>0 l=linein(dir) If i<=10 Then Call o 'loop1' l End Call lineout dir 'dir c:\aa\*.* >' dir 'type' dir Do i=1 By 1 While lines(dir)>0 l=linein(dir) If i<=10 Then Call o 'loop2' l End Call lineout dir Exit o: Return lineout(oid,arg(1)) ---------------------------------------------------------------------- You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=684730&aid=2778601&group_id=119701 |