-
Beispiel
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
-
Sql?
RPG, RPGLE?
Cobol?
PHP
Assembler?
Ruby?
...
Was hätt mer denn gerne?
Das Notwendige steht über dem technisch machbaren.
(klingt komisch, funktioniert aber!)
-
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.
-
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!
-
Hier ein typisches Beispiel in RPGLE
Code:
H DECEDIT('0,') DATEDIT(*DMY.) ACTGRP('BSPPGM')
Finput IP E K DISK
FOutput O E DISK
C WRITE SATZFORMAT
Das Notwendige steht über dem technisch machbaren.
(klingt komisch, funktioniert aber!)
-
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.
-
Danke Robi. Damit kann ich jetzt was anfangen. Muss jetzt noch lesen mit dem Chain usw...
-
In der ILE RPG Referenz gibt es auch Beispiele zu Zugriffen auf die Datenbank.
-
-
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.
Das Notwendige steht über dem technisch machbaren.
(klingt komisch, funktioniert aber!)
-
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.
-
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. :-)
Similar Threads
-
By dschroeder in forum NEWSboard Programmierung
Antworten: 9
Letzter Beitrag: 05-04-16, 14:40
-
By Oskar in forum NEWSboard Programmierung
Antworten: 7
Letzter Beitrag: 14-07-15, 21:02
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- You may not post attachments
- You may not edit your posts
-
Foren-Regeln
|
Erweiterte Foren Suche
Google Foren Suche
Forum & Artikel Update eMail
AS/400 / IBM i
Server Expert Gruppen
Unternehmens IT
|
Kategorien online Artikel
- Big Data, Analytics, BI, MIS
- Cloud, Social Media, Devices
- DMS, Archivierung, Druck
- ERP + Add-ons, Business Software
- Hochverfügbarkeit
- Human Resources, Personal
- IBM Announcements
- IT-Karikaturen
- Leitartikel
- Load`n`go
- Messen, Veranstaltungen
- NEWSolutions Dossiers
- Programmierung
- Security
- Software Development + Change Mgmt.
- Solutions & Provider
- Speicher – Storage
- Strategische Berichte
- Systemmanagement
- Tools, Hot-Tips
Auf dem Laufenden bleiben
|
Bookmarks