Mehrere SQL Statements in einem /exec /end-exec Block?

[AndreasH]

Hallo Forum,
besteht die Möglichkeit bei SQLRPGLE mehrere SQL Statements in einem Block abzusetzen? zB:

 /free                                                         
   SQLSTMT = 'declare c1 cursor for select * from LAEP00 +     
              where EPMAND = :EKMAND and EPMATN = :EKMATN and +
                    EPKDLI = :EKKDLI and EPBIDT = 99991231'    
 /end-free                                                     
C/exec sql
c+ PREPARE S1 FROM :SQLSTMT ;
c+ declare c1 cursor for S1  ;
c+ OPEN C1 ;
C/end-exec

Um es gleich vorweg zu nehmen: Die obige codierung funktioniert nicht

[Fuerchau]

Stimmt !

Jeder EXEC wird vom Pre-Compiler in einen CALL aufgelöst und deshalb kann der das nicht.
Wozu auch ?
Ist halt nur etwas Kodieraufwand (aber wozu kann der SEU wohl Zeilen kopieren)

[AndreasH]

Grund ist schlicht Übersichtlichkeit der Quelle.
Ich persönlich finde die "reingeblähten" exec / end-exec einfach unübersichtlicher als einen sauberen abgeschloßenen Block.
Aber wenns nicht geht werde ich wie die anderen 300.000 RPG Programmierer weltweit auch ohne leben können

Danke für die schnelle Antwort

Gruß