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