• The Four Hundred
  • Subscribe
  • Media Kit
  • Contributors
  • About Us
  • Contact
Menu
  • The Four Hundred
  • Subscribe
  • Media Kit
  • Contributors
  • About Us
  • Contact
  • Date and Time Functions in V5R1 RPG

    August 9, 2002 Timothy Prickett Morgan

    Hey, Ted:

    Here’s a snippet of RPG code that loads timestamp variables from legacy date formats and date/time variables.

    It shows how to use three new built-in functions to make date/time comparisons easier than they used to be.

    The problem arises when dates and times are stored in separate fields and must be compared.

    Maybe the dates and times are in fields of the date and time data types, but in many databases, they’re stored in plain old alpha or numeric fields.

    To compare two date/time combinations requires logic like the following example:

    * is job-on date/time before scheduled date/time?
    C                   if        (job_on_date < sched_date) or 
    C                             (job_on_date = sched_date and 
    C                              job_on_time < sched_time)    
    

    This is cumbersome, and I have seen many places where the comparison was done incorrectly.

    I convert all date and time pairs to timestamps before comparison. The %date, %time, and %timestamp built-in functions, introduced in V5R1, simplify such conversions.

    Use this code to convert a legacy date and time to a timestamp:

    H DATFMT(*ISO)   TIMFMT(*ISO)
    D legacy_time     s              6p 0 inz(073403)
     * HH MM SS
    D legacy_date     s              6p 0 inz(071802)
     * MM DD YY
    D legacy_stamp    s               z   inz
    /free
     legacy_stamp = %timestamp(
         %char(%date(legacy_date:*MDY)) + '-' +
         %char(%time(legacy_time:*hms)) + '.000000');
    /end-free
    

    Use this code to convert date and time data types to a timestamp:

    H DATFMT(*ISO)   TIMFMT(*ISO)
    D defined_time    s               t   inz
    D defined_date    s               d   inz
    D defined_stamp   s               z   inz
     /free
      defined_stamp = %timestamp(
           %char(defined_date) + '-' +
           %char(defined_time) + '.000000');
     /end-free
    

    — Craig Rutledge, www.jcrcmds.com

    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 60 -- August 9, 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

    Tell PC5250 to Stop Bugging Me about My Password Using Timestamps as Unique Keys

    Leave a Reply Cancel reply

MGO Volume: 2 Issue: 60

This Issue Sponsored By

    Table of Contents

    • TCP/IP Printing Problem
    • Default Connection for CAE Users
    • Date and Time Functions in V5R1 RPG

    Content archive

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

    Recent Posts

    • Positive News From The Kyndryl Mainframe Modernization Report
    • NAViGATE, inPower 2025 On Tap for September 2025
    • Guru: WCA4i And Granite – Because You’ve Got Bigger Things To Build
    • As I See It: Digital Coup
    • IBM i PTF Guide, Volume 27, Number 37
    • 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

    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