Brauche Hilfe bei ersten Gehversuchen in RPG

[ASY]

Hallo ,

Ich bin gerade dabei mittels gastaccount bei Holger einige Kenntnise in Sachen RPG zu erlehrnen.

Leider habe ich beim nach schreiben eines testprogams von Holgers "Schnupperkursus" das Problem das einige Definitionen nicht da zu seihen scheinen.

Laut der fehlertabellen können einige Programpunkte nicht zugeordnet werden.

Laut dem Beispielscript vom "Schnupperkurs" ist das Programm aber korreckt.

Bin für Jegliche Hilfestellung dankbar

[ASY]

Hallo ,

Ich bin gerade dabei mittels gastaccount bei Holger einige Kenntnise in Sachen RPG zu erlehrnen.

Leider habe ich beim nach schreiben eines testprogams von Holgers "Schnupperkursus" das Problem das einige Definitionen nicht da zu seihen scheinen.

Laut der fehlertabellen können einige Programpunkte nicht zugeordnet werden.

Laut dem Beispielscript vom "Schnupperkurs" ist das Programm aber korreckt.

Bin für Jegliche Hilfestellung dankbar

Habe vergessen das script an zu geben hier als Nachtrag :
***************** Datenanfang ************************************************** *****************************************
0001.00 HDEBUG 050615
0002.00 FADREPF UF E DISK 050615
0003.00 C READ ADREPF 80 050615
0004.00 C DOW *IN80=*OFF 050615
0005.00 C IF ADRORT=*BLANKS 050615
0006.00 C EVAL ADRSTAT='U' 050615
0007.00 C UPDATE ADRFMT 050615
0008.00 C ENDIF 050615
0009.00 C READ ADREPF 80 050615
0010.00 C ENDDO 050615
0011.00 C EVAL *INLR=*ON 050615
******************Datenende ************************************************** *******************************************

[Gerhard]

zum einstieg RPG nutzen wir intern alte SOBA Online Kurse - dort kann man über Audio mit Beispielen auf der AS/400 den einsteig üben.

Bei Bedarf bitte kurze e-mail dann kläre ich intern ob wir die RPG Kurse weitergeben können und unter welchen Konditionen.

Mfg Gerhard Häge
www.soft-consult.net

[jajonowak]

hi asy,

existiert die datei die du verarbeiten willst in deiner bibliotheksliste? wenn ja, wären die fehlercodes des compilers sehr hilfreich!

lg
hans-joachim

[ASY]

hi asy,

existiert die datei die du verarbeiten willst in deiner bibliotheksliste? wenn ja, wären die fehlercodes des compilers sehr hilfreich!

lg
hans-joachim

Hier Bitte

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 050616 000200
======> aaaaaaaaaa
*RNF2120 40 a 000200 Externe Beschreibungen für Datei ADREPF nicht gefunden; die
Datei wird ignoriert.
3 C READ ADREPF ----80 050616 000300
4 C DOW *IN80=*OFF B01 050616 000400
5 C IF ADRORT=*BLANKS B02 050616 000500
6 C EVAL ADRSTAT='U' 02 050616 000600
7 C UPDATE ADRFMT 02 050616 000700
8 C ENDIF E02 050616 000800
9 C READ ADREPF ----80 01 050616 000900
10 C ENDDO E01 050616 001000
11 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 16.06.05 05:25:28 Seite 3

