Brauche Hilfe bei ersten Gehversuchen in RPG

[ASY]

Danke für die Antwort werde dan mal versuchen die Datenbank ADREPF zu erstellen.:rolleyes:

Muß ich sonst noch etwas Erstellen ?

So die Datenbank ADREPF ist Funktionabel :D

Leider Bekomme ich immer noch die Papnase vom Compiler :rolleyes:

Hier die Aktuelle Liste:

*...+....1....+....2....+....3....+....4....+....5 ....+....6....+....7....+....8....+....9....+....0 ....+....1....+....2....+....3
5722WDS V5R2M0 020719 RN IBM ILE RPG ASY1/SETADRSTAT M170PUB1 17.06.05 07:54:09 Seite 1
Befehl . . . . . . . . . . . . . : CRTBNDRPG
Ausgegeben von . . . . . . . . . : ASY
Programm . . . . . . . . . . . . : SETADRSTAT
Bibliothek . . . . . . . . . . . : ASY1
Text 'Beschreibung' . . . . . . : *SRCMBRTXT
Quellenteildatei . . . . . . . . : SETADRSTAT
Quellendatei . . . . . . . . . . : QRPGLESRC
Bibliothek . . . . . . . . . . . : ASY1
CCSID . . . . . . . . . . . . . : 273
Text 'Beschreibung' . . . . . . : Setzen Adress-Status
Letzte Änderung . . . . . . . . : 17.06.05 05:14:28
Generierungsbewertungsstufe . . : 10
Standardaktivierungsgruppe . . . : *YES
Umwandlungsprogrammauswahlmögl. : *XREF *GEN *NOSECLVL *SHOWCPY
*EXPDDS *EXT *NOSHOWSKP *NOSRCSTMT
*DEBUGIO *NOEVENTF
Testhilfesichten . . . . . . . . : *SOURCE
Ausgabe . . . . . . . . . . . . : *PRINT
Optimierungsstufe . . . . . . . : *NONE
Quellenlisteneinrückung . . . . : *NONE
Umsetzungsauswahlmögl. eingeben : *NONE
Sortierfolge . . . . . . . . . . : *HEX
Sprachen-ID . . . . . . . . . . : *JOBRUN
Programm ersetzen . . . . . . . : *NO
Benutzerprofil . . . . . . . . . : *USER
Berechtigung . . . . . . . . . . : *LIBCRTAUT
Numerische Daten abschneiden . . : *YES
Numerische Daten korrigieren . . : *NONE
Ziel-Release . . . . . . . . . . : *CURRENT
Nullwerte zulassen . . . . . . . : *NO
Bedingungsnamen definieren . . . : *NONE
Leistungsdatenerfassg. aktivieren: *PEP
Profildefinitionsdaten . . . . . : *NOCOL
LIC-Optionen . . . . . . . . . . :
Prog.-Schnittstelle generieren . : *NO
Verzeichnis einschließen . . . . :
5722WDS V5R2M0 020719 RN IBM ILE RPG ASY1/SETADRSTAT M170PUB1 17.06.05 07:54:09 Seite 2
Zeil.- <---------------------- Quellenbestimmungen ------------------------------><-- Bemerkungen --> Do S. Änd.- Src Folge-
Nummer ....1....+....2....+....3....+....4....+....5....+ ....6....+....7....+....8....+....9....+...10 Num Z. Datum ID nummer
Q u e l l e n l i s t e
1 HDEBUG 050616 000100
2 FADREPF UF E DISK 050617 000200
*--------------------------------------------------------------------------------------------*
* RPG-Name Externer Name *
* Dateiname . . . . . . . . : ADREPF ASY1/ADREPF *
* Satzformat(e) . . . . . . : ADREPFR ADREPFR *
*--------------------------------------------------------------------------------------------*
3=IADREPFR 1000001
*--------------------------------------------------------------------------------------------* 1
* RPG-Satzformat . . . . . . : ADREPFR * 1
* Externes Format . . . . . : ADREPFR : ASY1/ADREPF * 1
*--------------------------------------------------------------------------------------------* 1
4=I P 1 16 5FELDVERSU Test Acker von ASY 1000002
5 C READ ADREPF ----80 050616 000300
6 C DOW *IN80=*OFF B01 050616 000400
7 C IF ADRORT=*BLANKS B02 050616 000500
8 C EVAL ADRSTAT='U' 02 050616 000600
9 C UPDATE ADRFMT 02 050616 000700
10 C ENDIF E02 050616 000800
11 C READ ADREPF ----80 01 050616 000900
12 C ENDDO E01 050616 001000
13 C EVAL *INLR=*ON 050616 001100
* * * * * E N D E D E R Q U E L L E * * * * *
5722WDS V5R2M0 020719 RN IBM ILE RPG ASY1/SETADRSTAT M170PUB1 17.06.05 07:54:09 Seite 3
Z u s ä t z l i c h e D i a g n o s e n a c h r i c h t e n
Msg-ID Sv Nummer Folge Nachrichtentext
*RNF7066 00 2 000200 Satzformat ADREPFR für Eingabe oder Ausgabe nicht
verwendet.
*RNF7030 30 9 000700 Der Name oder die Bezugszahl/der Anzeiger ADRFMT ist nicht
definiert.
*RNF7030 30 7 000500 Der Name oder die Bezugszahl/der Anzeiger ADRORT ist nicht
definiert.
*RNF7030 30 8 000600 Der Name oder die Bezugszahl/der Anzeiger ADRSTAT ist nicht
definiert.
*RNF7503 30 7 000500 Ausdruck enthält einen Operanden, der nicht definiert ist.
*RNF7503 30 8 000600 Ausdruck enthält einen Operanden, der nicht definiert ist.
* * * * * E N D E D E R Z U S Ä T Z L I C H E N D I A G N O S E N A C H R I C H T E N * * * * *
5722WDS V5R2M0 020719 RN IBM ILE RPG ASY1/SETADRSTAT M170PUB1 17.06.05 07:54:09 Seite 4
Q u e r v e r w e i s l i s t e
Datei- und Satzverweise:
Datei Einheit Verweise (D=Definiert)
Satz
ADREPF DISK 2D 5 11
ADREPFR 2D 3
Globale Feldverweise:
Feld Attribute Verweise (D=Definiert M=Modifiz.)
*INLR N(1) 13M
*IN80 N(1) 6
*RNF7030 ADRFMT **UNDEF** 9
*RNF7030 ADRORT **UNDEF** 7
*RNF7030 ADRSTAT **UNDEF** 8M
*RNF7031 FELDVERSU P(30,5) 4D
Bezugszahlen-/Anzeigerverweise:
Bez./Anz. Verweise (D=Definiert M=Modifiz.)
80 5D 6 11D
LR 13M
* * * * * E N D E D E R Q U E R V E R W E I S L I S T E * * * * *
5722WDS V5R2M0 020719 RN IBM ILE RPG ASY1/SETADRSTAT M170PUB1 17.06.05 07:54:09 Seite 5
E x t e r n e V e r w e i s e
Statisch gebundene Prozeduren:
Prozedur Verweise
Keine Verweise in der Quelle.
Importierte Felder:
Feld Attribute Definiert
Keine Verweise in der Quelle.
Exportierte Felder:
Feld Attribute Definiert
Keine Verweise in der Quelle.
* * * * * E N D E D E R E X T E R N E N V E R W E I S E * * * * *
5722WDS V5R2M0 020719 RN IBM ILE RPG ASY1/SETADRSTAT M170PUB1 17.06.05 07:54:09 Seite 6
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
*RNF7031 00 1 Kein Verweis auf den Namen oder die Bezugszahl/den Anzeiger
vorhanden.
*RNF7066 00 1 Satzformatname der extern beschriebenen Datei wird nicht
verwendet.
*RNF7030 30 3 Der Name oder die Bezugszahl/der Anzeiger ist nicht
definiert.
*RNF7503 30 2 Ausdruck enthält einen Operanden, der nicht definiert ist.
* * * * * E N D E D E R 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 * * * * *
5722WDS V5R2M0 020719 RN IBM ILE RPG ASY1/SETADRSTAT M170PUB1 17.06.05 07:54:09 Seite 7
E n d z u s a m m e n f a s s u n g
Nachrichtenübersicht:
Informationsnachricht (00) . . : 2
Warnung (10) . . : 0
Fehlernachricht (20) . . : 0
Schwerwiegender Fehler (30+) . : 5
--------------------------------- -------
Summe . . . . . . . . . . . . . : 7
Quellensätze insgesamt:
Sätze . . . . . . . . . . . . . : 13
Bestimmungen . . . . . . . . . : 13
Datensätze . . . . . . . . . . : 0
Bemerkungen . . . . . . . . . . : 0
* * * * * E N D E D E R E N D Z U S A M M E N F A S S U N G * * * * *
Umwandlung gestoppt. Fehler mit Bewertungsstufe 30 im Programm gefunden.
* * * * * E N D O F C O M P I L A T I O N * * * * *

