PRTF SKIPB(xx)

**Robi** · 28-06-10, 15:51

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

**Fuerchau** · 28-06-10, 16:26

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.