* Test : Protokollieren von ModellNamen auf Datei
************************************************************************        
*                                                           *          *        
*  . Autor : DBb                                            *          *        
*    Firma : MRO                                            *          *        
*    Tel.  : 069/8305-3377                                  * 15.04.02 *        
*                                                           *          *        
*  . Programmiersprache : CATIA-IUA  V4R2M2                 *          *        
*                                                           *          *        
************************************************** 15.04.02 ** DBb *****        
                                                                                
internal data                                                                   
*----------------------------------------------------------------------         
* Variablen-Deklarationen                                                       
*----------------------------------------------------------------------         
  integer    RET                                                                
                                                                                
external data                                                                   
*----------------------------------------------------------------------         
* Parameter-Deklarationen                                                       
*----------------------------------------------------------------------         
                                                                                
proc                                                                            
*----------------------------------------------------------------------         
* Programm-Rumpf                                                                
*----------------------------------------------------------------------         
*                                                ModellNamen schreiben
  load LOGNAME RET                                                              
  if (IRET ne 0) then ERROR                                                     
                                                                                
*----------------------------------------------------------------------         
exit                                                                            
label ERROR                                                                     
  beep                                                                          
  branch END                                                                    
label END                                                                       
end