Hallo zusammen,

ich bin mal wieder ratlos.

Problematik:

Ich habe ein Programm was nur ein Window anzeigt aber von 2 verschiedenen Programmen aufgerufen wird. Das eine Programm zeigt seinen Screen in 27x132 an, der andere Screen 24x80.

Ich hab in dem Windowprogramm das schon so gesteuert, dass das Window immer angezeigt wird (Quelle folgt weiter unten). Also die Ausgabe des Windows funktioniert, was nicht funktioniert, ist dass die Statusmeldungen immer auf Zeile 24 ausgegeben werden (was bei 27x132 im Hintergrund nicht schön ist).

Als Anmerkung
Programm A ruft Windowprogramm auf. Das Windowprogramm wird verlassen, bevor aber eine weitere Ausgabe am Bildschirm erfolgt wird ein CL aufgerufen und dieser gibt die Statusmeldungen aus, die kommen dann leider immer an Zeile 24

Code:
0003.00      A                                      DSPSIZ(24 80 *NORMAL              - 
0004.00      A                                             27 132 *WIDE)                
0005.00      A  *WIDE                               MSGLOC(27)                          
0006.00      A  *NORMAL                             MSGLOC(24)                          
0007.00      A*---------------------------------------------------------------*         
0008.00      A*    DUMMY :  DUMMY FORMAT                                      *         
0009.00      A*---------------------------------------------------------------*         
0010.00      A          R DUMMY                                                         
0011.00      A  30                                  DSPMOD(*WIDE)                       
0012.00      A                                      ASSUME                              
0013.00      A                                      OVERLAY                             
0014.00      A                                 24 79' '                                 
0015.00      A*---------------------------------------------------------------*         
0016.00      A*    WDW01 :  WINDOW FORMAT                                     *         
0017.00      A*---------------------------------------------------------------*     
0020.00      A                                      CA03(03 'EXIT')                     
0021.00      A                                      CA12(12 'Cancel')                   
0022.00      A                                      KEEP                                
0023.00      A  30                                  DSPMOD(*WIDE)                       
0024.00      A  *WIDE                               WINDOW(8 40 9 50 *NOMSGLIN)         
0025.00      A  *NORMAL                             WINDOW(7 14 9 50 *NOMSGLIN)         
0026.00      A                                      USRRSTDSP                           
0027.00      A                                  9  1'F3=EXIT  F12=CANCEL'               
0028.00      A                                      COLOR(BLU)                          
0029.00      A            W1@EMAIL      50A  B  7  1COLOR(YLW)                          
0030.00      A                                  1 13'SELECT USER E-MAIL ADDRESS'        
0031.00      A                                      COLOR(BLU)                          
0032.00      A                                  3  1'ENTER YOUR VALID E-MAIL ADDRESS, I-
0033.00      A                                      F NOT ENTERED'                      
0034.00      A                                  4  1'THE DOCUMENT WILL BE STORED IN YOU-
0035.00      A                                      R USER'                             
0036.00      A                                  5  1'DIRECTORY.'
Im RPG wird dann je nach aufrufendem Programm die *IN30 an oder aus gesetzt

Vielen Dank für Eure Hilfe

Viele Grüße harkne