//-----------------------------------------------------------------------------
//
// ftsck.grm
// check shortly fts client log file
// 
//-----------------------------------------------------------------------------

//-----------------------------------------------------------------------------
// general and RTA defines
//-----------------------------------------------------------------------------
// find/key flag defines
//#define WHOLEFILE		1
//#define TOENDKEY		0

//-----------------------------------------------------------------------------
// local defines
//-----------------------------------------------------------------------------
//#define INITEAS		"TSTHP08EAS03"
//#define RESPEAS		"TSTHP13EAS03"
//#define LOCALASE	"TSTHP08-FT03"
//#define INITFAB		"FABHP08EAS03"
//#define RESPFAB		"FABHP13EAS03"
//#define FILETYPE	"AAA"


//DEBUG( 1 )

FILEOPEN( "log1", 1 )

// check fields with same value on whole file 
// KEY( "File_Type", FILETYPE, WHOLEFILE, 1 )

// check bind ok and unbind done -----------------------------------------------
FILEREWIND( 1 ) ; b = FIND( "BIND", 17, 1 )
PRINTF( "ciao: ", b )

MESSAGE ---UNBIND:
FILEREWIND( 1 )
u = FIND( "UNBIND", 1, 1 )
PRINT(u)

MESSAGE ---ERROR:
FILEREWIND( 1 )
e = FIND( "ERROR", 1, 1 )
PRINT(e)

MESSAGE ---SEND:
FILEREWIND( 1 )
s = FIND( "SEND", 1, 1 )
PRINT(s)


FILECLOSE( 1 )
END