Télécharger accdchi2.procedur

Retour à la liste

Numérotation des lignes :

  1. * ACCDCHI2 PROCEDUR AURI 97/12/24 21:15:07 3025
  2. DEBMETH ACCDCHI2 MOMET*MOT ;
  3. 'SI' ('EGA' MOMET 'GLOGC') ;
  4. CHACHA= %LOGC ;
  5. 'SINON' ;
  6. 'SI' ('EGA' MOMET 'GTOT') ;
  7. CHACHA= %TOT ;
  8. 'SINON' ;
  9. 'SI' ('EGA' MOMET 'GFIONI') ;
  10. CHACHA= %FIONI;
  11. 'SINON' ;
  12. 'SI' ('EGA' MOMET 'GNTY4') ;
  13. CHACHA= %NTY4;
  14. 'SINON' ;
  15. 'SI' ('EGA' MOMET 'GTEMPE') ;
  16. CHACHA= %TEMPE;
  17. 'SINON' ;
  18. 'SI' ('EGA' MOMET 'GCLIM') ;
  19. CHACHA= %CLIM;
  20. 'SINON' ;
  21. ERREUR 21 ;
  22. 'QUITTER' ACCDCH2 ;
  23. 'FINSI' ;
  24. 'FINSI' ;
  25. 'FINSI' ;
  26. 'FINSI' ;
  27. 'FINSI' ;
  28. 'FINSI' ;
  29. FINMETH CHACHA ;
  30.  
  31.  

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