Re: Validate Email address in RPGLE

If ALL you need is the commercial at sign encoded within the CCSID (explicit or defaulted) of the job then this will do the trick:

dAt_Sign s 1
/free
At_Sign = u'0040';
*inlr = *on;
return;
/end-free

The code is defining a 1-byte character field named At_Sign and then moving the Unicode value for the commercial at sign to the character field At_Sign. If you are on a current release (V5R3 or higher) and current on PTFs within the last year or so, then you will end up with At_Sign holding the commercial at sign in the CCSID of the job.

Your original note doesn't say where $1SeMail is coming from (keyboard, database file, etc) so I'm assuming that you are making sure that the field is indeed encoded in the job (explicit or default) CCSID.

You can retrieve your jobs dafault CCSID with the QUSRJOBI API (format JOBI0400) and then use other APIs (like the iconv family) to convert a hardcoded CCSID 37 literal in your program to the job default CCSID. But if all you need is one character converted then the above code example is much easier.

Bruce Vining
http://www.brucevining.com/

Ashish Kulkarni <ashish.kulkarni13@xxxxxxxxx> wrote:
Hi

Would you let me know how to get the code page of job, and convert '@'

or any link where i can get this information

Regards

Ash

On Fri, Oct 17, 2008 at 8:40 AM, Bradley V. Stone wrote:

What I do is retrieve the Code page of the job, then convert the literal
'@'
from the code page I developed on to the job's, then scan for that.

Bradley V. Stone
BVSTools - www.bvstools.com
eRPG SDK - www.erpgsdk.com

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Takken, Cor
Sent: Friday, October 17, 2008 6:53 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: Validate Email address in RPGLE


You don't want to check an email address only by the presence of the
@-sign. A much better idea is to check it using regular expressions.
This will not remove the limitation of the CCSID, however there must be
a way to represent the string to check in unicode or the likes.

Just my incomplete 2 cents,

Cor

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-
bounces@xxxxxxxxxxxx] On Behalf Of Ashish Kulkarni
Sent: vrijdag 17 oktober 2008 13:25
To: RPG programming on the AS400 / iSeries
Subject: Validate Email address in RPGLE

HiDoes anyone have sample of validating email address in RPGLE

program,

For example in RPGLE i can write
'@':1 Scan $1SeMail @Pos
If @Pos = 0
//process error here
endif

But this code will only work if CCSID is 37, as @ will be valid only
for
CCSID 37, but what is CCSID is different.
How do i check for the character,
Does anyone have any idea or sample code to do so

Ash
--
This is the RPG programming on the AS400 / 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.

This e-mail and any attachment is for authorised use by the
intended recipient(s) only. It may contain proprietary material,
confidential information and/or be subject to legal privilege. It
should not be copied, disclosed to, retained or used by, any
other party. If you are not an intended recipient then please
promptly delete this e-mail and any attachment and all copies and
inform the sender. Thank you.


--
This is the RPG programming on the AS400 / 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.

--
This is the RPG programming on the AS400 / 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.