• The Four Hundred
  • Subscribe
  • Media Kit
  • Contributors
  • About Us
  • Contact
Menu
  • The Four Hundred
  • Subscribe
  • Media Kit
  • Contributors
  • About Us
  • Contact
  • A Quick-and-Easy Way to Convert Case in RPG Programs

    November 4, 2009 Ted Holt

    Several good ways exist to convert letters from uppercase to lowercase and vice versa. Some take more effort than others. Here’s a very easy RPG method that you may not have seen.

    Suppose a four-character program parameter is supposed to have one of three values: edit, post or both. Suppose further that you don’t want case to matter. The user can enter uppercase, lowercase, or mixed-case values. How do you go about testing the parameter in your program?

    You could do it the hard way, that is, test for all possible combinations, like this:

     /free
        if inOption = 'edit' or inOption = 'ediT'
        or inOption = 'edIt' or inOption = 'edIT'
        or inOption = 'eDit' or inOption = 'eDiT'
        or inOption = 'eDIt' or inOption = 'eDIT'
        or inOption = 'Edit' or inOption = 'EdiT'
        or inOption = 'EdIt' or inOption = 'EdIT'
        or inOption = 'EDit' or inOption = 'EDiT'
        or inOption = 'EDIt' or inOption = 'EDIT';
    

    But that’s excessive, don’t you think? Better to convert the value to all uppercase or lowercase, whichever you prefer, and test the converted value against one uppercase or lowercase constant. But how do you convert case?

    The “proper” way would be to use the case-conversion APIs, QCLGNVCS and QlgConvertCase. They work well.

    Or you could engage in a little bit-twiddling. The following example shows how to convert the afore-mentioned four-byte value to lowercase and uppercase:

     *** *entry plist ***
    D SomePgm         pr                  extpgm('SOMEPGM')
    D  inOption                      4a   const
    D SomePgm         pi
    D  inOption                      4a   const
    
    D Option          s              4a
    
    /free
         // convert to lowercase
         Option = %bitand(inOption: x'BFBFBFBF');
         // convert to uppercase
         Option = %bitor (inOption: x'40404040');
    

    Notice the hexadecimal constants in the second parameters of the bit functions. You’ll need a hex BF or 40 for each character to be converted.

    Now you can test the Option variable against your preference of EDIT or edit.

    I don’t know how this technique works with natural languages other than English. But I do know that it runs very fast, much faster than the APIs do.



                         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
    LaserVault

    Integrate Virtual Tape to Automate Your Backups And Strengthen Your Ability To Recover From Cyber Attacks And Disasters

    With most IT departments stretched thin, finding something that can quickly free up IT time is definitely a bonus. That’s why it’s important to stop and take a look at integrating virtual tape into your backup and recovery. Virtual tape is one of those technologies where once you have it, you’ll wonder why you didn’t do it sooner. See a demo and get a $50 gift card.

    But what is it about using virtual tape that makes it so worthwhile? Why is it that so many IBM i shops are already using or considering using virtual tape for all or part of their backup and recovery systems?

    Virtual tape and virtual tape libraries offer a way to both simplify and strengthen backup and recovery operations. By incorporating virtual tape technology, automation of backups becomes possible resulting in hundreds of hours saved annually for IT departments and personnel.

    “We needed to find a replacement that would lower the maintenance cost and reduce complexity of our backup and recovery functions without a major disruption to our operations.” David Fray, Director of Enterprise Systems, ABC Financial

    LaserVault ViTL is a virtual tape and tape library solution developed specifically for use with IBM Power Systems (from AS/400 to iSeries to Power 9s). With ViTL you can:

    • Replace physical tape and tape libraries and eliminate associated delays
    • Automate backup operations, including the ability to purge or archive backups
    • Remotely manage your backups – no need to be onsite with your server
    • Save backups to a dedupe appliance and the cloud
    • Recover your data at lightspeed greatly improving your ability to recover from cyberattacks
    • And so much more

    Sign-up now to see a ViTL online demo and get a $50 Amazon e-gift card when the demo is complete as our way of saying thanks for your time. Plus when you sign-up you’ll receive a free facts comparison sheet on using virtual tape vs tape so you can compare the functionality for yourself.

    Share this:

    • Reddit
    • Facebook
    • LinkedIn
    • Twitter
    • Email

    Sponsored Links

    looksoftware:  Get your FREE copy of the hottest product of the year!
    Computer Keyes:  KeyesOverlay rapidly converts standard *SCS printer files into PDF documents
    Manta Technologies:  Your complete source for IBM i training

    IT Jungle Store Top Book Picks

    Easy Steps to Internet Programming for AS/400, iSeries, and System i: List Price, $49.95
    The iSeries Express Web Implementer's Guide: List Price, $49.95
    The System i RPG & RPG IV Tutorial and Lab Exercises: List Price, $59.95
    The System i Pocket RPG & RPG IV Guide: List Price, $69.95
    The iSeries Pocket Database 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
    Getting Started With WebSphere Development Studio Client for iSeries: List Price, $89.00
    Getting Started with WebSphere Express for iSeries: List Price, $49.00
    Can the AS/400 Survive IBM?: List Price, $49.00
    Chip Wars: List Price, $29.95

    Carpet Maker Finds a Comfy Spot with S2K 5.0 JDA Software Takes Another Run at i2 Technologies

    Leave a Reply Cancel reply

Volume 9, Number 35 -- November 4, 2009
THIS ISSUE SPONSORED BY:

Help/Systems
WorksRight Software
Halcyon Software

Table of Contents

  • Enable Row Set Paging in a Client/Server Environment Using SQL
  • The Case of the Used Unused Object: A Mystery
  • Some Questions on Adopted Authority Programs
  • Enhancing CGIDEV2
  • A Quick-and-Easy Way to Convert Case in RPG Programs
  • Admin Alert: Keeping i5/OS Ethernet Lines Connected

Content archive

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

Recent Posts

  • IBM Mulls Using DataMigrator as Cloud Warehouse Pipeline
  • PowerTech AV Automatically Detects Ransomware Activity
  • Infor Puts CM3 Project On Hold
  • Four Hundred Monitor, June 29
  • IBM i PTF Guide, Volume 24, Number 26
  • Guild Mortgage Takes The 20-Year Option For Modernization
  • IBM i Licensing, Part 3: Can The Hardware Bundle Be Cheaper Than A Smartphone?
  • Guru: The Finer Points of Exit Points
  • Big Blue Tweaks IBM i Pricing Ahead Of Subscription Model
  • We Still Want IBM i On The Impending Power E1050

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 © 2022 IT Jungle

loading Cancel
Post was not sent - check your email addresses!
Email check failed, please try again
Sorry, your blog cannot share posts by email.