RE: String value with an apostrophe ( ' )

Sometimes I need things "spelled out" for me.  Literally!!


-----Original Message-----
From: Gary Thornton [mailto:gthornton2003@yahoo.com]
Sent: Thursday, January 09, 2003 4:42 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: String value with an apostrophe ( ' )


<don't respond... don't respond... you'll be sorry... don't re...>
You're kidding, right Mike?  Man-oh-man, that hurts just looking at
it! <g>

Please tell me that this is harder to read than your example:
 parms = '"' + %char( fromDate ) + '" "' 
             + %char( jobDate )  + '" "'
             + Y + '" "'
             + Y + '"'

--- Mike Haston ** Data <MJH@jny.com> wrote:
> 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 );                                                   


__________________________________________________
Do you Yahoo!?
Yahoo! Mail Plus - Powerful. Affordable. Sign up now.
http://mailplus.yahoo.com
_______________________________________________
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.