Ausrichtung in PRTF's

[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.

[eifeifmeiler]

@Fuerchau

meinst Du vielleicht den Parameter ALIGN(*YES)


LG
HaJo

[Rafer19]

wenn ich richtig verstande habe, dient der Parameter ALIGN zur Papierausrichtung beim Beginn des Druckjobs.

Frage:
in den Beispielen ist immer angenommen, du druckst einige Kopfzeilen und dann beliebige Positionszeilen.
EOP usw. funktionieren hervorragend!
Wie verhält es sich aber, wenn man aus File A mehrere Kopfzeilen sequentiell liest und die zugehörigen Positionsdaten aus File B ?
Also 1 Satz aus A....Satz aus B
.........................Satz aus B
.........................Satz aus B
---2.Seite---
2 Satz aus A.....Satz aus B
usw
wird der EOP auch autom. erkannt oder muss man die Zeilen mitzählen?
Gibt es einen Zähler, den man abfragen kann, um zu überprüfen, in welcher Zeile man steht?

in meinen Druck-pgm läuft bis mitte der 2 Seite alles glatt und dann kommt bei (z.B.Zeile 51) die Seite 3 ???
Kann es sein, das der interne Zähler eine neue Seite nicht merkt?