$PBExportHeader$pfc_n_tmg.sru $PBExportComments$PFC Timing Class forward global type pfc_n_tmg from timing end type end forward global type pfc_n_tmg from timing end type global pfc_n_tmg pfc_n_tmg type variables Public: n_cst_tmgsingle inv_single n_cst_tmgmultiple inv_multiple end variables forward prototypes public function integer of_setmultiple (boolean ab_switch) public function integer of_setsingle (boolean ab_switch) end prototypes public function integer of_setmultiple (boolean ab_switch);////////////////////////////////////////////////////////////////////////////// // // Event: of_SetMultiple // // (Arguments: boolean // TRUE - Start (create) the service // FALSE - Stop (destroy ) the service // // Returns: Integer // 1 - Successful operation. // 0 - No action taken. // -1 - An error was encountered. // // Description: // Starts or stops the Multiple Notify Service. // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 6.0 Initial version // ////////////////////////////////////////////////////////////////////////////// // /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2005, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the GNU Lesser General * Public License Version 2.1, February 1999 * * http://www.gnu.org/copyleft/lesser.html * * ==================================================================== * * This software consists of voluntary contributions made by many * individuals and was originally based on software copyright (c) * 1996-2004 Sybase, Inc. http://www.sybase.com. For more * information on the Open Source PowerBuilder Foundation Class * Libraries see http://pfc.codexchange.sybase.com */ // ////////////////////////////////////////////////////////////////////////////// //Check arguments If IsNull(ab_switch) Then Return -1 End If //Cannot be turned on if the Single service is on. If ab_switch And IsValid(inv_single) Then Return -1 IF ab_Switch THEN IF IsNull(inv_multiple) Or Not IsValid (inv_multiple) THEN inv_multiple = Create n_cst_tmgmultiple inv_multiple.of_SetRequestor ( this ) Return 1 END IF ELSE IF IsValid (inv_multiple) THEN Destroy inv_multiple Return 1 END IF END IF Return 0 end function public function integer of_setsingle (boolean ab_switch);////////////////////////////////////////////////////////////////////////////// // // Event: of_SetSingle // // (Arguments: boolean // TRUE - Start (create) the service // FALSE - Stop (destroy ) the service // // Returns: Integer // 1 - Successful operation. // 0 - No action taken. // -1 - An error was encountered. // // Description: // Starts or stops the Single Notify Service. // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 6.0 Initial version // ////////////////////////////////////////////////////////////////////////////// // /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2005, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the GNU Lesser General * Public License Version 2.1, February 1999 * * http://www.gnu.org/copyleft/lesser.html * * ==================================================================== * * This software consists of voluntary contributions made by many * individuals and was originally based on software copyright (c) * 1996-2004 Sybase, Inc. http://www.sybase.com. For more * information on the Open Source PowerBuilder Foundation Class * Libraries see http://pfc.codexchange.sybase.com */ // ////////////////////////////////////////////////////////////////////////////// //Check arguments If IsNull(ab_switch) Then Return -1 End If //Cannot be turned on if the Multiple service is on. If ab_switch And IsValid(inv_multiple) Then Return -1 IF ab_Switch THEN IF IsNull(inv_single) Or Not IsValid (inv_single) THEN inv_single = Create n_cst_tmgsingle inv_single.of_SetRequestor ( this ) Return 1 END IF ELSE IF IsValid (inv_single) THEN Destroy inv_single Return 1 END IF END IF Return 0 end function on pfc_n_tmg.create call timing::create TriggerEvent( this, "constructor" ) end on on pfc_n_tmg.destroy call timing::destroy TriggerEvent( this, "destructor" ) end on event timer;////////////////////////////////////////////////////////////////////////////// // // Event: timer // // Arguments: None // // Returns: None // // Description: // Processes timer. // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 6.0 Initial version // ////////////////////////////////////////////////////////////////////////////// // /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2005, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the GNU Lesser General * Public License Version 2.1, February 1999 * * http://www.gnu.org/copyleft/lesser.html * * ==================================================================== * * This software consists of voluntary contributions made by many * individuals and was originally based on software copyright (c) * 1996-2004 Sybase, Inc. http://www.sybase.com. For more * information on the Open Source PowerBuilder Foundation Class * Libraries see http://pfc.codexchange.sybase.com */ // ////////////////////////////////////////////////////////////////////////////// If IsValid(inv_single) Then inv_single.Event pfc_timer() End If If IsValid(inv_multiple) Then inv_multiple.Event pfc_timer() End If end event event destructor;////////////////////////////////////////////////////////////////////////////// // // Event: // Destructor // // Description: // Clean anything that has been created or opened by the service // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 6.0 Initial version // ////////////////////////////////////////////////////////////////////////////// // /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2005, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the GNU Lesser General * Public License Version 2.1, February 1999 * * http://www.gnu.org/copyleft/lesser.html * * ==================================================================== * * This software consists of voluntary contributions made by many * individuals and was originally based on software copyright (c) * 1996-2004 Sybase, Inc. http://www.sybase.com. For more * information on the Open Source PowerBuilder Foundation Class * Libraries see http://pfc.codexchange.sybase.com */ // ////////////////////////////////////////////////////////////////////////////// of_SetSingle(False) of_SetMultiple(False) end event
File: pfc_n_tmg.sru
Size: 7491
Date: Tue, 22 Jan 2008 23:30:30 +0100
Size: 7491
Date: Tue, 22 Jan 2008 23:30:30 +0100