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