× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Hi Phil

It is not easy. It has been a while but here goes.

In the CONFIGURATION SECTION. of the COBOL program I have the following:

SPECIAL-NAMES. I-O-FEEDBACK IS FEEDBACK-DISPLAY.

In the WORKING-STORAGE SECTION. I have the following:

01 WS-SCREEN-FEEDBACK. 05 FILLER PIC X(147). 05 CSRLOC PIC 9(04) BINARY. 05 DTALEN PIC 9(09) BINARY. 05 SFLRCDNBR PIC 9(04) BINARY. 05 LOWRCDNBR PIC 9(04) BINARY. 05 SFLRCDQTY PIC 9(04) BINARY.

01 WS-COL PIC S9(05). 01 WS-ROW PIC S9(05).

Before the WRITE to the screen I move WS-ROW & WS-COL to my display file's ROW1 and COL1 fields. Make sure the first time in you initialize WS-ROW AND WS-COL to some valid value.

After the READ of the screen I do the following:

ACCEPT WS-SCREEN-FEEDBACK FROM FEEDBACK-DISPLAY FOR IOF-SCREEN. DIVIDE 256 INTO CSRLOC OF WS-SCREEN-FEEDBACK GIVING WS-ROW REMAINDER WS-COL.

In the display file I have the following record level keyword:

CSRLOC(ROW1 COL1)

Also in the display file I have the following hidden fields defined:

A ROW1 3S 0H A COL1 3S 0H

I hope that helps.

Thanx, PLA

Phil Campbell wrote:

I am working on converting programs from a S/36 (CBL36) mode to AS400 (CBL) mode. I've run into something that I have not been able to figure out. Hopefully someone can help me.

How do you get the position the cursor is at when the enter or a function key is pressed. This is how I have it set up on the S/36.

SELECT SCREEN-FILE ASSIGN TO WORKSTATION-OR001FM ORGANIZATION TRANSACTION CONTROL-AREA IS SCREEN-CONTROL-AREA. 01 SCREEN-CONTROL-AREA. 05 KEY-FUNCTION PIC 99. 88 ENTER-KEY VALUE 0. 88 CMD-KEY1 VALUE 1. 88 CMD-KEY2 VALUE 2. 88 CMD-KEY3 VALUE 3. 05 TERMINAL-ID PIC X(2). 05 RESERVED PIC X(8). 05 CURSOR-ROW PIC 999. 05 CURSOR-COL PIC 999. Thanks so very much. Please send any responses to pcampbell@xxxxxxxxxxxx

Phil Campbell :)


_______________________________________________ This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing list To post a message email: COBOL400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/cobol400-l or email: COBOL400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/cobol400-l.








As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.