I have tried to post this on RexxLA but I cannot as the 5 character Captch code that I enter is always wrong - despite matching what is shown to me. I tried to register with SourceForge so that I could post there but they have not come back so that Icould confirm my registration. So...
In trying to insert into an array I can do 9 inserts and then the 10 causes the Rexx executable to crash:
"Open Object Rexx Interface has stopped working
A problem caused the program to stop working correctly.
Windows will close the program and notify you if a solution is available."
/*[CODE]*/
Trace i
Call SysCls
data_array_1 = .Array~new
data_array_1[1] = "test data array 1"
repeat_line_1 = data_array_1[1]
data_array_2 = .Array~new
data_array_2[1] = "test data array 2"
repeat_line_2 = data_array_2[1]
reps = 5
line_no = 1
i = 0
/* This loop works IF reps < 10 */
Do reps
i = i + 1
Call Charout , "1 - iteration: "i" - "
data_array_1~insert(repeat_line_1' 'i, line_no)
Say data_array_1[2]
End
/* This next loop fails at the 10th insertion into the same array
e.g. If reps = 5 then this loop will fail on the 5th rep,
If reps = 7 then this loop will fail on the 3rd rep.
If the first set of reps, above, fails then this does not execute
(naturally enough). */
i = 0
Do reps
i = i + 1
Call Charout , "2 - iteration: "i" - "
data_array_1~insert(repeat_line_1' 'i, line_no)
Say data_array_1[2]
End
/* This next loop works as long as rep does not exceed 10. This
is a separate 'counter' i.e. the reps from the first array do
not affect this array. e.g. if array_1 had 9 inserts then inserts
into array_2 will process properly until an attempt to do a 10th
insert into array_2. */
i = 0
Do reps
i = i + 1
Call Charout , "3 - iteration: "i" - "
data_array_2~insert(repeat_line_2' 'i, line_no)
Say data_array_2[2]
End
Exit
/*-------------------------------------------------------------------*/
/* [OUTPUT]
When rep = 10
1 - iteration: 1 - test data1
1 - iteration: 2 - test data2
1 - iteration: 3 - test data3
1 - iteration: 4 - test data4
1 - iteration: 5 - test data5
1 - iteration: 6 - test data6
1 - iteration: 7 - test data7
1 - iteration: 8 - test data8
1 - iteration: 9 - test data9
1 - iteration: 10 -
When rep = 4
1 - iteration: 1 - test data array 1 1
1 - iteration: 2 - test data array 1 2
1 - iteration: 3 - test data array 1 3
1 - iteration: 4 - test data array 1 4
2 - iteration: 1 - test data array 1 1
2 - iteration: 2 - test data array 1 2
2 - iteration: 3 - test data array 1 3
2 - iteration: 4 - test data array 1 4
3 - iteration: 1 - test data array 2 1
3 - iteration: 2 - test data array 2 2
3 - iteration: 3 - test data array 2 3
3 - iteration: 4 - test data array 2 4
C:\Users\Nicc\Documents\SrceCode\Rexx\Editor\V2>
I have two other problems with ooRexx but I can work around them - SysGetKey still returns the same code for back tab as it does for forward tab and D2C returns the wrong value when trying to process a space (it returns the code for forward tab)
I have tried to post this on RexxLA but I cannot as the 5 character Captch code that I enter is always wrong - despite matching what is shown to me. I tried to register with SourceForge so that I could post there but they have not come back so that Icould confirm my registration. So...
In trying to insert into an array I can do 9 inserts and then the 10 causes the Rexx executable to crash:
"Open Object Rexx Interface has stopped working
A problem caused the program to stop working correctly.
Windows will close the program and notify you if a solution is available."
/*[CODE]*/
Trace i
Call SysCls
data_array_1 = .Array~new
data_array_1[1] = "test data array 1"
repeat_line_1 = data_array_1[1]
data_array_2 = .Array~new
data_array_2[1] = "test data array 2"
repeat_line_2 = data_array_2[1]
reps = 5
line_no = 1
i = 0
/* This loop works IF reps < 10 */
Do reps
i = i + 1
Call Charout , "1 - iteration: "i" - "
data_array_1~insert(repeat_line_1' 'i, line_no)
Say data_array_1[2]
End
/* This next loop fails at the 10th insertion into the same array
e.g. If reps = 5 then this loop will fail on the 5th rep,
If reps = 7 then this loop will fail on the 3rd rep.
If the first set of reps, above, fails then this does not execute
(naturally enough). */
i = 0
Do reps
i = i + 1
Call Charout , "2 - iteration: "i" - "
data_array_1~insert(repeat_line_1' 'i, line_no)
Say data_array_1[2]
End
/* This next loop works as long as rep does not exceed 10. This
is a separate 'counter' i.e. the reps from the first array do
not affect this array. e.g. if array_1 had 9 inserts then inserts
into array_2 will process properly until an attempt to do a 10th
insert into array_2. */
i = 0
Do reps
i = i + 1
Call Charout , "3 - iteration: "i" - "
data_array_2~insert(repeat_line_2' 'i, line_no)
Say data_array_2[2]
End
Exit
/*-------------------------------------------------------------------*/
/* [OUTPUT]
When rep = 10
1 - iteration: 1 - test data1
1 - iteration: 2 - test data2
1 - iteration: 3 - test data3
1 - iteration: 4 - test data4
1 - iteration: 5 - test data5
1 - iteration: 6 - test data6
1 - iteration: 7 - test data7
1 - iteration: 8 - test data8
1 - iteration: 9 - test data9
1 - iteration: 10 -
When rep = 4
1 - iteration: 1 - test data array 1 1
1 - iteration: 2 - test data array 1 2
1 - iteration: 3 - test data array 1 3
1 - iteration: 4 - test data array 1 4
2 - iteration: 1 - test data array 1 1
2 - iteration: 2 - test data array 1 2
2 - iteration: 3 - test data array 1 3
2 - iteration: 4 - test data array 1 4
3 - iteration: 1 - test data array 2 1
3 - iteration: 2 - test data array 2 2
3 - iteration: 3 - test data array 2 3
3 - iteration: 4 - test data array 2 4
C:\Users\Nicc\Documents\SrceCode\Rexx\Editor\V2>
I have two other problems with ooRexx but I can work around them - SysGetKey still returns the same code for back tab as it does for forward tab and D2C returns the wrong value when trying to process a space (it returns the code for forward tab)
I have tried to post this on RexxLA but I cannot as the 5 character Captch code that I enter is always wrong - despite matching what is shown to me. I tried to register with SourceForge so that I could post there but they have not come back so that Icould confirm my registration. So...
In trying to insert into an array I can do 9 inserts and then the 10 causes the Rexx executable to crash:
"Open Object Rexx Interface has stopped working
A problem caused the program to stop working correctly.
Windows will close the program and notify you if a solution is available."
/*[CODE]*/
Trace i
Call SysCls
data_array_1 = .Array~new
data_array_1[1] = "test data array 1"
repeat_line_1 = data_array_1[1]
data_array_2 = .Array~new
data_array_2[1] = "test data array 2"
repeat_line_2 = data_array_2[1]
reps = 5
line_no = 1
i = 0
/* This loop works IF reps < 10 */
Do reps
i = i + 1
Call Charout , "1 - iteration: "i" - "
data_array_1~insert(repeat_line_1' 'i, line_no)
Say data_array_1[2]
End
/* This next loop fails at the 10th insertion into the same array
e.g. If reps = 5 then this loop will fail on the 5th rep,
If reps = 7 then this loop will fail on the 3rd rep.
If the first set of reps, above, fails then this does not execute
(naturally enough). */
i = 0
Do reps
i = i + 1
Call Charout , "2 - iteration: "i" - "
data_array_1~insert(repeat_line_1' 'i, line_no)
Say data_array_1[2]
End
/* This next loop works as long as rep does not exceed 10. This
is a separate 'counter' i.e. the reps from the first array do
not affect this array. e.g. if array_1 had 9 inserts then inserts
into array_2 will process properly until an attempt to do a 10th
insert into array_2. */
i = 0
Do reps
i = i + 1
Call Charout , "3 - iteration: "i" - "
data_array_2~insert(repeat_line_2' 'i, line_no)
Say data_array_2[2]
End
Exit
/*-------------------------------------------------------------------*/
/* [OUTPUT]
When rep = 10
1 - iteration: 1 - test data1
1 - iteration: 2 - test data2
1 - iteration: 3 - test data3
1 - iteration: 4 - test data4
1 - iteration: 5 - test data5
1 - iteration: 6 - test data6
1 - iteration: 7 - test data7
1 - iteration: 8 - test data8
1 - iteration: 9 - test data9
1 - iteration: 10 -
When rep = 4
1 - iteration: 1 - test data array 1 1
1 - iteration: 2 - test data array 1 2
1 - iteration: 3 - test data array 1 3
1 - iteration: 4 - test data array 1 4
2 - iteration: 1 - test data array 1 1
2 - iteration: 2 - test data array 1 2
2 - iteration: 3 - test data array 1 3
2 - iteration: 4 - test data array 1 4
3 - iteration: 1 - test data array 2 1
3 - iteration: 2 - test data array 2 2
3 - iteration: 3 - test data array 2 3
3 - iteration: 4 - test data array 2 4
C:\Users\Nicc\Documents\SrceCode\Rexx\Editor\V2>
I have two other problems with ooRexx but I can work around them - SysGetKey still returns the same code for back tab as it does for forward tab and D2C returns the wrong value when trying to process a space (it returns the code for forward tab)
I am using the latest (I hope) 'production' release - 4.2. I do not want to update until 5.0 isthe finished article.
I would love to create 2 bug reports (SYSGETKEY and D2C) but as I pre-ambled my registration isawaiting SourceForge's e-mail that will allow me to complete my registration. But it has been almost
I have tried to post this on RexxLA but I cannot as the 5 character Captch code that I enter is always wrong - despite matching what is shown to me. I tried to register with SourceForge so that I could post there but they have not come back so that Icould confirm my registration. So...
In trying to insert into an array I can do 9 inserts and then the 10 causes the Rexx executable to crash:
"Open Object Rexx Interface has stopped working
A problem caused the program to stop working correctly.
Windows will close the program and notify you if a solution is available."
/*[CODE]*/
Trace i
Call SysCls
data_array_1 = .Array~new
data_array_1[1] = "test data array 1"
repeat_line_1 = data_array_1[1]
data_array_2 = .Array~new
data_array_2[1] = "test data array 2"
repeat_line_2 = data_array_2[1]
reps = 5
line_no = 1
i = 0
/* This loop works IF reps < 10 */
Do reps
i = i + 1
Call Charout , "1 - iteration: "i" - "
data_array_1~insert(repeat_line_1' 'i, line_no)
Say data_array_1[2]
End
/* This next loop fails at the 10th insertion into the same array
e.g. If reps = 5 then this loop will fail on the 5th rep,
If reps = 7 then this loop will fail on the 3rd rep.
If the first set of reps, above, fails then this does not execute
(naturally enough). */
i = 0
Do reps
i = i + 1
Call Charout , "2 - iteration: "i" - "
data_array_1~insert(repeat_line_1' 'i, line_no)
Say data_array_1[2]
End
/* This next loop works as long as rep does not exceed 10. This
is a separate 'counter' i.e. the reps from the first array do
not affect this array. e.g. if array_1 had 9 inserts then inserts
into array_2 will process properly until an attempt to do a 10th
insert into array_2. */
i = 0
Do reps
i = i + 1
Call Charout , "3 - iteration: "i" - "
data_array_2~insert(repeat_line_2' 'i, line_no)
Say data_array_2[2]
End
Exit
/*-------------------------------------------------------------------*/
/* [OUTPUT]
When rep = 10
1 - iteration: 1 - test data1
1 - iteration: 2 - test data2
1 - iteration: 3 - test data3
1 - iteration: 4 - test data4
1 - iteration: 5 - test data5
1 - iteration: 6 - test data6
1 - iteration: 7 - test data7
1 - iteration: 8 - test data8
1 - iteration: 9 - test data9
1 - iteration: 10 -
When rep = 4
1 - iteration: 1 - test data array 1 1
1 - iteration: 2 - test data array 1 2
1 - iteration: 3 - test data array 1 3
1 - iteration: 4 - test data array 1 4
2 - iteration: 1 - test data array 1 1
2 - iteration: 2 - test data array 1 2
2 - iteration: 3 - test data array 1 3
2 - iteration: 4 - test data array 1 4
3 - iteration: 1 - test data array 2 1
3 - iteration: 2 - test data array 2 2
3 - iteration: 3 - test data array 2 3
3 - iteration: 4 - test data array 2 4
C:\Users\Nicc\Documents\SrceCode\Rexx\Editor\V2>
I have two other problems with ooRexx but I can work around them - SysGetKey still returns the same code for back tab as it does for forward tab and D2C returns the wrong value when trying to process a space (it returns the code for forward tab)
Sysop: | Keyop |
---|---|
Location: | Huddersfield, West Yorkshire, UK |
Users: | 113 |
Nodes: | 8 (0 / 8) |
Uptime: | 178:09:38 |
Calls: | 2,506 |
Files: | 8,706 |
Messages: | 1,933,996 |