[jajonowak]

hi asy

tja eine db besteht halt aus name satz und feldern!
wenn ich nun ein programm abschreibe und keine db habe, muss ich halt die db genauso aufbauen wie das pgm es haben will.

rpg steht eigentlich nicht für raten probieren glauben!

es gibt jetzt 2 möglichkeiten,
1. du änderst das pgm so ab das es zu deiner db passt
2. du änderst die db so ab das es zu dem pgm passt.


lg
hans-joachim

[ASY]

hi asy

tja eine db besteht halt aus name satz und feldern!
wenn ich nun ein programm abschreibe und keine db habe, muss ich halt die db genauso aufbauen wie das pgm es haben will.

rpg steht eigentlich nicht für raten probieren glauben!

es gibt jetzt 2 möglichkeiten,
1. du änderst das pgm so ab das es zu deiner db passt
2. du änderst die db so ab das es zu dem pgm passt.


lg
hans-joachim

Arbeite gerade an der 2ten möglichkeit.

Muß ich jetzt alle Variablen so definieren wie ADREPF ?

Habe jetzt in der Datenbank alle Variablen als Datenbank Dateien eingerichtet.

Als was muß ich sie nun definieren ?

Mit definition als Felder mault der Compiler wieder .

Komme ich zum erfolg wenn ich die Datenbankdefinition Satzformat nehme ?

