• Subject: Re: PGM assist?
  • From: Denis Robitaille <drobitaille@xxxxxxxxxxxx>
  • Date: Thu, 09 Oct 1997 08:34:33 -0400
  • Organization: Cascades inc.

Tim Truax wrote:
> 
> Hello all,
> Look at this program:
> For all you smart people just FFW to the MAIN QUESTION AREA below.
> F*****************************************************************
> F*
> F*   PROGRAM NAME: TESTFUPD3
> F*   DESCRIPTION:  UPDATE JOB
> F*   PROGRAMMER:   TIM TRUAX
> F*   DATE CREATED: 10/08/1997
> F*
> F*   COMMENT:  TAKE LOW CASE ITEMS AND CONVERT TO UPPER CASE.
> F*
> F*****************************************************************
> FUSSRCHM IP  E                    DISK
> FUXSRCHM UF  E                    DISK
> F            SRCHM                             KRENAMESRCX
> 
> Here are the salient points:
> 1) Writing program to update (WITHOUT LOCKING) this major file.(USSRCHM)
> 2) USSRCHM is an actual externally defined file, used heavily during
> day.
> 3) I am only going to be updating about 1000 of the 500,000 records in
> this file, therefore I want to only READ every record in the file as
> though it was just input.  Then I qualify the record that was only
> inputted to determine if it requires updating, then I will use the
> trickery of using file named UXSRCHM as my Update/Full file, I will
> chain out to this update file (which is really my input file) and only
> risk locking 1000 records instead of all 500,000 records.
> 
> MAIN QUESTION AREA:
> 
> In order to get this program to compile I had to CRTDUPOBJ DUPDATA(*NO)
> the USSRCHM file into my library as UXSRCHM, then place an OVRDBF for
> UXSRCHM to point to actual USSRCHM file.  Is creating an empty file
> object considered proper to getting the program to compile?
> --
> ''''''''''''''''''''
> : Tim & Dana Truax :
> :                  :
> ''''''''''''''''''''
I dont see any problem if you create the duplicate file in qtemp, then
it will be removed at signoff. But there is another solution, just do an
OVRDBF interactively before you compile your program.
-- 
Denis Robitaille
Cascades Inc.

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to "MIDRANGE-L@midrange.com".
| To unsubscribe from this list send email to MAJORDOMO@midrange.com
|    and specify 'unsubscribe MIDRANGE-L' in the body of your message.
| Questions should be directed to the list owner/operator: david@midrange.com
+---


This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].