Problem mit AFP Printfile und Procedur

[Stefan_Sk]

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:


pos_text = 'test';
pos_y = 2;
pos_x = 1 ;
pos_gr = 12 ;
write pos_text_r;


Ich habe folgende Procedur gemacht


// 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