Einstieg in RPG Programmierung ?!?

[ExAzubi]

free geht nur wenn due ILE RPG nutzt, beim guten alten RPGIII geht das leider nicht!

da musst du eine Fortsetzungszeile zu der F-Karte machen z.B.

F TESTOUT KRENAME TESTR

[andreaspr@aon.at]

am ende des spools erhälst du eine zusammenfassung:

N a c h r i c h t e n z u s a m m e n f a s s u n g
 Msg-ID  Sv Nummer Nachrichtentext                 
*RNF7575 00      1 Die Datenstruktur enthält Felder m
                   Datenart. Diese Felder werden igno
*RNF7030 30      1 Der Name oder die Bezugszahl/der A
                   definiert.                        
*RNF7503 30      1 Ausdruck enthält einen Operanden,

RNF7030 = fehler-id
30 = schwierigkeitsgrad
1 = wie oft der fehler aufgetreten ist

beispiel:
im spool mit RNF7030 suchen
dann kommst du zu den zusätzlichen informationen:

 Msg-ID  Sv Nummer Folge   Nachrichtentext                 
*RNF7030 30     77 001600  Der Name oder die Bezugszahl/der
                           definiert.                      
*RNF7575 00     13 001300  Datenstruktur TESTDS hat Felder

und in diesem fall wäre 77 die satznummer im spool, in dem der fehler auftritt.

75 C                   PARM                    S
76 C     SQL_00003     IFEQ      '1'            
77 C                   EVAL      SP1 = SQL_00005
78 C                   END

[watchdogg]

habe es jetzt so geschrieben mit RPGLE:

FTestOut UF E K Disk Rename(TestOut: TestOutF)
/Free
Read TestOutF;
If Not %EOF()
BDARTN = *Blanks;
Update TestOutF;
EndIf;
*INLR = *On;
Return;
/End-Free;

klappt aber nicht.

Fehlermeldung: Datenbeschreibungen für Datei TESTOUT nicht gefunden.

Ich glaub, das mit RPG und mir wird nie funktionieren.

MfG watchdogg

[Pikachu]

Kann diese Datei über die Bibliotheksliste gefunden werden? Mach mal WRKF TESTOUT. Wird sie da angezeigt?

[andreaspr@aon.at]

klingt so als ob deine tabelle nicht in deiner bibliotheksliste zu finden ist. dann findet der kompiler auch nix.

[AS400.lehrling]

habe es jetzt so geschrieben mit RPGLE:

FTestOut UF E K Disk Rename(TestOut: TestOutF)
/Free
Read TestOutF;
If Not %EOF()
BDARTN = *Blanks;
Update TestOutF;
EndIf;
*INLR = *On;
Return;
/End-Free;

klappt aber nicht.

Fehlermeldung: Datenbeschreibungen für Datei TESTOUT nicht gefunden.

Ich glaub, das mit RPG und mir wird nie funktionieren.

MfG watchdogg

Schauhe dir mal Rechenzentrum Kreuznach - die AS/400-Profis an
Da hat Holger eine gute einführung mit einigen Beispielen

Gruß AS400.lehrling

[holgerscherer]

Da hat Holger eine gute einführung mit einigen Beispielen

Ja, aber leicht überarbeitungswürdig, wenn ich mal Zeit finde. Vielleicht sollte ich mich mit Biggi zusammentun - obwohl die ja auch nicht immer Zeit hat ;-)

Schönes neues 2010 Euch allen!

-h

[B.Hauser]

Ja, aber leicht überarbeitungswürdig, wenn ich mal Zeit finde. Vielleicht sollte ich mich mit Biggi zusammentun - obwohl die ja auch nicht immer Zeit hat ;-)

Schönes neues 2010 Euch allen!

-h

Hallo Holger,

wir können gerne mal darüber reden!

... aber nicht mehr in diesem Jahr! (Noch haben wir für ein paar einzelne Stunden 2009)

Ansonsten wünsche ich allen einen
Guten Rutsch ins Jahr 2010!

Birgitta

[AS400.lehrling]

Ja, aber leicht überarbeitungswürdig, wenn ich mal Zeit finde. Vielleicht sollte ich mich mit Biggi zusammentun - obwohl die ja auch nicht immer Zeit hat ;-)

Schönes neues 2010 Euch allen!

-h

1. ein erfolgreiches 2010

2. Schreibe mal lieber erst den 2. teil fertig

Gruß AS400.lehrling

[watchdogg]

@holgerscherer,

ich habe schon mehrere Mails an dich geschrieben.
Bin interessiert an deinem Grundkurs, auch wenn er nicht aktuell ist.

Bisher kam noch keine Antwort von dir?
Wie soll ich vorgehen? Hat sich deine E-Mail Adresse geändert?

MfG watchdogg

[holgerscherer]

@holgerscherer,

ich habe schon mehrere Mails an dich geschrieben.
Bin interessiert an deinem Grundkurs, auch wenn er nicht aktuell ist.

Hi, da hat wohl der Spamfilter etwas herb zugeschlagen - ich sortiere mal durch und melde mich morgen.

-h

[watchdogg]

Hallo Holger,

es ist nun schon fast übermorgen?!?


MfG watchdogg