PRTF SKIPB(xx)

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