Re: Special characters

You could try this (it may be utterly non-performant, but I think it could 
still be quicker in case of more special characters):

     d SpecialChars    c                   '#@|,;:/.%$£µ'
     D StringToCheck   s             25A   inz('Test###,morechars')

      /free
          If %xlate(SpecialChars:*blanks:StringToCheck) <> StringToCheck;
             // Special chars found
        Else;
           // String was clean
        EndIf;
      /End-Free

HTH,

Peter Colpaert
Application Developer
PLI - IT - Kontich, Belgium
-----
Yoda of Borg are we.  Futile is resistance, assimilated will you be.
-----



steema@xxxxxxxxxxxxx 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
31/01/2006 14:25
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
Special characters






is there a simple way to check a field for characters as '#', ':', '.',
etc... rather than asking on each one?