readc

[Dw4rf79]

Moin alle,
zur Zeit bin ich ein Programm vom Fix-Format in Freeform am umschreiben.
Bei einigen Zeilen komm ich jedoch nicht mehr weiter.



0248.00 c movea '0010' *in(61)
0249.00 c write CTRL01
0250.00 c movea '000' *in(61)
.
.
.
0494.00 c readc SUBF01 90
MfG Dw4rf79

[B.Hauser]

Wie wär's damit:


/Free
*In61 = *Off;
*In62 = *Off;
*In63 = *On;
*In64 = *Off;
Write CTRL01;
*In63 = *Off;

ReadC SUBF01;
If %EOF;
/End-Free

Für die Indikatoren *IN01-99 gibt es ausserdem bessere Möglichkeiten, z.B. indem man einen Indikator-Datenstruktur (Schlüsselwort INDDS in den F-Bestimmungen) definiert, sprechende Namen verwendet und mehrere Indikatoren überlagert.

Birgitta