Re: Hex Values

m
Hello Mike,

You wrote:
>I have to put a ' in a command called by an RPG program.  The only way I can
>think to do it is to make a constant and use the hex value for the '.  Does
>anyone have a list of hex values for the AS/400, or have another idea?  I
>have tried using ", but that does not work.....

A standard EBCIDIC chart will suffice for hex codes in most cases since you are 
likely to 
only use codepage 37 -- assuming you are writing Murican software for Murican 
distribution.  If, however, you are aware of the rest of the world then you 
will need to 
refer to the charts in the NLS manual because the apostrophe is not an 
invariant 
character.

All that aside, if you just want to declare a variable which contains an 
apostrophe then 
simply double it as you would in CL (or almost any other HLL).  For example:

        D $APOST          C                           CONST('''')
or
        D apost           S                       1   INZ('''') 
or
        D entity          S                      30   INZ('O''Riley''s Public 
House') 

Again be aware of NLS issues.

Regards,
Simon Coulter.

«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
«» FlyByNight Software         AS/400 Technical Specialists       «»
«» Eclipse the competition - run your business on an IBM AS/400.  «»
«»                                                                «»
«» Phone: +61 3 9419 0175      Mobile: +61 0411 091 400           «»
«» Fax:   +61 3 9419 0175      mailto: shc@flybynight.com.au      «»
«»                                                                «»
«» Windoze should not be open at Warp speed.                      «»
«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---