On Tuesday 01 May 2012 09:31:46 Chris Geldenhuis wrote:
Despite what is shown in Gary Cutler's excellent manual and used in
some of the examples in it, I cannot get a DISPLAY of multiple fields
to work.
Previously in MFC I would use:
DISPLAY identifier at POS, literal, identifier etc and would get all
identifiers and literals appearing on the screen one after the other.
When I compile this in Open Cobol only the first item in the list of
identifiers and literals appears on screen.
I have tried this with the "at POS" clause where shown above and at
the end of the statement as it appears to be required by the manual.
I have also tried using END-DISPLAY to terminate the DISPLAY
statements to no avail.
Perhaps the example below might help you. It was compiled with
cobc -x<sourcefilename>
with openCOBOL v1.1 on a GNU/Linux system with openSUSE 12.1.
000010 IDENTIFICATION DIVISION.
000020 PROGRAM-ID. test0x.
000170 ENVIRONMENT DIVISION.
000180 COPY EDOBSR.
000190 DATA DIVISION.
000200 WORKING-STORAGE SECTION.
000210 01 W-REPLY PIC X(0001) VALUE SPACE.
000220 01 CURSORPOSITION PIC 9(04).
000230 01 FORMSCOORDINATESTABLE.
000240 03 FILLER PIC X(06) VALUE "010204".
000250 03 FILLER PIC X(06) VALUE "034104".
000260 03 FILLER PIC X(06) VALUE "044101".
000270 03 FILLER PIC X(06) VALUE "054120".
000280 03 FILLER PIC X(06) VALUE "237504".
000290 03 FILLER PIC S9(03) COMP VALUE 005.
000300 01 FILLER REDEFINES FORMSCOORDINATESTABLE.
000310 03 FORMSFIELDS OCCURS 005.
000320 05 FORMSCOORDINATES PIC 9(04).
000330 05 FORMSFIELDLENGTH PIC 9(02).
000340 03 FORMSCOORD-MAX PIC S9(03) COMP.
000350 01 LASTVIEWNAME.
000360 03 LASTSYSTEMREFERENCENAME PIC X(0004).
000370 03 LASTVIEWNR PIC X(0003).
000380 01 CURRVIEWNAME VALUE "MENS006".
000390 03 CURRSYSTEMREFERENCENAME PIC X(0004).
000400 03 CURRVIEWNR PIC X(0003).
000420 COPY WSFORM.
000430 COPY CWS900.
000440 01 INPUT-AREA.
000450 02 INPUT-AREA-2.
000460 05 ESC-01-02 PIC X(04).
000470 05 ESC-03-41 PIC X(04).
000480 05 ESC-04-41 PIC X(01).
000490 05 ESC-05-41 PIC X(20).
000500 05 ESC-23-75 PIC X(04).
000510 02 OUTPUT-AREA-2.
000520 05 OSC-01-71 PIC X(02).
000530 05 OSC-01-74 PIC X(02).
000540 05 OSC-01-77 PIC X(02).
000550 05 OSC-04-48 PIC X(20).
000560 05 OSC-23-02 PIC X(72).
000570 SCREEN SECTION.
000580 01 FORMS-CONSTANTS-AREA AUTO.
000590 03 F-C-01.
000600 05 F-V-01-02 LINE 01 COL 02 PIC X(04)
000610 USING ESC-01-02 HIGHLIGHT UNDERLINE.
000620 05 F-C-01-27 LINE 01 COL 27 VALUE
000630 "Country codes ".
000640 05 F-C-01-65 LINE 01 COL 65 VALUE "Date: ".
000650 05 F-V-01-71 LINE 01 COL 71 PIC X(02)
000660 FROM OSC-01-71.
000670 05 F-C-01-73 LINE 01 COL 73 VALUE "-".
000680 05 F-V-01-74 LINE 01 COL 74 PIC X(02)
000690 FROM OSC-01-74.
000700 05 F-C-01-76 LINE 01 COL 76 VALUE "-".
000710 05 F-V-01-77 LINE 01 COL 77 PIC X(02)
000720 FROM OSC-01-77.
000730 03 F-C-03.
000740 05 F-C-03-33 LINE 03 COL 33 VALUE "Country ".
000750 05 F-V-03-41 LINE 03 COL 41 PIC X(04)
000760 USING ESC-03-41 HIGHLIGHT UNDERLINE.
000770 03 F-C-04.
000780 05 F-C-04-32 LINE 04 COL 32 VALUE "Language ".
000790 05 F-V-04-41 LINE 04 COL 41 PIC X(01)
000800 USING ESC-04-41 HIGHLIGHT UNDERLINE.
000810 05 F-V-04-48 LINE 04 COL 48 PIC X(20)
000820 FROM OSC-04-48.
000830 03 F-C-05.
000840 05 F-C-05-28 LINE 05 COL 28 VALUE "Country name ".
000850 05 F-V-05-41 LINE 05 COL 41 PIC X(20)
000860 USING ESC-05-41 HIGHLIGHT UNDERLINE.
000870 03 F-C-23.
000880 05 F-V-23-02 LINE 23 COL 02 PIC X(72)
000890 FROM OSC-23-02.
000900 05 F-V-23-75 LINE 23 COL 75 PIC X(04)
000910 USING ESC-23-75 HIGHLIGHT UNDERLINE.
000920 PROCEDURE DIVISION
000960 .
000970 FIRST-SECTION SECTION.
000980 P00.
000990 MOVE 000SYSTEMREFERENCENAME TO LASTSYSTEMREFERENCENAME
001000 MOVE 000VIEWNR TO LASTVIEWNR
001010 IF X00FUNCTIONISBEEP = "N"
001020 DISPLAY SPACE UPON CRT
001030 ELSE
001040 DISPLAY SPACE UPON CRT
001050 WITH BEEP
001060 .
001070 DISPLAY FORMS-CONSTANTS-AREA
001080 AT 0101
001090 MOVE CURRVIEWNR TO 000VIEWNR
001100 IF 000FIELDCOUNT< 1 OR> FORMSCOORD-MAX
001110 MOVE 1 TO 000FIELDCOUNT
001120 .
001130 MOVE FORMSCOORDINATES (000FIELDCOUNT) TO CURSORPOSITION
001140 ACCEPT FORMS-CONSTANTS-AREA
001150 AT 0101.
001160 PEOS. stop run.