Beispiel

[Miles]

Hallo zusammen,

ich finde leider meine unterlagen nicht mehr zum programmieren auf der AS400.

Kann mir jemand eventuell ein Beispiel geben für Datei lesen und in eine andere Datei schreiben?

Danke

[Robi]

Sql?
RPG, RPGLE?
Cobol?
PHP
Assembler?
Ruby?
...
Was hätt mer denn gerne?

[Fuerchau]

Guckst du hier (leider nicht auf Deutsch):
https://www.ibm.com/support/knowledg...e/pdftable.htm
Zu vielen Dingen gibt es das "Programmers"-Handbuch mit Beispielen.

[Miles]

Hi Robi,

wenn ich mir was wünschen kann würde ich gerne
RPGLE
RPG FREE
gerne ein Beispiel haben mit Daten lesen und die andere Datei schreiben.

DANKE
Und auch Danke für Fuerchau!

[Robi]

Hier ein typisches Beispiel in RPGLE

H DECEDIT('0,')  DATEDIT(*DMY.)  ACTGRP('BSPPGM') 
Finput    IP   E           K DISK                
FOutput   O    E             DISK                
C                   WRITE     SATZFORMAT

[Fuerchau]

In diesem Fall kannst du die H-Zeile auch noch weglassen.
Wie mein Chef früher sagte: In RPG ist das doch ein 3-Zeiler.

[Miles]

Danke Robi. Damit kann ich jetzt was anfangen. Muss jetzt noch lesen mit dem Chain usw...

[Pikachu]

In der ILE RPG Referenz gibt es auch Beispiele zu Zugriffen auf die Datenbank.

[Miles]

Vielen Dank Pikachu.

[Robi]

In diesem Fall kannst du die H-Zeile auch noch weglassen.
Wie mein Chef früher sagte: In RPG ist das doch ein 3-Zeiler.

Stimmt,
präzise Anforderung (Siehe Thema: Beispiel) präzise Antwort.
mein Beispiel liest die Datei Input und schreibt die Datei Output
Anforderung zu 100% erfüllt

@Miles
ggf. etwas genauer defineren was gewünscht ist oder IBM Handbücher ergoogeln.

[Miles]

Robi, stimmt schon hätte etwas mehr schreiben müssen :-(

Ich versuch es mal:
Ich will ein Programm schreiben das eine Datei durch liest mit allen mein Keys.
Und das Ergebnis bestimmte Felder in die andere Datei schreibt:


FTEST IP E K DISK
FTEST1 O E DISK
DSOC S LIKE(WAREH)
*KEYS
C BBKEY KLIST
C KFLD SOC
*
C BBKEY READE TESTF
C* *IN01 IFEQ *ON
C move Kunde Kunde1
C WRITE test1f
C ENDIF

Aber funktioniert nicht.

[Pikachu]

Gib mal "IF" anstelle von "IP" an, wenn du selbst mit READE liest. Außerdem beim READE als letzte 2 Indikatoren jeweils 01. Und die Abfrage muß *IN01 IFEQ *OFF (kein Fehler) lauten. Der READE (Read Equal) findet nur Datensätze passend zu deinem BBKEY. Was sind "Kunde" und "Kunde1"? Sieh dir die erstellte Umwandlungsliste (Spooldatei) an: WRKSPLF > F18=Ende > letzte Spooldatei > mit 5=Anzeigen > mit E (Ende) auf die letzte Seite > eine Seite zurückblättern, da stehen RNF....-Nachrichten mit den Warnungen und Fehlern. :-)