* DBb  : Editieren eines Textes                                                 
************************************************************************        
*                                                                      *        
*  Makro zur allgemeinen Anwenderunterstützung                         *        
*                                                                      *        
************************************************************************        
*                                                           *          *        
*  . Autor : DBb                                            *          *        
*    Firma : MRO                                            *          *        
*    Tel.  : 069/8305-2876                                  * 18.10.93 *        
*                                                           *          *        
*  . Programmiersprache : CATIA-IUA  V3R2M3                 *          *        
*                                                           *          *        
*  . name statt #GETID                                      * 27.10.93 *        
*  . Wechseln in Background Plane des 1.selektierten Elem.  * 27.10.93 *        
*                                                           *          *        
************************************************** 27.10.93 ** DBB *****        
                                                                                
internal data                                                                   
*----------------------------------------------------------------------         
* Variablen-Deklarationen                                                       
*----------------------------------------------------------------------         
char*8     CODE, CODE2                                                        
integer    DX,DY                                                              
char*70    IDENT                                                              
integer    RET                                                                
char*70    STRING       format 70                                             
* txtd       TXT, TXT2                                                          
undeflm    TXT, TXT2                                                          
                                                                                
external data                                                                   
*----------------------------------------------------------------------         
* Parameter-Deklarationen                                                       
*----------------------------------------------------------------------         
                                                                                
proc                                                                            
*----------------------------------------------------------------------         
* Programm-Rumpf                                                                
*----------------------------------------------------------------------         
*                                                ersten Text selektieren               
select 'Text selektieren / YES:End' TXT, yes
do                                                                          
	name TXT IDENT                                                                
	let STRING = 'DET ' // chtype(TXT) // IDENT                                   
	msgcntl STRING                                                                
	highlt TXT                                                                    
*                                                In BPL von TXT wechseln        
	exec #CHNGVU TXT                                                              
*                                                Alten Text lesen               
	load TXTEREA TXT, STRING, RET                                                      
	if (IRET ne 0) then ERROR                                                     
	display                                                                       
*                                                Neuen Text bestimmen           
	panel TXTE STRING, no                                                         
*                                                Text ändern                    
	load TXTEWRI TXT, STRING, TXT2, RET                                                        
	if (IRET ne 0) then ERROR                                                     
	display                                                                       
*                                                nächsten Text selektieren               
	nohighlt TXT
	select 'Text selektieren / YES:End' TXT, yes
                                                                                
while (KODE ne 'YES')                                                       

*----------------------------------------------------------------------         
exit                                                                            

label ERROR                                                                     
beep                                                                          
if (TXT  ne NULL ) nohighlt TXT                                               
branch END                                                                    

label END                                                                       
end