Cursor Position nach ACCEPT (*EXTACCDSP)

[Neptun]

Hallo!


Habe ein Eingabefeld mit ACCEPT (Extended) am Schirm. Nun wandert der Anwender mit den Cursortasten über den Schirm und drückt irgendwann ENTER. Wie kann ich nun die aktuelle Cursorposition in COBOL auf der AS/400 abfragen?

Die Funktionstasten kriege ich über den CRT STATUS, aber bei der Cursor-Position bin ich nicht fündig geworden. Wer weiß Rat? Danke im voraus!


Gruß
Neptun

[Fuerchau]

SPECIAL-NAMES.
CURSOR IS CRT-CURSOR
CRT STATUS IS CRT-STATUS.

01 CRT-CURSOR.
05 CRT-LINE PIC 999 VALUE ZERO.
05 CRT-COL PIC 999 VALUE ZERO.

[TARASIK]

Hallo,
ich denke das hilft:

http://www.patrickarchibald.com/COBOL400PositionCursor.html

[Fuerchau]

@TARASIK
Das gilt nur für DSPF !
Die erweiterte Accept-/Display-Anweisung arbeit nicht mit einer Displayfile daher gibts auch kein I-O-Feedback.

[Neptun]

@TARASIK
Google hat mich bei TRANSACTION-FILES auf dieselbe Seite gebracht. Dafür funktioniert es auch tadellos, aber halt nicht für EXTENDED DISPLAY. Trotdem danke

@Fuerchau
Danke für die schnelle Antwort, es hat funktioniert. Interessant ist, das es nur funktioniert wenn man VOR dem ACCEPT das Feld CRT-CURSOR mti einem gültigen Wert (Position) füllt. Wenn man dieses Feld auf SPACE lässt, dann ist auch nach dem ACCEPT weiterhin SPACE in diesem Feld.

Besten Dank!

Gruß
Neptun