• The Four Hundred
  • Subscribe
  • Media Kit
  • Contributors
  • About Us
  • Contact
Menu
  • The Four Hundred
  • Subscribe
  • Media Kit
  • Contributors
  • About Us
  • Contact
  • Error-Checking Email Addresses, for Intelligent People

    May 9, 2007 Ted Holt

    Note: The code accompanying this article is available for download here.

     

    Dear Intelligent Colleague:

    I’ve been less than impressed with the results of keying invalid email addresses into database files, mainly because I’ve had to deal with some of that undeliverable email. I recently wrote a little RPG routine that checks for glaring errors in an email address. The people for whom I wrote it liked it and thought that you might find it helpful too.

    My routine enforces the following few rules:

    * No leading or embedded blanks.
    * No question marks, exclamation points, or slashes.
    * Exactly one “at” sign.
    * At least one period after the “at” sign.
    * At least one character that is not a period before the “at” sign.
    * At least three characters, including a period, after the “at” sign.
    * No two consecutive periods.
    * No period next to the “at” sign.

    For purposes of illustration, I’m providing my routine to you as a module. If you want to use this routine, I’ll leave it to your sound judgment to determine whether you should implement it as a module, service program, or program.

    You’ll find three source members in the downloadable code.

    * Module VALIDEMAIL, the module that validates email addresses.
    * Prototype VALIDEMAIL.
    * Module VALIDEMAIT, the test module.

    I suggest you place the source code for the modules in file QRPGLESRC in a library of your choosing. I also suggest you put the prototype into file PROTOTYPES in the same library. Make sure that library is in your library list and run the following commands, replacing xxx with the name of your library:

    CRTRPGMOD MODULE(xxx/VALIDEMAIL) +
              SRCFILE(xxx/QRPGLESRC) +
              SRCMBR(VALIDEMAIL)     
    
    CRTRPGMOD MODULE(xxx/VALIDEMAIT) +
              SRCFILE(xxx/QRPGLESRC) +    
              SRCMBR(VALIDEMAIT)
              
    CRTPGM PGM(xxx/VALIDEMAIT) +
           MODULE(VALIDEMAIT VALIDEMAIL) +
           ACTGRP(*NEW)  
    

    Call program VALIDEMAIT and look at the spool file that it generates. It lists the test email addresses in VALIDEMAIT and tells whether or not each one is valid.

    The VALIDEMAIL module contains one function subprocedure, cleverly named ValidateEmailAddress. This function returns zero if no errors are detected, or a positive integer that indicates the position where an error is found.

    Have fun, and let me know if you determine that this routine needs to be more robust.

     



                         Post this story to del.icio.us
                   Post this story to Digg
        Post this story to Slashdot

    Share this:

    • Reddit
    • Facebook
    • LinkedIn
    • Twitter
    • Email

    Tags:

    Sponsored by
    WorksRight Software

    Do you need area code information?
    Do you need ZIP Code information?
    Do you need ZIP+4 information?
    Do you need city name information?
    Do you need county information?
    Do you need a nearest dealer locator system?

    We can HELP! We have affordable AS/400 software and data to do all of the above. Whether you need a simple city name retrieval system or a sophisticated CASS postal coding system, we have it for you!

    The ZIP/CITY system is based on 5-digit ZIP Codes. You can retrieve city names, state names, county names, area codes, time zones, latitude, longitude, and more just by knowing the ZIP Code. We supply information on all the latest area code changes. A nearest dealer locator function is also included. ZIP/CITY includes software, data, monthly updates, and unlimited support. The cost is $495 per year.

    PER/ZIP4 is a sophisticated CASS certified postal coding system for assigning ZIP Codes, ZIP+4, carrier route, and delivery point codes. PER/ZIP4 also provides county names and FIPS codes. PER/ZIP4 can be used interactively, in batch, and with callable programs. PER/ZIP4 includes software, data, monthly updates, and unlimited support. The cost is $3,900 for the first year, and $1,950 for renewal.

    Just call us and we’ll arrange for 30 days FREE use of either ZIP/CITY or PER/ZIP4.

    WorksRight Software, Inc.
    Phone: 601-856-8337
    Fax: 601-856-9432
    Email: software@worksright.com
    Website: www.worksright.com

    Share this:

    • Reddit
    • Facebook
    • LinkedIn
    • Twitter
    • Email

    Sponsored Links

    Quadrant Software:  Become more efficient, productive, & profitable with paperless accounts payable COMMON:  Join us at the Annual 2008 conference, March 30 - April 3, in Nashville, Tennessee Help/Systems:  SEQUEL is the single solution for all your business intelligence needs

    IT Jungle Store Top Book Picks

    The System i Pocket RPG & RPG IV Guide: List Price, $69.95
    The iSeries Pocket Database Guide: List Price, $59.00
    The iSeries Pocket Developers' Guide: List Price, $59.00
    The iSeries Pocket SQL Guide: List Price, $59.00
    The iSeries Pocket Query Guide: List Price, $49.00
    The iSeries Pocket WebFacing Primer: List Price, $39.00
    Migrating to WebSphere Express for iSeries: List Price, $49.00
    iSeries Express Web Implementer's Guide: List Price, $59.00
    Getting Started with WebSphere Development Studio for iSeries: List Price, $79.95
    Getting Started With WebSphere Development Studio Client for iSeries: List Price, $89.00
    Getting Started with WebSphere Express for iSeries: List Price, $49.00
    WebFacing Application Design and Development Guide: List Price, $55.00
    Can the AS/400 Survive IBM?: List Price, $49.00
    The All-Everything Machine: List Price, $29.95
    Chip Wars: List Price, $29.95

    Applied Logic Updates Data Access Tool Aldon Acquired by Marlin Equity Partners

    Leave a Reply Cancel reply

Volume 7, Number 18 -- May 9, 2007
THIS ISSUE SPONSORED BY:

ProData Computer Services
WorksRight Software
Guild Companies

Table of Contents

  • WHERE Versus HAVING
  • Error-Checking Email Addresses, for Intelligent People
  • Admin Alert: The i5 Battery Checking Process

Content archive

  • The Four Hundred
  • Four Hundred Stuff
  • Four Hundred Guru

Recent Posts

  • To Comfort The Afflicted And Afflict The Comfortable
  • How FalconStor Is Reinventing Itself, And Why IBM Noticed
  • Guru: When Procedure Driven RPG Really Works
  • Vendors Fill In The Gaps With IBM’s New MFA Solution
  • IBM i PTF Guide, Volume 27, Number 27
  • With Power11, Power Systems “Go To Eleven”
  • With Subscription Price, IBM i P20 And P30 Tiers Get Bigger Bundles
  • Izzi Buys CNX, Eyes Valence Port To System Z
  • IBM i Shops “Attacking” Security Concerns, Study Shows
  • IBM i PTF Guide, Volume 27, Number 26

Subscribe

To get news from IT Jungle sent to your inbox every week, subscribe to our newsletter.

Pages

  • About Us
  • Contact
  • Contributors
  • Four Hundred Monitor
  • IBM i PTF Guide
  • Media Kit
  • Subscribe

Search

Copyright © 2025 IT Jungle