PRB: Running Genxtab with an Empty Table Causes Error

MORE INFORMATION

Steps to Reproduce Behavior

1. Copy one of the following sections of code, depending on your version of FoxPro, to a PRG file. The SELECT, DO (_GENXTAB), and BROWSE NOMODIFY lines were created using the RQBE and copied to a PRG:

   Code for FoxPro 2.x

      IF !USED("customer")
         USE customer
      ENDIF
   
      STORE "C:\<FoxPro Directory>\GENXTAB.PRG" TO _GENXTAB
   
      SELECT Customer.cno, Customer.state, Customer.ytdpurch;
         FROM Customer;
         GROUP BY Customer.cno, Customer.state;
         ORDER BY Customer.cno, Customer.state;
         WHERE alltrim(upper(state))="JP" INTO CURSOR SYS(2015)
      DO (_GENXTAB) WITH 'Query'
      BROWSE NOMODIFY
      WAIT WINDOW "HELLO WORLD"
   						

   The WHERE clause in the SELECT statement returns an empty cursor. Therefore, the BROWSE and WAIT WINDOW commands after the DO (_GENXTAB) WITH 'Query' will never get executed.

   Code for Visual FoxPro

      IF !USED("customer")
            USE c:\vfp\samples\data\customer
      ENDIF
   
      SELECT Customer.cust_id, Customer.company, Customer.maxordamt;
       FROM customer;
       WHERE Customer.state = "WJ";
       GROUP BY Customer.cust_id, Customer.company;
       ORDER BY Customer.cust_id, Customer.company;
       INTO CURSOR SYS(2015)
       DO (_GENXTAB) WITH 'Query1'
      BROWSE NOMODIFY
      WAIT WINDOW "HELLO WORLD"

2. Create a new project, and add the program to the project.
3. Build an .EXE or .APP from the project.
4. Run the .EXE or .APP and notice that the BROWSE and WAIT WINDOW commands will not be executed.