Hi,

I am working on webfocus server 7.6.11, i am new to webfocus .

probelm Description:
I am reading one xml file using FILEDEF copmmand and writing in to another xml.
I am able to write a file properly , but after that if use any copy command or Rename command i am getting error like " The process cannot access the file because it is being used by another process.".

Please see my code

-SET &ECHO =ALL;
-SET &LOGDIR = 'E:\';
-SET &FILE == 'WORKFILE.XML';
-SET &WORKDIR =&LOGDIR;
-SET &FILENAME=&FILE;
-SET &FDFILE=&WORKDIR | &FILE;
-SET &OUTRES =&WORKDIR | 'YYRESULT.XML;
-SET &OUTRES1 ='YYRESULTNEW.XML';
-*APP FI TMPFILE DISK &OUTRES
FILEDEF TMPFILE DISK &OUTRES(LRECL 200 RECFM F
FILEDEF GPRS DISK &FDFILE
TABLE FILE GPRS
PRINT
FIELD1
ON TABLE HOLD AS INPTXT FORMAT ALPHA
END
-RUN
-SET &ECHO =ON;
-READLOOP
-READ INPTXT NOCLOSE &FIELD1.A120.
-IF &IORETURN NE 0 GOTO ENDLOOP ;
-WRITE TMPFILE NOCLOSE &FIELD1
-GOTO READLOOP
-ENDLOOP
-RUN

-SET &WORKNAME='DOS REN ' | &OUTRES | ' ' | &OUTRES1 ;
&WORKNAME

Out put:

--------------------------------------------------------------------------------

No HTML Output!

--------------------------------------------------------------------------------

-SET &LOGDIR ='E:\';
-SET &FILE == 'WORKFILE.XML';
-SET &WORKDIR =E:\;
-SET &FILENAME=WORKFILE.XML;
-SET &FDFILE=E:\ | WORKFILE.XML;
-SET &OUTRES =E:\ | 'YYRESULT.XML';
-SET &OUTRES1 ='YYRESULTNEW.XML';
APP FI TMPFILE DISK E:\YYRESULT.XML
FILEDEF GPRS DISK E:\WORKFILE.XML
TABLE FILE GPRS
PRINT
FIELD1
ON TABLE HOLD AS INPTXT FORMAT ALPHA
END
-RUN
1
0 NUMBER OF RECORDS IN TABLE= 2657 LINES= 2657
0
-READLOOP
-READ INPTXT NOCLOSE &FIELD1.A120.
-IF 0 NE 0 GOTO ENDLOOP ;
-WRITE TMPFILE NOCLOSE
-GOTO READLOOP
-READLOOP
-READ INPTXT NOCLOSE &FIELD1.A120.
-IF 0 NE 0 GOTO ENDLOOP ;
-WRITE TMPFILE NOCLOSE < !DOCTYPE Log SYSTEM "CELLO_AVAILABILITY2_LOG.dtd">
-GOTO READLOOP
-READLOOP
-READ INPTXT NOCLOSE &FIELD1.A120.
-IF 0 NE 0 GOTO ENDLOOP ;
-WRITE TMPFILE NOCLOSE
-GOTO READLOOP
-READLOOP
-READ INPTXT NOCLOSE &FIELD1.A120.
-IF 0 NE 0 GOTO ENDLOOP ;
-WRITE TMPFILE NOCLOSE
-GOTO READLOOP
-READLOOP
-READ INPTXT NOCLOSE &FIELD1.A120.
-IF 0 NE 0 GOTO ENDLOOP ;
-WRITE TMPFILE NOCLOSE CELLO_AVAILABILITY2_LOG
-GOTO READLOOP
-READLOOP
-READ INPTXT NOCLOSE &FIELD1.A120.
-IF 0 NE 0 GOTO ENDLOOP ;
-WRITE TMPFILE NOCLOSE
-GOTO READLOOP
-READLOOP
-READ INPTXT NOCLOSE &FIELD1.A120.
-IF 0 NE 0 GOTO ENDLOOP ;
-WRITE TMPFILE NOCLOSE 2010 6 16
-GOTO READLOOP
-READLOOP
-READ INPTXT NOCLOSE &FIELD1.A120.
-IF 0 NE 0 GOTO ENDLOOP ;
-WRITE TMPFILE NOCLOSE 18 48 13
-GOTO READLOOP
-READLOOP
-READ INPTXT NOCLOSE &FIELD1.A120.
-IF 0 NE 0 GOTO ENDLOOP ;
-WRITE TMPFILE NOCLOSE
-GOTO READLOOP
-READLOOP
-READ INPTXT NOCLOSE &FIELD1.A120.
-IF 0 NE 0 GOTO ENDLOOP ;
-WRITE TMPFILE NOCLOSE
-GOTO READLOOP
-READLOOP
-READ INPTXT NOCLOSE &FIELD1.A120.
-IF 0 NE 0 GOTO ENDLOOP ;
-WRITE TMPFILE NOCLOSE
-GOTO READLOOP
-READLOOP
-READ INPTXT NOCLOSE &FIELD1.A120.
-IF 0 NE 0 GOTO ENDLOOP ;
-WRITE TMPFILE NOCLOSE
-GOTO READLOOP
-READLOOP
-READ INPTXT NOCLOSE &FIELD1.A120.
-IF 1 NE 0 GOTO ENDLOOP ;
-ENDLOOP
-RUN
-SET &WORKNAME='DOS REN ' | E:\YYRESULT.XML | ' ' | YYRESULTNEW.XML ;
DOS REN E:\YYRESULT.XML YYRESULTNEW.XML

The process cannot access the file because it is being used by another process.

Please give suggestion on this , it would be appreciate your help.

This message has been edited. Last edited by: Kerry,

Before you do the rename you have to close the file with:

-CLOSE TMPFILE

.. but I think you donot have to have the NOCLOSE in your example during reading and writing (there is no -RUN in the loop)

This message has been edited. Last edited by: <FreSte>,

FreSte is right, the -RUN will force a close on the file, so be cause you do not have a -RUN you can omit the NOCLOSE.

It is also good programming practice to issue a -CLOSE anyway after you have finished with WRITING the file.