• 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
    FalconStor

    Begin Your Journey to the Cloud with Hybrid Cloud Date Protection and Disaster Recovery

    FalconStor StorSafe optimizes and modernizes your IBM i on-premises and in the IBM Power Virtual Server Cloud

    FalconStor powers secure and encrypted IBM i backups on-premise and now, working with IBM, powers migration to the IBM PowerVS cloud and on-going backup to IBM cloud object storage.

    Now you can use the IBM PowerVS Cloud as your secure offsite copy and take advantage of a hybrid cloud architecture or you can migrate workloads – test & development or even production apps – to the Power VS Cloud with secure cloud-native backup, powered by FalconStor and proven IBM partners.

    Learn More

    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

  • 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