>This is strange -
>The Record length should be 320 char max!
>The File Size could be enormous...
>
>I get the correct file (BUT EMPTY) in correct directory ...
>Tested for 6 recs
>read-in-rec buffer is always empty???
>
>

            IF Readable(SubStr(cMedSearch,1,6)+laFileList[i, 1])
                DO Destiny
            ELSE
                Wait Window "*** File not Readable! "+laFileList[i, 1]+CHR(13)+;
                            "Probably being created now!" NoWait
            ENDIF

>PROCEDURE Readable  && Check to see if the file is readable
>	PARAMETER cFile
>	LOCAL m.nFileReady
>	m.nFileReady = FOPEN(cFile)
>	IF m.nFileReady = -1
>		RETURN .F.
>	ELSE
>		=FCLOSE(m.nFileReady)
>		RETURN .T.
>	ENDIF
>ENDPROC
>
>PROCEDURE Destiny
>      nTest= 0
>        gnOrigin = FOPEN(SubStr(cMedSearch,1,6)+laFileList[i, 1],1)
>        *   ELB Debug: Destination I:\BBS\DATA\CLAIMS\NSF\"+cDestDirect
>        gnFile = FCREATE('c:\'+cDestDirect+'\'+laFileList[i, 1]+cFileExt)
>        IF gnFile < 0
>            WAIT WINDOW NOWAIT '*** Could not create file! '+laFileList[i, 1]+cFileExt
>        ELSE
>            DO WHILE !FEOF(gnOrigin)
>      nTest= nTest+ 1
>                m.buffer = FGETS(gnOrigin)
>                nFAIL=FPUTS(gnFile, m.buffer)
>                IF nFAIL = 0 .OR. nTest > 6
>                    nERRCNT= nERRCNT+ 1
>                    WAIT WINDOW NOWAIT "*** ERR WRITING RECORD "+laFileList[i, 1]+ ' in '+cDestDirect
>                    =FCLOSE(gnFile)  && Close NEW file
>                    =FCLOSE(gnOrigin)&& Close Original File
>                    RETURN
>                ENDIF
>            ENDDO
>            =FCLOSE(gnFile)  && Close NEW file
>            =FCLOSE(gnOrigin)&& Close Original File
>        ENDIF
>