Télécharger ktest_io2.dgibi

Retour à la liste

Numérotation des lignes :

  1. * fichier : ktest_io2.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4.  
  5. *** restitutions succésives ...
  6.  
  7. opti rest 'testsauv_glob_B.sortgibi' ;
  8. rest ;
  9.  
  10. opti rest FORM 'testsauv_glob_F.sortgibi' ;
  11.  
  12. opti rest 'testsauv_noms_B.sortgibi' ;
  13. rest ;
  14.  
  15. opti rest FORM 'testsauv_noms_F.sortgibi' ;
  16.  
  17. *** sg 2014/11 : nouveaux noms d'inconnues
  18.  
  19. lpri ldua = 'VALEUR' 'INCO' ;
  20. * 'LISTE' lpri ;
  21. * 'LISTE' ldua ;
  22. * lpn = 'MOTS' 'LX' 'PP' 'QQ' ;
  23. *bp : passage a 4 caracteres depuis #8543
  24. lpn = 'MOTS' 'LX' 'PP' 'QQQQ' ;
  25. ldn = 'MOTS' 'FLX' 'PQ' 'QQQQ' ;
  26. ok1 = 'EXISTE' lpri lpn 'ET' ;
  27. posp = 'POSI' lpn 'DANS' lpri ;
  28. posd = 'POSI' ldn 'DANS' ldua ;
  29. ok2 = 'EGA' posp posd ;
  30. * 'LISTE' posp ;
  31. * 'LISTE' posd ;
  32. 'SI' ('NON' (ok1 'ET' ok2)) ;
  33. 'ERREUR' 5 ;
  34. 'FINSI' ;
  35.  
  36.  
  37.  
  38. *** bye ...
  39. fin ;
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales