2001-11-05 如何讓您的 ＲＰＧ 程式發出 beep 聲音？以提醒使用者某些工作已完成

如何讓您的 ＲＰＧ 程式發出 beep 聲音？以提醒使用者某些工作已完成

FILE   : QRPGLESRC
Member : BEEPR
Type   : RPGLE
Usage  : CRTBNDRPG BEEPR DFTACTGRP(*NO)

                                                                    
     H DFTACTGRP(*NO) BNDDIR('QSNAPI')                               
                                                                     
     Dbeep             pr                  extproc('QsnBeep')        
     Dhandle                          9b 0 value                     
     Dhandle2                         9b 0 value                     
     Derrcode                        10    OPTIONS(*OMIT)            
     Dreturn                          9b 0 Options(*OMIT)            
     C                   callp(e)  beep(0:0:*omit:*OMIT)             
     C                   eval      *inlr = *on                       
                                                                     
            


參考資料

Generate a Beep (QsnBeep) API
http://publib.boulder.ibm.com/pubs/html/as400/v5r1/ic2924/info/apis/QsnBeep.htm