Sätze auslesen und in andere Datei schreiben

[chrisssiie]

Hallo,

kenn mich noch nicht so mit rpg aus.

wie kann ich sätze von einer phy datei auslesn und in eine andere schreiben mit RPG?

Hätte so gedacht, aber der geht in meine if bedingung net rein -.-

FALADDR0 UF  E           K        DISK                      A 
F*                                                            
F*                                          
FVKKUND0 IF  E           K        DISK                        
 C           $KLAP     KLIST                
 C                     KFLD           IDEN01
 C                     READ VKKUNDR                  89 
 C*                                                     
 C           *IN89     DOWEQ'0'                         
 C*                                                     
 C                     MOVELKDNRKU    IDEN01            
 C*                                                     
 C           $KLAP    CHAINALADDRR              87     
 C           *IN87     IFEQ *OFF                        
 C*                                                     
 C                     MOVELFNA1KU    NAMEAD            
 C                     MOVELFNA2KU    VORNAD           
 C                     MOVELVSTRKU    STRAAD            
 C                     MOVELLANDKU    LANDAD            
 C                     MOVELFPLZKU    POLZAD            
 C                     MOVELVPSFKU    POFAAD            
 C                     MOVELPZPFKU    PLZPAD            
 C                     MOVELFORTKU    AORTAD            
 C                     MOVELTELFKU    TELEAD            
 C                     MOVELTELXKU    TFAXAD            
 C                     MOVELWTJJKU    GEBJAD            
 C                     MOVELWTTTKU    GEBTAD            
 C                     MOVELWTMMKU    GEBMAD            
 C                     MOVELURLKKU    WEBSAD            
 C                     MOVELEMAIKU    EMAIAD            
 C*                                                     
 C                     WRITEALADDRR                     
 C*                                                     
 C                     ENDIF                            
 C                     READ VKKUNDR                  89 
 C                     ENDDO 
 C           *LIKE     DEFN IDENAD    IDEN01

Vielen dank schonmal für eure antworten

[Pikachu]

Die Zeile mit dem CHAIN ist teilweise um eine Stelle nach links verrutscht. Vielleicht wurde das Programm nicht gewandelt und du rufst deshalb immer einen älteren Stand des Programms auf? Andere Möglichkeit: Sind IDENAD und KDNRKU vielleicht numerisch, aber unterschiedlich lang defininert? Falls ja, bräuchtest du einen MOVE anstelle des MOVEL.

[Fuerchau]

Wenn ich mir die Logik ansehe, musst du auf *ON prüfen -> Satz nicht da, da du anscheinend nur neue Sätze kopieren möchtest.

[Spateneder]

Man kann RPG - sogar das hier verwendete RPG III - übrigens auch als höhere Programmiersprache behandeln und numerische Werte mit Z-ADD übertragen. Dann können einige der angedeuteten Probleme gar nicht erst auftreten. Ein Problem bleibt aber: Auch Z-ADD erkennt keinen Überlauf, d.h., wenn du 1234 in ein dreistelliges numerisches Feld stellst, enthält es hinterher den Wert 234 und dein Programm läuft klaglos mit dem falschen Wert weiter.
Mit solchen Verschrobenheiten (wie auch mit den weiter oben erwähnten, unsäglichen MOVEs von numerischen Werten) haben wir alten RPG-Heinis z.B. Datumsverarbeitung betrieben, und wir waren alle mächtig stolz auf unsere vermeintlich genialen Operationen!
Und damit zum Thema: Wenn du dich mit RPG beschäftigen willst, warum RPG III? Für das Verständnis von alten RPG-Schinken ist es vielleicht sinnvoll, nicht sofort mit dem freien Format zu beginnen, aber ILE RPG wäre schon zu empfehlen.
IBM bietet im iSeries Information Center unter /Programmierung/RPG einiges an Handbüchern, ansonsten gibt es auch ganz gute Einführungen auf dem Buchmarkt.
Dann kannst du dir ja mal den Operationscode EVAL (mit Überlaufprüfung) ansehen und einige BIFs (eingebeute Funktionen ) wie %EOF und %FOUND, damit du dich nicht mit der Bezugszahlen-Seuche infizierst, an der wir alle leiden.
Und denk darüber nach, ob du nicht den Ausgabesatz komplett initialisieren könntest, bevor du Werte überträgst und den Satz wegschreibst. Wer weiß, vielleicht wächst ja dein Programm (oder die Ausgabedatei) mal ...
Viel Spaß (das meine ich ehrlich)
Mathias Spateneder

[Bernd Wiezroek]

Wenn wir bei Empfehlungen sind.

Noch 2

Für RPG III würde ich STRISDB empfehlen das ist der inline Debugger. Damit findet man logische Fehler immer am schnellsten.

Bie ILE mit Testoption *souce umwandeln. Dann hat mann auch den Inlinedebugger.