//----------------------------------------------------------------------------- // // 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 )