MSG vom Drucker

[Bruno Jakob]

Habe bei mir das jetzt auch so gemacht mit der QSYSOPR-MSGQ. Egal ob *break oder *hold, die REXX-Procedur geht.

Gruß
Bruno

[mkasmika]

Hallo Bruno,

dann muss ich etwas falsch gemacht haben. Ich habe einfach
deine Prozedur mit Copy/paste in ein Member eingefügt
und mit Auswahl 16 gestartet. Wobei ich nicht weiss
was die ersten beiden Zeilen machen.
mkey = d2c(0,4)
text1 = copies(" ",50)


Dieter,


ich bin auch der Meinung: Das muss gehen.
Ich habe mir gerade nochmal die Drucker API's angeschaut.
API QGYRPRTA gibt auch leider nur die MSGQ/LIB und den MessageKey

Das Problem ist ja eigentlich nur " das die MSGQ " durch
einen anderen JOB gesperrt ist.

Gibt es denn evtl ein API das an eine gesperrte MSGQ herankommt ?




gruss Michael

[Bruno Jakob]

Hallo Michael,

mkey = d2c(0,4) - damit wird die Variable mkey mit hex 0 vorformatiert
text1 = copies(" ",50) - und die Variable text1 mit 50 Stellen.

In REXX gibt es keine typisierte Variablen und schon garkeine Deklarationen. Da muss man sich manchmal so behelfen, weil das sonst nicht funktioniert. Das hat aber sicher nichts mit Deinem Problem zu tun.

Gruß
Bruno

[Fuerchau]

Dann mach doch gleich ein PC-Programm (VB/C++). Hier stellt die IBM eine ganze Reihe von API's zur Verfügung:
Objekt-API's
http://publib.boulder.ibm.com/iseries/v5r2/ic2924/info/rzaik/rzaikobjapilist.htm
Es gibt sogar ein eigenes API zur Beantwortung von Nachrichten:
http://publib.boulder.ibm.com/iseries/v5r2/ic2924/info/rzaik/rzaikcwbobjanswersplfmsg.htm#HDRCWBOBJ_ANSWERSPLFM SG