PRB: Programmatically Adding Stored Procedure May Cause Error

MORE INFORMATION

Steps to Reproduce Behavior

Execute the following code, which creates a database container and a procedure file:

   SET SAFETY ON
   CREATE DATABASE proctest
   SET DATABASE to proctest
   mhandle = FCREATE("proctest.txt")
   =FWRITE(mhandle, "PROCEDURE proctest"+chr(10)+ ;
                    "   WAIT WINDOW 'proctest'"+ chr(10)+ ;
                    "ENDPROC")
   =FCLOSE(mhandle)
   MODIFY PROCEDURE
				

After closing the Stored Procedures window, issue the following from the Command window:

   APPEND PROCEDURES from proctest.txt
				

Issue the APPEND PROCEDURES again and the error should occur.

If the text file is edited to add a blank line to the beginning of the file, the error does not occur.

If FPUTS is used instead of FWRITE during the creation of the procedure file, the error does not occur because FPUTS appends a carriage-return, line-feed to end of the file, which allows the newly appended procedure to start after, rather than on, the last line of the stored procedures.

Setting SAFETY OFF, does not show the error dialog box and the procedure is appended to the stored procedures but not necessarily in the correct location.