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.
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.