PROCEDURE Main()
   LOCAL caught := .F.

   FErase("d.dbf")
   dbCreate("d.dbf", { {"X","N",4,0} })
   USE d.dbf NEW EXCLUSIVE
   dbAppend(); FieldPut(1, 1)
   dbCommit()

   /* Test that SDF / TO PRINTER raise instead of silent no-op */
   BEGIN SEQUENCE
      COPY TO out.txt SDF
   RECOVER
      caught := .T.
   END SEQUENCE
   ? "SDF caught:", caught, "(expect .T.)"

   caught := .F.
   BEGIN SEQUENCE
      LIST TO PRINTER
   RECOVER
      caught := .T.
   END SEQUENCE
   ? "TO PRINTER caught:", caught, "(expect .T.)"

   dbCloseArea()
   FErase("d.dbf")
   ? "DONE"
   RETURN