Running a sample Easytrieve DB2 job and getting a B061 error. How can this be corrected?

Products

• Easytrieve Report Generator
• PAN/SQL

Issue/Introduction

14 LINE NAME CREATOR 00390001 
14 *******B061 REPORT LINE OVERFLOWED BY - 126 

Environment

Easytrieve Plus Report Generator, release 6.4

Pan/SQL 2.4C

Resolution

Based on the fact that the previous line 12 is coded as: 

12 REPORT RPT1 LINESIZE 133  

and the two fields, NAME and CREATOR, are now 130 bytes each under DB2: 

0000 130 AV 03 NAME 
0000 2 B 04 LENGTH 
0002 128 A 04 DATA 
0082 130 AV 03 CREATOR 
0082 2 B 04 LENGTH 
0084 128 A 04 DATA 

the following program will work as an IVP as it involves fields on the LINE statement which total less than the 133 as specified as the LINESIZE on the REPORT statement:

 PARM SSID('xxxx') 
 DEFINE WKNAME W 18 A 
 DEFINE WKCREATOR W 8 A 
 FILE SQLFILE SQL + 
 (SELECT NAME, CREATOR FROM SYSIBM.SYSTABLES INTO :WKNAME, :WKCREATOR) 
 DEFINE WS-COUNT W 2 N 0 
 JOB INPUT SQLFILE 
 WS-COUNT = WS-COUNT + 1 
 IF WS-COUNT GT 10 
 STOP 
 END-IF 
 PRINT RPT1 
 REPORT RPT1 LINESIZE 130 
 TITLE 'TEST FOR CA PAN/SQL INSTALLATION' 
 LINE WKNAME WKCREATOR