S/36 COBOL

[bvining@xxxxxxxxxxxx]

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