Dateibestimmungen in RPGII-Programm

[Peet]

Hallo zusammen !
Ein frohes neues Jahr an alle !
Ich habe ein Problem mit den Eingabebestimmungen eines
RPGII-Programmes, daß vor einigen Jahren von der S/36-Umgebung
konvertiert wurde und seit dem nicht geändert wurde.
Leider ist der Autor des Programmes nicht mehr verfügbar.
Das Programm kann nicht efolgreich umgewandelt werden.
Ich habe nur in den C-Bestimmungen 2 Änderungen durchführen
müssen, kenne das Programm und die Umgebung dazu nicht,
und kriege das Programm jetzt nicht kompiliert, weil die Eingabebestimmungen Problem bereiten.

Folgende Dateibestimmungen:

Dateidefinitionen aus dem RPGII-Source
0028.00 0028 FABC610 IPE F1520 152 DISK
0029.00 0029 FABC030 IC F 384 384R 5AI 5 DISK
0030.00 0030 FKDSTAM IC F 200 200R 7AI 3 DISK
0031.00 0031 FABC036 IC F 900 900R11AI 5 DISK
0032.00 0032 FABC010 IC F 256 256R 6AI 5 DISK

Alles nur interne Dateien, keine DDS-beschriebenen!
Die "IC"-Angaben sind das Problem !

Die dazu gehörenden Eingabebestimmungen
8000 I* KUNDENSTAMM AUFTRAGSABWICKLUNG
8100 IABC030 KF 30 1 C0 2 C3 3 C0
8200 I 133 135 KDLAND
8300 I 285 285 KDMWST
8400 I 384 384 KDEG
8500 I*
8600 I* DEBITORENSTAMM FIBU
8700 IKDSTAM KF 31 1 CK 2 CD
8800 I P 132 1330FT1 80
8900 I P 134 1350FT2 81
9000 I P 136 1370FT3 82
9100 I 116 1180DEFORD
9200 IABC036 KF 45 1 C0 2 C3 3 C6
9300 I 1 30DFSA
9400 I 4 4 DFSTAT
9500 I*
9600 I 5 90DFKD
9700 I 10 150DFAUNR



Die Fehler aus der Umwandlungsliste
NUMMER *...1....+....2....+....3....+....4....+....5....+ ....6....+....7...* VER
2700 F* *
2800 FABC610 IPE F1520 152 DISK
* 2016 2016-****
2900 FABC030 IC F 384 384R 5AI 5 DISK
* 2054 2054-* . .
* 2016 2016-**** .
* 2062 2062-*
3000 FKDSTAM IC F 200 200R 7AI 3 DISK
* 2054 2054-* . .
* 2016 2016-**** .
* 2062 2062-*
3100 FABC036 IC F 900 900R11AI 5 DISK
* 2054 2054-* . .
* 2016 2016-**** .
* 2062 2062-*
3200 FABC010 IC F 256 256R 6AI 5 DISK
* 2054 2054-* . .
* 2016 2016-**** .

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
* QRG2016 Bewertung: 10 Anzahl: 5
Nachricht . . . : Die Stellen 20-23, 47-52, 60-65, 67-70 oder 73-
74 einer F-Bestimmung sind nicht leer. Standardwert sind
Leerzeichen.
* QRG2054 Bewertung: 20 Anzahl: 4
Nachricht . . . : Der Eintrag für die Dateiverwendungsart (Stelle
16) ist ungültig.
* QRG2062 Bewertung: 10 Anzahl: 4
Nachricht . . . : Der Eintrag für Verarbeitungsform ist nicht
leer oder L. Standardwert ist ein Leerzeichen.
* QRG5152 Bewertung: 00 Anzahl: 8
Nachricht . . . : DEBUG oder DUMP wurde benutzt, aber nicht in
einer Steuerbestimmung angegeben.
* QRG6103 Bewertung: 00 Anzahl: 1
Nachricht . . . : Kein Überlaufanzeiger für Druckerdatei
angegeben.
* QRG7031 Bewertung: 00 Anzahl: 65
Nachricht . . . : Auf den Namen oder die Bezugszahl wird nicht


Ich habe versucht, "IC" in "IF" zu ändern, der Editor mekkert
dann aber weitere Angaben an.

Wenn ich das Programm mit GENLVL(21) umwandel, kriege
ich es natürlich auch hin !
Die Frage ist, kann das Programm dann erfolgreich laufen ?

Besser noch, wie muss ich die Eingabebestimmungen ändern, damit ich das Programm auch ohne GENLVL(21) umgewandelt bekomme ?

Ich habe die Doku bei IBM durchsucht, habe aber nichts gefunden, zumal ich das Programm sehr schnell hinkriegen muss, es geht hier nämlich um die Erhöhung der MWST, leider bin
ich erst heute involviert worden.

Für Eure Hilfe sage ich jetzt schon mal DANKE und hoffe,
ich kriege das mit Euch hin !

Peet

[tfroehlich]

Hallo,

ist das Problem schon gelöst?

Ich bin mir nicht ganz sicher, aber das R müsste raus.


Um sicher zu gehen, kannst Du ja prompten.


Es würde bei mir etwas dauern, bevor ich ich unsere alten WWS-Quellcodes (s36-pgm) zurückgespielt habe um das genau
rauszubekommen.


Gruss Thomas

[Peet]

Hallo Thomas,

vielen Dank für die Infos's.
Ich konnte es aber noch nicht ausprobieren.

Meinst Du, das "R" raus und auf "IF" umstellen ?

Danke und Gruss
Peet

[Fuerchau]

ALso ich denke:
Die IP-Datei nicht als E (Extern) definieren, IC gibts nicht, ich glaube IS (Secondary) ist gemeint.

[jajonowak]

werden die mit IC + R definierten dateien auch mit chain gelesen?

lg
hans-joachim

[tfroehlich]

Hallo Thomas,

vielen Dank für die Infos's.
Ich konnte es aber noch nicht ausprobieren.

Meinst Du, das "R" raus und auf "IF" umstellen ?

Danke und Gruss
Peet

---------------------------------------------------

Hallo,

ich habe leider den Eintrag IPE übersehen.
Das E muss entfernt werden. (Grund : Antwort von Herrn Fuerchau!)

Das IC gilt für verkettete Dateien bei der S36.
Der Eintrag R müsste vor den Feldern AI in den F-Bestimmungen raus.

Es schein so, dass das Programm mit dem RPG-Zyclus arbeitet (IP)

Falls Du noch Infos brauen solltest, werde ich meine alten Sourcen zurückspielen.

Gruss Thomas

[dino]

Hast du die /36-Umgebung auf der AS/400 installiert?
Die Bestimmungen sind OK auch das "R" muß sein (Random) - Die gute alte KDSTAM kommt doch sicher aus einer alten IBM-Fibu-Anwendung? stimmts?

[Fuerchau]

Ich denke, du must das Programm mit dem /36-Compiler umwandeln, da in RGPIII so nicht mehr alles geht oder du must das Programm halt neu schreiben.