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 On Mon, May 14, 2012 at 9:34 AM, nick lucas <[email protected]> wrote: > 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 > >> -- > IMPORTANT: T24/Globus posts are no longer accepted on this forum. > > To post, send email to [email protected] > To unsubscribe, send email to [email protected] > For more options, visit this group at > http://groups.google.com/group/jBASE?hl=en > -- IMPORTANT: T24/Globus posts are no longer accepted on this forum. To post, send email to [email protected] To unsubscribe, send email to [email protected] For more options, visit this group at http://groups.google.com/group/jBASE?hl=en
