• The Four Hundred
  • Subscribe
  • Media Kit
  • Contributors
  • About Us
  • Contact
Menu
  • The Four Hundred
  • Subscribe
  • Media Kit
  • Contributors
  • About Us
  • Contact
  • Read a Save File

    February 3, 2010 Hey, Ted

    I had an unusual experience recently and thought other readers of Four Hundred Guru might also find it of interest. A physical file had no active records and three deleted records. We were trouble-shooting a problem and needed to know what data was in the three deleted records. We have two third-party products that are supposed to retrieve deleted records, but they failed us. Here’s what we did.

    First, we saved the file to a save file that we keep on hand.

    SAVOBJ OBJ(IBLOCK) LIB($$DATA)
       DEV(*SAVF) OBJTYPE(*FILE) SAVF(MYLIB/MYSAVF)
    

    Next, we ran Display File Description to find the save file’s record length.

    DSPFD FILE(MYLIB/MYSAVF)
    

    DSPFD told us that the record length of our save file was 528 bytes, so we created a program-described file of the same record length.

    CRTPF FILE(QTEMP/MYFILEDELS) RCDLEN(528)
    

    We tried to copy the save file to the physical file, but that was no good.

    CPYF FROMFILE(MYLIB/MYSAVF) TOFILE(QTEMP/MYFILEDELS) FMTOPT(*NOCHK)
    

    So we wrote RPG program CPY528R and a CL driver, CPY528C, to duplicate the save file into the physical file.

    FInput     IF   F  528        Disk
    FOutput    O    F  528        Disk
    DRec              DS           528
     /Free
         Read Input Rec;
         DoW not %eof(Input);
            Write Output Rec;
            Read Input Rec;
         EndDo;
         *inLR = *On;
         Return;
     /End-Free
    
    PGM
    OVRDBF     FILE(INPUT) TOFILE(MYLIB/MYSAVF)
    OVRDBF     FILE(OUTPUT) TOFILE(QTEMP/MYFILEDELS)
    CALL       PGM(CPY528R)
    DLTOVR     FILE(INPUT)
    DLTOVR     FILE(OUTPUT)
    ENDPGM
    

    Calling the CL program copied the save file into physical file MYFILEDELS, where we could use the Display Physical File Member command to view the data in the three deleted records.

    DSPPFM FILE(MYFILEDELS)
    

    It was not long until our mystery was solved.

    Later I got curious and decided to go a step farther. As I studied the data in the physical file, I came to realize that first 512 bytes of each record of the save file contained database data and other things, and that bytes 513 – 528 of each record were devoted to a sequence number and something else that was unrelated to my purposes.

    I also determined that each deleted database record’s data was preceded by a left brace. So I threw together the following RPG program (PRTMYFILER) and CL driver PRTMYFILEC.

    H DftActGrp(*No) ActGrp(*New) Option(*SrcStmt:*NoDebugIO)
    
    FInput     IF   F  528        Disk
    FQSysPrt   O    F  132        Printer
    
    D InputStruc      DS           528    Qualified
    D  Data                   1    512A
    D MyFileRec     E DS                  ExtName(MYFILE) Inz
    D Buffer          S           1024A   Varying
    D EOF             S               N
    D Offset          S             10I 0
    
    D Get             PR
    D Buffer                      1024A   Varying
    D EOF                             N
    
     /Free
         DoU *inLR = *On;
            If %Len(Buffer) < %Len(MyFileRec) + 1;
               Get(Buffer: EOF);
            EndIf;
            Offset = %Scan ('{' : Buffer);
            If Offset > *zero;
               Buffer = %SubSt(Buffer:Offset);
               If %Len(Buffer) < %Len(MyFileRec) + 1;
                  Get(Buffer: EOF);
               EndIf;
               Buffer = %SubSt(Buffer : 2);
               MyFileRec = %SubSt(Buffer : 1: %Len(MyFileRec));
               Monitor;
                  Except PrintLine;
                  Buffer = %SubSt(Buffer : %Len(MyFileRec) + 1);
               On-Error;
               EndMon;
            Else;
               Clear Buffer;
            EndIf;
            If EOF;
                Leave;
            EndIf;
         EndDo;
         *inLR = *On;
         Return;
     /End-Free
    
    OQSysPrt   e            PrintLine   1
    O                       mf_field1
    O                       mf_field2        +0001
    O                       mf_field3        +0001
    O                       mf_field4     M  +0001
    O                       mf_field5     J  +0001
    
    P Get             B
    D                 PI
    D Buffer                      1024A   Varying
    D EOF                             N
     /Free
         Read Input InputStruc;
         If %EOF();
            EOF = *On;
         Else;
            Buffer += InputStruc.Data;
         EndIf;
     /End-Free
    P                 E
    
    
    PGM
    OVRDBF     FILE(INPUT) TOFILE(MYLIB/MYSAVF)
    CALL       PGM(PRTMYFILER)
    DLTOVR     FILE(INPUT)
    ENDPGM
    

    The fields in the output specs are the database fields, which are defined in data structure MyFileRec. These are the fields in the saved database file, MYFILE.

    Calling the CL program produced a report of the three deleted records.

    I am not recommending the mining of save files as standard operating procedure, and we have taken measures to make sure that the third-party utilities won’t fail us the next time we need them. But in this instance, reading a save file helped us resolve a problem, and I offer our experience in case it may be of benefit to someone else someday.

    –Name withheld by request



                         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
    VISUAL LANSA 16 WEBINAR

    Trying to balance stability and agility in your IBM i environment?

    Join this webinar and explore Visual LANSA 16 – our enhanced professional low-code platform designed to help organizations running on IBM i evolve seamlessly for what’s next.

    🎙️VISUAL LANSA 16 WEBINAR

    Break Monolithic IBM i Applications and Unlock New Value

    Explore modernization without rewriting. Decouple monolithic applications and extend their value through integration with modern services, web frameworks, and cloud technologies.

    🗓️ July 10, 2025

    ⏰ 9 AM – 10 AM CDT (4 PM to 5 PM CEST)

    See the webinar schedule in your time zone

    Register to join the webinar now

    What to Expect

    • Get to know Visual LANSA 16, its core features, latest enhancements, and use cases
    • Understand how you can transition to a MACH-aligned architecture to enable faster innovation
    • Discover native REST APIs, WebView2 support, cloud-ready Azure licensing, and more to help transform and scale your IBM i applications

    Read more about V16 here.

    Share this:

    • Reddit
    • Facebook
    • LinkedIn
    • Twitter
    • Email

    Sponsored Links

    looksoftware:  Why Web Enable? View the FREE on-demand webinar and get a FREE white paper
    RevSoft:  Enterprise solutions for data transfers, messaging and scheduling
    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

    Dutch Consultant Taps Magic’s iBolt for JDE Integration Projects The Power7 Rollout Begins In The Middle

    Leave a Reply Cancel reply

Volume 10, Number 5 -- February 3, 2010
THIS ISSUE SPONSORED BY:

Infor
SEQUEL Software
System i Developer

Table of Contents

  • What a Lifelong DB2 Fanatic Sees in MySQL
  • Read a Save File
  • Admin Alert: Did You Lose ECS on February 1?

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