Michael, 

It looks like you are using the default print file QPRINT. You will need to
create a new print file to use that has the required length you want for the
report. 

CRTPRTF FILE(QTEMP/TESTPRT) PAGESIZE(66 133)

Once created you can use the ovrprtf command in your cl to point to the new
print file or you can reference it on you select statement. 

Hope this helps. 

Jerry Thomas

-----Original Message-----
From: cobol400-l-bounces@xxxxxxxxxxxx
[mailto:cobol400-l-bounces@xxxxxxxxxxxx] On Behalf Of Michael Rosinger
Sent: Thursday, November 02, 2006 5:01 AM
To: cobol400-l@xxxxxxxxxxxx
Subject: [COBOL400-L] print line greater than 132?

List,

I am feverishly working on migrating and converting several COBOL programs 
from VSE (mainframe) to iSeries. One problem I've come up against is a 
program that produces a report with a print line greater than 132. COBOL/ILE

allows it and it compiles fine, but at run-time I get a message about 
truncation and I see in the report that the print line truncated at 132 
characters.

Here are the COBOL definitions:

000990 INPUT-OUTPUT SECTION.
001000 FILE-CONTROL.
001010     SELECT PRINT-FILE1 ASSIGN TO PRINTER-QPRINT.
001020 EJECT
001030 DATA DIVISION.
001040 FILE SECTION.
001050 SKIP3
001060 FD PRINT-FILE1
001090     RECORD CONTAINS 133 CHARACTERS.

So what do I need to do to get a program to print a report with a print line

wider than 132?  TIA!


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2022 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.