Ausrichtung in PRTF's

[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

[Fuerchau]

Sorry, aber mein COBOL-Gedächtnis ist etwas am rosten, da ich das "aus dem Kopf" codiert habe. Auf Grund der Möglichkeiten von ILERPG und der existierenden ERP's in RPG gerät COBOL etwas ins hintertreffen.

[Rafer19]

Sorry, aber mein COBOL-Gedächtnis ist etwas am rosten, da ich das "aus dem Kopf" codiert habe. Auf Grund der Möglichkeiten von ILERPG und der existierenden ERP's in RPG gerät COBOL etwas ins hintertreffen.

ich bin dir trotzdem dankbar, da es mir einen von (sicherlich) vielen Wegen gezeigt hat, um nach 'Rom' zu kommen...

auf diesem Wege auch dank an alle Anderen, die mir geholfen haben

[Rafer19]

Angenommen ein Druckjob mit mehreren Positionen endet auf der 2. oder 3. Seite, z.B. in Zeile 35.
Bleibt der Drucker in dieser Zeile stehen,oder wird automatisch ein Seitenvorschub durchgeführt, wenn der Job, sprich Programm beendet wird, so daß der Drucker für die nächste Ausgabe wieder am Seitenanfang steht?

Ich nehme an, das die Steuerung über das Pgm stattfinden muss, d.h. es muss ein Foot-Format angesprungen werden, welches dann entsprechende Zeilen mit SPACEA(X) durchführt, richtig?

[Fuerchau]

Nein, beim AS/400-Spool ist das nicht mehr nötig. Nach der Letzten Zeile einfach Close.
Beim CRTPRTF gibt's einen Parameter (im Moment weiß ich ihn nicht), der eine Einrichtroutine startet. Die AS druckt dann eine Zeile, schickt eine Nachricht an QSYSOPR bzw. an die MSGQ die dem Drucker zugewiesen ist und wartet, ob das so OK ist.
Aber ich denke, dass macht bei Laserdruckern nicht mehr viel Sinn .

Die Druckausgabe des AS/Spools ist generell seitenorientiert.

[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