RE: Commitment control ...

[Greg Thielen <gThielen@xxxxxxxxxxx>]

Ambarish,

With an output only file, the writes are buffered.  You won't see the
records in the file until the buffer fills or the file is closed.  When
the file is defined as input/add, it is considered "random access" and
not buffered, so the records are written immediately.  To test this,
insert the line:

C             CLOSEFILE1

after the ENDDO in the output only program.  Stop the program at the
last line again, and you should see your records in the file.


-----------------------------
Greg Thielen
Magellan Software
gthielen@magsoft.com
http://www.magsoft.com


> Hi,
> I have observed one strange thing(??). I have written one RPG. The
> piece of
> code is like this:
> 
> File1 is used in 'O' mode
> 
> FFILE1  O                              DISK
> C              DO   5
> C              MOVEL'ABCD'     FLD1  << Data base Field >>
> C              WRITE FILREC
> C              ENDDO
> C              SETON        LR
> C   'ARB'  DSPLY
> 
> Compiled RPG normally. (no Commit control). I stopped my program at
> the
> last line. And found no records written in to file FILE1. (I used
> RUNQRY to
> check).
> 
> Then I changed  code a little bit.  I defined the file in I/A mode.
> 
> FFILE1  I                              DISK     A
> C     1      IFEQ 2
> C              READ FILE1      30   << Dummy read>>
> C              ENDIF
>   *
> C              DO   5
> C              MOVEL'ABCD'     FLD1
> C              WRITE FILREC
> C              ENDDO
> C              SETON        LR
> C   'ARB'  DSPLY
> 
> I Stopped  my program at the last line, I found the file being
> populated.
> Could any body please tell me what exactly is happening?
> 
> Thanx in advance.
> 
> Ambarish 
> 
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to "MIDRANGE-L@midrange.com".
| To unsubscribe from this list send email to MAJORDOMO@midrange.com
|    and specify 'unsubscribe MIDRANGE-L' in the body of your message.
| Questions should be directed to the list owner/operator: david@midrange.com
+---