Revision as of 10:12, 20 July 2020

FIX: Memo Field Corruption Occurs with Code Page Differences

ID: Q107520

The information in this article applies to:

Microsoft FoxPro for Windows, version 2.5a
Microsoft FoxPro for MS-DOS, version 2.5a

SYMPTOMS

When a table is tagged with a code page other than the current working code page, data in a memo field is lost if the memo file is reorganized.

STATUS

Microsoft has confirmed this to be a problem in FoxPro version 2.5a for MS-DOS and FoxPro 2.5a for Windows. This problem was corrected in FoxPro 2.5b for MS-DOS and FoxPro 2.5b for Windows.

MORE INFORMATION

Steps to Reproduce Problem

Make sure CPZERO.PRG is in your FoxPro directory. If you are using FoxPro for Windows, use 850 as the code page parameter for CPZERO; use 1252 for FoxPro for MS-DOS.

In the Command window, type the following: '

       SET EXCLUSIVE ON
       SET SAFETY OFF
       CREATE TABLE test (xxx m)
       DO SYS(2004)+"\CPZERO" WITH "TEST.DBF",850  && or 1252
       DISPLAY STATUS
       APPEND BLANK
       MODIFY MEMO xxx

In the memo window, type: '

       zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz

Press CTRL+W to close the memo field.
In the Command window, issue the following command: '
```
       APPEND BLANK 
```
In the Command window, issue the following command: '
```
       MODIFY MEMO 
```
Repeat steps 3 and 4.

In the Command window, issue the following command: '

       REPLACE ALL XXX WITH "ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ"

In the Command window, issue the following commands: '

       PACK
       MODIFY MEMO XXX
       BROWSE

In the Browse window, move to record 2. The information in the memo field will be gone.

Additional query words: FoxDos FoxWin buglist2.50a fixlist2.50b codepage

Keywords          : FxprgIntl 
Version           : 2.50a | 2.50a
Platform          : MS-DOS WINDOWS 
Issue type        :

@@ Line 43: / Line 43: @@
         SET SAFETY OFF
         CREATE TABLE test (xxx m)
-        DO SYS(2004)+&quot;\CPZERO&quot; WITH &quot;TEST.DBF&quot;,850  &amp;&amp; or 1252
+        DO SYS(2004)+"\CPZERO" WITH "TEST.DBF",850  &amp;&amp; or 1252
         DISPLAY STATUS
         APPEND BLANK
@@ Line 56: / Line 56: @@
 <li>Repeat steps 3 and 4.</li>
 <li><p>In the Command window, issue the following command: ''''''</p>
-<pre class="CODESAMP">       REPLACE ALL XXX WITH &quot;ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ&quot; </pre></li>
+<pre class="CODESAMP">       REPLACE ALL XXX WITH "ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ" </pre></li>
 <li><p>In the Command window, issue the following commands: ''''''</p>
 <pre class="CODESAMP">       PACK

Microsoft KB Archive/107520: Difference between revisions