• The Four Hundred
  • Subscribe
  • Media Kit
  • Contributors
  • About Us
  • Contact
Menu
  • The Four Hundred
  • Subscribe
  • Media Kit
  • Contributors
  • About Us
  • Contact
  • Do Your File Specifications Lie?

    January 21, 2009 Ted Holt

    An old joke says, “How do you know a salesman (or politician) is lying to you?” The answer: “His lips are moving.” All joking aside, your RPG IV F specs can lie to you, and it’s not obvious when they do. This is not a serious problem, but I’ve run across it on occasion and want to be sure others are aware of it.

    Let’s say the following program is running:

    H dftactgrp(*no) actgrp('QILE')
    Fcustcdt   uf   e             disk
    Ferd01p    o    e             printer
     /free
         *inlr = *on;
         dow '1';
            read cusrec;
            if %eof();  
                leave;
            endif;
            write erd01p1;
         enddo;
         return;
    

    This is a simple program, right? Read a record, write a record.

    Someone else comes along and starts up this program while the first program is running.

    pgm
    
    alcobj obj((custcdt *file *exclrd)) wait(0)
    call   SomePgm /* that uses custcdt */
    dlcobj obj((custcdt *file *exclrd))
    
    endpgm
    

    The second user is greeted with message CPF1002 (Cannot allocate object CUSTCDT) because the second program thinks the first program is updating file CUSTCDT. The F spec in the first program lied, therefore the second program won’t run.

    Maybe the first program used to update CUSTCDT, but someone since removed the update operation and failed to change the F spec. Here’s the corrected F spec, with the file designated as input only rather than updatable.

    Fcustcdt   if   e             disk
    

    Here’s another variation of the same program, with yet another lying F spec.

    H dftactgrp(*no) actgrp('QILE')
    Fcustcdt   if   e             disk
    Fsalesrep  if   e           k disk
    Ferd01p    o    e             printer
     /free
         *inlr = *on;
         dow '1';
            read cusrec;
            if %eof();  
                leave;
            endif;
            write erd01p1;
         enddo;
         return;
    

    The second F spec claims that this program uses the sales representative file, but that’s not true. The compiler generates warning message RNF7066 (Record-Format REP not used for input or output), but that warning message is unreliable. If you issue native I/O operations, such as CHAIN or READ, to a file name rather than its record format name(s), the compiler will generate RNF7066. In other words, RNF7066 is not a trustworthy indicator that the file is not used in the program. For this reason alone, I use record format names, rather than file names, in calculations when possible.

    By the way, the RPG III compiler will generate hard errors for these situations, but I’m not suggesting you use RPG III.

    The consequences of lying F specs may be more nuisance than catastrophe, but here are a few of the results that I have seen.

    1. As illustrated above, a program might not run because of another program’s lying F spec.
    2. Performance is affected, as programs open and close files they don’t use.
    3. Documentation packages may erroneously report that a file is being used, leading to wasted developer time when that file is modified.
    4. Based on their reading of source code, developers may make erroneous decisions or infer erroneous behavior of job streams.



                         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
    ARCAD Software

    Embrace VS Code for IBM i Development

    The IBM i development landscape is evolving with modern tools that enhance efficiency and collaboration. Ready to make the move to VS Code for IBM i?

    Join us for this webinar where we’ll showcase how VS Code can serve as a powerful editor for native IBM i code and explore the essential extensions that make it possible.

    In this session, you’ll discover:

    • How ARCAD’s integration with VS Code provides deep metadata insights, allowing developers to assess the impact of their changes upfront.
    • The role of Git in enabling seamless collaboration between developers using tools like SEU, RDi, and VS Code.
    • Powerful extensions for code quality, security, impact analysis, smart build, and automated RPG conversion to Free Form.
    • How non-IBM i developers can now contribute to IBM i projects without prior knowledge of its specifics, while ensuring full control over their changes.

    The future of IBM i development is here. Let ARCAD be your guide!

    Watch Now

    Share this:

    • Reddit
    • Facebook
    • LinkedIn
    • Twitter
    • Email

    Sponsored Links

    ARCAD Software:  FREE Webinar, ITIL Best Practices with Philippe Magne, January 28
    COMMON:  Join us at the 2009 annual meeting and expo, April 26-30, Reno, Nevada
    System i Developer:  RPG & DB2 Summit in Orlando, April 15-17 for 3 days of serious training

    IT Jungle Store Top Book Picks

    Easy Steps to Internet Programming for AS/400, iSeries, and System i: List Price, $49.95
    Getting Started with PHP for i5/OS: List Price, $59.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 Developers' 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
    iSeries Express Web Implementer's Guide: List Price, $59.00
    Getting Started with WebSphere Development Studio for iSeries: List Price, $79.95
    Getting Started With WebSphere Development Studio Client for iSeries: List Price, $89.00
    Getting Started with WebSphere Express for iSeries: List Price, $49.00
    WebFacing Application Design and Development Guide: List Price, $55.00
    Can the AS/400 Survive IBM?: List Price, $49.00
    The All-Everything Machine: List Price, $29.95
    Chip Wars: List Price, $29.95

    Ricoh Launches New Color MFP i Roadmaps: Here Be Dragons

    Leave a Reply Cancel reply

Volume 9, Number 3 -- January 21, 2009
THIS ISSUE SPONSORED BY:

Help/Systems
WorksRight Software
System i Developer

Table of Contents

  • Redundant Join Criteria: Good or Bad Idea?
  • Do Your File Specifications Lie?
  • Trouble-Shooting WebSM to HMC Connectivity Problems

Content archive

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

Recent Posts

  • Liam Allan Shares What’s Coming Next With Code For IBM i
  • From Stable To Scalable: Visual LANSA 16 Powers IBM i Growth – Launching July 8
  • VS Code Will Be The Heart Of The Modern IBM i Platform
  • The AS/400: A 37-Year-Old Dog That Loves To Learn New Tricks
  • IBM i PTF Guide, Volume 27, Number 25
  • 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

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