-
PRTF SKIPB(xx)
Ich weiss dass die Zahl beim SKIPB oder SKIPA nicht variable sein kann im DDS. Gibts da irgendeine Möglichkeit den Zeilenvorschub nach dem Seitenvorschub variabel zu machen ohne dass ich eine Leerzeile x-mal drucke ?
-
Kurz gesagt: Nö.
Die Programme, die ich kenne, geben immer n-mal Leerzeilen aus.
-
Dachte ich mir schon.
Danke für die Hilfe
-
Unschön aber es geht vielleicht auch so.
DDS
R SKIBR
SKIB(1)
R SPACBR
1' '
RPG
WRITE SKIBR
1 Do ANZA
WRITE SPACBR
ENDDO
-
Man kann den SKIPB in einer Printerfile von Bezugszahlen abhängig machen.
Nicht wirklich elegant, aber durchaus Praxis.
K.
-
Danke für die Antworten.
Das mit den Bezugszahlen haben wir auch mal ganz ganz kurz in Erwägung gezogen. Aber wenn ich dann einen SKIPB(1) bis SKIPB(10) unter Bezugszahl lege wette ich das morgen der SKIPB(11) benötigt wird.
Deshalb bleiben wir auch bei den Leerzeilen.
-
mit 6 Bezugszahlen kommst Du aus, wenn Dir max 63 Leerzeilen reichen:
Code:
A N46N45N44
AAN43N42 41 SKIPB(01)
A N46N45N44
AAN43 42N41 SKIPB(02)
* ...
A 46 45 44
AA 43 42 41 SKIPB(63)
C MOVEA'001010' *IN,41 10 Zeilen Vorschub
C WRITEOUT
(habs aber nicht ausprobiert)
Ich würde trotzdem die Schleife vorziehen
Gruß, Christian
-
Es ist hier kein Performancenachteil zu sehen, wenn man zig Leerzeilen ausgibt.
Es passiert eh alles im Speicher.
Ausserdem ist man hier dynamischer.
-
oder so
Code:
FMOOL06P1 O F 250 PRINTER PRTCTL(##CTR1) INFDS(##DSP1) USROPN
Code:
D ##CTR1 DS DS FÜR INFDS
D ##SPBF 1 3 INZ ZEILEN DAVOR FREILAS
D ##SPAF 4 6 INZ ZEILEN DANACH FREILA
D ##SKBF 7 9 INZ GEHT ZUR ZEILE BEVOR
D ##SKAF 10 12 INZ GEHT ZUR ZEILE NACH
D ##CURLN 13 15 0 INZ
D ##DSP1 DS 400 PRINTER INF DS
D ##OLN1 188 189B 0 OVR BEI
D ##PLN1 367 368B 0 ZEILE IST
D ##PAG1 369 372B 0 SEITE IST
Code:
C EVAL ##SPAF = '001'
Gruß
Robi
-
PRTCTL ist da auch sehr eingeschränkt und unterstützt halt nur SPACEA/SPACEB/SKIPA/SKIPB. Dies zwar dynamisch, aber auch nicht einfacher in der Programmierung wie eine kleine DO-Schliefe.
Similar Threads
-
By eisslerhs in forum NEWSboard Drucker
Antworten: 1
Letzter Beitrag: 08-11-06, 22:09
-
By Jump4738 in forum IBM i Hauptforum
Antworten: 1
Letzter Beitrag: 06-10-06, 15:08
-
By muadeep in forum IBM i Hauptforum
Antworten: 1
Letzter Beitrag: 03-07-06, 09:50
-
By votch in forum IBM i Hauptforum
Antworten: 12
Letzter Beitrag: 29-07-04, 09:32
-
By dago in forum IBM i Hauptforum
Antworten: 2
Letzter Beitrag: 19-09-01, 12:56
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