#------------------------------------------------------------------------------ # commento utente #------------------------------------------------------------------------------ MESSAGE Open Log files EXEC rm pippo CHECK( seqnr, 1 ) FILEOPEN( pippo, 1 ) FILEOPEN( pluto, 2 ) #------------------------------------------------------------------------------ MESSAGE Find string roqua in file 1 (OK) FIND( roqua, 1, 1 ) #------------------------------------------------------------------------------ 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 ) #--- cerca un range non esistente 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 ) begin c = 3 + 1 end