[kuempi von stein]

Arbeite gerade an der 2ten möglichkeit.

Muß ich jetzt alle Variablen so definieren wie ADREPF ?

Habe jetzt in der Datenbank alle Variablen als Datenbank Dateien eingerichtet.

Als was muß ich sie nun definieren ?

Mit definition als Felder mault der Compiler wieder .

Komme ich zum erfolg wenn ich die Datenbankdefinition Satzformat nehme ?ich glaube du brauchst wirklich hilfe.

änder mal deine datei so, dass es ein satzformat ADRFMT statt ADREPFR gibt
und die felder ADRORT und ADRSTAT sollte es dann auch in dieser datei geben, sonst wird das nichts.
solange du äpfel mit birnen vergleichst kann das nix werden.

wie werner immer so schön sagte: man muss lesen können.
die umwandlungsliste sagt dir doch genau was nicht passt.
geh mal alle fehler mit wertigkeit 30 durch.

k.

[ASY]

ich glaube du brauchst wirklich hilfe.

änder mal deine datei so, dass es ein satzformat ADRFMT statt ADREPFR gibt
und die felder ADRORT und ADRSTAT sollte es dann auch in dieser datei geben, sonst wird das nichts.
solange du äpfel mit birnen vergleichst kann das nix werden.

wie werner immer so schön sagte: man muss lesen können.
die umwandlungsliste sagt dir doch genau was nicht passt.
geh mal alle fehler mit wertigkeit 30 durch.

k.

Endschuldigung für das Durcheinander aber ich habe erst mit RPG angefangen , und fange Praktisch unterm 0-Punkt an.

