After looking at this all morning, I believe all of the error logic will fail in this manner.
The person who revised this program is trying to use "monitor" to check for errors instead of validating the data before writing the cell.
Does anyone know who (if anyone) took over the EASY400 utilities after Giovanni Perroti passed away?
-----Original Message-----
From: MIDRANGE-L <midrange-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Greg Wilburn
Sent: Tuesday, December 2, 2025 10:17 AM
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxxxxxxxx>
Subject: [EXTERNAL] XLSXGEN error handling issue
Looking for some help here again...
The new version of XLSXGEN can easily get stuck in an endless loop after an error condition. I verified this in debug.
An error occurs when writing a "formula" cell where the formula is blank (yes, I've fixed that).
monitor;
ss_formula(row:rowcellNbr:peFormula:cellstyle); // theRow:theRowcellNbr ????
on-error;
exsr Failed;
endmon;
Eventually, the Exit subroutine is called. This is where the endless loop starts.
Withing Exit (pssrInd is *on):
// If coming from *PSSR, ...
if pssrInd=*on;
ss_freeLocalRef(outfile);
ss_freeLocalRef(tempstr);
ss_end_object_group(); //Remove space for object references in the object group
ss_freeLocalRef(outfile) calls subroutine *PSSR:
Begsr *PSSR;
statCodeSave=PSDSSTSCD; //save the Error Status Code: type of error
if pssrInd=*on; //*PSSR already entered
exsr Exit;
endif;
Which calls the Exit subroutine... and round and round we go.
I don't understand why procedure ss_freeLocalRef() is calling *PSSR subroutine since the error occurred inside a monitor expression?
I have fixed the REASON for the error, but what happens next time I get an error? It just keeps running and posting the same message to the joblog.
TIA,
Greg
[Logo]<
https://www.totalbizfulfillment.com/> Greg Wilburn
Director of IT
301.895.3792 ext. 1231
301.895.3895 direct
gwilburn@xxxxxxxxxxxxxxxxxxxxxxx<mailto:gwilburn@xxxxxxxxxxxxxxxxxxxxxxx>
1 Corporate Dr
Grantsville, MD 21536
www.totalbizfulfillment.com<
http://www.totalbizfulfillment.com>
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit:
https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at
https://archive.midrange.com/midrange-l.
Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.
[CAUTION! This email originated outside of the organization. Please do not open attachments or click links from an unknown or suspicious origin.]
Greg Wilburn
Director of IT
301.895.3792 ext. 1231
midrange.com
