Re: rm - cobol 85 screen designing

I have rm_cobol 85 for Dos and it supports a srceen section as is.
you can build windows with background and forground colors and colored
borders.
IDENTIFICATION DIVISION.
PROGRAM-ID. "wintest".
*
* Title:  wintest.cbl
*         RM/COBOL-85 Windows Test Driver
*
* The information contained herein is proprietary to Liant Software
* Corporation, and provided for maintenance purposes only.
* No other use of this material is authorized or permitted without
* specific authorization, in writing, from Liant Software Corporation.
*
*AUTHOR: RAH.
*DATE WRITTEN: 2/22/90
*PROGRAM DESCRIPTION.
*This is a main menu program that calls eight subroutines
*based on the selection made.  It tests the windows.
*
*INPUT-FILE - None
*OPERATOR-RESPONSE - Enter selection number from terminal.
*OUTPUT-FILE - None
*
* Version Identification:
*   $Revision:   6.0  $
*   $Date:   28 Apr 1994 20:22:16  $
*   $Author:   randy  $
*   $Logfile:   /cobol85/pvcs/rmc85/verify/code/wintest.cbv  $
*
* Module History:
*     $Log:   /cobol85/pvcs/rmc85/verify/code/wintest.cbv  $
*
*       Rev 6.0   28 Apr 1994 20:22:16   randy
*    No change.
*
*       Rev 5.5   17 Mar 1994 15:28:14   ROBERT
*    Project: RM8560
*    Changed version to 6.0.
*
*       Rev 5.4   04 Mar 1993 16:41:22   MIKE
*    Project: RM8553
*    Changed version to 5.30.
*
*       Rev 5.3   16 Apr 1992 17:41:18   MIKE
*    Change version number to 5.20.
*
*       Rev 5.2   02 Apr 1992 11:09:48   MIKE
*    Fixup copyright notices.
*
*       Rev 5.1   22 Mar 1991  9:39:32   RANDY
*    Changed border type to 2.
*    Allways include color test.
*
*       Rev 5.0   15 Sep 1990  1:44:26   BILL
*    No change.
*
*       Rev 1.4   13 Sep 1990 16:15:56   DONNY
*    Prompt for screen size, create menu window accordingly, pass
dimensions
*      to other window programs.
*
*       Rev 1.3   29 Aug 1990 14:55:18   BILL
*    Change program name to lower case for UNIX program library.
*
*       Rev 1.2   23 Aug 1990 10:34:32   RANDY
*    Change menu for XENIX exit program option to 6.
*    Erase screen before displaying menu.
*
*       Rev 1.1   15 Aug 1990 17:24:40   BILL
*    Display error message if Window Manager not available.
*
*       Rev 1.0   15 Aug 1990 14:43:40   BILL
*    Initial revision.
*
ENVIRONMENT DIVISION.
DATA DIVISION.

WORKING-STORAGE SECTION.
01  TITLE               PIC X(60) VALUE
"RM/COBOL-85 Verification Program - Version 6.0".

01  SCREEN-NUM-ROWS              PIC 999.
01  SCREEN-NUM-COLS              PIC 999.
77  X                            PIC X.

01  ESCAPE-KEY   GLOBAL          PIC 99 VALUE 0.
01  SELECT-NUM   GLOBAL          PIC 99 VALUE 1.
01  SELECT-HOLD                  PIC 99 VALUE 0.

COPY "win.cpy".

SCREEN SECTION.
01  MENU-SCREEN.
05 BLANK SCREEN.
05  LINE 3 COL 10
"Window Screen ".
05  LINE 3 COL 43
"Window status = ".
05  LINE 3 COL 61
PIC 999 USING WINDOW-STATUS.
05  LINE 8 COL 5
" 1.  Display window attributes ".
05  LINE 9 COL 5
" 2.  Display title positions ".
05  LINE 10 COL 5
" 3.  Display border types ".
05  LINE 11 COL 5
" 4.  Display relative positions".
05  LINE 12 COL 5
" 5.  Display status codes".
05  LINE 13 COL 5
" 6.  Display colors".
05  LINE 14 COL 5
" 7.  Exit program".
05  LINE 18 COL 15
"Select command number".
05  LINE 19 COL 15
"   Last command = ".
05  LINE 21 COL 15
"<Enter> goes to next test".

01  SELECT-SCREEN  COL 37 LINE 18  PIC 9 USING SELECT-NUM.
01  DISP-LAST-SCRN COL 37 LINE 19  PIC 9 FROM SELECT-HOLD.

01  SCREEN-SIZE-SCREEN.
05  BLANK SCREEN.
05  LINE 2 COL 5
"How many rows are there on your crt? ".
05  PIC 999 TO SCREEN-NUM-ROWS.
05  LINE 3 COL 5
"How many columns are there on your crt? ".
05  PIC 999 TO SCREEN-NUM-COLS.

