Sound auf der AS400 (QsnBeep)

[muadeep]

ich versuche in einem Programm, mit der AS400 (5250), einen Warnton bei einem Fehler auszugeben.
(Soundkarte am PC ist installiert und auch an!)

hab auch hier im Forum schon so einiges darüber gelesen!

QsnBeep soll dafür die Lösung sein !!!

nur leider ist das nicht auf unserer AS400 (V6R1) zu finden!
(wrkobj QsnBeep)

kann ich dass irgendwie nachinstallieren bzw. was muß ich machen, damit ich den "Beep" auch akustisch war nehmen kann?

was mich auch wundert, ist, daß mir der Compiler keine Fehlermeldung bring, wenn ich dieses ins Programm einbaue

D BEEP            PR            10I 0 EXTPROC('QsnBeep')            
D PARM1                         10I 0 CONST OPTIONS(*OMIT)          
D PARM2                         10I 0 CONST OPTIONS(*OMIT)          
D PARM3                       1024A         OPTIONS(*OMIT:*VARSIZE) 
 *                                                                  
C                   CALLP     BEEP(*OMIT:*OMIT:*OMIT)               
 *