Télécharger la plaquette Cast3M


fr en

Télécharger accdchi1.procedur

Retour à la liste

Numérotation des lignes : 

  1. * ACCDCHI1  PROCEDUR  AURI      97/12/24    21:15:04     3025           
  2.  DEBMETH ACCDCHI1 MOMET*MOT ;
  3.  'SI' ('EGA' MOMET 'GIDEN') ;
  4.     II= %IDEN ;
  5.  'SINON';
  6.    'SI' ('EGA' MOMET 'GCHXMX') ;
  7.       II= %CHXMX ;
  8.    'SINON';
  9.      'SI' ('EGA' MOMET 'GCLIM') ;
  10.         ARGU MOMO/MOT ;
  11.         'SI' ( 'EXIS' MOMO) ;
  12.          II= %CLIM.MOMO ;
  13.         'SINON' ;
  14.         II= %CLIM ;
  15.         'FINSI' ;
  16.      'SINON';
  17.        'SI' ('EGA' MOMET 'GNVCOMP') ;
  18.           ARGU NUNU/ENTIER ;
  19.           'SI'('EXIS' NUNU);
  20.           II= %NVCOMP.NUNU ;
  21.           'SINON' ;
  22.           II= %NVCOMP ;
  23.           FINSI ;
  24.        'SINON';
  25.          'SI' ('EGA' MOMET 'GNVESP') ;
  26.             ARGU NUNU/ENTIER ;
  27.             'SI'('EXIS' NUNU);
  28.             II= %NVESP.NUNU ;
  29.             'SINON' ;
  30.             II= %NVESP ;
  31.             FINSI ;
  32.          'SINON';
  33.              'SI' ('EGA' MOMET 'GNVSOSO') ;
  34.               ARGU NUNU/ENTIER ;
  35.               'SI'('EXIS' NUNU);
  36.               II= %NVSOSO.NUNU ;
  37.               'SINON' ;
  38.                 II= %NVSOSO ;
  39.               FINSI ;
  40.            'SINON';
  41.              'SI' ('EGA' MOMET 'GECHANGE') ;
  42.                 II= %ECHANGE ;
  43.              'SINON';
  44.                'SI' ('EGA' MOMET 'GTEMPERA') ;
  45.                   II= %TEMPERATURE ;
  46.                'SINON';
  47.                  'SI' ('EGA' MOMET 'GBDD') ;
  48.                     II= %BDD ;
  49.                  'SINON';
  50.                     ERREUR 21 ;
  51.                     QUITTER ACCDCHI1 ;
  52.                  'FINSI' ;
  53.                'FINSI' ;
  54.              'FINSI' ;
  55.            'FINSI' ;
  56.          'FINSI' ;
  57.        'FINSI' ;
  58.      'FINSI' ;
  59.    'FINSI' ;
  60.  'FINSI' ;
  61.  FINMETH  II ;
  62.  
  63.  

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