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

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


	

如何讓您的 ＲＰＧ 程式發出 beep 聲音？以提醒使用者某些工作已完成？
前期電子報以 RPG 為範例，本期以 CL 為範例。
因為會使用 CALLPRC 呼叫內建函數，所以此程式的原始型態需為 CLLE。


File  : QCLSRC
Member: BEEPC
Type  : CLLE
Version : V3R2 later
Usage : CRTBNDCL BEEPC


 /*   To compile :                                                 */
 /*         The source type must be "CLLE"   (and not CLP).        */
 /*         Compile with STRPDM option 14  or use the              */
 /*         CRTBNDCL command.                                      */
 /*                                                                */
                                                                     
 BEEP:       PGM                                                     
                                                                     
             DCL       VAR(&RTNVALBIN)  TYPE(*CHAR) LEN(4)           
             DCL       VAR(&RTNVALDEC)  TYPE(*DEC) LEN(5 0)          
                                                                     
             CALLPRC    PRC('QsnBeep') PARM(X'00000000' X'00000000' +
                          X'00000000') RTNVAL(%BIN(&RTNVALBIN))      
                                                                     
             CHGVAR     VAR(&RTNVALDEC) VALUE(%BIN(&RTNVALBIN))      
                                                                     
             IF         COND(&RTNVALDEC *NE 0) THEN(SNDPGMMSG +      
                          MSGID(CPF9898) MSGF(QCPFMSG) +             
                          MSGDTA('error occurred') MSGTYPE(*ESCAPE)) 
                                                                     
 END:        ENDPGM