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