Re: Why is SQLSTT="Call stack entry does not exist"

SQLSTT            A(5)                 1367D   1453    1458    1460
                                       1567    1572    1574

First way up in the main...
D*      SQL Communications area
D SQLCA           DS 
...
D  SQLSTT               132    136A


Then
1437 P AnyStuckMSF     B  
1438  
1439  // Check for any emails that have not went from MSF to SMTP.  
1440  // Looking at H1's, or EH's, without P2's will show those stuck in 
MSF.
1441  
1442 D AnyStuckMSF     PI              n  
...
1453   DoU sqlstt<>'00000' or CurJrnlEntries>=NbrJrnlEntries;
...
1458     When Sqlstt='02000'; // End of fetch rows
...
1460     When Sqlstt<>'00000'; // any other sql error
...
Several other subprocedures...
...
1567   DoU sqlstt<>'00000' or CurJrnlEntries>=NbrJrnlEntries;
1568     // Do while we are able to fetch records from the cursor
1569     // and the array is not full. 
1570     FetchLimbo(); 
1571     Select; 
1572     When Sqlstt='02000'; // End of fetch rows 
1573       Leave; 
1574     When Sqlstt<>'00000'; // any other sql error


FetchLimbo does have the SQL explosion in it:
1635 P FetchLimbo      B 
1636 D FetchLimbo      PI 
1637 C*EXEC SQL 
1638 C* Fetch Limbo into :wTranid, :wSubtype 
1639 C*END-EXEC 
1640 C                   Z-ADD     -4            SQLER6 
1641 C                   CALL      'QSQROUTE' 
1642 C                   PARM                    SQLCA 
1643 C                   PARM                    SQL_00025
1644 C     SQL_00028     IFEQ      '1' 
1645 C                   EVAL      WTRANID = SQL_00030 
1646 C                   EVAL      WSUBTYPE = SQL_00031 
1647 C                   END 
1648 C                   return 
1649 P FetchLimbo      E 


Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





"Buck" <buck.calabro@xxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
01/20/2004 03:45 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
rpg400-l@xxxxxxxxxxxx
cc

Fax to

Subject
Re: Why is SQLSTT="Call stack entry does not exist"






Compile it with option(*PRINT) and see where SQLSTT is declared (it should
be global) and where it is populated.  It's probably being picky about
subprocedures.
  --buck



_______________________________________________
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.