Re: Rrn of Physical files

["Jeffrey M. Silberberg" <silbrbrg@xxxxxxxxxx>]

  Scott, 

        Journal the file, then dspjrn the jounal selecting this program, 
if you set the before and after image on you should see what you need, 
and have a track of every record the program touches in seq. 

        When you have the problem licked you could just delete the 
journal and receiver...

        JMS

On Fri, 7 Aug 1998, Scott Swaim wrote:

> The program is not crashing.  Therefore I cannot take a "D".
> this program uses a record in a file to indicate whether or not the previous
> end of the program completed successfully.  The problem that I am running
> into is that the program thinks it did not finish successfully "last time".
> I need to find which record in the file it uses to check this indicator.
> There are 6000 records in the file.  I need a way to log each RRN that the
> file reads/chains to in order to check these records for the "indicator"
> 
> Scott Swaim
> scott@qualitycorps.com
> 
> (The opinions expressed are not necessarily those of my employer,
> unless they are correct.  They would like as much credit as possible.)
> -----Original Message-----
> From: Patrick Townsend <townsend@patownsend.com>
> To: MIDRANGE-L@midrange.com <MIDRANGE-L@midrange.com>
> Date: Thursday, August 06, 1998 8:10 PM
> Subject: Re: Rrn of Physical files
> 
> 
> >Scott,
> >
> >If the program is getting an error and you take the "D" option for a
> >dump I think the dump output will have the rrn of the file. It's
> >information that is also available in the file's Informational
> >Datastructure.
> >
> >Patrick
> >
> >Scott Swaim wrote:
> >>
> >> I have a program that just gave me an error message.  This message is a
> >> "internal message" that is display when something doesn't meet the
> criteria
> >> of the program.  I need to be able to see RRN of a file  each time this
> >> program accesses this file.  It is a program that was written in 1991 in
> >> COBOL.  I do not have the source for it and I am extremely frustrated
> with
> >> this program.  Is there a utility or system command that will allow me to
> >> print the RRN of a file when the program chains to the file??
> >>
> >> TIA
> >>
> >> Scott Swaim
> >> scott@qualitycorps.com
> >>
> >> (The opinions expressed are not necessarily those of my employer,
> >> unless they are correct.  They would like as much credit as possible.)
> >>
> >> +---
> >> | This is the Midrange System Mailing List!
> >> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> >> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> >> | To unsubscribe from this list send email to
> MIDRANGE-L-UNSUB@midrange.com.
> >> | Questions should be directed to the list owner/operator:
> david@midrange.com
> >> +---
> >
> >--
> >
> >Patrick Townsend                       mailto:townsend@patownsend.com
> >Patrick Townsend & Associates, Inc.    http://www.patownsend.com
> >+---
> >| This is the Midrange System Mailing List!
> >| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> >| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> >| To unsubscribe from this list send email to
> MIDRANGE-L-UNSUB@midrange.com.
> >| Questions should be directed to the list owner/operator:
> david@midrange.com
> >+---
> >
> 
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: david@midrange.com
> +---
> 
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---