pcs_snd_zfjb_p.pc

unix 下用pro*c tuxedo 开发的东西

/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*	File name		: Pcs_Snd_ZFJB_P.pc			    	*				
*	Module ID		: MD-P17-01       			    	*
*	Module Name		: 			    			*
*	Purpose			: Get ZFJB Data From DataBase And Send To MQ	*
*	Author           	: Liu Yan Qiu (DIMPT)		    		*
*	Date Created		: 1999/07/20			    		*
*	Version			: Version 1.0			    		*
*	Environment		: Digital Unix			    		*
*	Portability		: DEC ALPHA Server			    	*
*	Warnings		: 				    		*
*	References		:				    		*
*	Calling Syntax		:				    		*
*	Parameters		: None				    		*
*	Returns			: void				    		*
*	Calling Function	:				    		*
*	Called Functions	: When system startup		    		*
*	Datastores and usages:					    		*
*        	(a) Input						    	*
*		(b) OutPut					    		*       
*	Report			: None				    		*
*	Messages Files		: None				    		*
*	Change Log		:				    		*
*	Change No. 	Date	Author	Reason For Change		    	*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  
*/


#include "/usr/bkfx/include/Pcs_Snd_ZFJB_P/Pcs_Snd_ZFJB_P.h"


void main()
{


  	signal( SIGTERM, Free_Mem);
     
     	EXEC SQL INCLUDE SQLCA;

	ProcessError(LOG_NORMAL, "Pcs_Snd_ZFJB_P.x  Is Begin!",END);
     	
	while(1)
	{
		rtn_code = MQBKInit("CSYW");
    		if ( rtn_code < 0 )
      		{
       			ProcessError(LOG_ERROR,"Calling Funtion MQBKInit() Failed!",END);
			sleep(InitInterval);
     		}
		else
			break;
	}

  	rtn_code = InitSndZFJBP();
  	if (rtn_code < 0)
  	{
   		ProcessError(LOG_ERROR,"Pcs_Snd_ZFJB_P.x: Calling Function \
   					InitSndZFJBP() Failed!",END);
  	} 
  
  	rtn_code = PCSSndZFJBP();
  	if (rtn_code < 0)
   	{
    		ProcessError(LOG_ERROR,"Pcs_Snd_ZFJB_P.x: Calling Function \
    					PCSSndZFJBP() Failed!",END);
   	}

}