Gibt es in den Formatbestimmungen (QDDSSRC) die Möglichkeit, z. B. bei Fehlerbedingung, gesteuert über eine Bezugszahl aus RPG, ein akustisches Signal auszugeben?
Wenn es auch mal außerhalb von DDS Piepsen soll ..
PGM Piep
Code:
***************** Datenanfang *******************************
* binde mit srvpgm qsbapi
D B4 S 5B 0
D P1 S * INZ(*NULL)
C CALLB 'QsnBeep'
* ==== ============
C PARM 0 B4
C PARM 0 B4
C PARM P1
C RETURN
einfach call piep
Gruß
Robi
Das Notwendige steht über dem technisch machbaren.
(klingt komisch, funktioniert aber!)
Bookmarks