01  NO-WINDOW-MGR-SCREEN.
05  BLANK SCREEN.
05  LINE 5 COL 15
"Window Manager is not available.".
05  PIC X TO X.
/
PROCEDURE DIVISION.
BEGIN-MAIN.
DISPLAY SCREEN-SIZE-SCREEN.
ACCEPT SCREEN-SIZE-SCREEN.

DISPLAY-MENU.
DISPLAY SPACE ERASE.
*Define and create window.
COMPUTE WCB-NUM-ROWS = SCREEN-NUM-ROWS - 2.
COMPUTE WCB-NUM-COLS = SCREEN-NUM-COLS - 2.
MOVE "S" TO WCB-LOCATION-REFERENCE.
MOVE "Y" TO WCB-BORDER-SWITCH.
MOVE  2  TO WCB-BORDER-TYPE.
MOVE "*" TO WCB-BORDER-CHAR.
MOVE "T" TO WCB-TITLE-LOCATION.
MOVE "C" TO WCB-TITLE-POSITION.
MOVE  TITLE TO WCB-TITLE.
MOVE 0 TO WCB-TITLE-LENGTH.
DISPLAY WCB HIGH ERASE
LINE 2 POSITION 2 CONTROL "WINDOW-CREATE".
ACCEPT WINDOW-STATUS FROM EXCEPTION STATUS.
IF WINDOW-STATUS = 305
DISPLAY NO-WINDOW-MGR-SCREEN
ACCEPT NO-WINDOW-MGR-SCREEN
GO END-PROGRAM.

*Display the section menu for screen tests.
DISPLAY MENU-SCREEN.

*Display the number of the last test executed.
DISPLAY DISP-LAST-SCRN.
DISPLAY SELECT-SCREEN.
ACCEPT SELECT-SCREEN.
GOTO-PARA.
DISPLAY WCB CONTROL "WINDOW-REMOVE".
GO TO COMMAND-1, COMMAND-2, COMMAND-3, COMMAND-4, COMMAND-5,
COMMAND-6, COMMAND-7,
DEPENDING ON SELECT-NUM.
GO TO DISPLAY-MENU.
COMMAND-1.
CALL "winattrb" USING SCREEN-NUM-ROWS, SCREEN-NUM-COLS.
CANCEL "winattrb".
GO TO CHECK-STATUS.
COMMAND-2.
CALL "wintitle" USING SCREEN-NUM-ROWS, SCREEN-NUM-COLS.
CANCEL "wintitle".
GO TO CHECK-STATUS.
COMMAND-3.
CALL "winbordr" USING SCREEN-NUM-ROWS, SCREEN-NUM-COLS.
CANCEL "winbordr".
GO TO CHECK-STATUS.
COMMAND-4.
CALL "winreltv" USING SCREEN-NUM-ROWS, SCREEN-NUM-COLS.
CANCEL "winreltv".
GO TO CHECK-STATUS.
COMMAND-5.
CALL "winstat" USING SCREEN-NUM-ROWS, SCREEN-NUM-COLS.
CANCEL "winstat".
GO TO CHECK-STATUS.
COMMAND-6.
CALL "wincolor" USING SCREEN-NUM-ROWS, SCREEN-NUM-COLS.
CANCEL "wincolor".
GO TO CHECK-STATUS.
COMMAND-7.
GO TO END-WINDOW-TEST.

*Determine how program terminated and appropriately stop
*the run, begin again or rerun the last test.
CHECK-STATUS.
ACCEPT ESCAPE-KEY FROM ESCAPE KEY.
EVALUATE ESCAPE-KEY
WHEN 13 MOVE SELECT-NUM TO SELECT-HOLD
ADD 1 TO SELECT-NUM
GO TO DISPLAY-MENU
WHEN 01 GO TO GOTO-PARA
WHEN 27 GO TO END-WINDOW-TEST
WHEN OTHER MOVE SELECT-NUM TO SELECT-HOLD
ADD 1 TO SELECT-NUM
GO TO DISPLAY-MENU.

END-WINDOW-TEST.
DISPLAY WCB CONTROL "WINDOW-REMOVE".
END-PROGRAM.
EXIT PROGRAM.
STOP RUN.

"Marty" <mja@egallo.com> wrote in message
news:1148567318.894439.283120@y43g2000cwc.googlegroups.com...
> We have been using  GUI ScreenIO by Norcom for a number of years
> The code is efficient, you can call the screens from COBOL, the cost is
> low and the support has been great.
>
> You can find them at  http://www.screenio.com
>