Hello,
Earlier I wrote:
> Does CharOut have a limit as LineOut has one (presently) of (2**31)-1?
> In other words could I bypass the LineOut limit of (2**31)-1, by using
> CharOut?
I decided to do a test via RexxTRY. I broke the program into multiple
lines for readability. Here is what I saw.
a = 'a';
do i = 1 to 33;
a = a || a; end;
FN = 'G:\abc.txt';
say 'Length of A:' length(a);
rc = charout(FN,a);
say 'CharOut RC =' rc;
say 'Stream Status: ' stream(FN, 'Status');
say 'Stream Description: ' stream(FN, 'Description');
rc = stream(FN,'C','close');
say 'Close RC = ' rc;
The output was:
Length of A: 8589934592
CharOut RC = 8589934592
Stream Status: ERROR
Stream Description: ERROR:0
Close RC = READY:
The problem is with what I found on the G drive.
dir g:
Volume in drive G is Bastok
Volume Serial Number is 2A7A-2707
Directory of G:\
09/12/2022 02:31 3,019,361,959,878 a.txt
09/12/2022 02:31 0 abc.txt
2 File(s) 3,019,361,959,878 bytes
0 Dir(s) 8,977,942,298,624 bytes free
Problem: Instead of finding a file with 8,589,934,592 bytes in length.
Dir says the file G:\abc.txt has 0 bytes.
Another bug?
Thanks! :)
_______________________________________________
Oorexx-users mailing list
Oorexx-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/oorexx-users
