× 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.


  1.  Home
  2. COBOL400-L
  3. April 2002

S/36 COBOL

According to the System/36 Compatible COBOL User's Guide and Reference
the following should work (though I didn't try it):

FILE-CONTROL.
    SELECT SCREEN-FILE ASSIGN TO
      WORKSTATION-MYFMTS
        ORGANIZATION IS TRANSACTION
        CONTROL-AREA IS TRANSACTION-CONTROL-AREA.

WORKING-STORAGE SECTION.
01    TRANSACTION-CONTROL-AREA.
      05  FUNCTION-KEY      PIC 99.
      05  TERMINAL-ID       PIC X(2).
      05  RESERVED          PIC X(8).
      05  CURSOR-ROW        PIC 9(3).
      05  CURSOR-COLUMN     PIC 9(3).

Bruce

>
>Anyone out there know how to read the screen position of the cursor in COBOL
>in 36 mode.
>
>Obviously RTNSCRLOC is not valid as a keyword in 36 DDS and I-O-FEEDBACK
>does not seem to work.
>
>I seem to remember that the row and column positions of the cursor are
>naturally returned within the read/write of the screen routine.
>
>Any sample code would be greatly appreciated.
>

As an Amazon Associate we earn from qualifying purchases.

This thread ...
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.