//-----------------------------------------------------------------------------
//
// fts.grm
// examine fts log files
// 
//-----------------------------------------------------------------------------

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

//-----------------------------------------------------------------------------
// local defines
//-----------------------------------------------------------------------------
#define INITEAS		"TSTHP23EAS01"
#define RESPEAS		"TSTHP16EAS01"
#define LOCALASE	"TSTHP23-FT01"
#define INITFAB		"FABHP23EAS01"
#define RESPFAB		"FABHP16EAS01"
#define FILETYPE	"AAA"


DEBUG( 1 )

FILEOPEN( log1, 1 )
FILEOPEN( log2, 2 )

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

// check bind ok and unbind done -----------------------------------------------
FIND( "BIND OK", 1, 1 )
FIND( "UNBIND", 1, 1 )

FILEREWIND( 1 )
BLOCKSYNCRO( SEND, 1 )
	BLOCKKEY( "Op_Id_Hop_Id", 1, 1 )
	BLOCKKEY( "InitEAS",  INITEAS, 1 )
	BLOCKKEY( "RespEAS",  RESPEAS, 1 )
	BLOCKKEY( "LocalASE", LOCALASE, 1 )
	BLOCKKEY( "InitFABId", INITFAB, 1 )
	BLOCKKEY( "RespFABId", RESPFAB, 1 )


END

	if ( BLOCKKEY( SecurityLevel, 2, 1 ) ) { END }

MESSAGE Search seqnr=3 in file 1 (OK)
KEY( "seqnr", 3, 1 )

MESSAGE Search seqnr=2 in file 1 (ERROR)
KEY( "seqnr", 2, 1 )

MESSAGE Print status of opened files (OK)
FILESTATUS( 1 )
FILESTATUS( 2 )

MESSAGE Rewind file 1 
FILEREWIND( 1 )

MESSAGE Search seqnr=3 in file 1 (ERROR)
KEY( seqnr, 3, 1 )

MESSAGE Rewind file 1 
FILEREWIND( 1 )

MESSAGE Search seqnr=3 in file 1 (OK)
KEY( seqnr, 2, 5, 1 )

FILEREWIND( 1 )
KEY( seqnr, 5, 10, 1 )

MESSAGE Print status of opened files (OK)
FILESTATUS( 1 )
FILESTATUS( 2 )

MESSAGE Close Log File 1
FILECLOSE( 1 )

MESSAGE Print status of file 1
FILESTATUS( 1 )

MESSAGE Close Log File 2
FILECLOSE( 2 )

a = 1
b = 2
c = 3
if ( a == b ) { 
	c = 3 + 1 
	}


DEBUG( 1 )
RTASTATUS()
FILEOPEN( pippo, 1 )
FILESTATUS( 1 )
BLOCKSTATUS()

BLOCK( 1 )
BLOCKEND()

FILEREWIND( 1 )
BLOCKSYNCRO( function7, 1 )
BLOCKSTATUS()
BLOCKEND()

RTASTATUS()
END

FIND( BEGIN, 0, 1 )
a = 1
b = 2
c = 3
d = a + c - b
PRINT( d )

MESSAGE if test 2
PRINT( a )
PRINT( b )
if ( a eq b )  {
  PRINT( a )
  a = b + c
  PRINT( a )
  }
PRINT( a )
PRINT( b )

MESSAGE if test 2
a = b
PRINT( a )
PRINT( b )
if ( a eq b )  {
  PRINT( a )
  a = b + c
  PRINT( a )
  }
PRINT( a )
PRINT( b )

LABEL(1, 1)
FIND( dueduedue, 1, 1 )
GETVALUE( seqnr, 1 )
LABEL(2, 1)

DEBUG( 1 )
FIND( troqua, 1, 1 )
x = GETVALUE( seqnr, 1 )
LABEL(3, 1)

GOTO( 2, 1 )
FILESTATUS( 1 )
PRINT( x )

FILEREWIND( 1 )
FIND( seqnr, 0, 1 )

FILEREWIND( 1 )
SEQUENCE( seqnr, 1, 1, 1 )

FILEREWIND( 1 )
SEQUENCE( security, 7, 0, 1 )

FILEREWIND( 1 )
SEQUENCE( security, 7, 0, 1 )

FILEREWIND( 1 )
SEQUENCE( security, 7, 0, 1 )

FILEREWIND( 1 )
SEQUENCE( security, 7, 0, 1 )

FILEREWIND( 1 )
SEQUENCE( security, 7, 0, 1 )