* :--------------------------------------- * ------------------------: Copybook for PlaySound. * : * : See the documentation for details. * :--------------------------------------- * * The PlaySound API plays the .WAV file in PLAYSOUND-FILENAME. * * ---------------------------------------------------------------- * * To use: * * COPY WIN32API. * COPY PLAYSND. * . * . * ------------------------: Select the options. * * SET PS-PLAY-ASYNCHRONOUS TO TRUE. * SET PS-PLAY-DEFAULT TO TRUE. * ------------------------: Load the filename of the sound .WAV * * MOVE 'C:\WINDOWS\MEDIA\CHIMES.WAV' TO PLAYSOUND-FILENAME. * * ------------------------: Call the API to play the sound. * * SET API-PLAYSOUND TO TRUE. * CALL 'GSWINAPI' USING WIN32API-PARMS * PLAYSOUND-PARMS * WIN32API-B * WIN32API-C * WIN32API-D * WIN32API-E * WIN32API-F. * * ------------------------: If function failed, * : display a textual error message. * * IF WIN32API-FAILED * MOVE WIN32API-ERROR-TEXT TO my-error-message * do whatever to display my-error-message. * 01 PLAYSOUND-PARMS. * ------------------------: Name of the .WAV file to play. 05 PLAYSOUND-FILENAME PIC X(1024). * ------------------------: ASYNCHRONOUS playback; Returns to * : your program when sound begins. * * : SYNCHRONOUS playback; Returns to your * : program after sound has completed. 05 FILLER PIC X. 88 PS-PLAY-ASYNCHRONOUS VALUE LOW-VALUE. 88 PS-PLAY-SYNCHRONOUS VALUE 'S'. * ------------------------: DEFAULT; Play system default sound if * : specified sound is not found. * * : NODEFAULT; Silent if sound not foun 05 FILLER PIC X. 88 PS-PLAY-DEFAULT VALUE LOW-VALUE. 88 PS-PLAY-NODEFAULT VALUE 'N'. * : Reserved 05 FILLER PIC X(6).