RE: String value with an apostrophe ( ' )

Otra alternativa es hacer lo siguiente 

parms = X'7D' + %char( fromDate ) + X'7D' + SPACE                  
      + X'7D' + %char( jobDate ) + X'7D' + SPACE                   
      + X'7D' + Y + x'7D' + SPACE                                  
      + X'7D' + Y + X'7D';                                         


> -----Mensaje original-----
> De:   Mike Haston ** Data [SMTP:MJH@jny.com]
> Enviado el:   Jueves, 09 de Enero de 2003 06:21 p.m.
> Para: RPG programming on the AS400 / iSeries
> Asunto:       RE: String value with an apostrophe ( ' )
> 
> I finally went to the dark side and declared a constant for something like 
>quote when I got sick of getting lost in OPNQRYF statements or parameter 
>strings:
> 
> 
> d QUOTE           c                   '"'        
> 
> 
> cmd = 'SBMJOB CMD(CALL PGM(FCSHSTEDI) PARM(###PARMS###))';         
>                                                                    
> parms = QUOTE + %char( fromDate ) + QUOTE + SPACE                  
>       + QUOTE + %char( jobDate ) + QUOTE + SPACE                   
>       + QUOTE + Y + QUOTE + SPACE                                  
>       + QUOTE + Y + QUOTE;                                         
>                                                                    
> // replace 'tags' in the parameter string with parms               
> cmd = %replace(parms : cmd : %scan('###PARMS###' : cmd) : 11 );    
>                                                                    
> @qcmdexc( cmd );                                                   
> 
> 
> 
> 
> -----Original Message-----
> From: Gary Thornton [mailto:gthornton2003@yahoo.com]
> Sent: Thursday, January 09, 2003 3:49 PM
> To: RPG programming on the AS400 / iSeries
> Subject: Re: String value with an apostrophe ( ' )
> 
> 
> So, to carry that logic forward, using two single apostrophes will be
> "preserved" to a non-EBCDIC CCSID, as in this example:
>       Eval PrintTime = Hour + ' o''clock'
> 
> (Personally, I never define a constant for a single apostrophe.  I
> know by heart that 'o''clock' will generate o'clock.  But that's a
> personal preference, and not intended to start a mini-holy war.)
> 
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo.cgi/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
> 

La informacion contenida en este correo es para uso exclusivo de los 
destinatarios del mismo.
Esta prohibido a las personas o entidades que no sean los destinatarios de este 
correo
realizar cualquier tipo de modificacion, copia o distribucion del mismo.
Si Usted recibe este correo por error tenga bien notificar al emisor y 
eliminarlo.