Datasets examples

*DGIBI        test_uniq.dgibi               2013/02/01  

'OPTION' 'ECHO' 0 ;

iERR = 0 ;

'MESSAGE' ; 'MESSAGE' 'TEST 1' ;
l_i1 = 'LECT' 0 0 0 0 0 0 0 1 1 1 1 1 2 -3 ;
'LISTER' l_i1 ;
l_i2 = 'UNIQ' l_i1 ;
'LISTER' l_i2 ;
'SI' ('NEG' ('DIME' l_i2) 4) ; iERR = iERR + 1 ; 'FINSI' ;

'MESSAGE' ; 'MESSAGE' 'TEST 2' ;
l_r1 = 'PROG' 0. 1. 1. 2. 2. ;
'LISTER' l_r1 ;
l_r2 = 'UNIQ' l_r1 ;
'LISTER' l_r2 ;
'SI' ('NEG' ('DIME' l_r2) 3) ; iERR = iERR + 1 ; 'FINSI' ;
l_r2 = 'UNIQ' l_r1 10. 'NOCA' ;
* Le mot-cle NOCA est ignore (pas d'erreur) meme si mal utilise
'LISTER' l_r2 ;
'SI' ('NEG' ('DIME' l_r2) 1) ; iERR = iERR + 1 ; 'FINSI' ;

'MESSAGE' ; 'MESSAGE' 'TEST 3' ;
l_m1 = 'MOTS' 'Abcd' 'ABxd' 'aBCD' 'Abcd' ;
'LISTER' l_m1 ;
l_m2 = 'UNIQ' l_m1 ;
'LISTER' l_m2 ;
'SI' ('NEG' ('DIME' l_m2) 3) ; iERR = iERR + 1 ; 'FINSI' ;
l_m2 = 'UNIQ' l_m1 'NOCA' ;
'LISTER' l_m2 ;
'SI' ('NEG' ('DIME' l_m2) 2) ; iERR = iERR + 1 ; 'FINSI' ;

'MESSAGE' ; 'MESSAGE' 'TEST 4' ;
l_ra l_ma l_ia l_rb l_mb = 'UNIQ' l_r1 l_m1 l_i1 l_r2 l_m2 'NOCA' ;
'LISTER' l_ra ; 'LISTER' l_ma ; 'LISTER' l_ia ;
'LISTER' l_rb ; 'LISTER' l_mb ;

'MESS' ; 'MESSAGE' 'iERR =' iERR ;
'SI' (iERR 'NEG' 0) ; 'ERREUR' 5 ; 'FINSI' ;

'FIN' ;