Cursor in Subfile - Cobol

[kuempi von stein]

Um so länger ich über die Geschichte nachdenke, um so mehr denke ich, dass es doch geht.

Ich nutze für Subfiles manchmal eine andere Farbe um auf einen Fehler hinzuweisen!
So wird eben das Feld X in einem Subfilerecord z.B. ROT angezeigt, wenn es fehlerhaft ist.

Um die Konfusion zu vermeiden, dass durch die Bezugszahl ALLE Felder X in allen Subfilerecords ROT angezeigt werden, führe ich zusätzlich noch ein Feld hidden in der Subfile mit, um mir die Bezugszahl zu merken.

Aufgrund des Inhaltes dieses Feldes setze ich vor jedem Schreiben des Satzes in die Subfile die Bezugszahl eben an oder aus.

Wenn das für Farben geht, sollte es doch auch für Cursorpositionierung gehen...?

hier mal ein Beispiel
A R SFLFMT01 SFL
A X1AUSW 1A B 6 2COLOR(WHT)
A XXFELDX 2A O 6 33
A N70 COLOR(GRN)
A 70 COLOR(RED)
A #70 1A H

Gruss

kuempi

[benedikt.gerlich]

Hallo,
man kann beim Schreiben des SFLCTL auch die gewünschte Subfile-Zeile mitgeben. Der Cursor wird dann auf diese Zeile gesetzt.

Wenn es ganz genau sein muss, so kann man auch in der Display DDS mit CSRLOC Zeile und Spalte direkt mitgeben vom Programm aus.

Tschüß Benedikt

[mwithake]

Hallo,

die Cursorsteuerung erledigt man im DDS durch die Erweiterung SFLRCDNBR mit (CURSOR).

Die letzte Satznummer, wo der Cursor stand, kann über SFLCSRRRN(var) ermittelt werden. Wenn sich der Cursor bei Datenfreigabe ausserhalb der Subfile befindet, kann über SFLSCROLL noch die erste Zeile der zuletzt angezeigten Seite ermittelt werden.

Gruß
M.Withake

[Anette]

Das klappt tatsächlich mit DSPATR(PC) !! Den Cursor kann mann genauso wie Farben setzen, danke für den Tipp.

Gruß
Anette