RE: Embedded SQL Problem

[fkany@xxxxxxxxxxxxxxxxxx]

Yes, I'm dropping the temporary table on each pass.  No errors seem to
stick out in the job log that would prevent the program from running except
for:
File QAP0ZDMP in library QTEMP already exists.
User Trace data for job 907686/FKANY/QPADEV01VP dumped to member
  QP0Z907686 in file QAP0ZDMP in library QTEMP.
197 records copied from member QP0Z907686.
1 User Trace buffer(s) deleted.
SQL system error.





MWalter@xxxxxxxxxxxxxxx@midrange.com on 04/22/2005 02:17:08 PM

Please respond to RPG programming on the AS400 / iSeries
       <rpg400-l@xxxxxxxxxxxx>

Sent by:    rpg400-l-bounces@xxxxxxxxxxxx


To:    RPG programming on the AS400/iSeries <rpg400-l@xxxxxxxxxxxx>
cc:

Subject:    RE: Embedded SQL Problem


Or are you dropping your temporary table? It sounds like the temporary
table, which I believe exists in Qtemp, is trying to be rewritten. I'd like
to see the error.

Thanks,

Mark

Mark D. Walter
Senior Programmer/Analyst
CCX, Inc.
mwalter@xxxxxxxxxx
http://www.ccxinc.com



             "Smith, Mike"
             <Mike_Smith@RGCRe
             sources.com>                                               To
             Sent by:                  "RPG programming on the AS400 /
             rpg400-l-bounces+         iSeries" <rpg400-l@xxxxxxxxxxxx>
             mwalter=hanoverwi                                          cc
             re.com@xxxxxxxxxx
             om                                                    Subject
                                       RE: Embedded SQL Problem

             04/22/2005 03:09
             PM


             Please respond to
              RPG programming
              on the AS400 /
                  iSeries
             <rpg400-l@midrang
                  e.com>






Do you have a close cursor between report runs?

Michael Smith
iSeries.mySeries.


-----Original Message-----
From: fkany@xxxxxxxxxxxxxxxxxx [mailto:fkany@xxxxxxxxxxxxxxxxxx]
Sent: Friday, April 22, 2005 2:48 PM
To: RPG400-L@xxxxxxxxxxxx
Subject: Embedded SQL Problem



If anyone can help figure out what's going on, I'd appreciate it.
Here's what's happening so far:
========================================================================
=========
Screen 1: User selects the reports they would like to print(Report 1,
Report 2, or Report 3)

<Enter Pressed>

(SQL RPG Program Begins)

If Report 1
callp PRCS_REPORT1
ENDIF

If Report 2
callp PRCS_REPORT2
ENDIF

If Report3
callp PRCS_REPORT3
ENDIF

start PRCS_REPORT1
SQLSTRING = 'DECLARE GLOBAL TEMPORARY TABLE.......'
/EXEC SQL
      PREPARE SQLCMD FROM :SQLSTRING
      EXECUTE SQLCMD
/END-EXEC
end PRCS_REPORT1

start PRCS_REPORT2
SQLSTRING = 'DECLARE GLOBAL TEMPORARY TABLE.......'
/EXEC SQL
      PREPARE SQLCMD FROM :SQLSTRING
      EXECUTE SQLCMD
/END-EXEC
end PRCS_REPORT2

start PRCS_REPORT3
SQLSTRING = 'DECLARE GLOBAL TEMPORARY TABLE.......'
/EXEC SQL
      PREPARE SQLCMD FROM :SQLSTRING
      EXECUTE SQLCMD
/END-EXEC
end PRCS_REPORT3

*INZSR BEGSR
C/EXEC SQL
C+ Set Option
C+     Naming    = *Sys,
C+     Commit    = *None,
C+     UsrPrf    = *User,
C+     DynUsrPrf = *User,
C+     Datfmt    = *iso,
C+     CloSqlCsr = *EndMod,
C+     Commit    = *none
C/END-EXEC
ENDSR

(SQL RPG Program Ends)
========================================================================
=========

I can run Report 1, 2, or 3 one at a time with no problems, but if I
select all 3 reports to print, the 1st report will print, but the
program crashes on the 2nd report.  Am I missing an SQL statement
anywhere?  I'm only using PREPARE and EXECUTE.

Thanks,

Frank


--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.


--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.



--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.