MVSFORUMS.com

[infoman123]

Hi All,

I am facing a problem which i am not able to crack out. The below is my ezytriev code to print a report. I am getting it correctly except there are
unwanted eight "-"" coming just before the end of report.
I tried my level best to avoid that. I dont know wht makes it to print that.
The below is my code. Can any one help me.

Regards

JOB INPUT FILEM START (INIT-PARA) +
FINISH (END-PARA)
PRINT REPORT1
*
INIT-PARA. PROC
MOVE '-' TO WS-ALL-DASH FILL '-'
END-PROC
*
*====================================================================
END-PARA. PROC
DISPLAY SYSPRT2 COL 45 WS-ENDLINE
END-PROC
***********************
0200-WRITE-HEADER. PROC
***********************
DISPLAY SYSPRT2 'XXXXXXXXXXXXXXXXXX SYSTEM'
DISPLAY SYSPRT2 ' '
END-PROC
*====================================================================
REPORT REPORT1 PAGESIZE 40 LINESIZE 132 SUMCTL NONE NOPAGE NODATE +
NOADJUST NOHEADING TITLESKIP 1 PRINTER SYSPRT2
CONTROL FINAL NOPRINT MERCHID NOPRINT
SUM PRINCIPAL-AMT
TITLE 1 'XXXXXXXXXXXXXXXXXXXX SYSTEM'
COL 01 'CARDHOLDER' +
COL 56 'PRINCIPAL' +
LINE 1 COL 01 CARD
COL 43 PRINCIPAL-AMT
BEFORE-BREAK. PROC
IF LEVEL = 1
DISPLAY SKIP 1 COL 21 'TOTAL:' +
COL 43 PRINCIPAL-AMT
END-IF
IF LEVEL = 2
DISPLAY SKIP 1 COL 15 'GRAND TOTAL:' +
COL 43 PRINCIPAL-AMT
END-IF
END-PROC
AFTER-BREAK. PROC
DISPLAY WS-ALL-DASH
IF LEVEL = 1 AND NOT EOF FILEM
DISPLAY COL 03 'CARD' +
COL 56 'PRINCIPAL' +
DISPLAY COL 03 'NUMBER' +
COL 56 'AMOUNT' +
END-IF
END-PROC
ENDPAGE. PROC
WS-PAGE = WS-PAGE + 1
END-PROC
*
TERMINATION. PROC
DISPLAY COL 45 WS-ENDLINE
END-PROC

My report is as below

1XXXXXXXXXXXXXXXXXX SYSTEM
0CARD PRINCIPAL
01234567899999 100
0 TOTAL: 100
----------------------------
0 GRAND TOTAL: 100
----------------------------
-
-
-
-
-
-
-
****** E N D O F R E

[Terry_Heinze]

What you're seeing in position 1 of all your report lines is the carriage control character: 1 is top of page, 0 is double space, blank is single space, and - is triple space. I don't have access to a mainframe. Try defining REPORT1 in your JCL as an FBA file instead of FB.
_________________
....Terry

[infoman123]

Hi Terry,

Thanks, I need to know how we can avoid the triple space in the report.

Regards

[Mervyn]

infoman123,

I think Terry is probably right. Please post your JCL.
_________________
The day you stop learning the dinosaur becomes extinct

[infoman123]

Hi,

i am printing the report in sysout=*.

Regards

[CICS Guy]

[Terry_Heinze]

WS-ENDLINE is defined somewhere in your code. I think your PROC called TERMINATION is what's printing at the end of your program. Easytrieve uses the triple spaces to get to the bottom of the page. See Easytrieve manual.
_________________
....Terry