• The Four Hundred
  • Subscribe
  • Media Kit
  • Contributors
  • About Us
  • Contact
Menu
  • The Four Hundred
  • Subscribe
  • Media Kit
  • Contributors
  • About Us
  • Contact
  • Parameterized RUNSQLSTM with Two or More Substitutions

    September 4, 2002 Timothy Prickett Morgan

    Hey, Ted:

    In the June 21 issue of Midrange Guru, you shared a Qshell sed command to create a source member that can be used under the Run SQL Statement (RUNSQLSTM) command.

    Your example replaced one token. However, I need to make multiple changes using one sed command. For example, this is the pattern source member:

     Insert into MyFile                
         ( Select distinct a.LOGNBR       
           from File1 a, File2 b    
           Where a.ORGLOGNBR = 'LLLLLLL'  
             and b.LOGNBR    = 'LLLLLLL'  
             and b.SEQNBR    =  NNNN      
             and a.CNTL = b.CNTL )        
    

    I want to change LLLLLLL and NNNN together with one sed command. Otherwise I have to create two new members.

    Is it possible to change both at the same time with one sed command?

    — Shafiq

    Use the -e option, Shafiq. The -e option indicates that a sed command follows in the next parameter. You can repeat the -e option.

    The following sed command contains two sed substitution commands, each one of which is preceded by the -e option.

    sed -e 's/LLLLLLL/1234567/g' -e 's/NNNN/9876/g'  
    /qsys.lib/mylib.lib/mysrcfile.file/mymbr.mbr  
    

    If I run this sed command against the source code you provided me, this is the output I get.

     Insert into MyFile                  
         ( Select distinct a.LOGNBR      
           from File1 a, File2 b         
           Where a.ORGLOGNBR = '1234567' 
             and b.LOGNBR    = '1234567' 
             and b.SEQNBR    =  9876     
             and a.CNTL = b.CNTL )      
    

    If I remember correctly, this option didn’t work for me when I tried it under V4R5. It does work correctly under V5R1.

    This is a good illustration of why I started learning to use Qshell. I was intrigued by the Qshell utilities and wondered if I might be able to use them with source physical files.

    — Ted

    Sponsored By
    COMMON

    REGISTER FOR COMMON IN DENVER, OCT. 13-17

    Get the IT training you need by attending COMMON Users Group’s Fall 2002 IT Education Conference & Expo, October 13-17 in Denver. Early Bird registration is $1,150 until September 4.

    Choose from over 720 sessions and labs covering a wide range of industry topics. Also receive training from J.D. Edwards, MAPICS, and other vendors.

    Don’t miss out! Go to www.common.org

    Share this:

    • Reddit
    • Facebook
    • LinkedIn
    • Twitter
    • Email

    Tags: Tags: mgo_rc, Volume 2, Number 67 -- September 4, 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

    A Fuzzy Search Algorithm Reader Feedback and Insights: Copying Records in RPG

    Leave a Reply Cancel reply

MGO Volume: 2 Issue: 67

This Issue Sponsored By

    Table of Contents

    • Reader Feedback and Insights: Odds and Ends Always Popular
    • Starting the Host Database Server Daemon After an OS/400 V5R1 Upgrade
    • Parameterized RUNSQLSTM with Two or More Substitutions

    Content archive

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

    Recent Posts

    • Meet The Next Gen Of IBMers Helping To Build IBM i
    • Looks Like IBM Is Building A Linux-Like PASE For IBM i After All
    • Will Independent IBM i Clouds Survive PowerVS?
    • Now, IBM Is Jacking Up Hardware Maintenance Prices
    • IBM i PTF Guide, Volume 27, Number 24
    • Big Blue Raises IBM i License Transfer Fees, Other Prices
    • Keep The IBM i Youth Movement Going With More Training, Better Tools
    • Remain Begins Migrating DevOps Tools To VS Code
    • IBM Readies LTO-10 Tape Drives And Libraries
    • IBM i PTF Guide, Volume 27, Number 23

    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