• The Four Hundred
  • Subscribe
  • Media Kit
  • Contributors
  • About Us
  • Contact
Menu
  • The Four Hundred
  • Subscribe
  • Media Kit
  • Contributors
  • About Us
  • Contact
  • Update One File Based on Another File

    April 14, 2010 Ted Holt

    It’s not uncommon to have to update one file based on data found in another file. In fact, it’s a very common requirement, due to the way that data is “normalized” in relational database management systems. When only one field links the two files–the file that is being updated and the file that contains the search criteria–the SQL syntax is simple. But joining on two or more fields requires more challenging syntax.

    Here’s an example of an update when only one field joins the two files. I add a week to the scheduled ship date of orders of type B customers.

    update salesordh
       set shipdate = shipdate + 7 days
     where customerno in
             (select customerno
                from customers
               where type = 'B')
    

    Since the sales order header file and customer master file share only one common field–customer number–a simple IN expression does the trick.

    But suppose the two files join on two fields–company number and customer number. What then?

    The traditional method is to use the EXISTS construct.

    update salesordh as h
       set shipdate = shipdate + 7 days
     where exists 
       (select *
          from customers as c
         where type = 'B'
           and c.companyno  = h.companyno
           and c.customerno = h.customerno)
    

    EXISTS proves true if the SELECT that follows it returns at least one row (record). For each row of the sales order header file, SALESORDH, the system looks to see if there is at least one type B customer with the same company number and customer number in the customer master file. If at least one row is found, the sales order header record is updated.

    If you are V5R4 or above, you have a simpler option–you can use a row value expression.

    update salesordh
       set shipdate = shipdate + 7 days
     where (companyno, customerno) in
              (select companyno, customerno
                 from customers
                where type = 'B')
    

    Row value expressions let you compare two lists of values to one another. In this example, the company number-customer number combination of a sales record are compared to the set of all company number-customer order combinations from the type B customers.

    Thanks to row value expressions, I have jettisoned the non-intuitive EXISTS and returned to the simple IN of the first example!



                         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

    BCD:  April 21 Webinar - Web enable your IBM i programs & satisfy end-users
    inFORM Decisions:  Paperless saves $$$. Learn more and get FREE white papers.
    COMMON:  Join us at the annual 2010 conference, May 3 - 6, in Orlando, Florida

    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

    Systems Director Express for X86 Keeps an Eye on Heat and Power Usage IBM’s Power7 Blades Pack a CPW Punch

    Leave a Reply Cancel reply

Volume 10, Number 13 -- April 14, 2010
THIS ISSUE SPONSORED BY:

SEQUEL Software
WorksRight Software
Halcyon Software

Table of Contents

  • Query Control
  • Update One File Based on Another File
  • Admin Alert: Some Simple Ideas for Getting the Best System i Lease

Content archive

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

Recent Posts

  • Public Preview For Watson Code Assistant for i Available Soon
  • COMMON Youth Movement Continues at POWERUp 2025
  • IBM Preserves Memory Investments Across Power10 And Power11
  • Eradani Uses AI For New EDI And API Service
  • Picking Apart IBM’s $150 Billion In US Manufacturing And R&D
  • FAX/400 And CICS For i Are Dead. What Will IBM Kill Next?
  • Fresche Overhauls X-Analysis With Web UI, AI Smarts
  • Is It Time To Add The Rust Programming Language To IBM i?
  • Is IBM Going To Raise Prices On Power10 Expert Care?
  • IBM i PTF Guide, Volume 27, Number 20

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