View Full Version : Frage zu RPG: Aufruf RPG-Programm mit Parametern
Eigentlich war ich ja schon froh, dass mein Programm überhaupt funktioniert.
Ich war aber doch neugierig und habe die kürzere version auch ausprobiert.
Fazit:
Schneller ist sie nicht, dafür aber - für den nicht RPG- Programmierer - leichter verständlich.
PS:
Die Zeile
FUEBMAS90 UPE F DISK
habe ich nicht hingekriegt, ich kriege das F nirgendwo unter:
In meinem neuen Prog:
FUEBMAS90UP__E___________________DISK
Dumm, dass in diesem Forum die Leerzeichen unterdrückt werden und dass ich halt überhaupt keine Ahnung von RPG habe.
Gruß
HS
T'schuldigung, ich habe mich verschrieben.
Das F sollte natürlich ein E für externe Beschreibung sein.
Ihre Zeile ist so ok.
m.f.G
Otto Zehetner
Scheinbar ist folgendes nicht klar oder nicht bekannt:
Beim CL-Befehl "CALL" werden Parameter wie folgt übergeben:
Alphazeichen oder in Hochkomma eingeschlossene Zeichen als Character von mindestens 32 Zeichen (wird rechtsbündig mit Leerzeichen aufgefüllt). Längere Zeichenketten müssen in Hochkomma eingeschlossen werden und werden in exact dieser Länge übergeben.
Zahlenwerte werden grundsätzlich gepackt im Format 15/5, d.h., 15 Stellen davon 5 Nachkommastellen, übergeben. Kann die Zahl nicht in dieses Format konvertiert werden, erfolgt eine Fehlermeldung.
Möchte man eine andere Definition muss der Zahlenwert im CALL hexa übergeben werden, z.B. X'01234F' entspricht gepackt 5,0.
Also nun zu obigem RPG-Problem. Der 2. Parameter wäre also in der Länge 155 zu definieren gewesen.
<BLOCKQUOTE><font size="1" face="Verdana, Arial">Zitat:</font><HR>Original erstellt von hs:
Ich kenne mich leider in RPG nicht aus und habe deshalb eine Frage an euch RPG - Programmierer:
Ich habe untenstehendes kleinen RPG, was mir ein UPDATE macht.
Ich möchte das Prog jetzt so abändern, dass KTRMGR = '99' und KTRISM = 4711 variabel sind, indem diese durch Übergabeparameter ersetzt werden.
D.h. ich starte das Programm wie folgt:
call MEINPROG '99' 4711
Bestimmt nicht schwer für einen RPG-Profi, oder?
Danke
HS
FUEBMAS90UF E K DISK
C *LOVAL SETLLUEBFMT01
C READ UEBFMT01 49
C *IN49 DOWEQ*OFF
C KTRMGR IFEQ '99'
C MOVE 4711 KTRISM
C UPDATUEBFMT01
C ENDIF
C READ UEBFMT01 49
C ENDDO
C MOVE *ON *INLR [/quote]
Hallo,
wir haben einen Programmgenerator SpeedGen/400 Plus, von Werner Consulting & Software. OHNE Programmiererkenntnisse kann man damit richtig Programme fix und fertig in wenigen Minuten erstellen. Wenn Du mit Query arbeiten kannst, kannst Du auch mit dem Tool arbeiten.
www.werner-cs.de (http://www.werner-cs.de)
Viel Glück!
Hallo,
wir haben einen Programmgenerator SpeedGen/400 Plus, von Werner Consulting & Software. OHNE Programmiererkenntnisse kann man damit richtig Programme fix und fertig in wenigen Minuten erstellen. Wenn Du mit Query arbeiten kannst, kannst Du auch mit dem Tool arbeiten. www.werner-cs.de (http://www.werner-cs.de)
Viel Glück!