| ShadowFox 2006-08-02, 6:55 pm |
| 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
>
|