Procedures | Cast3M

   1 : * CHANVCOM  PROCEDUR  AURI      97/12/24    21:15:21     3025           
   2 :  DEBMETH CHANVCOM NUNU*ENTIER TATA*OBJET ;
   3 :  MOBID = TATA.'CLASSE' ;
   4 : *'SI' ( 'NEG' TATA. 'CLASSE'  'LINVCOMP' ) ;
   5 :  'SI' ( 'NEG' MOBID  'LINVCOMP' ) ;
   6 :     ERREUR 21 ;
   7 :  'QUITTER' CHANVCOM ;
   8 :  'FINSI';
   9 :  'SI' ( 'EXIS' %NVCOMP ) ;
  10 :        %NVCOMP%GINDIOBJ NUNU TATA ;
  11 :  'SINON' ;
  12 :        %NVCOMP= OBJET INDIOBJE ;
  13 :        %NVCOMP%GINDIOBJ NUNU TATA ;
  14 :  'FINSI' ;
  15 :  FINMETH ;
  16 :