MSG vom Drucker

[Bruno Jakob]

Hallo Michael,

wie das mit dem Breakmodus ist, weiss ich nicht. Bei uns ist die QSYSOPR-MSGQ von einem Batch-Job gesperrt:

QSYSOPR QSYSOPR *EXCL HELD *THREAD 00000001

Folgende REXX-Procedur liest dann von einem interakt. Job die letzten paar Nachrichten aus der MSGQ aus. Habe die Procedur auch getestet und geht:

mkey = d2c(0,4)                                                     
text1 = copies(" ",50)                                              
                                                                    
"RCVMSG     MSGQ(QSYSOPR) MSGTYPE(*last) RMV(*KEEPEXCP)",           
           "MSG(&TEXT1) SECLVL(&TEXT2) MSGDTA(&DATEN)",             
           "MSGID(&MSGID)"                                          
SAY msgid text1                                                     
do 5                                                                
"RCVMSG   MSGTYPE(*PRV) MSGKEY(&MKEY) RMV(*KEEPEXCP) KEYVAR(&MKEY)",
           "MSG(&TEXT1) SECLVL(&TEXT2) MSGDTA(&DATEN)",             
           "MSGID(&MSGID) msgq(Qsysopr)"                            
SAY msgid text1                                                     
end                                                                 
exit

Vergleiche doch mal Dein RCVMSG mit meinem oder probiere die REXX-Procedur auch mal aus.

Gruß
Bruno

[mkasmika]

Hi Bruno,

ich habe deine Prozedur mal ausprobiert.

Wenn man die MSGQ bei einem Bildschirmjob auf break
stellt bringt deine Prozedur nur einen Screen mit dem Text
Die Eingabetaste drücken, um die Terminalsitzung zu beenden.

Damit ist zumindest klar das die REXX Prozedur auch die Daten
nicht erhält.
( Ist zwar schön zu wissen...... nur nützt mir das nichts )

Ich will es einfach nicht glauben das eine simple Sache
wie ( Auswahl 7 WRKSPLF ) auch per Programm zu lösen ist.
Das muss doch irgendwie gehen ............

Sind noch Vorschläge da ?

gruss Michael