Chuck Haatvedt

The MINGW32 will remain the only 32 bit MSYS2 build of GNUCOBOL as there is not a 32 bit UCRT version that I'm aware of. Since there are methods to install the UCRT64.DLL on earlier versions of Windows going back to at least Windows 7, perhaps we should consider dropping the MINGW64 builds of GNUCOBOL and move to the UCRT builds for the Windows 64 bit versions of GNUCOBOL. For the foreseeable future, I should be able to continue building the MINGW32 builds of GNUCOBOL. The current risk is that some...

The -fcallfh=EXTFH just vectors back to the internal i/o functions in the runtime. Both Berkeley and VBISAM are invoked directly and do NOT go thru an external file handler interface. The only vendor supplied EXTFH compliant indexed file handler that I am aware of is from Faircomm with their RTG interface. I have been working on implementing MF COBOL EXTFH compliance into the GnuCOBOL compiler. Chuck Haatvedt

To All, If you want the same functionality of extended ACCEPT / DISPLAY functionality as exists in Micro Focus COBOL, someone would need to duplicate the ADIS functionality which MF COBOL implemented. This would require access to the keyboard and screen at the primitive level. By using the CBL_## primitive functions which I created in my cbl-routines.c code this may be possible using COBOL code without the ACCEPT / DISPLAY statements. However I have not explored the full functionality of ADIS. ADDAPI...

Editing a field which is edited-numeric presents some challenges. For example compile the following program and run it. IDENTIFICATION DIVISION. PROGRAM-ID. TESTPIC-01. AUTHOR. CHUCK HAATVEDT INSTALLATION. CWH SOFTWARE. DATE-WRITTEN. AUG 17,2020. ENVIRONMENT DIVISION. CONFIGURATION SECTION. * *SOURCE-COMPUTER. WINDOWS-NT-95 WITH DEBUGGING MODE. * OBJECT-COMPUTER. WINDOWS-NT-95. SPECIAL-NAMES. DATA DIVISION. WORKING-STORAGE SECTION. 77 NUM-1 PIC 9V99 COMP-3. 77 NUM-DIS PIC Z,000.09. 77 OUT-NUM PIC...

For those concerned about ACCEPT behavior on a numeric field, I suggest that you trying the ACCEPT_NUMERIC_NEW.C code to see how it works. It has both a "calculator" mode and a mode which more closely resembles a notepad editting technique. it works with any NON floating point NUMERIC data item. This includes DISPLAY-NUMERIC, COMP-3, COMP-6, COMP, COMP-5, COMP-X as well as all the BINARY data types. it handles signed / unsigned, big / little endian for binary fields and ensures that no truncation...

Core Standard Behavior ( Note the second and third points below are non standard extensions of specific compiler vendors, GNUCOBOL does NOT implement them !!) Lack of Strict Validation: The standard defines ACCEPT as a direct data transfer mechanism, meaning it does not automatically throw a hard hardware or language exception if non-numeric characters are keyed in by a user. Justification and Padding: Input data received into a numeric field is right-justified, and missing high-order positions are...

Michael, the thing to remember about the ACCEPT verb is that it accepts an ALPHANUMERIC string, then it truncates it to the length of the receiving field BEFORE applying the NUMVAL function so when executing the following 05 NUM-FLD PIC 99V99. ACCEPT NUM-FLD. with the input of 12.99 (which has of length of 5 characters) it is truncated to "12.9" (the length of the receiving field) passed to NUMVAL which returns 1290 with an implied decimal point. So when NUM-FLD is used it has a value of 12.90 !!!!!...

Gerald, it appears The B7 functionality is related to the use of panels. I have implemented panel support in my latest builds of GNUCOBOL. here is a link to my latest builds of GnuCOOBOL which include support for PANELS, there are Windows binaries as well as a tarball for building on Linux https://www.dropbox.com/scl/fo/zu0rlonu3ss0z5m5x04ys/h?rlkey=705djak5b2ax77dzy84hh6gv8&st=l5j343gl&dl=0 the colors-new.cbl file is the cobol source for a program which demonstrates a number of the panel functions....