SQL-Abfrage RRN

[andreaspr@aon.at]

Dein Beispiel müsste ca. so aussehen:

D ZW1EXTDS    E DS                  extname(ZW1EXTDS)
D vRRN          S             10I 0

/Free
 Exec Sql Declare c1 Cursor For SELECT RRN(A),                        
 A.* FROM ZW1EXT A WHERE (.....)        
 ORDER BY (....);

 Exec Sql Open C1;

 Exec Sql Fetch C1 Into :ZW1EXTDS, :vRRN;
/End-Free