Easytrieve Pan/SQL IVP job fails
Article ID: 42540
Updated On:
Products
Issue/Introduction
Question:
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
Answer:
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
Environment
Component:
Feedback
