[open-cobol-list] Something not right when running a simple program with "cobcrun"

[Larry Cullen]

Greetings.

I'm running OpenCOBOL on Cygwin under Windows Vista.

Downloaded and built OpenCOBOL from tarball around 8:00 PM Central DST 
July 31, 2008.

Attempted to compile a small program for dynamic operation using 
"cobcrun" by doing the following:

   cobc HelloWorld.cob

I run this simple "HelloWorld" program by typing:

   cobcrun HelloWorld

I get the following message:

   libcob: No error

I was expecting to see:

   Hello world.

I did the same thing for a slightly more complex program named 
ShowColors, but it works just fine?

Both of the COBOL program source files work correctly when compiled using:

   cobc -x HelloWorld.cob

and

   cobc -x ShowColors.cob

I have attached.both of these source files for your enjoyment.


Thanks,

Larry C.

000010 IDENTIFICATION DIVISION.
000020 PROGRAM-ID. HELLOWORLD.
000030 ENVIRONMENT DIVISION.
000040 DATA DIVISION.
000050 PROCEDURE DIVISION.
000060 PROGRAM-START.
000070     DISPLAY 'Hello world.'
000080     STOP RUN.




000010* ShowColors.cob
000020****************************************************************
000030* Display various possible background and foreground colors
000040* both without and with HIGHLIGHT specified.
000050****************************************************************
000060 IDENTIFICATION DIVISION.
000070
000080***************************************************************
000090* The PROGRAM-ID. entry is required. See if it can be defined
000100* multiple times.
000110***************************************************************
000120 PROGRAM-ID. ShowColors.
000130
000140 AUTHOR. Lawrence E. Cullen
000150
000160 DATE-WRITTEN. 21 JUL 2008
000170
000180 ENVIRONMENT DIVISION.
000190
000200 DATA DIVISION.
000210
000220 WORKING-STORAGE SECTION.
000230*---------------------------------------------------------------------
000240* 77-level-entries
000250*---------------------------------------------------------------------
000260 77 BACK-COLOR         PIC 9.
000270 77 COL-NBR            PIC 99.
000280 77 FORE-COLOR         PIC 9.
000290 77 LINE-NBR           PIC 99.
000300 77 USER-ENTRY         PIC X(10).
000310
000320*---------------------------------------------------------------------
000330* 01-level-entries
000340*---------------------------------------------------------------------
000350 01 LEGEND.
000360    05 FILLER    PIC X(3) VALUE " B=".
000370    05 BG-COLOR  PIC 9.
000380    05 FILLER    PIC X(3) VALUE " F=".
000390    05 FG-COLOR  PIC 9.
000400
000410 PROCEDURE DIVISION.
000420 100-MAIN.
000430******* CLEAR THE SCREEN *******
000440     DISPLAY '--------HIGHLITE--------HIGHLITE'
000445      LINE 1 COLUMN 1 WITH BLANK SCREEN.
000450
000460     MOVE ZERO TO BACK-COLOR FORE-COLOR.
000470     MOVE 1 TO COL-NBR.
000475     MOVE 2 TO LINE-NBR.
000480     PERFORM DISP-NOBRIGHT 8 TIMES.
000490
000500     MOVE ZERO TO BACK-COLOR FORE-COLOR.
000510     MOVE 9 TO COL-NBR.
000520     MOVE 2 TO LINE-NBR.
000530     PERFORM DISP-BRIGHT 8 TIMES.
000540
000550     MOVE ZERO TO BACK-COLOR FORE-COLOR.
000560     MOVE 17 TO COL-NBR.
000570     MOVE 2 TO LINE-NBR.
000580     PERFORM DISP-FOREGROUND 8 TIMES.
000590
000600     MOVE ZERO TO BACK-COLOR FORE-COLOR.
000610     MOVE 25 TO COL-NBR.
000620     MOVE 2 TO LINE-NBR.
000630     PERFORM DISP-FOREGROUND-BRIGHT 8 TIMES.
000640
000650     PERFORM ACCEPT-STUFF.
000660     STOP RUN.
000670
000680 DISP-NOBRIGHT.
000690     PERFORM SET-LEGEND.
000700     DISPLAY LEGEND AT LINE NUMBER LINE-NBR COLUMN NUMBER COL-NBR
000710       WITH BACKGROUND-COLOR IS BACK-COLOR
000720          FOREGROUND-COLOR IS FORE-COLOR.
000730     ADD 1 TO BACK-COLOR.
000740     ADD 1 TO LINE-NBR.
000750
000760 DISP-BRIGHT.
000770     PERFORM SET-LEGEND.
000780     DISPLAY LEGEND AT LINE NUMBER LINE-NBR COLUMN NUMBER COL-NBR
000790       WITH BACKGROUND-COLOR IS BACK-COLOR
000800          FOREGROUND-COLOR IS FORE-COLOR
000810          HIGHLIGHT.
000820     ADD 1 TO BACK-COLOR.
000830     ADD 1 TO LINE-NBR.
000840
000850 DISP-FOREGROUND.
000860     PERFORM SET-LEGEND.
000870     DISPLAY LEGEND AT LINE NUMBER LINE-NBR COLUMN NUMBER COL-NBR
000880        WITH BACKGROUND-COLOR IS BACK-COLOR
000890          FOREGROUND-COLOR IS FORE-COLOR.
000900     ADD 1 TO FORE-COLOR.
000910     ADD 1 TO LINE-NBR.
000920
000930 DISP-FOREGROUND-BRIGHT.
000940     PERFORM SET-LEGEND.
000950     DISPLAY LEGEND AT LINE NUMBER LINE-NBR COLUMN NUMBER COL-NBR
000960        WITH BACKGROUND-COLOR IS BACK-COLOR
000970          FOREGROUND-COLOR IS FORE-COLOR
000980          HIGHLIGHT.
000990     ADD 1 TO FORE-COLOR.
001000     ADD 1 TO LINE-NBR.
001010
001020 ACCEPT-STUFF.
001030     ACCEPT USER-ENTRY AT LINE NUMBER 10 COLUMN NUMBER 15
001040        WITH AUTO BACKGROUND-COLOR IS 0
001050          FOREGROUND-COLOR IS 7
001060          HIGHLIGHT.
001070
001080 SET-LEGEND.
001090     MOVE BACK-COLOR TO BG-COLOR.
001100     MOVE FORE-COLOR TO FG-COLOR.