*...+....1....+....2....+....3....+....4....+....5 ....+....6....+....7....+....8....+....9....+....0 ....+....1....+....2....+....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
*RNF7030 30 7 000700 Der Name oder die Bezugszahl/der Anzeiger ADRFMT ist nicht
definiert.
*RNF7030 30 5 000500 Der Name oder die Bezugszahl/der Anzeiger ADRORT ist nicht
definiert.
*RNF7030 30 6 000600 Der Name oder die Bezugszahl/der Anzeiger ADRSTAT ist nicht
definiert.
*RNF7503 30 5 000500 Ausdruck enthält einen Operanden, der nicht definiert ist.
*RNF7503 30 6 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 16.06.05 05:25:28 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
*RNF7031 ADREPF DISK 2D 3 9
Globale Feldverweise:
Feld Attribute Verweise (D=Definiert M=Modifiz.)
*...+....1....+....2....+....3....+....4....+....5 ....+....6....+....7....+....8....+....9....+....0 ....+....1....+....2....+....3
*INLR N(1) 11M
*IN80 N(1) 4
*RNF7030 ADRFMT **UNDEF** 7
*RNF7030 ADRORT **UNDEF** 5
*RNF7030 ADRSTAT **UNDEF** 6M
Bezugszahlen-/Anzeigerverweise:
Bez./Anz. Verweise (D=Definiert M=Modifiz.)
80 3D 4 9D
LR 11M
* * * * * 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 16.06.05 05:25:28 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 16.06.05 05:25:28 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.
*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.
*RNF2120 40 1 Externe Beschreibung für die als extern beschriebene Datei
nicht gefunden; die Datei wird ignoriert.
* * * * * 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 16.06.05 05:25:28 Seite 7

E n d z u s a m m e n f a s s u n g
Nachrichtenübersicht:
Informationsnachricht (00) . . : 1
Warnung (10) . . : 0
Fehlernachricht (20) . . : 0
Schwerwiegender Fehler (30+) . : 6
--------------------------------- -------
Summe . . . . . . . . . . . . . : 7
Quellensätze insgesamt:
Sätze . . . . . . . . . . . . . : 11
Bestimmungen . . . . . . . . . : 11
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 40 im Programm gefunden.
* * * * * E N D O F C O M P I L A T I O N * * * * *

[jajonowak]

hallo asy,

da die extern beschriebene datei verarbeitet werden soll, muß das programm ja irgendwoher wissen wie datei aussieht, also welche felder mit welchen attributen usw. . ohne diese info´s wirst du das pgm nie fehlerfrei durch die umwandlung kriegen!
dann sieh mal zu das der compiler die datei findet!

vielleicht solltest du dich auch mal vertrauensvoll an holger scherer wenden



hans-joachim

[ASY]

hallo asy,

da die extern beschriebene datei verarbeitet werden soll, muß das programm ja irgendwoher wissen wie datei aussieht, also welche felder mit welchen attributen usw. . ohne diese info´s wirst du das pgm nie fehlerfrei durch die umwandlung kriegen!
dann sieh mal zu das der compiler die datei findet!

vielleicht solltest du dich auch mal vertrauensvoll an holger scherer wenden



hans-joachim

Schonn getan aber noch keine Antwort erhalten .

Wie Gesagt ich habe exakt das Geschrieben was Holger im "Schnuper Kurs" geschrieben hat - bis auf eine Fehlermeldung die ich nicht hatte (wegen fehlender Bezugz-Zahl) .

Mal abwarten wie es weiter geht

[jajonowak]

ich habe mal holgers homepage besucht und der schnupperkurs ist eine leseprobe nicht mehr u. n. weniger.
wenn du das programm umwandeln willst musst du dir halt die db selbst erstellen.


lg
hans-joachim

[ASY]

ich habe mal holgers homepage besucht und der schnupperkurs ist eine leseprobe nicht mehr u. n. weniger.
wenn du das programm umwandeln willst musst du dir halt die db selbst erstellen.


lg
hans-joachim

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

Muß ich sonst noch etwas Erstellen ?

[jajonowak]

hi,

es wäre vielleicht von vorteil mittels dfu ein paar datensätze zu erfassen da sich sonst pgm-seitig nicht viel tut.


lg
hans-joachim

[ASY]

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

Muß ich sonst noch etwas Erstellen ?

So die Datenbank ADREPF ist Funktionabel

Leider Bekomme ich immer noch die Papnase vom Compiler

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