https://kb.pocnet.net/index.php?action=history&feed=atom&title=AS%2F400-SQL-Schleife
AS/400-SQL-Schleife - Versionsgeschichte
2026-05-19T12:14:28Z
Versionsgeschichte dieser Seite in Knowledgebase
MediaWiki 1.43.8
https://kb.pocnet.net/index.php?title=AS/400-SQL-Schleife&diff=2215&oldid=prev
PoC: +Link
2019-03-11T13:31:01Z
<p>+Link</p>
<table style="background-color: #fff; color: #202122;" data-mw="interface">
<col class="diff-marker" />
<col class="diff-content" />
<col class="diff-marker" />
<col class="diff-content" />
<tr class="diff-title" lang="de">
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">← Nächstältere Version</td>
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">Version vom 11. März 2019, 15:31 Uhr</td>
</tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l30">Zeile 30:</td>
<td colspan="2" class="diff-lineno">Zeile 30:</td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> C+ CLOSE SLT</div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> C+ CLOSE SLT</div></td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> C/END-EXEC</div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> C/END-EXEC</div></td></tr>
<tr><td colspan="2" class="diff-side-deleted"></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"></ins></div></td></tr>
<tr><td colspan="2" class="diff-side-deleted"></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;">== Siehe auch ==</ins></div></td></tr>
<tr><td colspan="2" class="diff-side-deleted"></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;">* [https://try-as400.pocnet.net/wiki/Embedding_SQL_in_RPG Embedding SQL in RPG], try-as400.pocnet.net</ins></div></td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><br></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><br></td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>[[Kategorie: AS/400]]</div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>[[Kategorie: AS/400]]</div></td></tr>
<!-- diff cache key kbwiki:diff:1.41:old-2080:rev-2215:php=table -->
</table>
PoC
https://kb.pocnet.net/index.php?title=AS/400-SQL-Schleife&diff=2080&oldid=prev
PoC: Neu
2017-10-24T09:43:06Z
<p>Neu</p>
<p><b>Neue Seite</b></p><div>Die Selektion von Datensätzen anhand eines (exakten) Vergleichswertes ist in RPG nicht auf DB-Ebene möglich. Lediglich das Anspringen des ersten Datensatzes in einer Tabelle ist machbar (SETLL). Zum Glück gibt es SQL, auch wenn dies leider nicht komplett integriert ist, sondern sehr ''angeflanscht'' aussieht! Beispiel einer SQLRPGLE-Schleife mit Vor- und Nachbereitung…<br />
<br />
== Vorarbeiten ==<br />
''Rpgvarname'' ist hierbei eine Variable innerhalb RPG.<br />
C/EXEC SQL<br />
C+ DECLARE SLT CURSOR FOR SELECT BLAH FROM LIB/BLUBBTBL<br />
C+ WHERE FOO = :RPGVARNAME FOR READ ONLY<br />
C/END-EXEC<br />
<br />
C/EXEC SQL<br />
C+ OPEN SLT<br />
C/END-EXEC<br />
<br />
C/EXEC SQL<br />
C+ WHENEVER NOT FOUND GOTO ENDOFLOOP<br />
C/END-EXEC<br />
<br />
== Schleife ==<br />
* Die Schleife wird implizit durch das oben gezeigte ''WHENEVER''-Statement beendet.<br />
* ''RCDEXP'' ist eine vorher zu deklarierende Datenstruktur, welche die gleiche Feldart und -Folge der DB-Datei haben muss.<br />
''DO''<br />
C/EXEC SQL<br />
C+ FETCH NEXT FROM SLT INTO :RCDEXP<br />
C/END-EXEC<br />
''ENDDO''<br />
''ENDOFLOOP TAG''<br />
<br />
== Nachbereitung ==<br />
C/EXEC SQL<br />
C+ CLOSE SLT<br />
C/END-EXEC<br />
<br />
[[Kategorie: AS/400]]</div>
PoC