Hallo Reno Lurati

BEISPIEL - BILDSCHIRM - Ermittlung Zeile/Spalte von CURSOR
======================
ENVIRONMENT DIVISION.
======================
CONFIGURATION SECTION.
----------------------------------------------
SOURCE-COMPUTER. IBM-AS400.
OBJECT-COMPUTER. IBM-AS400.
SPECIAL-NAMES. I-O-FEEDBACK IS SYSTEM-FEEDBACK
LOCAL-DATA IS LOCAL-DATA-AREA
DECIMAL-POINT IS COMMA.
*
FILE-CONTROL.
*
* +------------------------------------+
* ! BILDSCHIRM !
* +------------------------------------+
SELECT DISPLAY-FILE
ASSIGN TO WORKSTATION-TO100FM
ORGANIZATION IS TRANSACTION
CONTROL-AREA IS TRANSACTION-CONTROL-AREA
FILE STATUS IS TO100FM-STATUS.
SEL ... weitere
==============
DATA DIVISION.
==============
* +----------------------------------
* ! FILES
* +----------------------------------
FILE SECTION.
FD DISPLAY-FILE.
01 DISPLAY-FILE-RECORD.
COPY DD-ALL-FORMATS OF TO100FM.
FD ............. weitere
---------------------------------------------------
WORKING-STORAGE SECTION.
-------------------------------------------------
*
* +------------------------------------+
* ! I-O-FEEDBACK !
* +------------------------------------+
*
01 IO-INFORMATIONEN.
05 GEN-I-O-AREA PIC X(144).
05 IO-FEEDBACK PIC X(100).
05 WS-FEEDBACK REDEFINES IO-FEEDBACK.
10 FILLER PIC X(3).
10 CURSOR-POS.
15 CURSORBIN PIC S9(4) COMP-4.
10 CURSOR-POSR REDEFINES CURSOR-POS.
15 CURSOR-ZEILE PIC X.
15 CURSOR-POSIT PIC X.
10 FILLER PIC X(4).
10 SFL-REL-NBR PIC S9(4) COMP-4.
10 SFL-TOP-NBR PIC S9(4) COMP-4.
10 SFL-NBR-RCD PIC S9(4) COMP-4.
05 DB-FEEDBACK REDEFINES IO-FEEDBACK.
10 FILLER PIC X(30).
10 DB-RRN PIC 9(09) COMP-4.
*
01 HEX-F.
05 FILLER PIC X.
05 HEX-CHAR PIC X.
01 BIN-F REDEFINES HEX-F.
05 BIN-NUM PIC S9(4) COMP-4.
01 WS-ZEIPO.
05 WS-ZEILE PIC 999.
05 WS-POSIT PIC 999.
*
=========================
PROCEDURE DIVISION.
=========================
:
:
*
ZPO-00.
ACCEPT IO-INFORMATIONEN FROM SYSTEM-FEEDBACK
FOR DISPLAY-FILE.
MOVE ZERO TO BIN-NUM.
MOVE CURSOR-ZEILE TO HEX-CHAR.
MOVE BIN-NUM TO WS-ZEILE.
<======== ZEILE
MOVE CURSOR-POSIT TO HEX-CHAR.
MOVE BIN-NUM TO WS-POSIT.
<======= POSITION / SPALTE
ZPO-E.
EXIT.

==========================
Viele Grüsse Alf