• The Four Hundred
  • Subscribe
  • Media Kit
  • Contributors
  • About Us
  • Contact
Menu
  • The Four Hundred
  • Subscribe
  • Media Kit
  • Contributors
  • About Us
  • Contact
  • String Parameters of Various Lengths, Take Two

    June 12, 2002 Timothy Prickett Morgan

    Dear Readers:

    Several people have written to point out errors in my solution to the reader who wanted to make an RPG subprocedure accept character parameters of any size. I need to correct the code that I provided in that issue of Midrange Guru, OS/400 Edition. (I plan to explore this topic more and to present the ideas of my respondents in the near future, so watch for more information in a future edition of Midrange Guru.)

    Here is the original question”

    “I have an RPG IV subprocedure that I call from several different programs. I use what I call the QCMDEXC method to pass a character string to it. That is, I pass two parameters–the character string and the length of the character string. I would like to eliminate the second parameter.”

    I failed to explain that the subprocedure needed to modify the string parameter. I made the mistake of including the CONST keyword on the string parameter while testing, but forgot to remove it before publication. As my demo subprocedure did not modify the string, the compiler did not catch my error.

    Here is the proper code (I hope).

    First, the procedure prototype:

    D MyProc          PR                  Opdesc            
    D   String                   32767    Options(*Varsize)
    

    Next, the subprocedure:

    H nomain                                                
                                                             
      /copy copysrc,myproc                               
      /copy copysrc,ceedod                                   
                                                             
     P MyProc          B                   Export            
      * Procedure Interface                                  
     D                 PI                  Opdesc            
     D   String                   32767    Options(*Varsize) 
                                                             
      * Variables for the CEEDOD API                         
     D DescType        s             10I 0                   
     D DataType        s             10I 0                   
     D DescInfo1       s             10I 0                   
     D DescInfo2       s             10I 0                   
     D DataLen         s             10I 0                   
                                                       
     * Retrieve the length of the string parameter            
    C                   Callp     CEEDOD(1: DescType:         
    C                                DataType : DescInfo1:    
    C                                DescInfo2 : DataLen :    
    C                                *OMIT)                   
                                                              
     * DataLen now contains the length of the input string    
                                                              
                                                              
     * Do whatever needs to be done                           
                                                              
    C                   Return                                
    P                 e                                       
    

    I apologize for the error.

    — Ted

    Sponsored By
    ADVANCED SYSTEMS CONCEPTS

    SEQUEL meets all your iSeries and AS/400 data access needs in a single, integrated solution:

    • Windows, Web or host user interfaces

  • Convert AS/400 data into PC file formats
  • E-mail or FTP query results, reports and spool files
  • Run-time prompted queries and reports for end users
  • IF-THEN-ELSE logic in queries and reports
  • Report, form and label formatting second to none
  • Easily convert date fields, character-to-numeric, numeric-to-character and other data manipulation
  • SORT or JOIN using a calculated field
  • Quick summarization of data with Tabling function
  • Run multiple SEQUEL requests as one with the SEQUEL Scripting function
  • OLAP Business Intelligence at a fraction of the cost of comparable solutions
  • Take 6 minutes to
    view a SEQUEL ViewPoint ScreenCam movie to see how simple Windows-based
    AS/400 and iSeries data access can be! In just a few short minutes, you
    can find out ways to make your job easier and improve data access throughout
    your organization. Download
    the ViewPoint movie here
    .

    For more information or a FREE trial of SEQUEL,
    call 847/605-1311 or visit Advanced Systems Concepts .

    Share this:

    • Reddit
    • Facebook
    • LinkedIn
    • Twitter
    • Email

    Tags: Tags: mgo_rc, Volume 2, Number 45 -- June 12, 2002

    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

    Searching the Information Center Reader Feedback and Insights: Group Job Limitation

    Leave a Reply Cancel reply

MGO Volume: 2 Issue: 45

This Issue Sponsored By

    Table of Contents

    • Reader Feedback and Insights: Printing Leading Zeros in Query/400, Another Look
    • String Parameters of Various Lengths, Take Two
    • Build SQL to Define Your Existing Files, Revisited

    Content archive

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

    Recent Posts

    • AI Is Coming for ERP. How Will IBM i Respond?
    • The Power And Storage Price Wiggling Continues – Again
    • LaserVault Adds Multi-Path Support To ViTL
    • As I See It: Spacing Out
    • IBM i PTF Guide, Volume 27, Numbers 34, 35, And 36
    • The Power11 Transistor Count Discrepancies Explained – Sort Of
    • Is Your IBM i HA/DR Actually Tested – Or Just Installed?
    • Big Blue Delivers IBM i Customer Requests In ACS Update
    • New DbToo SDK Hooks RPG And Db2 For i To External Services
    • IBM i PTF Guide, Volume 27, Number 33

    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