-
Frage zu RPGII
Hallo,
habe noch ein altes RPGII-Programm welches eine Printerfile erstellt.
Es werden dort mehrere Herst.-Protokolle in einer Spoolfile ausgegeben.
Jetzt soll pro Herst.-Protokoll eine Spoolfile ausgegeben werden, weil ein Formulargenerator zum Einsatz kommt.
Im RPGIV kann ich das über USROPN, OPEN, CLOSE leicht machen.
Ich habe leider keine RPGII-Unterlagen mehr. Ich möchte das Programm auch nicht nach
RPGIV konv.
Kann mir jemand sagen, wie man dies in RPGII hinkriegt. Danke.
-
In der F-Bestimmung ganz am Ende in der letzten Spalte (im Deutschen Prompting ist die beschriftet mit "Bed.") einfach "UC" eingeben, das steht für user controlled.
Danach wie gewohnt mit OPEN u. CLOSE arbeiten.
-
Zitat von hel400
In der F-Bestimmung ganz am Ende in der letzten Spalte (im Deutschen Prompting ist die beschriftet mit "Bed.") einfach "UC" eingeben, das steht für user controlled.
Danach wie gewohnt mit OPEN u. CLOSE arbeiten.
Dies ist im RPG/400 möglich im RPGII nicht.
-
Laut altem RPGII-Handbuch gibt's da nur U1-U8, UC wird noch nicht unterstützt.
Du musst da halt das Programm so modifizieren, dass je Aufruf das jeweilige Protokoll gedruckt wird.
Also zusätzlichen Entry-Parameter und dann per Verteiler
P2 IF 1
EXSR PROT1
ENDIF
P2 IF 2
EXSR PROT1
ENDIF
Geht's nicht per EXSR, dann durch GOTO's ersetzen und am Ende jedes Protokolls dann einen GOTO ENDE.
-
Zitat von Fuerchau
Laut altem RPGII-Handbuch gibt's da nur U1-U8, UC wird noch nicht unterstützt.
??
Ja schon, aber von welcher Maschine sprechen wir hier?
Mit "RPGII" nahm ich an, dass ein "altes" Zykluspgm. gemeint ist.
Aber in dem Augenblick, wo eine RPG-Source auf der AS/400 landet, ist die RPGIII(3)-Syntax verfügbar.
Oder denke ich da falsch?
-
Ja leider. Der Quelltyp ist ggf. RPT statt RPG. Da gibt's dann einen anderen Compiler.
Ich habe mal versucht RPT einfach auf RPG zu ändern, da flog der Compiler aber aus der Kurve.
-
Ach Du liebe Zeit, diese alten Dinger :-)
Habe ich auch noch bei 2 Kunden - leider ...
(RPT steht übrigens für REPORT-Pgm. Das bewirkt, dass die Zeilen einer COPY-Routine automatisch anhand der Zeilencodes (F/I/C..) richtig einsortiert werden, daher krachts auch bei einer Umwandlung als RPG).
Aber sowohl bei RPT- als auch bei RPT38 kann man das "UC" angeben!
Nur damit wir da nicht aneinander vorbeireden:
@AK1:
Welche Sourcetype ist das eigentlich nun genau?
-
Glaube NICHT das RPT ein anderer Compler ist.
Da läuft m.e. vorab nur ein 'auflösen und sortieren' der Source.
auflösen:
alle /copy werden in die Source einkopiert
sortieren
Die Source wir nach H-F-E-L-T-I-C-O (Kartenart, Spalte 6) sortiert
IN RPT kan ich in einer /COPY, die in den C-Specs eingebunden ist, auch F und I bestimmungen haben.
Der eigentliche Compile ist aber (soweit ich weis) der gleiche
Robi
Das Notwendige steht über dem technisch machbaren.
(klingt komisch, funktioniert aber!)
-
Und man konnte die Zeilen aus dem Copy durch direkt darauf folgende Zeilen modifizieren - das kann der moderne RPG-Compiler auch nicht mehr.
-
Hallo AK1
ich habe da in einer alten Anwendung noch eine Lösung gefunden:
1. in RPGII-Programm:
C*
C* DRUCKDATEI SCHLIESSEN U. NEU ERÖFFNEN
C MOVE 'LFSCHLOE'NAME 8
C CALL 'SUBOC'
C PARM NAME
C*
2. CL-Programm SUBOC
0001.00 PGM PARM(&NAME)
0002.00 DCL VAR(&NAME) TYPE(*CHAR) LEN(8)
0003.00 OVRPRTF FILE(QSYSPRT) TOFILE(&NAME) DEV(*JOB) +
0004.00 SHARE(*YES)
0005.00 CALL PGM(SUBB)
0006.00 OVRPRTF FILE(&NAME) TOFILE(QSYSPRT) DEV(*JOB) +
0007.00 SHARE(*YES)
0008.00 ENDPGM
3. RPG400 Programm SUBB
H
FQSYSPRT O F 132 PRINTER
C SETOF 01
C FEOD QSYSPRT
C CLOSEQSYSPRT
C OPEN QSYSPRT
C SETON LR
C RETRN
OQSYSPRT D 01
Ich denke es müsst noch funktionieren.
Viele Grüße
GJV23
-
Das musst du mir mal erklären, wie das funktionieren soll.
SHARE(*YES) führt dazu, dass ein 2. Open auf die geöffnete Datei geht und der Close nichts macht.
Das übergeordnete Programm will aber Close/Open machen.
-
Das Programm bzw. die Programm stammen nicht von mir.
Sie sind aber bis vor ca. 10 Jahren gelaufen und haben auch funktioniert.
Ich kann auf meinem System leider keine S36-Programme mehr ausprobieren.
GJV23
Similar Threads
-
By hgdieterle in forum NEWSboard Programmierung
Antworten: 3
Letzter Beitrag: 07-11-14, 06:59
-
By Franz.Rung in forum IBM i Hauptforum
Antworten: 1
Letzter Beitrag: 09-10-14, 14:00
-
By Franz.Rung in forum IBM i Hauptforum
Antworten: 2
Letzter Beitrag: 04-11-13, 15:32
-
By becama in forum IBM i Hauptforum
Antworten: 4
Letzter Beitrag: 14-08-02, 07:31
-
By hs in forum IBM i Hauptforum
Antworten: 4
Letzter Beitrag: 25-04-02, 16:49
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- You may not post attachments
- You may not edit your posts
-
Foren-Regeln
|
Erweiterte Foren Suche
Google Foren Suche
Forum & Artikel Update eMail
AS/400 / IBM i
Server Expert Gruppen
Unternehmens IT
|
Kategorien online Artikel
- Big Data, Analytics, BI, MIS
- Cloud, Social Media, Devices
- DMS, Archivierung, Druck
- ERP + Add-ons, Business Software
- Hochverfügbarkeit
- Human Resources, Personal
- IBM Announcements
- IT-Karikaturen
- Leitartikel
- Load`n`go
- Messen, Veranstaltungen
- NEWSolutions Dossiers
- Programmierung
- Security
- Software Development + Change Mgmt.
- Solutions & Provider
- Speicher – Storage
- Strategische Berichte
- Systemmanagement
- Tools, Hot-Tips
Auf dem Laufenden bleiben
|
Bookmarks