Procédures | Cast3M

* CHANVCOM  PROCEDUR  AURI      97/12/24    21:15:21     3025           
 DEBMETH CHANVCOM NUNU*ENTIER TATA*OBJET ;
 MOBID = TATA.'CLASSE' ;
*'SI' ( 'NEG' TATA. 'CLASSE'  'LINVCOMP' ) ;
 'SI' ( 'NEG' MOBID  'LINVCOMP' ) ;
    ERREUR 21 ;
 'QUITTER' CHANVCOM ;
 'FINSI';
 'SI' ( 'EXIS' %NVCOMP ) ;
       %NVCOMP%GINDIOBJ NUNU TATA ;
 'SINON' ;
       %NVCOMP= OBJET INDIOBJE ;
       %NVCOMP%GINDIOBJ NUNU TATA ;
 'FINSI' ;
 FINMETH ;