If you are not in V7R2 :
d ScanRpl pr 5000a varying
d Scan 50a varying const
d Rpl 50a varying const
d String 5000a varying const
d Start 10u 0 options(*nopass) const
//=======================================================================
// ScanRpl
//=======================================================================
pScanRpl b
dScanRpl pi 5000a varying
d Scan 50a varying const
d Rpl 50a varying const
d String 5000a varying const
d Startp 10u 0 options(*nopass) const
d Start s 10u 0
d Pos s 10u 0
d RtnString s 5000a varying
/free
// Position de début ?
if %parms <= 4;
Start = 1;
Else;
Start = Startp;
Endif;
RtnString = String;
pos = %scan(Scan:RtnString);
dow pos <> 0;
RtnString = %replace(Rpl:RtnString:pos:%len(Scan));
pos = %scan(Scan:RtnString:pos+%len(Rpl));
Enddo;
Return RtnString;
/end-free
pScanRpl e
----- Mail original -----
| De: "Alan Campin" <alan0307d@xxxxxxxxx>
| À: "RPG programming on the IBM i (AS/400 and iSeries)" <rpg400-l@xxxxxxxxxxxx>
| Envoyé: Mardi 20 Décembre 2016 00:17:21
| Objet: Re: Embedded SQL & named constants
|
| Not as far as I know. SQL only recognized variables that delinted with :.
|
| You might use a prepare and use the new %ScanRPl is you have V7R2.
|
| SqlStmt = 'Select X1 +
| From Y1 +
| Where Z1 = <<CONSTANT>>;
| SqlStmt = %ScanRpl('<<CONSTANT>>, NAMED_CONSTANT,SqlStmt);
|
|
|
| On Mon, Dec 19, 2016 at 3:02 PM, Justin Taylor <JUSTIN@xxxxxxxxxxxxx> wrote:
|
| > Is it possible to use named constants as variables in embedded SQL
| > statements? I've tried but never been able to make it work.
| >
| > Thanks
| >
| >
| > --
| > This is the RPG programming on the IBM i (AS/400 and 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.
| >
| > Please contact support@xxxxxxxxxxxx for any subscription related
| > questions.
| >
| > Help support midrange.com by shopping at amazon.com with our affiliate
| > link:
http://amzn.to/2dEadiD
| >
| --
| This is the RPG programming on the IBM i (AS/400 and 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.
|
| Please contact support@xxxxxxxxxxxx for any subscription related questions.
|
| Help support midrange.com by shopping at amazon.com with our affiliate link:
|
http://amzn.to/2dEadiD
|
midrange.com
