Hallo Forum

Wenn ich beim Printfile eine Zeile in Hauproutine oder Subroutine
ausgebe wird die Zeile ganz normal angedruckt nur beim Aufruf
aus einer internen Prozedur funktioniert nichts.

Normaler Aufruf:
PHP-Code:
pos_text = 'test';   
pos_y    = 2;   
pos_x    = 1 ;   
pos_gr   = 12 ;   
write pos_text_r; 
Ich habe folgende Procedur gemacht
PHP-Code:
  // aufruf procedur
  druck_zeil('test':2:1:12);        
 
 
p druck_zeil      b                                                
d druck_zeil      pi                                               
d POS_TEXT                      80A   value                        
d POS_Y                          5S 3 value                        
d POS_X                          5S 3 value                        
d POS_GR                         4S 1 value                        
 /free                                                             
    pos_text = POS_TEXT ;                                          
    pos_x    = POS_x       ;                                          
    pos_y    = POS_y       ;                                          
    pos_gr   = POS_GR      ;                                          
    write pos_text_r         ;                                              
                                                                   
                                                                   
 /end-free                                                         
p druck_zeil      e 
beim debugen werden alle Werte korrekt übertragen
nur beim aufruf vom write passiert nichts mehr

bitte um eure hilfe
mfg Stev