Hallo,

hätte schon fast alle Tag, Gotos und CABEQ eliminiert, aber bei dieser Unterroutine stehe ich, wieder mal auf den Schlauch.

/FREE
Dow §Ende = *off;
// ---------------------------------
// Eingabe Abteilung
// ---------------------------------
/END-FREE
C TAG01 TAG
/FREE
DOU *IN13 = *OFF;
EXFMT RecABT;
ENDDO;

IF SFL#1REC = *ZERO;
// Kostenstellen eingeben
/END-FREE
C TAG02 TAG
/FREE
DOU *IN13 = *OFF;
EXFMT RecIKOST;
*IN13 = *OFF;
/END-FREE
C *INKL CABEQ *ON TAG01
/FREE
EXSR Pruefungen;
/END-FREE
C *INKL CABEQ *ON TAG01
/FREE
ENDDO;
// Präsentieren Kostenstelle
EXFMT RecOKOST;
/END-FREE
C *INKL CABEQ *ON TAG02
/FREE
ENDIF;
// Verarbeitung
§Work = *OFF;
IF SFL#1REC > *ZERO;
IF Count > *ZEROS;
WRITE FMTC1;
W1Update = 'N';
DOU *IN13 = *OFF;
EXFMT FMTW1;
If *INKC;
*INKC = *OFF;
Leave;
EndIf;
/END-FREE
C *INKL CABEQ *ON TAG02
/FREE
*IN13 = (W1Update = *BLANKS);
IF W1Update = 'J';
EXSR UpdateAll;
ENDIF;
ENDDO;
ENDIF;
ENDIF;
ENDDO;

Dank im Voraus und Gruß

Tarki