Ausrichtung in PRTF's

[Rafer19]

gibt es eine Möglichkeit ein num. Feld linksbündig auszurichten bzw. zu drucken?
i.E.

Preis. . : 300,00 EUR

beim nächsten Lauf

Preis. . : 5.4321,00 EUR

[Fuerchau]

Nicht innerhalb der PRTF.
Definiere das Feld als Alpha und im Programm dann:

prtfld = %trim(%editc(numfld,'4')) + ' ' + wacd;

[Rafer19]

das habe ich mir schon fast gedacht, in den PRTF's.

prtfld = %trim(%editc(numfld,'4')) + ' ' + wacd;

kannst du mir hierbei bitte mal aus Pferd bzw. in den Code helfen....

'wacd' würd ich noch als die Währung identifizieren...

[Fuerchau]

prtfld: Dein Alpha-Feld in der PRTF
numfld: Dein numerisches Feld
wacd: (richtig erkannt) Dein Währungscode

%editc(numfld : '4'): entspricht der Aufbereitung EDTCDE (kleiner Schreibfehler oben)
%trim(...): entfernen von Leerzeichen am Anfang

+ : entspricht der Verkettung CAT

[Proggi]

Hi Rafer19

Ich hoffe, Du hast schon mal was von ILE RPG gehört? Denn hierbei handelt es sich um "Built-in Functions". Dazu schaue doch mal bitte in das ILE-RPG-Reference-Handbuch, dort ist alles beschrieben.

Solltest du das Handbuch nicht besitzen, kannst Du es Dir hier runterladen: http://publib.boulder.ibm.com/iserie...s/c0925084.pdf

Unter Chapter 22 sind alle Built-in Functions alphabetisch aufgelistet.

[Fuerchau]

Über RTVRPGSRC kannst du RPGIII in ILERPG umsetzen, aber Achtung: COPY-Strecken müssen auch umgesetzt werden.

[Rafer19]

@ Proggi u. Baldur,

ILERPG war das entscheidene Stichwort !!
Leider weiss ich von RPG nur, wie es geschrieben wird (nicht ganz die Wahrheit, aber ist schon seeehrrr lange her..)
Ich war mir nicht sicher, ob der Hinweis von Baldur sich auf den Programmcode bezog oder in der PRTF angegeben wird (wg. EDTCDE) und in den Prog-HB hatte ich auch den %trim nicht gefunden...
Abert jetzt mit dem Hinweis auf die Built-in Functions!
ich programmiere in Cobol und gehe mal davon aus, dass es 'Ähnliches' geben wird....

[Proggi]

Hi,

ich stelle Dir hier mal den Link zu den Büchern im Release V5R2 rein:

http://publib.boulder.ibm.com/iserie...2924/index.htm

Aber Achtung, nicht alles was unter V5R2 funktioniert geht auch unter V5R1. Aber auch dafür gibt es Handbücher, einfach mal suchen oder diesen Link verwenden:

http://publib.boulder.ibm.com/pubs/h...2929/index.htm

[Fuerchau]

In COBOL ist das leider doch etwas schwieriger:

01 MyEdit.
05 MyNum pic z.zzz.zz9,99B.
05 MyWacd pic xxx.

77 MyPos pic s9(4) comp-4.

move 1 to MyPos
inspect MyEdit tallying MyPos for characters before space
move MyEdit(MyPos:17 - MyPos) to MyPrtField.

[Rafer19]

@Baldur

In COBOL ist das leider doch etwas schwieriger:

01 MyEdit.
05 MyNum pic z.zzz.zz9,99B.
05 MyWacd pic xxx.

77 MyPos pic s9(4) comp-4.

move 1 to MyPos
inspect MyEdit tallying MyPos for characters before space
move MyEdit(MyPos:17 - MyPos) to MyPrtField.

hatte ich gestern abend mit einem kleinen Test-Pgm ausprobiert:
ging nicht... ging nicht ..... ging nicht... bin gegen 22:00 frustriert ins Bett gegangen
Heute morgen wieder ran...
Kann aber auch nicht gehen, wen man MyNum NICHT füllt Blöder Fehler!

Jetzt gehts, vielen Dank!

Gruß
Ralph

PS (MyPos:17 - MyPos) warum 17? da kommt bei mir OUT OF RANGE

[Rafer19]

@Baldur

der 'inspect MyEdit tallying MyPos for characters before space..'
funktioniert nicht bei alle Zahlen.

Besser ist :
inspect MyEdit tallying MyPos for leading spaces...

Ralph

[holly]

Über RTVRPGSRC kannst du RPGIII in ILERPG umsetzen, aber Achtung: COPY-Strecken müssen auch umgesetzt werden.

@Fuerchau
Der normal im System verfügbare Befehl wäre dafür:
CVTRPGSRC FROMFILE(SRCLIB/QRPGSRC)
FROMMBR(PGMALT)
TOFILE(SRCLIB/QRPGLESRC)
TOMBR(PGMRPGIV)
Gruß Holger