Easytrieve Pan/SQL IVP job fails

Products

• PanAudit Plus
• Easytrieve Report Generator
• PAN/SQL

Issue/Introduction

Running the following Pan/SQL IVP job, gets a; 

EZTC0652E >>> $ line overflow by 179 columns 

1 PARM SSID('D91B') DEBUG(PMAP DMAP STATE XREF LONG) 
2 FILE SQLFILE SQL + 
3 (SELECT NAME, CREATOR + 
4 FROM SYSIBM.SYSTABLES + 
5 INTO :NAME, :CREATOR) 
6 SQL INCLUDE LOCATION * FROM SYSIBM.SYSTABLES 
7 DEFINE WS-COUNT W 2 N 0 
8 * 
9 JOB INPUT SQLFILE 
10 WS-COUNT = WS-COUNT + 1 
11 IF WS-COUNT GT 10 
12 STOP 
13 END-IF 
14 PRINT RPT1 
15 REPORT RPT1 LINESIZE 80 
16 TITLE 'TEST FOR PANSQL INSTALL' 
17 LINE NAME CREATOR 

EZTC0652E >>> $ line overflow by 179 columns 
----------------------------------------------------------------- 

the DMAP shows 

------------------------------------------------------------------------- 
4 1 000000 02 SYSTABLES 
4 1 000000 130 AV 03 NAME           <====
4 1 000000 2 I 04 LENGTH 
4 3 000002 128 A 04 DATA 
4 131 000082 130 AV 03 CREATOR  <====
4 131 000082 2 I 04 LENGTH 
4 133 000084 128 A 04 DATA 

Environment

Release: PSQLOR00200-2.4-Pan/SQL-for Oracle
Component:

Resolution

Changing to the following corrects this line overflow problem, by truncating the NAME and CREATOR to fit the line size; 

PARM SSID('D91B') 
DEFINE WKNAME W 18 A      <=====
DEFINE WKCREATOR W 8 A  <===== 
SQL DECLARE C1 CURSOR FOR + 
SELECT NAME, CREATOR + 
FROM SYSIBM.SYSTABLES 
JOB INPUT NULL 
SQL SET CURRENT SQLID= 'SYSIBM' 
SQL OPEN C1 
PERFORM CHECK-SQL-CODE 
DO WHILE SQLCODE EQ 0 
SQL FETCH C1 INTO :WKNAME, :WKCREATOR 
PERFORM CHECK-SQL-CODE 
IF SQLCODE = 0 
PRINT REPORT1 
END-IF 
END-DO 
SQL CLOSE C1 
PERFORM CHECK-SQL-CODE 
STOP 
CHECK-SQL-CODE. PROC 
END-PROC 
REPORT REPORT1 LINESIZE 80 
TITLE 'TEST FOR PANSQL INSTALL' 
LINE WKNAME WKCREATOR