`DATE('U')` Unable to re-allocate 2726592993 bytes.

I'm running all the tests in the /test folder and noticed one kept failing, testing the following rexx on a fresh tk5u3 I can recreate the issue:

my script (in HERC01.EXEC(TEST)):

SAY DATE('W')
SAY DATE('U')

When i run this script with rx test I get the following:

Thursday
      2 *-* SAY DATE('U')
 realloc: Unable to re-allocate 2726592993 bytes. Memory allocated is 196608
      2 *-* SAY DATE('U')
 Error 61 running TEST, line 2: Memory reallocation failed.

The problem has been re-produced. An invalid re-alloc in the error routine has been performed, which triggered an error in the error handling process.
The problem has been cured and will be provided in the next fix-level release

I just built the new version and now get a seperate issue (this is on TK5, MVS/CE and TK4-):

 Saturday
      2 *-* SAY DATE('U')
 Error 40.47 running HERC01.TEST.CNTL(TEST), line 2: invalid or missing output f
ormat "

After testing it looks like none of these work:

    else {
        if      (brxoptions[1]=='A') Lscpy(datestr, "XEUROPEAN");
        else if (brxoptions[1]=='B') Lscpy(datestr, "XGERMAN");
        else if (brxoptions[1]=='C') Lscpy(datestr, "XUSA");
        else if (brxoptions[1]=='E') Lscpy(datestr, "EUROPEAN");
        else if (brxoptions[1]=='G') Lscpy(datestr, "GERMAN");
        else if (brxoptions[1]=='U') Lscpy(datestr, "USA");
        else Lscpy(datestr, "XEUROPEAN");
    }

From:

brexx370/lstring/date.c

Line 280 in 520947c

if (brxoptions[1]=='A') Lscpy(datestr, "XEUROPEAN");

DATE('A'):

      1 *-* DATE('A')
 Error 40.47 running HERC01.TEST.CNTL(TEST), line 1: invalid or missing output f
ormat "

And the rest:

Error: Invalid command name syntax
      1 *-* DATE('B')
        +++ RC(-3) +++
 Error: Invalid command name syntax
      2 *-* DATE('E')
        +++ RC(-3) +++
 Error: Invalid command name syntax
      3 *-* DATE('C')
        +++ RC(-3) +++
      4 *-* DATE('G')
 Error 40.47 running HERC01.TEST.CNTL(TEST), line 4: invalid or missing output f
ormat "

I think there is a misunderstanding of what the code’s intention is. else { if (brxoptions[1]=='A') Lscpy(datestr, "XEUROPEAN"); else if (brxoptions[1]=='B') Lscpy(datestr, "XGERMAN"); else if (brxoptions[1]=='C') Lscpy(datestr, "XUSA"); else if (brxoptions[1]=='E') Lscpy(datestr, "EUROPEAN"); else if (brxoptions[1]=='G') Lscpy(datestr, "GERMAN"); else if (brxoptions[1]=='U') Lscpy(datestr, "USA"); else Lscpy(datestr, "XEUROPEAN"); } It does not define an output format “A”, “B”, … it uses a default option setting, which says the default data format is: XUSA, XEUROPEAN, XGERMAN, etc. This must be done by an OPTION COMMAND in your REXX: say options('date','XGERMAN') say "xgerman "date() say options('date','usa') say "usa "date() say options('date','xusa') say "xusa "date() say options('date','GERMAN') say "german "date() then you can omit the output format in the DATE() function. I suspect I have forgotten to document the feature. Regards Peter Von: Soldier of FORTRAN ***@***.***> Gesendet: Sonntag, 5. Mai 2024 03:12 An: mvslovers/brexx370 ***@***.***> Cc: Peter-Jacob ***@***.***>; State change ***@***.***> Betreff: Re: [mvslovers/brexx370] `DATE('U')` Unable to re-allocate 2726592993 bytes. (Issue #118) After testing it looks like none of these work: else { if (brxoptions[1]=='A') Lscpy(datestr, "XEUROPEAN"); else if (brxoptions[1]=='B') Lscpy(datestr, "XGERMAN"); else if (brxoptions[1]=='C') Lscpy(datestr, "XUSA"); else if (brxoptions[1]=='E') Lscpy(datestr, "EUROPEAN"); else if (brxoptions[1]=='G') Lscpy(datestr, "GERMAN"); else if (brxoptions[1]=='U') Lscpy(datestr, "USA"); else Lscpy(datestr, "XEUROPEAN"); } From: https://github.com/mvslovers/brexx370/blob/520947c1c708ec0dc07cf913cf839ae5c1584a86/lstring/date.c#L280 DATE('A'): 1 *-* DATE('A') Error 40.47 running HERC01.TEST.CNTL(TEST), line 1: invalid or missing output f ormat " And the rest: Error: Invalid command name syntax 1 *-* DATE('B') +++ RC(-3) +++ Error: Invalid command name syntax 2 *-* DATE('E') +++ RC(-3) +++ Error: Invalid command name syntax 3 *-* DATE('C') +++ RC(-3) +++ 4 *-* DATE('G') Error 40.47 running HERC01.TEST.CNTL(TEST), line 4: invalid or missing output f ormat " — Reply to this email directly, view it on GitHub <#118 (comment)> , or unsubscribe <https://github.com/notifications/unsubscribe-auth/ALA23NZQPDRTILEUVEJS3FLZAWBM7AVCNFSM6AAAAABHDBSHJOVHI2DSMVQWIX3LMV43OSLTON2WKQ3PNVWWK3TUHMZDAOJUGUZTEOBTGU> . You are receiving this because you modified the open/close state. <https://github.com/notifications/beacon/ALA23N4CPU42TX254G6G4EDZAWBM7A5CNFSM6AAAAABHDBSHJOWGG33NNVSW45C7OR4XAZNMJFZXG5LFINXW23LFNZ2KUY3PNVWWK3TUL5UWJTT43AEOG.gif> Message ID: ***@***.*** ***@***.***> >

I just built the new version and now get a seperate issue (this is on TK5, MVS/CE and TK4-):
 Saturday
      2 *-* SAY DATE('U')
 Error 40.47 running HERC01.TEST.CNTL(TEST), line 2: invalid or missing output f
ormat "

"U" is ambiguous it could be USA or UNIX. USA requires 3 characters. I changed it to 1, UNIX needs two characters. The change is committed, please let me know if it works for you.