• The Four Hundred
  • Subscribe
  • Media Kit
  • Contributors
  • About Us
  • Contact
Menu
  • The Four Hundred
  • Subscribe
  • Media Kit
  • Contributors
  • About Us
  • Contact
  • How to Replace Display Files While They Are In Use

    March 3, 2010 Hey, Ted

    If you recompile a program while someone’s running it, it’s no big deal. The system moves the old object into library QRPLOBJ and the user never knows the difference. However, creating a display file is a different situation. You can’t replace a display while someone has a lock on it. Here’s a way to replace a display file, even while people are using it.

    To illustrate, assume a high-level program, MYHLLPGM, that uses display file MYDSPF. Most likely MYHLLPGM would be written in RPG or maybe COBOL. A user takes a menu option that calls MYHLLPGM, and the system locks MYDSPF.

    The trick is to make the program use its own copy of the display file. Here’s some CL code that shows how it’s done.

    CHKOBJ     OBJ(QTEMP/MYDSPF) OBJTYPE(*FILE)
    MONMSG     MSGID(CPF9801) EXEC(DO)
    CRTDUPOBJ  OBJ(MYDSPF) FROMLIB(*LIBL) OBJTYPE(*FILE) +
                 TOLIB(QTEMP)
    ENDDO
    
    OVRDBF     FILE(MYDSPF) TOFILE(QTEMP/MYDSPF)
    CALL       PGM(MYHLLPGM)
    

    The Check Object (CHKOBJ) command looks to see if there’s a copy of MYDSPF in QTEMP. If not, the Create Duplicate Object (CRTDUPOBJ) command creates one.

    The Override with Display File (OVRDSPF) command causes the HLL program to use the display file in QTEMP, rather than the one in the production library.

    Now you can recreate the production display file while people are using it.

    You can have the CL program delete the display file after the program ends. I usually leave the file in QTEMP, since most days I don’t recreate the display file. If a user gets a level check on the display file after I’ve recreated it, I tell him to sign off and on again.

    –R



                         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
    FOCAL POINT SOLUTIONS GROUP

    IntellaFLASH™

    FPSG is the only hosting provider that offers IntellaFLASH™.  IntellaFLASH was created by FPSG and is an exclusive FPSG solution that provides the following:

    • No User downtime for production backups
    • Supports BRMS and Tivoli Storage Manager
    • Provides near Continuous Data Protection (CDP)
    • Create point-in-time copies of your entire environment within minutes
    • Easy and quickly repeatable
    • Processes are tied into Job Schedulers
    • No user downtime for planned outages
    • No disruption to the send and receive process production, and DR stays in sync during the Switch test
    • Supports heterogeneous environments
    • Create test/development environments on the fly
      ⇒ Simplify operating system/application upgrade testing efforts
      ⇒ Improve quality assurance testing

     

    Watch our IntellaFLASH™ Video to learn more

    Let’s Discuss Your Custom Solution Needs

    ContactUs@FocalPointSg.com

    Follow us on LinkedIn

    focalpointsg.com | 813.513.7402

    Share this:

    • Reddit
    • Facebook
    • LinkedIn
    • Twitter
    • Email

    Sponsored Links

    Northeast User Groups Conference:  20th Annual Conference, April 12 - 14, Framingham, MA
    DRV Technologies:  SpoolFlex automatically converts reports to user friendly PC formats - FREE trial!
    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

    VAI Lands Two More Customers for S2K 5.0 i 7.1 Due April 14, with Open Access for RPG, Other Goodies

    Leave a Reply Cancel reply

Volume 10, Number 8 -- March 3, 2010
THIS ISSUE SPONSORED BY:

SEQUEL Software
CNX
System i Developer

Table of Contents

  • Variable Program Calls in Free-Format RPG
  • How to Replace Display Files While They Are In Use
  • Admin Alert: Preparing Your CBU For a Real Emergency

Content archive

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

Recent Posts

  • COMMON Set for First Annual Conference in Three Years
  • API Operations Management for Safe, Powerful, and High Performance APIs
  • What’s New in IBM i Services and Networking
  • Four Hundred Monitor, May 18
  • IBM i PTF Guide, Volume 24, Number 20
  • IBM i 7.3 TR12: The Non-TR Tech Refresh
  • IBM i Integration Elevates Operational Query and Analytics
  • Simplified IBM i Stack Bundling Ahead Of Subscription Pricing
  • More Price Hikes From IBM, Now For High End Storage
  • Big Blue Readies Power10 And IBM i 7.5 Training for Partners

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 © 2022 IT Jungle

loading Cancel
Post was not sent - check your email addresses!
Email check failed, please try again
Sorry, your blog cannot share posts by email.