Din gerade dabei die Änderungen vor zu nehmen.

Mit besten Dank für die Unterstützung ASY
:cool:

[jajonowak]

hallo asy,

gerade dann solltest du nicht mit schnupper-teilen anfangen
sondern solltest ein paar euronen investieren und von ganz vorne anfangen!

lg u. schönes wocheende

hans-joachim

[ASY]

hallo asy,

gerade dann solltest du nicht mit schnupper-teilen anfangen
sondern solltest ein paar euronen investieren und von ganz vorne anfangen!

lg u. schönes wocheende

hans-joachim

Du hast recht !!!

Ohne vernümpftige Erklärung welches Feld was Bedeutet , und was ein Feld ist , kommt man nicht wirklich weiter.

Dafür verstehe ich die Fehlermeldungen so langsam zu Interpretieren.

*RNF7416 30 1 Die Arten der Operanden auf der rechten und linken Seite des
Ausdrucks in der Operation EVAL stimmen nicht überein.
*RNF7421 30 1 Operanden sind mit der Art des Operators nicht kompatibel.

Hierüber werde ich noch etwas grübeln , und mir das script nochmal vornehmen. :rolleyes:

Auf jeden Fall wünsche ich dir auch ein schönnes Wochenende.

PS: Hast du eine günstige Buchempfehlung in deutscher Sprache ?

[MKnoll]

Tja ASY,

preiswert ist so eine Sache. Wenn es um die AS/400 geht, kosten Bücher alle etwas mehr. Und in Deutsch erst recht - wobei die Übersetzung ab und an schon zu wünschen übrig lässt und weniger Literatur zu haben ist.

Ich selbst bin inzwischen dazu übergegangen, mir über die amerikanischen amazon-Marketplaces gebrauchte englischsprachige Literatur zu beschaffen - und das ist trotz der ca. 10 $ Versandkosten immer noch oftmals um die Hälfte billiger, als irgendwas in Deutschland zu kaufen.

Wenn Du eine reine Referenz über die Befehle benötigst - die gibt es als PDFs bei IBM zum Download (fast immer kostenlos).

Aber grundsätzlich wirst Du nicht um etwas "Einführungsliteratur" drumrumkommen.

"RPG/400 Programming on the AS/400" von Stanley E. Myers, Candice E. Myers ist nicht schlecht, soviel ich weiß aber nur in Englisch erhältlich
(Bei amazon.com zur Zeit gebraucht schon ab ca. 19 Dollar zuzügl. Versand - so billig habe ich meins nicht gekriegt :D )

"Programmieren in RPG IV" von Judy Jaeger gibt es bei DukePress in Deutsch, 2 Bände (234 + 232 Seiten) und ist auch gut für den Einstieg geeignet - für die paar Seiten aber neu zu teuer - je Band 67€ ist denn wohl doch etwas übertrieben.
(Aber vielleicht kriegst Du's ja auch wie ich guenstig bei eBay).

Grüße

Mirko

[ASY]

Tja ASY,

preiswert ist so eine Sache. Wenn es um die AS/400 geht, kosten Bücher alle etwas mehr. Und in Deutsch erst recht - wobei die Übersetzung ab und an schon zu wünschen übrig lässt und weniger Literatur zu haben ist.

IAber grundsätzlich wirst Du nicht um etwas "Einführungsliteratur" drumrumkommen.

"Programmieren in RPG IV" von Judy Jaeger gibt es bei DukePress in Deutsch, 2 Bände (234 + 232 Seiten) und ist auch gut für den Einstieg geeignet - für die paar Seiten aber neu zu teuer - je Band 67€ ist denn wohl doch etwas übertrieben.
(Aber vielleicht kriegst Du's ja auch wie ich guenstig bei eBay).

Grüße

Mirko

Danke für den Hinweis und den Tip
:cool:

[AS400.lehrling]

Danke für den Hinweis und den Tip
:cool:

Weitere Hinweise und Tips Bitte an as400.lehrling .

Wegen Funktionaler Störungen erfolgte neu Anmeldung :cool: