• Cannot do more than 9 inserts into array

    From sweynclouston@gmail.com@21:1/5 to All on Fri Oct 27 07:36:00 2017
    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 I
    could 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)

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From LesK@21:1/5 to sweynclouston@gmail.com on Fri Oct 27 15:54:33 2017
    On 10/27/2017 10:36 AM, sweynclouston@gmail.com wrote:
    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 I
    could 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)

    Check your Junk Mail folder(s) for SF verification. Maybe your keyboard
    charset is weird and Captcha isn't seeing what you see?

    --

    Les (Change Arabic to Roman to email me)

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From sweynclouston@gmail.com@21:1/5 to sweync...@gmail.com on Fri Oct 27 16:18:23 2017
    On Friday, October 27, 2017 at 3:36:01 PM UTC+1, sweync...@gmail.com wrote:
    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 I
    could 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)

    Nothing in junk/spam/trash or any other folder and my keyboard works just fine otherwise I would not be able to type these.

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From Rony@21:1/5 to sweynclouston@gmail.com on Sat Oct 28 14:03:38 2017
    On 27.10.2017 16:36, sweynclouston@gmail.com wrote:
    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 I
    could 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."

    Which version of ooRexx on which operating system are you using? Here an example of a rexxtry session:

    REXX-ooRexx_5.0.0(MT)_32-bit 6.05 19 Oct 2017
    rexxtry.rex lets you interactively try REXX statements.
    Each string is executed when you hit Enter.
    Enter 'call tell' for a description of the features.
    Go on - try a few... Enter 'exit' to end.
    parse source s; say s
    WindowsNT COMMAND C:\Program Files (x86)\ooRexx\rexxtry.rex
    ........................................... rexxtry.rex on WindowsNT
    parse version v; say v
    REXX-ooRexx_5.0.0(MT)_32-bit 6.05 19 Oct 2017
    ........................................... rexxtry.rex on WindowsNT


    My version does not yield the problem you report, when changing "reps=10" yields:

    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
    1 - iteration: 5 - test data array 1 5
    1 - iteration: 6 - test data array 1 6
    1 - iteration: 7 - test data array 1 7
    1 - iteration: 8 - test data array 1 8
    1 - iteration: 9 - test data array 1 9
    1 - iteration: 10 - test data array 1 10
    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
    2 - iteration: 5 - test data array 1 5
    2 - iteration: 6 - test data array 1 6
    2 - iteration: 7 - test data array 1 7
    2 - iteration: 8 - test data array 1 8
    2 - iteration: 9 - test data array 1 9
    2 - iteration: 10 - test data array 1 10
    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
    3 - iteration: 5 - test data array 2 5
    3 - iteration: 6 - test data array 2 6
    3 - iteration: 7 - test data array 2 7
    3 - iteration: 8 - test data array 2 8
    3 - iteration: 9 - test data array 2 9
    3 - iteration: 10 - test data array 2 10

    So no crashes. Using more reps works as well. You might want to use the latest ooRexx 5.0beta from
    Sourceforge: <https://sourceforge.net/projects/oorexx/files/oorexx/5.0.0beta/>.

    Ad SysGetKey(): indeed, the back-tab key returns the tab key, please create a bug report with the
    ooRexx' bug tracker system on Sourceforge.

    HTH

    ---rony


    /*[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)


    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From Rony@21:1/5 to sweynclouston@gmail.com on Sat Oct 28 16:55:50 2017
    On 28.10.2017 16:36, sweynclouston@gmail.com wrote:
    ... cut ...


    I am using the latest (I hope) 'production' release - 4.2. I do not want to update until 5.0 is
    the finished article.
    Usually, that is understandable, because of "beta" in the name of 5.0. However, having worked with
    it intensively, I think ooRexx 5.0beta has arrived at a level where it has become stabler and better
    than 4.2. Therefore I would suggest to use ooRexx 5.0beta, especially in your case, where 5.0 runs a
    Rexx program that 4.2 cannot, it seems.


    I would love to create 2 bug reports (SYSGETKEY and D2C) but as I pre-ambled my registration is
    awaiting SourceForge's e-mail that will allow me to complete my registration. But it has been almost
    a week so far...
    Maybe you can re-try the process of becoming a member of Sourceforge, such that you become able to
    post your bug reports ASAP!

    ---rony

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From sweynclouston@gmail.com@21:1/5 to sweync...@gmail.com on Sat Oct 28 07:36:09 2017
    On Friday, October 27, 2017 at 3:36:01 PM UTC+1, sweync...@gmail.com wrote:
    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 I
    could 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 is the finished article.

    I would love to create 2 bug reports (SYSGETKEY and D2C) but as I pre-ambled my registration is awaiting SourceForge's e-mail that will allow me to complete my registration. But it has been almost a week so far...

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)