How to get the "DBTOOL SQL Width & Date Scan w/Report Option" with ABL?

How to get the "DBTOOL SQL Width & Date Scan w/Report" Option with ABL?

How to list the current SQL-WIDTH vs ABL Format size for all character fields of Tables in a database?

How to fetch the current SQL-WIDTH of fields?
How to troubleshoot why the DBTOOL SQL-WIDTH report fails with "Unable to upgrade record"?

The following example code does not report on the actual or rather maximum current field width of a given character field, iow  table.fields approaching or anywhere near the limit 31,991.  
In order to do so refer to Article  How to report on character fields where the length of data exceeds the SQL-WIDTH value?   
 

/* fieldrep.p */ 

DEFINE STREAM s_log. 

OUTPUT STREAM s_log TO VALUE(".\fieldwdth01.txt") APPEND UNBUFFERED. 

FOR EACH _file WHERE _owner = "pub" AND _tbl-type = "T", 
    EACH _field OF _file 
          WHERE _field._Data-Type = "CHARACTER" NO-LOCK: 
    PUT stream s_log UNFORMATTED 
                       _file-name "." _field-name "; " _field._width "; " _field._format SKIP. 
END. 

OUTPUT STREAM s_log CLOSE.

 

1. SQL-Width LE twice the ABL format
2. Fields with their associated SQL-WIDTH that are approaching the 31,991 field limit.