pcs_snd_gh_p.pc

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

/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*	File name		: Pcs_Snd_GH_P.pc	                	*				
*	Module ID		: MD-P16-01       			 	*
*	Module Name		:                                     		*
*	Purpose			: Find GH Data From DataBase And Send To MQ 	*
*	Author           	: Liu Yan Qiu (DIMPT)                   	*
*	Date Created		: 1999/10/28                            	*
*	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                               		*
*	Screens			: None                                  	*
*	Messages Files		: None                                  	*
*	Change Log		:                                          	*
*	Change No. 		: Date	Author	Reason For Change            	*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *   
*/


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


void main()
{

  	signal( SIGTERM, Free_Mem);
  
  	EXEC SQL INCLUDE SQLCA;
  	
	ProcessError(LOG_NORMAL, "Pcs_Snd_GH_P.x  Is Begin!",END);

	while(1)
	{
		rtn_code = MQBKInit("CSGL");
    		if ( rtn_code < 0 )
      		{
       			ProcessError(LOG_ERROR,"Calling Funtion MQBKInit() Failed!",END);
			sleep(InitInterval);
     		}
		else
			break;
	}

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

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

}