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
Bookmarks