PRTF SKIPB(xx)

[kuempi von stein]

Man kann den SKIPB in einer Printerfile von Bezugszahlen abhängig machen.

Nicht wirklich elegant, aber durchaus Praxis.

K.

[harkne]

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.

[cbe]

mit 6 Bezugszahlen kommst Du aus, wenn Dir max 63 Leerzeilen reichen:

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

[Fuerchau]

Es ist hier kein Performancenachteil zu sehen, wenn man zig Leerzeilen ausgibt.
Es passiert eh alles im Speicher.
Ausserdem ist man hier dynamischer.

[Robi]

oder so

 FMOOL06P1  O    F  250        PRINTER PRTCTL(##CTR1)   INFDS(##DSP1) USROPN

 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

C                   EVAL      ##SPAF = '001'

Gruß
Robi

[Fuerchau]

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.