The following example shows us how to prepare a report and preview it using RM/COBOL + RPV.
It is important to observe that to get the graphical quality that Windows produces, is not strictly necessary that you work with graphical environment. It can be obtained using Ms-DOS also.
Code
IDENTIFICATION DIVISION.
PROGRAM-ID. RPVEX.
AUTHOR. DMP.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
DECIMAL-POINT IS COMMA.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
*
SELECT OPTIONAL PUPILS ASSIGN TO RANDOM "C:PUP.DAT"
ORGANIZATION IS INDEXED
ACCESS IS DYNAMIC
RECORD KEY IS PUP-CLV
FILE STATUS IS STATUS-ISM.
SELECT FILE-PRINTER ASSIGN TO PRINTER "C:PUPILS.RPV"
FILE STATUS IS STATUS-ISM.
WORKING-STORAGE SECTION.
77 STATUS-ISM PIC XX VALUE SPACES.
77 XXX PIC XX VALUE SPACES.
77 CONTA PIC 9(8)9 VALUE ZEROS.
77 CONTAZ PIC Z(8)9 VALUE ZEROS.
77 CONTAT PIC 9(8)9 VALUE ZEROS.
77 CONTATZ PIC Z(8)9 VALUE ZEROS.
01 RPV-LINE.
03 FILLER PIC X(4) VALUE '{$1}'.
03 PUP-ID-PRT PIC Z(9) VALUE ZEROS.
03 FILLER PIC X(4) VALUE '{$2}'.
03 PUP-NAME-PRT PIC X(50) VALUE SPACES.
03 FILLER PIC X(8) VALUE '{A=R;$3}'.
03 PUP-PHONE-PRT PIC X(20) VALUE SPACES.
03 FILLER PIC X(8) VALUE '{A=L;$4}'.
03 PUP-ZIP-CODE-PRT PIC Z(9) VALUE ZEROS.
03 FILLER PIC X(4) VALUE '{N}'.
PROCEDURE DIVISION.
DECLARATIVES.
C-E SECTION.
USE AFTER STANDARD ERROR PROCEDURE ON
PUPILS FILE-PRINTER.
END DECLARATIVES.
PRIMER SECTION.
MAIN-PROGRAM.
*
OPEN INPUT PUPILS.
OPEN OUTPUT FILE-PRINTER.
*
WRITE LINE-PRT FROM 'REPORT_TITLE=Test with RM-COBOL 85'.
WRITE LINE-PRT FROM '$1=400'.
WRITE LINE-PRT FROM '$2=1500'.
WRITE LINE-PRT FROM '$3=5000'.
WRITE LINE-PRT FROM '$4=5700'.
WRITE LINE-PRT FROM 'SPACING=250'.
WRITE LINE-PRT FROM '[header]'.
WRITE LINE-PRT FROM '{F=ARIAL;S=12;B=Y;C=2;N}'.
WRITE LINE-PRT FROM
'{$1} Test using RM-COBOL 85 {C=0;n;n}'.
WRITE LINE-PRT FROM '{S=10}'
WRITE LINE-PRT FROM
'{$1} Id {$2} Name {A=R;$3} Phone {A=L;$4} Zip {n;n;b=n}'.
WRITE LINE-PRT FROM '[data]'.
PERFORM UNTIL STATUS-ISM NOT = '00'
READ PUPILS NEXT
IF STATUS-ISM = '00'
MOVE PUP-ID TO PUP-ID-PRT
MOVE PUP-NAME TO PUP-NAME-PRT
MOVE PUP-PHONE TO PUP-PHONE-PRT
MOVE PUP-ZIP-CODE TO PUP-ZIP-CODE-PRT
WRITE LINE-PRT FROM RPV-LINE
END-IF
END-PERFORM.
CLOSE PUPILS FILE-PRINTER.
CALL 'SYSTEM' USING 'RPV.EXE C:PUPILS.RPV /E'.
STOP RUN.
RPV Report
REPORT_TITLE=Test with RM-COBOL 85
$1=400
$2=1500
$3=5000
$4=5700
SPACING=250
[header]
{F=ARIAL;S=12;B=Y;C=2;\N}
{$1} Test using RM-COBOL 85 {C=0;\n;\n}
{S=10}
{$1} Id {$2} Name {A=R;$3} Phone {A=L;$4} Zip {\n;\n;b=n}
[data]
{$1} 1{$2}name #1 {A=R;$3}154123445 {A=L;$4} 1470{\N}
{$1} 2{$2}name #2 {A=R;$3}4636334454 {A=L;$4} 1407{\N}
{$1} 3{$2}name #3 {A=R;$3}49182013 {A=L;$4} 3060{\N}
