Subile --- Farben Problem

[malzusrex]

Hallo Gemeinde,

habe da mal wieder etwas merkwürdiges.
Ich habe einen Subfile. Wenn ich dann in diesem bis auf die letzte Seite blättere, sind auf einmal einige Farben weg!
Subfile im SDA:


Anzeige auf der ersten und folgende Seiten


Kopfzeile auf der letzten Seite


Hier die Subfile-Quelle dazu

     A                                      DSPSIZ(27 132 *DS1)       
     A                                      CHGINPDFT(HI UL)          
     A                                      MSGLOC(26)                
     A                                      CF03(03 'Ende der Arbeit')
     A          R SF                        SFL                       
     A            AKTION         1A  B  4132COLOR(WHT)                
     A                                      CHECK(ER)                 
      *  ..........                                                   
     A            SFNAME        10A  O  4 13                          
     A                                  4130' '                       
     A          R SFC                       SFLCTL(SF)                
     A                                      SFLSIZ(9999)              
     A                                      SFLPAG(0023)              
     A                                      CSRLOC(BSZ        BSS)    
     A                                      RTNDTA                    
     A                                      BLINK                     
     A N92                                  SFLDSP                    
     A N92                                  SFLDSPCTL                 
     A  92                                  SFLCLR                    
     A            POS            4S 0H      SFLRCDNBR(CURSOR)     
     A            BSZ            3S 0H                            
     A            BSS            3S 0H                            
     A            FIRM          18A  O  1  2COLOR(WHT)            
     A                                  1116DATE                  
     A                                      EDTCDE(Y)             
     A                                      COLOR(WHT)            
     A                                  1125TIME                  
     A                                      COLOR(WHT)            
     A            SDS_JOB       10A  O  1 21COLOR(BLU)            
     A            SDS_USER      10A  O  1 99COLOR(BLU)            
     A                                  1110'PGM1'                
     A                                      COLOR(YLW)            
     A                                  1 56'XXXXXXXXXXXXXXXXXXXX'
     A                                      COLOR(WHT)            
     A                                  2  2'XXXXXX'              
     A                                      COLOR(BLU)            
     A            SFCVNR         4Y 0B  2  9EDTCDE(Z)             
     A                                      COLOR(WHT)            
     A                                  2 14'XXXXXXXXX'            
     A                                      COLOR(BLU)             
     A            SFCDISP        2Y 0B  2 24EDTCDE(Z)              
     A                                      COLOR(WHT)             
     A                                  2 27'xxxxxxxxxxxxxx'       
     A                                      COLOR(BLU)             
     A            SFCDVON        6Y 0B  2 42EDTWRD('  .  .  ')     
     A                                      COLOR(WHT)             
     A                                  2 51'xxx'                  
     A                                      COLOR(BLU)             
     A            SFCDBIS        6Y 0B  2 55EDTWRD('  .  .  ')     
     A                                      COLOR(WHT)             
     A            SFCDERF        1A  B  2 75COLOR(WHT)             
     A                                      VALUES(' ' 'J' 'N')    
     A                                  2 77'xxxxx'                
     A                                      COLOR(BLU)             
     A            SFCAMP         1A  B  2 83COLOR(WHT)             
     A                                      VALUES(' ' 'R' 'Y' 'G')
     A                                  2 85'Rot'                  
     A                                      COLOR(RED)   
     A            SFCRAT         4Y 0O  2 89EDTCDE(Z)    
     A                                      COLOR(RED)   
     A            SFCRPR         4Y 1O  2 94EDTCDE(2)    
     A                                      COLOR(RED)   
     A                                  2100'Gelb'       
     A                                      COLOR(YLW)   
     A            SFCYAT         4Y 0O  2105COLOR(YLW)   
     A                                      EDTCDE(Z)    
     A            SFCYPR         4Y 1O  2110EDTCDE(2)    
     A                                      COLOR(YLW)   
     A                                  2116'Grün'       
     A                                  2 64'xxxxxxxxxx' 
     A                                      COLOR(BLU)   
     A            SFCGAT         4Y 0O  2121EDTCDE(Z)    
     A            SFCGPR         4Y 1O  2126EDTCDE(2) 

Jemand eine Idee?

Gruß
Ronald

[Fuerchau]

Mach die SFLPAG(22).
Warum hast du kein SFLEND ?
Auf der letzten Zeile einer SFL wird ja ggf. ein "+" oder bei SFLEND(*MORE) auf der Folgezeile "weitere.../Ende" (was ich persönlich schöner finde) angezeigt.
Hierbei scheint es zu einem Überlauf wieder auf Zeile/Spalte 1/1 zu kommen, was das dortige Attribut wieder überschreibt.
Du benötigst immer rechts außen mindestens eine Stelle für das Ende-Attribut.
Deshalb kann eine SFL-Zeile nur ab Spalte 2 bis Rechts - 1 gehen.

SDA Entwurf verwendet keine SFL-Technik, sondern nur im Testmodus.

[malzusrex]

OKay,

wieder was gelernt.
Wenn ich nur 22 Zeilen nutze, bzw nicht auf Stelle 132 shcreibe, dann geht es.

SFLEND(*MORE) irgendwann hatte hier im Unternehmen mal das raus geworfen, und es zieht sich durch die ganze Anwendung, das es nicht genutzt wird.

In dem jetztigem PGM will der ANwender so viel wie Möglcih sehen. Deshalb auch die Zeilen bis unten genutzt.

Der Auszug aus dem SDA war nur um zu zeigen was alles auf den Bildschirm geballert werden soll

Danke
Gruß
Ronald