IFS Datei erstellen - Zeilen hinzufügen und löschen

[RobertMack]

Working with the IFS in RPG IV

[BerndDworrak]

OK.
Ich habe mir mal die Funktionen angesehen und den Code geschrieben (nur die für die IFS Dateien relevanten Zeilen). Kann sich jemand, der sich damit auskennt den Code einmal ansehen und mir mitteilen, warum die Datei immerwieder überschrieben wird und ein anhängen von Streams nicht funktioniert? Wäre wirklich dankbar. Ich kann übrigens keine Datei hochladen!?
Bernd

* +--------------------------------------------------------------+
* | |
* | Erstellt ...: 01.07.2008 |
* | |
* | Geändert ...: |
* | Grund ......: |
* +--------------------------------------------------------------+
* | BDE Scannen der Teile und schreiben in IFS |
* +--------------------------------------------------------------+
*
**-- Control Specs: ----------------------------------------------**
H Option( *SrcStmt ) DftActGrp( *No ) BndDir( 'QC2LE' )
**
** Dateien (Workstation, Printer etc.) ...
**
**
**-- Globale Variablen -------------------------------------------**
D FILE_o S * ist Cursor
D String S 512A ist String
D rc S 10I 0 ist Ganzzahl
D Idx S 5U 0 ist Ganzzahl o. Vorz
*
**-- Globale Konstanten ------------------------------------------**
D FileName C '/MetallPro/scans001.log' Datei in IFS
D LF C x'25' Hex(25) = Linefeed
*
**-- IFS Streamfile Funktionen ----------------------------------**
Dopen Pr * ExtProc( '_C_IFS_fopen' ) Prozedur 1
D * Value Options( *String )
D * Value Options( *String )
**
Dfgets Pr * ExtProc( '_C_IFS_fgets' ) Prozedur 2
D * Value
D 10i 0 Value
**
Dfputs Pr 10i 0 ExtProc( '_C_IFS_fputs' ) Prozedur 3
D * Value Options( *String )
D * Value
**
Dclose Pr 10i 0 ExtProc( '_C_IFS_fclose' ) Prozedur 4
D * Value
**
* +--------------------------------------------------------------+
* | |
* | Main |
* | |
* +--------------------------------------------------------------+
**
**...
** ... Code für interaktive Verarbeitung
** ...
**-- Open Files, Konvertierung zu Job Codepage:
**
C Eval FILE_o = open( %TrimR( FileName ) Öffnen
C : 'w, codepage=273'
C )
**
C If FILE_o <> *Null
** izeile ist Scancode
C Eval rc = fputs( izeile +
C %Char( Idx ) +
C LF
C : FILE_o Schreibe Zeile
C )
**
C Eval rc = close( FILE_o )
C EndIf Schliessen
**
**...
** ... weiterer Code
** ...
**-- Ende der Verarbeitung
C Eval *InLr = *On
C Return

[Fuerchau]

Du musst dir den Open mit den Parametern aus dem C-Handbuch mal genauer ansehen.

Mit "w" wird geöffnet und zurückgesetzt, Länge also wieder auf 0.

Siehe hier:

Mode Description
r

Open a text file for reading. The file must exist.

w

Create a text file for writing. If the given file exists, its contents are
destroyed unless it is a logical file.

a

Open a text file in append mode for writing at the end of the file. The

fopen()

function creates the file if it does not exist and is not a logical file.

r+

Open a text file for both reading and writing. The file must exist.

w+

Create a text file for both reading and writing. If the given file exists, its
contents are cleared unless it is a logical file.

a+

Open a text file in append mode for reading or updating at the end of the
file. The fopen() function creates the file if it does not exist.

rb

Open a binary file for reading. The file must exist.

wb

Create an empty binary file for writing. If the file exists, its contents are
cleared unless it is a logical file.

ab

Open a binary file in append mode for writing at the end of the file. The
fopen function creates the file if it does not exist.

r+b

or rb+

Open a binary file for both reading and writing. The file must exist.

w+b

or wb+

Create an empty binary file for both reading and writing. If the file exists,
its contents will be cleared unless it is a logical file.

a+b

or ab+

Open a binary file in append mode for writing at the end of the file. The

fopen()

function creates the file if it does not exist.

Ich denke du musst "a" verwenden, was allerdings nicht funktioniert, wenn die Datei neu ist.

Wenn alse der Open(..., "a, ...") fehlschlägt, dann mit Open(..., "w, ...") wiederholen.

[BerndDworrak]

Hallo!
Ein dickes Lob für den Moderator. Die Informationen waren Gold wert. Alles funktioniert nun genauso, wie ich es wünsche - und zudem noch richtig schnell. Viel Dank also noch einmal
Bernd

[malzusrex]

Hallo Bernd,

wenn Du ne weile dabei bleibst, wirst DU merken das dir hier in 99,9 % der Fälle geholfen wird. Und über kurz oder lang wirst auch du hier jemanden helfen können.

Gruß Ronald

[Fuerchau]

Dat hasse aber schön jesacht