RE: Journal entries

[qsrvbas@xxxxxxxxxxxx (Tom Liotta)]

James:

Here's a basic method for simple physical files that _can_ be improved and 
automated. To get the specific level of detail you want, others can make 
suggestions:

1. DSPJRN entries for file(F1)to an outfile(F2) with ENTDTALEN(*CALC)
2. STRSQL
3. SELECT to a new outfile(F3) all fields from F2 except JOESD plus all fields 
from F1 specifying something like WHERE 1=2
4. CPYF from F2 to F3 specifying FMTOPT(*NOCHK)

So, you get your journal entries into an outfile with that big JOESD field 
stuck on the end. Then you create a file that describes all the journal entry 
fields at the beginning except for the big JOESD field, and you include all the 
individual fields from the actual file. That step results in nothing but 
creating a file description. Those individual field definitions at the end 
describe the part of the record where the JOESD field is. When you finally do 
the CPYF FMTOPT(*NOCHK), you make an image-copy of the data and the added field 
definitions go to work.

Best would be to create the desired F3 file before you do the DSPJRN. You can 
use DDS if you wish. Then you could DSPJRN directly into it and there'd be no 
CPYF needed.

Now, once you have the F3 file definition, you can use this as a record format 
in a program that receives journal entries for the F1 file. Use it to define a 
data structure and receive into the structure.

Lots of details left out, but you probably get the idea.

Tom Liotta

midrange-l-request@xxxxxxxxxxxx wrote:

>   2. Journal entries (James H H Lampert)
>
>I'm rather new to the whole journaling thing. Given a journaled physical
>file, is there a way to view the record images in type UB, UR, DX, and PT
>journal entries so they're broken down into fields, and the packed,
>binary, floating point, and VARLEN fields are in a Human-readable format?
>
>Or is there an API call for retrieving a journal entry into a non-CL, OPM
>program, that I simply haven't been able to find yet?

-- 
Tom Liotta
The PowerTech Group, Inc.
19426 68th Avenue South
Kent, WA 98032
Phone  253-872-7788 x313
Fax    253-872-7904
http://www.powertech.com


__________________________________________________________________
New! Unlimited Netscape Internet Service.
Only $9.95 a month -- Sign up today at http://isp.netscape.com/register
Act now to get a personalized email address!

Netscape. Just the Net You Need.