NOT_FILE_VAR error

[nick lucas]

We have upgraded our Windows system from Major 3.4 , Minor 3 , Patch 0159 to Major 5.2 , Minor 9 , Patch 0153.  

 

As you can see the Open line worked...but when I go to write out the line it give me an error..

 

Send report to: P)rinter T)erminal C)apture F)ile: F
E:\BATCHES\05-13-12_05112012CMB_dailybatch_2310.TXT is being created...
 ** Error [ NOT_FILE_VAR ] **
Variable is not an opened file descriptor , Line   220 , Source BATCH.PROCESS.2
Trap from an error message, error message name = NOT_FILE_VAR
Source changed to c:\e_drive\ourjapps\fhc\UBP\BATCH.PROCESS.2
0220         WRITEBLK ATTRIBS TO MyPath ELSE
jBASE debugger->

Everything else seems to be working.

Thank you for any help.

[Daniel Klein]

"As you can see the Open line worked"

What 'Open line'? There is no 'Open line' in your post below.

What does '/MyPath' display in the 'jBASE debugger' ?

Dan

--
IMPORTANT: T24/Globus posts are no longer accepted on this forum.
 
To post, send email to jB...@googlegroups.com
To unsubscribe, send email to jBASE-un...@googlegroups.com
For more options, visit this group at http://groups.google.com/group/jBASE?hl=en

[nick lucas]

Sorry here is the actual code used...

 TAB = CHAR(9)
        TME = OCONV(TIME(),'MTS')
        TME = SWAP(TME,':','-')
        IF CLINIC[1,3]="308" THEN
            Path = "E:\BATCHES_PPP\":OCONV(DATE(),"D2-"):"_":BATCH:"_":"dailybatch":"_":CLINIC:".TXT"
        END ELSE
            Path = "E:\BATCHES\":OCONV(DATE(),"D2-"):"_":BATCH:"_":"dailybatch":"_":CLINIC:".TXT"
        END
        OPENSEQ Path TO MyPath THEN
            CRT "The file already exists and DATA MAYBE WRONG rerun"
        END ELSE
            CRT Path:" is being created..."
        END
        ATTRIBS = 'FORM#':TAB:'CLINIC#':TAB:'PATIENT#':TAB:'DOS':TAB:'NAME':TAB:'SURNAME':TAB:'DOB':TAB:'CODE':CHAR(13):CHAR(10)

        WRITEBLK ATTRIBS TO MyPath ELSE

            CRT "What happened to the file?"
            STOP
        END
        Q = 'SELECT DATA.FORM WITH CLINIC = "': CLINIC: '" AND WITH BATCH# = "': BATCH: '"'
        EXECUTE Q
        LOOP WHILE READNEXT ID DO
            READ REC FROM FRM.F, ID THEN
                ROA='';ROB='';ROC='';RO=''
                R50MAX = DCOUNT(REC<50>,@VM)
                FOR R50 = 1 TO R50MAX
                    ROA = REC<50,R50>
                    ROB = XLATE("ERR.MESSAGE",REC<50,R50>,1,"X")
                    ROC = XLATE("ERR.MESSAGE",REC<50,R50>,5,"X")
                    RO := ROA:"-":ROB:"(":ROC:");"
                NEXT R50
                Line = ID:TAB:REC<8>:TAB:REC<60>:TAB:OCONV(REC<30>,"D4-"):TAB:REC<2>:TAB:REC<1>:TAB:OCONV(REC<12>,"D4-"):TAB:RO:CHAR(13):CHAR(10)
                WRITEBLK Line TO MyPath ELSE
                    CRT "What happened to the file?"
                    STOP
                END
            END
        REPEAT
        WEOFSEQ MyPath

[Daniel Klein]

Just because the program displays 'Path is being created' doesn't mean that the file was created. Since the code is not doing this explicitly then it depends on the existence of the entry

openseq_creates = true

in the '$JBCRELEASEDIR/config/Config_EMULATE' file under the appropriate emulation section.

Dan

--

[nick lucas]

Thanks for the help..I was missing openseq_creates = true in my emulate file.